-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
m.zmrzlina
senior tag
válasz m.zmrzlina #12348 üzenetére
Bocsánat! A kód helyesen, rendberakott ciklusváltozókkal:
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 20
If Cells(1, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False
Next
For j = 1 To 20
If Cells(j, 1).Value <> "igen" Then Sheets("Munka1").Rows(j).EntireRow.Hidden = True Else Sheets("Munka1").Rows(j).EntireRow.Hidden = False
Next
End Sub[ Szerkesztve ]
-
jani-wan
tag
válasz m.zmrzlina #12345 üzenetére
Az önműködő oszlopelrejtést is le tudnátok írni, mert úgy tűnik arra van szükségem.
Illetve, hogy mit kell változtatnom a kódban, ha nem az A1, B1 ... hanem az A2, B2 stb.. cellákban keresse ki az értéket, hogy elrejtse az oszlopot vagy sem
Köszi
-
m.zmrzlina
senior tag
válasz jani-wan #12352 üzenetére
Próbáld ezt:
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 60
If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False
Next
End SubHa jól emlékszem ötvenvalahány oszlopot írtál ezért átírtam 60-ra a kezelt sorok számát. A Munka1-et javítsd át a te munkalapod nevére!
-
cousin333
addikt
-
félisten
válasz jani-wan #12352 üzenetére
A Cells függvény így működik
Cells(sorindex, oszlopindex), azaz
Cells(1,1) az az A1-es cellát jelöli
Cells(2,1) az az A2-es cellát jelöli
Cells(1,2) az az B1-es cellát jelöli
Cells(2,2) az az B2-es cellát jelöli és így tovább.A Cells függvény átláthatatlanná tesz egy kódot, csak akkor célszerű használni, ha valami nagyon speciális és statikus kódot készítesz, azaz nem nagyon kell módosítani utólag. Pl a Cells(1234,4321) hogy melyik cellát jelöli, azt így ránézésre - hogy Hofi szavait idézzem- a rosseb se tudja megmondani teccik tudnyi...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
RAiN91
őstag
válasz Fire/SOUL/CD #12349 üzenetére
Ez sikerült, 10 másodpercenként menti, de nem erre gondoltam. Megadott mező alatt a weboldal egy részének szövegére gondoltam. Ez megoldható? Tehát, hogy 10 másodpercenként importálja az excelbe az adatokat, ami a weboldalon van.
-
félisten
válasz RAiN91 #12356 üzenetére
Tudom, hogy nem arra gondoltál, de a feladat 2 részből tevődik össze, az egyik most már megvan, azaz x időközönként lefut egy akód. Most már csak az hiányzik, hogy ez a kód azt tegye, amit felvázoltál.
Ha publikus esetleg, akkor megadhatnád az oldal címét és hogy melyik mezőt szeretnéd beolvasni (ha gondolod privátba is jöhet), megnézem mit tudok vele kezdeni.Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
RAiN91
őstag
válasz Fire/SOUL/CD #12357 üzenetére
Rendben, köszi a segítséget.
[link] Ki választunk egy inplay meccset, bármit, és ott egy esemény (bármilyen) szorzója mindig változik. Azt kellene importálni. Viszont az meg nem sima html, lehet kicsit bonyolult.
Pl. ez. Ott vannak a mezők, amik szorzót (számokat) tartalmaznak. 1 darab ilyen "mezőre" lennék kíváncsi egyelőre.
[ Szerkesztve ]
-
jani-wan
tag
válasz m.zmrzlina #12353 üzenetére
Nem megy.
Miután beírom feldobja a kisablakot, hogy adjam meg a makro nevét,
beírom hogy
oszlopelrejt
utána nyomok egy
createés ezt kapom
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 60
If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = FalseNext
Sub elrejt()End Sub
de ez így nem tűnik jónak, és nem is csinál semmit.
viszont ha a
Sub elrejt()
áthelyezem az elejére,Sub elrejt()
Private Sub Worksheet_Change(ByVal Target As Range)For i = 1 To 60
If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = FalseNext
End Sub
majd F5 és utána futtatom, akkor kiírja hogy
compile error:
Expected End Sub -
félisten
válasz RAiN91 #12358 üzenetére
Igen, az lenne a megoldás, amit cousin333 is "pedzeget" (amúgy nem flash), de sajnos nem járható út, ezen weboldal esetén, mert nem lehet lekérdezéssel importálni azokat az adatokat (a változó/frissülő odds-okat). A feladat ettől függetlenül kivitelezhető, mert abban tudok segíteni, hogy írok egy keretprogramot (nem Excel-ben), ami majd kiszedi az oldalból a szükséges infókat és azt megadott időközönként lementi egy mezei txt fájlba. Ez meg már okés, mert olyan kódot lazán lehet írni Excel VBA-ban, ami beolvassa ezen txt fájl tartalmát és feldolgozza. Viszont ma már nem állok neki megírni a progit...
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
tezse66
csendes tag
válasz Delila_1 #12283 üzenetére
Szia Delila!
A munka1-en ez az adatbázis:
-A- -B- -C- -D-
REF R G B
B 00-04 P 191 194 200
B 00-11 S 73 83 105
B 01-02 P 210 207 210
B 01-06 M 147 145 155A munka2-n csak a REF ek vannak most
-A- -B-
B 00-04P szín
B 00-11S szín
B 01-02P szín
B 01-06M szín
A "B" oszlopokat kellene színezni.Jelenleg az általad írt makró leáll azzal, hogy "Runtime error '91'....Object variable is not set"
Itt áll le:
lel = Sheets("Munka1").Range("A:A").Find(Cells(sor%, "A")).Row
Én vagyok béna?
Nem lehetne inkább egy függvényt csinálni rá?
Köszi előre is a segítséget! -
m.zmrzlina
senior tag
válasz jani-wan #12360 üzenetére
Bocs nem voltam egyértelmű, és összekeverted a két dolgot.
Tehát ha jól értem van (legalább) két munkalapod. Az egyik amin az adatokat akarod ellenőrizni a másik amin beállítod, hogy mely oszlopokra van szükséged.
Van még a következő kód (most csak erre lesz szükséged semmi másra):
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 60
If Cells(2, i).Value <> "igen" Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True Else Sheets("Munka1").Columns(i).EntireColumn.Hidden = False
Next
End SubEzt a kódot a beállító munkalapodhoz rendeled úgy, hogy a lapfülön jobbkatt majd Kód megjelenítése opciót választod. Az így kapott VBA mezőbe bemásolod a kódot úgy, hogy a Munka1 munkalapneveket átírod a saját munkalapod nevére. Nem amelyik fülén kattintottál az előbb, hanem azéra amin az adatokat fogod ellenőrizni.
Ebbe a munkafüzetbe semmi más kód nem kell!
[ Szerkesztve ]
-
RAiN91
őstag
válasz Fire/SOUL/CD #12361 üzenetére
És mennyire bonyolult megírni azt a bizonyos keretprogramot? Jó lenne, ha le tudnám menteni, de nem halnék bele, ha nem sikerülne
Egyébként a txt is jó, mert onnan 2 klikk importálni, és grafikont készíteni., azt már manuálisan meg tudom csinálni, csak 90 percen belül x másodpercenkénti oddsok kellenének. -
jani-wan
tag
válasz Fire/SOUL/CD #12355 üzenetére
tehát a
For i = 1 To 60
If Cells(2, i).Value <> "igen" Thenazt jelenti hogy
Ha a cellák értéke a második sorban minden oszlopban 1-től 60-ig nem egyenlő Igen-nel akkor
vagy tévedek?mondjuk ezt a nem egyenlő "igen"-nelt sem igazán értem.
én biztos úgy írtam volna hogy
If Cells(2, i).Value <> "" Then
igaz én nem tudok egy kicsit sem programozniha elkészül nem szeretném módosítani, de Hofinak igaza van, szóval felírom magamnak menet közben mit csinálok.
-
VásRló
tag
Van egy listám . Szűrnöm kell benne, és szűrés után kellene a leszűrt cellák adatait automatikusan átmásolni másik cellákba. Tud erre valaki megoldást?
-
félisten
válasz jani-wan #12365 üzenetére
"azt jelenti hogy Ha a cellák értéke a második sorban minden oszlopban 1-től 60-ig nem egyenlő Igen-nel akkor vagy tévedek?"
Nem tévedsz, ez így működik."én biztos úgy írtam volna hogy If Cells(2, i).Value <> "" Then"
Ez a feltétel azt jelenti ha az adott cella nem üres, akkor...RAiN91
Nem vészes megírni, csak most nincs hozzá kedve, hogy őszinte legyek...
A txt fájlt meg nem kell manuálisan importálnod, hisz pont azért lett megírva az időzítő, hogy az majd x időközönként beolvassa az adatokat a txt fájlból.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
m.zmrzlina
senior tag
válasz jani-wan #12365 üzenetére
azt jelenti hogy
Ha a cellák értéke a második sorban minden oszlopban 1-től 60-ig nem egyenlő Igen-nel akkorAzt jelenti, hogy ha az első hatvan oszlop második cellájának értéke nem egyenlő "igen"-nel akkor az ahhoz tartozó oszlopot a másik munkalapon elrejti. Ez a rész felelős ezért:
Then Sheets("Munka1").Columns(i).EntireColumn.Hidden = True
Másképpen: amelyik oszlop második cellájában "igen" van az annak megfelelő oszlop látszani fog a másik munkalapon.
Programozni én sem tudok, aki viszont velem ellentétben tud azok számára ez nyilvánvaló.
[ Szerkesztve ]
-
jani-wan
tag
válasz m.zmrzlina #12363 üzenetére
Ó akkor itt a hiba.
És akkor gond is van, mert ha ahhoz kell rendelnem ahol kiválasztom a statokat, az teljesen máshogy van elrendezve, mert nem csak ezt kell ott kiválasztanom, szóval az egy kontroll központ ami ráfér a képernyőre,
És ott 10 oszlopba van rendezve a stat kategória választó.
Ezen a lapon ahol a közel 60 oszlopnyi adatot nézem, viszont csak egymás mellé rendezve oldható meg.Igazság szerint van egy harmadik lap is ahol más funkciók is vannak beállítva, de ezek a kiválasztások legalább jelentkeznek egy sorban, mint 1 vagy 0 érték.
Én innen hoztam át erre az lapra az értékeket, ami meghatározza magát a stat fajtáját, illetve hogy van-e egyáltalán stat.
csak hogy ne legyen egyszerű, nem ugyanaz a sorrend mint ezen a lapon mert más is van ott is, és ezen a lapon is, mivel azon a funkcionalitás volt a cél, ezen meg a gyors átláthatóság.Szóval ezen a lapon a C2 cella, ami meghatározná hogy látszódjon vagy legyen elrejtve az oszlop, így néz ki:
=HA(lscontrol!H25>0;lscontrol!H26;"")
a G2 cella meg így
=HA(lscontrol!J25>0;lscontrol!J26;"")
tehát, ha nem tévedek, ez a kód a beállító lap meghatározott celláit veszi figyelembe sorban oszloponként.
A probléma hogy míg a C2 cella a H25-ből vesz adatot addig a G2 a J25-ből.Így az egyik lapot teljesen át kellene szerveznem, úgy hogy megfeleljenek egymásnak, és így a megfelelő oszlopokat rejtse el.
Erre igen kicsi az esélya legegyszerűbb az lenne ha csak erre a lapra szólna a macro ahol a statokat szeretném látni az alapján hogy a cella értéke "" vagy valami.
Erre van megoldás?
-
m.zmrzlina
senior tag
válasz jani-wan #12369 üzenetére
tehát, ha nem tévedek, ez a kód a beállító lap meghatározott celláit veszi figyelembe sorban oszloponként.
Így van!A probléma hogy míg a C2 cella a H25-ből vesz adatot addig a G2 a J25-ből.
Ez egyáltalán nem problémaa legegyszerűbb az lenne ha csak erre a lapra szólna a macro ahol a statokat szeretném látni az alapján hogy a cella értéke "" vagy valami.
Akkor én is félreértettem mert úgy gondoltam, hogy "igen" van abban a cellában amelyik oszlopára szükség van.Szerintem legjobb lenne, ha magánban küldenél egy lebutított munkafüzetet amiben nincsenek nem publikus adatok viszont a szerkezete megegyezik az igazival. Így csak vaktában lövöldözök, még a végén lábon lövöm magamat.
-
Delila_1
Topikgazda
válasz tezse66 #12362 üzenetére
Azt már írtam, hogy függvénnyel nem lehet megoldani. A cellába vagy függvényt írsz, vagy a példád szerinti B 00-04 P értéket. A függvények a beírásuk helyén működnek, nem adhatod meg, hogy pl. a SZUM függvény eredménye a szomszédos cellában jelenjen meg.
A bővítménykezelőben jelöld be a két Analysis kezdetű bővítményt, akkor jó lesz a makró. Ennek a helyéről sokszor volt már szó, keress rá az Analysis szóra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz jani-wan #12369 üzenetére
Sub elrejt()
Dim sor As Integer, oszlop As Integer
Sheets("Munka1").Select 'ezt írd át arra a lapnévre,
'ahol rejteni akarod a sorokat és oszlopokat
'Sorok rejtése
For sor = 2 To 20 '2-től 20. sorig ellenőriz, írd át a tartományt
If Cells(sor, 2) = "" Then
Rows(sor).Hidden = True
Else
Rows(sor).Hidden = False
End If
Next
'Oszlopok rejtése
For oszlop = 2 To 60 'B-től BH oszlopig ellenőriz, írd át a tartományt
If Cells(2, oszlop) = "" Then
Columns(oszlop).Hidden = True
Else
Columns(oszlop).Hidden = False
End If
Next
End SubHa a képletet tartalmazó cellák soronként nem a B oszlopban vannak, a Sorok rejtése részben az If Cells(sor, 2) = "" Then sorban a 2-t írd át az oszlop számára.
Kitehetsz egy gombot a lapodra az Űrlapok eszköztárból, majd a jobb klikkre előjövő menüben hozzárendeled az "elrejt" makrót. Utána már gombnyomásra elvégzi a műveletsort.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tezse66
csendes tag
válasz Delila_1 #12371 üzenetére
Szia Delila!
Köszönöm, így már működik.
Megkérhetlek, hogy egészítsd ki a kódot azzal, ha nem talál megfelelő színkódot, vagy ha üres a cella, akkor ne csináljon semmit. Az első feltétel azért kell, mert ha nem találja meg a színkódot, akkor hibával leáll. A második rész azért kell, mert a ciklus hosszát nem tudom mennyi, csak egy nagy számot adok neki.
Még egyszer nagyon köszönöm!
tezse66 -
Delila_1
Topikgazda
válasz tezse66 #12375 üzenetére
Laphoz rendelve:
Option Explicit
Public lel, R%, G%, B%
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lel, betu As String, cim As String
Dim R%, G%, B%
If Target.Column = 1 Then
betu = Target: cim = Target.Address
If IsEmpty(Target) Then
Range(Target.Address).Interior.ColorIndex = -4142
Exit Sub
End If
szin betu, cim
End If
End SubModulba:
Sub szin(betu, cim)
Dim lel, R%, G%, B%
On Error Resume Next
lel = Sheets("Munka1").Range("A:A").Find(betu).Row
If IsEmpty(lel) Then Exit Sub
R% = Sheets("Munka1").Cells(lel, 2)
G% = Sheets("Munka1").Cells(lel, 3)
B% = Sheets("Munka1").Cells(lel, 4)
Range(cim).Interior.Color = RGB(R%, G%, B%)
End SubAz A oszlopba beírt értékeket figyeli. Üres cella leenterezése, vagy előző adat törlése kitöltetlen hátteret ad.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
fgordon
senior tag
válasz cousin333 #12354 üzenetére
Match-csel az D1 lesz dió (az alatta lévő bab lenne a jó megoldás), és a D3 pedig jó lesz.
Ha viszont felveszek egy 4. értéket, mondjuk eper és 34, majd 1-es értékkel, akkor egyezés van a 2. és 4. sorban, a függvények keresését módosítva a D4-ben az A1 értékét adja vissza az A2 helyett.Meg tudod oldani, hogy ami működik, és beleírtad XLS-be, azt feltöltöd valami ingyenes tárhelyre és átküldöd a linket, lementve akár EXCEL 2003 kompatibilis üzemmódba is?
Ha segítség, feltölthetem én is a nem működő példát és esetleg te megnézed / kijavítod...
Köszönöm...
Még annyi, ha a google-be beírod:
"hol.van függvény angolul"első találat egy 2007-es doc, amiben a hol.van angolul = LOOKUP
[ Szerkesztve ]
▏▎▍▋▊▉ Gordon (eleinte azt hittem) ▉ ▊▋▍▎▏
-
cousin333
addikt
válasz fgordon #12378 üzenetére
Üdv!
Nekem is előjött az általad jelzett hiba, aminek az oka, hogy a függvényt tömbképletként kell bevinni, tehát nem Enterrel, hanem Ctrl+Shift+Enterrel! Nézd meg, hogy a cellában a függvény kapcsos zárójelek között van-e. Egy bug az általam használt LibreOffice-ban, hogy ha nincs, és kijelölöm a függvényt, majd Ctrl+Shift+Entert nyomok, akkor sem csinál belőle tömbképletet, hanem előtte a függvényt "módosítanom" kell, pl. úgy, hogy felülírom a függvénybeli C1 hivatkozást C1-re...
Minkét megoldást (Office 2003 és LibreOffice 3.4.4) átküldtem e.mailben az adataidnál megadott címre.
mod: A levél nem ment át, mondván nincs ilyen cím. Akkor viszont innen érheted el.
"első találat egy 2007-es doc, amiben a hol.van angolul = LOOKUP"
Ez kellemetlen, de attól még hibás állítás. A német változat ("Vergleich") valószínűleg jó, bár még sosem próbáltam.
[ Szerkesztve ]
"We spared no expense"
-
Delila_1
Topikgazda
válasz cousin333 #12380 üzenetére
Egész számokat tud fogadni a változó, -32768 és 32767 értékhatár között.
Az R, G, és B értéke 0 és 255 közé eshet, ide jó ez a dimenzionálás, ekkor nem kell kiírni az As Integer-t.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Reinhardt
őstag
Hi,
A következő lenne a problémám:
Hogyan tudom a D oszlopot a legegyszerűbben létrehozni?
Tehát, hogy csak azokhoz a stílusokhoz rendeljen értéket ahol hiányzik a lokáció, de ne csak ahhoz az egyhez ahol hiányzik. -
Delila_1
Topikgazda
válasz Reinhardt #12384 üzenetére
A C2 képlete =A2& " "&B2,
a D2-é =HA(DARABTELI(A:A;A2)<>DARABTELI(C:C;C2);1;"")Ez csak akkor hoz jó eredményt, ha az azonos stílushoz azonos lokáció érték tartozik.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Reinhardt #12386 üzenetére
Az A oszlopnak emelkedő sorrendben kell lennie!
A D2 cella képlete:
=HA(DARAB2(INDEX(A:A;HOL.VAN(A2;A:A;0);1):INDEX(A:A;HOL.VAN(A2;A:A;1);1))=DARAB2(INDEX(B:B;HOL.VAN(A2;A:A;0);1):INDEX(B:B;HOL.VAN(A2;A:A;1);1));"";1)Szerk.: itt már nincs szükség segédoszlopra.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Zomb€€
őstag
Sziasztok!
Bocsi, hogy itt kérdezem, de ez a topik jobban pörög.
Van egy Accessem, amiben egy űrlap vezérel több makrót. A kérdésem az lenne, hogy, hogy lehet azt megoldani, hogy a user csak az űrlapot lássa induláskor, semmi mást.
Kerestem már neten, de kifinomult, működő megoldást még nem találtam.Köszi!
"Egyszer fent...egyszer fent!"
-
macimeister
aktív tag
Sziasztok!
Excelben szeretném a következőt megoldani: Adott egy exceltáblázat aminek az első sorában vannak az adatok. Ebben az első sorban szeretném az azonos tartalmú cellákat esetleg külön sorokba/oszlopokba mozgatni, illetve ezeknek a soroknak/oszlopoknak a soronkénti/szloponkénti cellák számát összeadni. Nem értékük kell, hanem, hogy hány darab azonos cella van az adott sorban/oszlopban. Meg lehet ezt oldani? Végső esetben elég az is, ha az első sorban megkeresni az azonosakat, eltérő kitöltési szint dob rájuk és összeadja a darabokat. -
Delila_1
Topikgazda
válasz macimeister #12389 üzenetére
=SZORZATÖSSZEG((A1:I1<>"")/DARABTELI(A1:I1;A1:I1))
Ez a képlet az A1:I1 tartományban előforduló különböző értékű cellák darabszámát adja eredményül.
Ugyanígy megadhatod a képletet az oszlopokra is, ha az A1:I1 helyett a megfelelő tartományt írod be.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
macimeister
aktív tag
-
Delila_1
Topikgazda
válasz macimeister #12391 üzenetére
Legegyszerűbben egy kimutatással dobhatod össze.
Most nincs időm kipróbálni, de azt hiszem, csak az oszlopokban lévő értékeket tudod így összeszámolni. Ha igen, akkor a sorokat alakítsd át oszlopokká irányított beillesztéssel, transzponálva.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz macimeister #12391 üzenetére
Legegyszerűbben egy kimutatással dobhatod össze.
Most nincs időm kipróbálni, de azt hiszem, csak az oszlopokban lévő értékeket tudod így összeszámolni. Ha igen, akkor a sorokat alakítsd át oszlopokká irányított beillesztéssel, transzponálva.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz macimeister #12391 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Z-Tom-ee
csendes tag
Sziasztok!
A következő lenne a problémám: van egy "Excel" tábla (OpenOffice-t használunk, ezért az idézőjel; annó Excelben lett megszerkesztve a táblázat, de már át van konvertálva) aminek bizonyos celláiban hiperhivatkozások lesznek feltöltve. Ezek a gépen lévő mapparendszer bizonyos elemeire hivatkoznak. (tehát ha rámegyek a linkre, Win. Intézőben feljön a megfelelő mappa) A linkek "megnevezései" (vagyis a link szövege) minden esetben más (lehet). Azt szeretném kiszűrni, hogy egy hivatkozás ne kerülhessen be többször a táblázatba, még más link szöveggel se. (ha a szöveg azonos lenne, azt ki tudnám jeleztetni, akár kiíratással, akár feltételes formázással) Tud erre valaki megoldást? (a függvénykombináció lenne a legjobb, de ha csak makróval lehet, elvileg az is átmegy az OO-ba)
Előre is köszönöm! -
félisten
válasz Z-Tom-ee #12397 üzenetére
Function MyCellFormula(MyCell As Range) As String
If MyCell.HasFormula Then MyCellFormula = MyCell.Formula
End FunctionEz a függvény csak akkor jeleníti meg az adott cellában szereplő képletet, ha abban van is képlet.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Z-Tom-ee
csendes tag
válasz Fire/SOUL/CD #12398 üzenetére
Szia!
Köszönöm a tippet, de sajnos a makrókhoz nem értek, kaphatok még egy kis "löketet"? =) Hogyan működik ez a program? Bemásoltam egy üres oldalra, de nem futott le. Automatikusan csinálja a "dolgát"?
Köszönöm még egyszer és kellemes ünnepeket!
Új hozzászólás Aktív témák
- gban: Ingyen kellene, de tegnapra
- PlayStation rajongói nyereményjáték
- VR topik (Oculus Rift, stb.)
- Debrecen és környéke adok-veszek-beszélgetek
- Autóhifi
- Napelem - 100%-os támogatású pályázat
- Yettel topik
- Egyre gyorsabban ügyködik saját HBM memóriáján Kína
- Pécs és környéke adok-veszek-beszélgetek
- Vodafone mobilszolgáltatások
- További aktív témák...
- Canva Pro előfizetés - 1 éves
- Steames kulcsok jó áron eladóak!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office