Új hozzászólás Aktív témák

• #251 Apollo17hu őstag lapa #249

  Új Válasz 2005-07-25 01:27:53 #251

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Apollo17hu

  őstag

  válasz lapa #249 üzenetére

  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