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

• lapa veterán

  #252

  #251 Apollo17hu

  2005-07-25 08:40:40

  Új Válasz

  Ú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

  

  lapa

  veterán

  #251 Apollo17hu

  #251 Apollo17hu

  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.

  hát nemtom értem-e mit szeretnél, de ez tuti műkszik:
  
  

  OpenDialog_Filter = ''Excel (*.xls), *.xls''
  OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
  opendialog_selectedfile = Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
  Workbooks.Open Filename:=opendialog_selectedfile

  
  
  csinál ''megnyitás'' ablakot és a kiválasztott fájlt megnyitja szépen. két aposztrófokat kicserélted macskakörömre? az előzőben volt egy sortörés is, ebből kivettem hátha az kavart be.
  
  egyébként nem jó egy olyan megoldás, hogy az excelben csinálsz egy gombot neki és ahhoz rendeled hozzá a makrót?

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