Új hozzászólás Aktív témák
-
vilag
tag
válasz
Apollo17hu
#2998
üzenetére
Köszönöm!
Meg fogom tenni.
-
DasBoot
aktív tag
válasz
Apollo17hu
#2655
üzenetére
Ezek control-ok.
-
Delila_1
veterán
válasz
Apollo17hu
#2571
üzenetére
Mindenképp kapcsold be a bővítményeknél az Analysis Toolpak, és az Analysis Toolpak VBA nevűeket.
Ha más gépeken is alkalmazod a füzetedet, ott is be kell kapcsolnod. Az első a füzetben tesz elérhetővé egy rakás új függvényt, a második a VBA-ban kell a vezérlők kezeléséhez szükséges utasítások eléréséhez.
-
válasz
Apollo17hu
#2571
üzenetére
kompatibilitási problémák léphetnek fel, ha terjeszteni szeretnéd
-
Delila_1
veterán
válasz
Apollo17hu
#2538
üzenetére
Mikor leáll hibával a makró, a Debug gombra kattints, ne az End-re.
Sárga háttérrel lesz jelölve a sor, amelyikbe belebukott. Ott az egyes változók fölé mutatva (nem rákattintva) megmutatja a pillanatnyi értéküket. Ezekből lehet következtetni a leállás okára.
-
Delila_1
veterán
válasz
Apollo17hu
#2536
üzenetére
A VB szerkesztőben a füzetedhez tartozó ThisWorkbook lapra kattints rá bal oldalon, akkor jobb oldalon megtalálod a leírt események makróit.
A "gyorsító" makrók valószínűleg az egyes munkalapjaidhoz vannak rendelve, a fenti leírás szerint találod meg, a munkalapokra klikkelve egyenként.
-
Delila_1
veterán
válasz
Apollo17hu
#2532
üzenetére
Remélem, sikerül kiszűrni.
-
Delila_1
veterán
válasz
Apollo17hu
#2530
üzenetére
A BeforeClose ez az esemény. Rendszerint a ThisWorkbook laphoz rendeljük. Próbáld meg lépésenként futtatni, úgy könnyebben felfedezheted a hiba okát.
-
[HUN]Zolee
őstag
válasz
Apollo17hu
#695
üzenetére
mi volt a hibaüzenet, és mi volt a feltételed?
-
[HUN]Zolee
őstag
válasz
Apollo17hu
#691
üzenetére
ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
-
lapa
veterán
válasz
Apollo17hu
#253
üzenetére
küttem mintafájlt mailen, mert nekem még mindig műxik.
-
lapa
veterán
válasz
Apollo17hu
#251
üzenetére
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? -
lapa
veterán
válasz
Apollo17hu
#248
üzenetére
OpenDialog_Filter = ''Szöveges fájlok (*.txt), *.txt''
OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
OpenDialog_SelectedFile = _
Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
...
Workbooks.OpenText Filename:=OpenDialog_SelectedFile
ez mondjuk txt-t nyit. vagy valami másra gondoltál? -
[HUN]Zolee
őstag
válasz
Apollo17hu
#225
üzenetére
A Val fügvénynél a . (pont) a tizedesvesző a számoknál.
-
[HUN]Zolee
őstag
válasz
Apollo17hu
#222
üzenetére
szövegből számot csinál
Val(szöveges változó)
csak addig nézi amíg azámoz talál amit az első szövegkarakter megjelenik, abbahagya a számmá alakítást, és az addig talált számod adja vissza -
Apollo17hu
őstag
válasz
Apollo17hu
#222
üzenetére
ja, érték... -.-
-
update
csendes tag
válasz
Apollo17hu
#211
üzenetére
Hmmm... köszi a segítséget!
De...
És pl 60 és 150 közé eső páros-páratlan véletlenszám?
És az igazán jó az lenne, ha... Min és Max értéket bármikor változtathassam...
Pl beviteli mező Min és beviteli mező Max, és erre a kettő közé generáljon véletlenszámot...
Ahol a min és max között nincsen kapcsolat... pl 13 és 100 vagy akármi!
(Rnd*Min)/Max vagy valami ilyesmi...
Ja... Caption működött végül így
UserForm1.Label.Caption=Cells(1,1)
Cells(1,1)-et az aktív worksheetből szedi...
Új hozzászólás Aktív témák
- Interactive Brokers társalgó
- Battlefield 6
- Aranylemezre került a Crimson Desert, márciusban jön a megjelenés
- Elektromos autók - motorok
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Anglia - élmények, tapasztalatok
- Kerékpárosok, bringások ide!
- Autós topik
- További aktív témák...
- Akció! ÚJ akku! Lenovo ThinkPad X1 Extreme Gen2 i7-9850H 32GB 1000GB GTX1650 500nit 4K UHD 1 év gar
- B760 / B660 / Z690 / Z790 ATX alaplapot keresek DDR4-es foglalattal
- Sony Cyber-shot DSC-RX100 IV digitális prémium kompakt fényképezőgép
- Precision 3591 15.6" FHD IPS Ultra 9 185H RTX 2000 Ada 32GB 512GB NVMe gar
- Lenovo L13 G3 i5-1235u 16Gb 256Gb NVMe, Magyar bill, számla, garancia
- LG 65B3 -65" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- HP Victus 16 - 16.1"FHD 144Hz - Ryzen 5 7640HS - 32GB - 1TB - Win11 -RTX 4050 - 1,5 év gari - MAGYAR
- Update 01.21. - Bomba árak 2026-ban is! Üzleti - Consumer laptopok DELL FUJITSU HP LENOVO
- Bomba ár! Lenovo ThinkPad T495 - Ryzen 5 PRO I 16GB I 512SSD I 14" FHD I Cam I W11 I Gari!
- Honor Magic V5 512GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs




