Új hozzászólás Aktív témák
-
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.
Új hozzászólás Aktív témák
- Motoros topic
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Kínai és egyéb olcsó órák topikja
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Mégis mehetnek Kínába az áprilisban korlátozás alá helyezett AI gyorsítók
- Google Pixel topik
- Lakáshitel, lakásvásárlás
- Automata kávégépek
- Autós topik
- További aktív témák...
- Telefon szerviz helyben - Gyors javítás, akár 30 perc alatt!
- Ikea Eilif Paraván - Asztali elválasztó
- Lenovo Thinkpad P16 G2 - i9-13980HX, 64GB, 1TB SSD, 16" WQUXGA (3840 2400), RTX 4090 (ELKELT)
- BESZÁMÍTÁS! Gigabyte GA-A620M R5 7600 32GB DDR5 512GB SSD RX 6700XT 12GB Rampage SHIVA Corsair 750W
- HYNIX 2GB DDR3 RAM eladó
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest