Hirdetés
- Régóta ott van a fiókban az Intel válasza az AMD-féle 3D V-Cache-re
- Projektor topic
- Ilyen blokkot sem láttunk még készre szerelt vízhűtésnél
- HiFi műszaki szemmel - sztereó hangrendszerek
- Androidos fejegységek
- Kormányok / autós szimulátorok topikja
- OLED TV topic
- Milyen billentyűzetet vegyek?
- Milyen monitort vegyek?
- ZIDOO médialejátszók
Új hozzászólás Aktív témák
-
Jester01
veterán
-
sonar
addikt
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] -
-
Surda
tag
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. -
corlagon
senior tag
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
Apollo17hu
őstag
Kipróbáltam, macskaköröm is megvolt, de 404-es hibát kaptam.
Aopendialog_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
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
- BestBuy topik
- Karácsonyi telefonajánló 2025
- Régóta ott van a fiókban az Intel válasza az AMD-féle 3D V-Cache-re
- Projektor topic
- Ilyen blokkot sem láttunk még készre szerelt vízhűtésnél
- Samsung kuponkunyeráló
- Motorola Edge 50 Neo - az egyensúly gyengesége
- PlayStation 5
- EAFC 26
- exHWSW - Értünk mindenhez IS
- További aktív témák...
- Bomba Ár! Lenovo ThinkPad E14 G2 AMD - Ryzen 5 I 8GB I 256SSD I 14" FHD I HDMI I W11 I Gari
- Bomba ár! HP ProBook 640 G8 - i5-1145G7 I 16GB I 256GB SSD I 14" FULLHD I Cam I W11 I Gari!
- Bomba ár! Lenovo IdeaPad Slim 3 - i7-13620H I 16GB I 512SSD I 15,6" FHD I HDMI I Cam I W11 I Gari!
- Bomba ár! HP EliteBook 845 G8 - R3 5450U I 16GB I 256GB SSD I HDMI I 14" FHD I Cam I W11 I Gari!
- Samsung Galaxy Buds3 Pro Fülhallgató Teljesen Új Eladó!!!
- Keresünk dokkolókat
- Bomba ár! Dell Latitude 7330 - i5-1235U I 16GB I 256SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- SK Hynix 32GB DDR4 2666MHz PC4-21300 laptop RAM
- Telefon felvásárlás!! Samsung Galaxy A50/Samsung Galaxy A51/Samsung Galaxy A52/Samsung Galaxy A53
- GYÖNYÖRŰ iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA -Kártyafüggetlen, MS3965, 100% Akkumulátor
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi