- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- hege8888: Retro Kocka Kuckó 3
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- gerner1
- gban: Ingyen kellene, de tegnapra
- Meggyi001: RTX 5060 - Az új népkártya?
Hirdetés
Köszönjük a sok biztatást, támogatást! Egy rövid ideig még féláron tudsz hirdetni, előfizetni!
Új hozzászólás Aktív témák
-
Apollo17hu
őstag
Első lépésben egy do while... ciklusban megszámolnám, hány cella van feltöltve az "A" oszlopban. Ezt letárolnám akár változóba, de akár valamelyik cellába ki lehetne íratni, majd ezt felhasználva az
ActiveCell.Offset(6, 0).Range("A1").Select
utasításban a 6-ost kicserélném az 1. lépésben meghatározott változó értékére.
-
Apollo17hu
őstag
válasz
Delila_1 #2573 üzenetére
Ez a két bővítmény nálam most az "Inaktív alkalmazásbővítmények" kategóriában van. Ennek ellenére tudom használni a szükséges funkciót (konkrétan a MouseMove event az).
sztanozs: Igen, terjeszteném. A gépek Excel-verziója és -beállítása azonos, de nem tudom, kell-e engedélyezni rajtuk bármit is vagy sem. Ha kell, akkor elfelejtem az ActiveX-vezérlőket. (A makrók engedélyezését szerencsére az Excel értesítése megoldja, ActiveX-re nem láttam ilyet.)
-
Apollo17hu
őstag
Sziasztok!
Excel VBA-ban olyan problémába ütköztem, amihez már nem elegendőek az Űrlap-vezérlőelemek, hanem ActiveX-vezérlőkre van szükség. Milyen hátránya lehet, ha ActiveX-vezérlőkkel pakolom tele az Excel-fájlomat?
-
Apollo17hu
őstag
válasz
Delila_1 #2537 üzenetére
Ez a probléma, hogy végignéztünk már szinte mindent, és még így is rejtély.
ThisWorkbook-ban két dolog van AutoOpen-hez rendelve:
- R1C1 -re állítódik a függvénykezelés,
- egy összesítő munkalapra ugrik a fókusz (ehhez az összesítő laphoz semmilyen makró nincs hozzárendelve).Azért ha idő közben újabb nyom van, vagy sikerül rájönni a probléma forrására, jelentkezem.
-
Apollo17hu
őstag
válasz
Delila_1 #2533 üzenetére
Sajnos se BeforeClose, se BeforeSave eseményt nem találtam, viszont kis szerencsével megtaláltam, hogy mely makró(k) fut(nak). (Az egyik az állapotsor szövegét is módosítja, ott vettem észre futás közben.) Az továbbra is rejtély, hogy miért indulnak el ezek a makrók. (Ebből az egyik egy "gyorsító" makró, ami kikapcsol mindenféle frissítést, kalkulációt, majd a végén mindent visszaállít.) Nálam 2007-es Excel van, munkatársamnál 2013-as, nála nem jelentkezik a hiba. Nagyon homály ez az egész nekem, de nemsokára én is átállok 2013-asra...
-
Apollo17hu
őstag
Sziasztok!
Van egy Excel-fájlom rengeteg makróval megbolondítva. Néhány hónapja vettem át egy kollégától, a makrókhoz szándékosan nem nyúltam, nehogy megboruljon az egész.
Sajnos az utóbbi időkben mentéskor(!) elég sűrűn fordul elő, hogy hibaüzenetet kapok, miszerint az egyik makró hibára futott. Mindez teljesen random jelentkezik (tehát nem minden mentéskor).
Van autoopen makró, és vannak olyan makrók is a munkafüzetben, amelyek worksheetchange esetén futnak.
Az a kérdésem, hogy létezik-e olyan makró, aminek futását a mentési esemény indítja el? Ha nincs, mi okozhatja a mentéskori indulást?
-
Apollo17hu
őstag
válasz
[HUN]Zolee #692 üzenetére
Így próbáltam, de hibaüzenettel leállt a makró.
Valószínűleg át kell majd írnom az egész kódot...
Kösz a segítséget. -
Apollo17hu
őstag
Hali!
Hogyan oldható meg az a probléma legegyszerűbben, ha egy Do ... Loop Until ciklusban az Until után 2 különböző feltételt szeretnék megadni? -
Apollo17hu
őstag
Kipróbáltam, macskaköröm is megvolt, de 404-es hibát kaptam.
Aopendialog_selectedfile = Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
sorral van baja.
Csináltam két screenshotot, arról, amit valójában szeretnék:
Bővebben:� link <- ilyen most
Bővebben:� link <- ilyen lenne
Tehát Excelben meg tudom csinálni a parancsgombot(''összehasonlít'') (ezt tanultam is suliban, csak azért megy), de az pofásabb lenne, ha ez a gomb egy exe-fájl formján lenne. (Bocsi, most vettem észre, hogy az egyik helyen ''összehasonlít'' van, a másikon meg ''összehasonlítás''. Természetesen a kettő funkciója ugyanaz lenne.)
Szerk.: Az első képen minden rendben, azt csak azért linkeltem, hogy egy hozzávetőleges ''ilyen most, ilyen lenne'' állapot legyen látható.
[Szerkesztve] -
Apollo17hu
őstag
Sajnos ez nálam hibaüzenetet generál.
Olyasmire gondoltam, hogy egy - a felhasználó által kiválasztott - Excel munkafüzet megnyitása után egy gomb megnyomásával pl. megvizsgáljuk, hogy az A1 cella értéke egyezik-e a B1 cella értékével. Persze az én makróm ennél azért összetettebb, de ez elég egyszerű lenne.
Tehát van egy Commandbuttonom, amire ha rákattintok, ez történik:Private Sub CommandButton1_Click()
If Cells(1, 1) = Cells(1, 2) Then
MsgBox ''Az A1-es és B1-es cellák tartalma egyezik.''
Else
MsgBox ''Az A1-es és B1-es cellák tartalma nem egyezik.''
End If
End Sub
Na, és azt lenne jó megcsinálni, hogy ne kelljen a felhasználónak külön Sajátgépben/Intézőben keresni a munkafüzetet, majd onnan megnyitva Excelben futtatni a makrót, hanem lenne egy exe-program, amin lenne egy ''Megnyitás'' gomb és egy másik gomb, ami a megnyitott Excel munkafüzet aktuális munkalapján futtatná le mondjuk a fenti A1 - B1 összehasonlítást.
A könyv, amit olvastam, ezt a kódot írja a ''Megnyitás'' gombra:Private Sub Command1_Click()
CommonDialog1.ShowOpen
End Sub
Viszont itt a program formjára nemcsak a ''Megnyitás'' gombot, hanem egy CommonDialog-ot is el kell helyezni, ugyanezzel a kóddal. Így a ''Megnyitás'' gombra kattintva előugrik egy új ablak, ahonnan ki lehet választani a megnyitandó fájlt. Csak az a gondom, hogy a fájlok nem nyílnak meg.Ide kéne még vmi parancs, csak erről már nem ír a könyv.
-
Apollo17hu
őstag
Hali!
Írtam Excel-ben egy makrót. Meg lehet azt oldani, hogy VB-ben írok egy olyan programot, aminek egy CommandButton-jéra rákattintva megjelenik egy megnyitás ablak, és az abban kijelölt (xls-)fájl megnyílik? (Megnyitás ablakot és kijelölést könyv segítségével sikerült megcsinálnom, de magát, a fájl megnyitását nem.) Ezután a makró futtatását egy másik CommandButton-nel el lehet indítani? Ha igen, hogyan? -
Apollo17hu
őstag
válasz
[HUN]Zolee #226 üzenetére
Igen, azt vágom, h a tizedesjel VBA-ban a ''.''. Csak amikor '',''-t írtam, ezexerint a szövegként értelmezett számból az egészrészét tartotta meg.
-
Apollo17hu
őstag
válasz
[HUN]Zolee #224 üzenetére
Köszi, akkor már értem azt is, h ilyenkor a tizedesvesszős értékekkel miért tudtam néha számolni.
-
Apollo17hu
őstag
válasz
Apollo17hu #222 üzenetére
ja, érték... -.-
-
Apollo17hu
őstag
Mit jelent a ''Val''?
Pl. ez mit csinál a változóval: Val(<változó>) ?
Új hozzászólás Aktív témák
- Lakáshitel, lakásvásárlás
- Lopakodva befutott a Radeon RX 9060
- Yettel topik
- Battlefield 6
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Azonnali notebookos kérdések órája
- iPhone topik
- Autós topik
- További aktív témák...
- HIBÁTLAN iPhone 14 256GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3092, 98% Akkumulátor
- GYÖNYÖRŰ iPhone 13 Pro Max 1TB Sierra Blue -1 ÉV GARANCIA, Kártyafüggetlen, MS3091, 94% Akkumulátor
- Panasonic CF-XZ6 AIO all-in-one laptop tablet 2k touch i5-7300u speciális ütésálló rugged
- Számítógépház bazár! Lian Li, Kolink, Hyte, DeepCool, Jonsbo. Frissítve:08.06
- Lenovo Thinkpad T495, 14" FHD IPS, Ryzen5 Pro 3500U CPU, 16GB DDR4, 256GB SSD, W11, Számla, 1 év gar
- GYÖNYÖRŰ iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3045, 96% Akkumulátor
- GYÖNYÖRŰ iPhone SE 2020 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2896, 100% Akkumulátor
- Azonnali készpénzes AMD Radeon RX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- AKCIÓ! Apple Macbook Pro 16" 2019 i9 9980HK 64GB DDR4 512GB SSD Radeon Pro 5500M garanciával
- Bomba ár! Lenovo ThinkPad T490s - i7-8GEN I 16GB I 256SSD I 14" WQHD HDR I Cam I W11 I Gari!
Állásajánlatok
Cég: FOTC
Város: Budapest