Ú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
- Honor Magic V2 - origami
- Így nem hajlik, úgy kettétörik az új iPad
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Politika
- Bestbuy játékok
- Az EPYC 9005 CPU-sorozatba érkezik az AMD Zen 5
- Óvodások homokozója
- Renault, Dacia topik
- nVidia tulajok OFF topikja
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Eladó Samsung Galaxy S20 FE SM-G780F/DS 6+128GB Cloud Mint hálózatfüggetlen telefon+tok+üvegfólia!!!
- Beszámítás! MSI B550 R7 5700X 16GB DDR4 500GB SSD RTX 3060 Ti 8GB ZALMAN Z1 Plus FSP 700W
- ÚJ! NZXT H5 FLOW - 2 Év Garancia
- Beszámítás! ASUS B550M R5 5600G 16GB DDR4 500GB SSD RX 5700XT 8GB ZALMAN S2 TG Seasonic 600W
- Beszámítás! ASUS B450 R5 3600X 16GB DDR4 512GB SSD RTX 3060 12GB Cooler Master MB520 Chieftec 600W
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest