- OpenMediaVault
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Windows 10
- Játékfejlesztés
- Microsoft Excel topic
- 1000 kilométert mehetnek az EV-k az új CATL-akkuval
- Milyen NAS-t vegyek?
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Aliexpress tapasztalatok
- Synology NAS
Új hozzászólás Aktív témák
-
Ispy
veterán
válasz BigBadPlaYeR #2769 üzenetére
És ha csinálnál inkább egy datatable-t, azt feltöltöd és utána megadod a gridnek, DataSource=DT.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
válasz BigBadPlaYeR #2774 üzenetére
Form.LocationChanged eventel kell játszani.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
-
Ispy
veterán
Az a baja, hogy te label-eket szorzol össze, aminek nincsen értelme.
Leírtam, hogyan kell csinálni, az egyik label text értékét állítod be a másik label magasság és hosszúság tulajdonságának szorzatára.
[ Szerkesztve ]
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
Még egyszer:
ennek így nincsen értelme. Szorozni csak számokat lehet, a textbox értékét meg a text tulajdonsággal tudod lekérni/módosítani.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
TextBox2.Text = TextBox1.Text * TextBox1.Text
End Sub[ Szerkesztve ]
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
A kód elejére ird be, hogy
Import system.math
, vagy ahol használni akarod oda, hogyMath.sqrt
.[ Szerkesztve ]
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
Egyébként a gugli sokat tud ám segíteni, ha megkérdezed
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
válasz sztanozs #2823 üzenetére
Hát ilyet én még nem csináltam VBA-ban (szerencsére már semmi nem csinálok VBA-ban jó ideje ), de a gugli szerint lehetséges.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
Gugliban ezt találtam, nem tudom segít-e rajtad.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
válasz alexy92 #2849 üzenetére
Rakjál be egy breakpointot az else-re és nézzed meg mi az értéke az Err.Number-nek.
Én csinálnék egy class szintű változót (IsError), majd on error goto ...., ide beraknám, hogy IsError = True, majd Resume, IF IsError = True Then sub2 Else sub 3 END IF a subok elején meg IsError = False.
[ Szerkesztve ]
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
válasz alexy92 #2851 üzenetére
Nem nagyon programoztam még excelben, szóval az én elképzelésem:
Dim IsError as boolean
Private Sub Main -> a fő kódod, gondolom valamilyen eventre fut le az egész cucc
On Error GoTo ErrHandling
valami kód, amit írtál és mindig gebasz van vele...
IF IsError = True Then
Call Sub2
Else
Call Sub3
End IF
valami kód, amit írtál és mindig gebasz van vele...
IF IsError = True Then
Call Sub4
Else
Call Sub5
End IF
exit sub
ErrHangling:
IsError = True
Resume
End Sub
Private Sub Sub2
IsError = False
....
End SubPersze lehet ezt még finomítani kell, kb. 5 éve nem nyúltam VBA kódhoz, de kb. így csinálnám. A subokat el is lehet hagyni, csak akkor van értelme külön kódba kiemelni, ha több helyen is használod ugyanazt a kódot.
Ha mondjuk egész kódrészleteket beraknál ide, akkor nagyobb eséllyel tudunk hibát keresni mi is....
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
válasz alexy92 #2855 üzenetére
Na, a feladat a következő: ezt az egészet mentsed el, tedd félre. Nincs az az isten, hogy tapasztalat nélkül ebbe a kóddzsungelben bármit is megtaláljál.
Utána kezd el 0-ról, apránként, minimális kóddal. Ha megy, akkor adjál hozzá még egy részt, és így tovább. Ha nem megy, akkor állj meg és akkor térjünk vissza rá.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
válasz alexy92 #2863 üzenetére
Ezt megcsináltad? Minden subrutinba rakd be az Err.Clear-t, mert szerintem amikor hiba után bemegy egy hiba sub-ba, akkor megtartja az eredeti hiba értékét és ezért a 2. körben is a hiba sub-ba fog menni, annak ellenére, hogy ott nincsen hiba.
Szóval minden sub elejére rakjad be, hogy Err.Clear....
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
-
Ispy
veterán
válasz BullZeye #2893 üzenetére
Tehát amikor készen van a mappa átnevezése, akkor getfolder("átnevzett mappa elérési útja"), utána move "új elérési útvonal".
A getfolder nem csinál mást, mint hozzáférhetővé tesz neked egy foldert, hogy utána például átnevezzed, áthelyezzed.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
válasz martonx #2923 üzenetére
Egy biztos: én sosem használok ilyen beépített varázslókat, mindig csak a baj van velük.
Helyett tudom ajánlani az SqlConnection classt.
"Debugging is like being the detective in a crime movie where you're also the murderer."
-
Ispy
veterán
Hát ahhoz írni kell egy win szervizt, mondjuk .NET-be, aztán telepíteni kell a szerviz modulba.
Egyébként nem egy agysebész feladat, kell hozzá egy Visual Studio, meg pár sor kód.
Mondjuk nem tudom ez mennyire jó, mert a szerviz már akkor elindul, amikor feláll a win, tehát még be sem kell hozzá loginolni, lehet jobb lenne, ha leírnád pontosan miért is kell ez.
[ Szerkesztve ]
"Debugging is like being the detective in a crime movie where you're also the murderer."
Új hozzászólás Aktív témák
- Path of Exile (ARPG)
- Autós topik
- gban: Ingyen kellene, de tegnapra
- Vezetékes FÜLhallgatók
- VR topik (Oculus Rift, stb.)
- OpenMediaVault
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Xbox tulajok OFF topicja
- AMD GPU-k jövője - amit tudni vélünk
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...
- ASUS TUF GAMING A15 - GAMER LATOP
- Lenovo ThinkCentre M93p i5-4590, 16GB, SSD+HDD+WIFI+BT
- Eladó Dell Optiplex 5040 PC (i5-6500, 8GB ram, 256GB SSD, win10-11 oem dell gyári)
- Csere Gamer laptop-telefon LIAN LI ROG 011 XL DYNAMIC/r5 5600x/16gb/ msi b550/1.5tb ssd/3tb hdd
- 16GB Samsung DDR4 2400MHz M471A1K43CB1-CRC (2 x 8GB) SO-DIMM laptop memória