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

• #446 matekmatika tag lapa #445

  Új Válasz 2006-05-12 17:30:50 #446

  Ú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

  

  matekmatika

  tag

  válasz lapa #445 üzenetére

  Köszi, működik. (pedig meg voltam győződve hogy már így is próbáltam, de ezek szerint mégse...)

• #401 Jester01 veterán lapa #400

  Új Válasz 2006-04-07 20:44:38 #401

  Ú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

  

  Jester01

  veterán

  válasz lapa #400 üzenetére

  Én aztán nem értek hozzá, de az oldalon amit fentebb linkeltem többek között ezt írják:
  The Range object's CurrentRegion property is not the best either because non-contiguous or incomplete records can cause an inaccurate reading of the number of used rows.

• #355 sonar addikt lapa #352

  Új Válasz 2006-03-01 11:10:40 #355

  Ú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

  

  sonar

  addikt

  válasz lapa #352 üzenetére

  Közben rájöttem, hogy hogyan kell timerrel időt mérni.
  Ha majd kicsit többet leszek neten megirom most csak épp bekukkantottam.
  Azért kösz

• #353 lapa veterán lapa #352

  Új Válasz 2006-02-28 11:14:28 #353

  Ú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

  válasz lapa #352 üzenetére

  lemaradtam, itt a kód:
  
  kezdoido = Now 'elején megadtam a mostot.
  
  itt sokáig futik valami...
  
  MsgBox '' összesen '' & DateDiff(''s'', kezdoido, Now) & '' másodperc telt el.'' 'végén kivontam.

• #334 sonar addikt lapa #332

  Új Válasz 2005-12-06 09:04:14 #334

  Ú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

  

  sonar

  addikt

  válasz lapa #332 üzenetére

  Az én egoldásomat is lehet bolondbiztossá tenni.
  Bár nekem azt mondták bolondoknak nem kell programot csinálni.

• #331 sonar addikt lapa #327

  Új Válasz 2005-12-02 16:20:29 #331

  Ú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

  

  sonar

  addikt

  válasz lapa #327 üzenetére

  No ember mondom mit próbálj meg:
  nyitsz egy szimpla tök üres fájlt és pittyegetsz a vonalkóddal azt szépen oda pakolja(v egy textbox) mindig új sorba.
  Ha irsz egy fájlkezelő progit ami szépen sorba olvassa be a szöveget már kész is a feladat nagyrésze.
  És nem kell túlbonyolítani a dolgokat.
  
  [Szerkesztve]

• #330 Jester01 veterán lapa #329

  Új Válasz 2005-12-01 18:15:40 #330

  Ú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

  

  Jester01

  veterán

  válasz lapa #329 üzenetére

  Igen.

• #328 Jester01 veterán lapa #327

  Új Válasz 2005-12-01 18:07:22 #328

  Ú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

  

  Jester01

  veterán

  válasz lapa #327 üzenetére

   

          Dim CmdLine As String
          CmdLine = Command()
          Dim Args As String()
          Args = CmdLine.Split('' '')

  
  
  Innetől kezdve az Args tömbben szóközzel határolt argumentumok vannak.
  Ha szóköz is lehet az argumentumban, akkor kénytelen leszel magadnak értelmezni a parancssort.

• #326 sonar addikt lapa #306

  Új Válasz 2005-12-01 16:09:33 #326

  Ú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

  

  sonar

  addikt

  válasz lapa #306 üzenetére

  Nem egészen értem mit akarsz.
  Egy vonalkód olvasó ismeri fel a fájlokat és az szortírozza?

• #300 Surda tag lapa #299

  Új Válasz 2005-11-11 09:47:17 #300

  Ú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

  

  Surda

  tag

  válasz lapa #299 üzenetére

  Köszi! Azóta sikerült máshogy megoldani.
  
  Most viszont az a gondom, hogy máshol nem fut a makró. Végigfuttattam lépésenként a userrel, és ezt a hibát írja ki:
  
  Compile error:
  Can't find project or library
  
  Ez egy Str() függvénynél jön elő. Ezt nagyon nem értem. Nem találja azt a komponens-könyvtárat,
  amiben az Str() van? Én azt hittem, hogy ez alap, a Visual Basic gyári függvénye.
  A Referenciák között kell valamit hozzáadni esetleg?
  
  Nálam ez van:
  
  Windows 2000 SP4
  Office 2000 SP3
  
  A kollégám gépén ugyanezek, és ott fut is hibátlanul a progi. Ahol nem fut, ott XP van, és Office
  2003.
  

• #277 [HUN]Zolee őstag lapa #275

  Új Válasz 2005-10-06 06:12:31 #277

  Ú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

  

  [HUN]Zolee

  őstag

  válasz lapa #275 üzenetére

  sajna egyik se hozott eredényt

• #257 corlagon senior tag lapa #256

  Új Válasz 2005-08-17 11:50:56 #257

  Ú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

  

  corlagon

  senior tag

  válasz lapa #256 üzenetére

  Van egy tablazatom, 500 sorral. Minden sorban oszlopok: vevo, piac, akarmi1, akarmi2.... ezek utan 15 ertek oszlop. Elofordul, hogy a sor 4 elso cellajanak erteke u.a., de az ertek oszolpokban mindenfele szam van.
  Azt szeretnem, hogy ha a egy sor elso 4 cellajanak u.a. erteke van, akkor 1 ilyen sor maradjon, es arra osszesitse az ertekoszlopokat.
  Accessben meg lehetne, csak szeretnem kikerulni, mert importalni/exportalni kellene hozza (bonyolult+lassu).
  
  Filterezessel es iteracioval talan Excelben is meg lehet, es akkor lazan beepitenem a makroba.

• #253 Apollo17hu őstag lapa #252

  Új Válasz 2005-07-26 19:01:01 #253

  Ú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 #252 üzenetére

  Kipróbáltam, macskaköröm is megvolt, de 404-es hibát kaptam.
  A

  opendialog_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]

• #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.

• #75 lapa veterán lapa #74

  Új Válasz 2004-10-26 09:46:58 #75

  Ú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

  válasz lapa #74 üzenetére

  upsz.

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