- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Motorola Edge 40 - jó bőr
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Mobil flották
- Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
- Motorola Edge 40 neo - színre és formára
- Android alkalmazások - szoftver kibeszélő topik
- Motorola Moto G24 Power - hol van az erő?
- Samsung Galaxy S24 - nos, Exynos
- Poco X6 Pro - ötös alá
Hirdetés
-
Megjelenési dátumot kapott a Star Wars: Hunters
gp A tervek szerint június elején végre befut a teljes kiadás mobilokra/tabletekre és Nintendo Switch-re.
-
Új Beats fej- és fülhallgatók jelentek meg
ma Frissítette a Solo termékcsaládot az Apple házi audiomárkája.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
Új hozzászólás Aktív témák
-
-
sztanozs
veterán
válasz Bobrooney #1898 üzenetére
Mármint mi a probléma? Megcsinálsz mindent az első válasz alapján:
1) Csinálsz egy classt (még a neve is oda van írva - TextBoxEventHandler)
2) Belemásolod az újonnan készített class-ba az első adag kódot
3) Belelépsz a formod kódszerkesztőjébe
4) Belemásolod a második kódot (persze, ha volt már valami kitöltve a UserForm_Initialise-ben, akkor hozzácsapod az elejéhez/végéhez)
5) A TextBoxEventHandlerclass kódszerkesztőjében a Private Sub m_oTextBox_Change() -et szerkeszted a kedved szerint...Hol akadtál egyáltalán el?
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz Bobrooney #1903 üzenetére
callbyname azért nem működik, mert pont a másik irányból közelíti meg a kérdést, mint amit te szeretnél:
Nem egy függvényt vált ki (mint egy eseménykezelő), hanem egy már megírt függvényt lehet vele meghívni úgy, hogy nem a függvényt hívod meg közvetlenül, hanem átadod a környezetnek a függvény nevét és az argumentumokat és hagyod, hogy a futtatókörnyezet megkeresse neked. De ehhez fontos, hogy a függvények már készen legyenek. Nálad meg ugye az volna a lényeg, hogy a függvényeket ne kelljen megírni negyvenszer...JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
senior tag
válasz Bobrooney #1988 üzenetére
Fogalmam sincs igazából. Input alatt a bevitt számokra gondolsz, igaz? (igen, nagyon noob vagyok programozásban...)
Amúgy nemhiszem, hogy kell.⭐ Revolut meghívó ajándék 7500 Ft bónusszal | Raiffeisen Bank meghívó változó ajánlói bónusszal ⭐ Kérd privát üzenetben tőlem!
-
vilag
tag
válasz Bobrooney #2045 üzenetére
Volt nekem egy MsgBox-om amit gondoltam egy öt perces munkával lecserélek egy sajátra (persze némi plusz funkciót is rá akartam tenni)....
... azóta eltelt mondjuk egy hét, meg rászántam már kb. 12-13 órát és most tartok ott, hogy lehet, hogy működőképes lesz a dolog....
...de az is lehet, hogy csak én vagyok ennyire béna
-
vilag
tag
válasz Bobrooney #2164 üzenetére
Teljesen igazad van, úgy (ahogy régi matektanárom mondta) valóban elegánsabb. Holnap ha bemegyek a céghez át is írom.
A programot még 2010-ben kezdtem írni, akkor még fele ennyit sem tudtamAzóta persze sokat tanultam és ha valamire találok elegánsabb megoldást akkor át szoktam írni.
-
-
martonx
veterán
válasz Bobrooney #2482 üzenetére
Több lehetőséget is látok, gondolom ezeket lenne érdemes megnézned makró rögzítővel:
1. Adatok fülön kiválasztod a Remove Duplicates (bocs, nincs magyar excelem) opciót.
2. Adatok fülön kiválasztod az Advanced filter-t. Ennél meg tudod adni, hogy csak a unique elemeket másolja / jelenítse meg. Bár nálam ez a mini példámban nem igen csinált semmit, de elvileg ennek is mennie kellene.Én kérek elnézést!
-
DasBoot
aktív tag
válasz Bobrooney #2654 üzenetére
Köszönöm a választ. Nem is az volt a célom, hogy egyből kapjak választ. Szóval a képen a bekarikázott részeket szeretném elmenteni, de külön-külön. A konkrét dolog, hogy egy PLC progarmban a letrák rajzolását szeretném megoldani. A mentett alakzatokat később egy CommandButton-nal szeretném a megfelelő helyre beilleszteni. Iagzándiból a papíron való rajzolást szeretném kiváltani.
[ Szerkesztve ]
LEGO-ból bármit megépíteni, csak idő kérdése.
-
Zsolt_974
tag
válasz Bobrooney #2666 üzenetére
Köszönöm a gyors választ.
Sajnos ezzel is csak a következőt kapom vissza, hogy
COM 1
COM 9Viszont ezt találtam:
[link]Ez egy MsgBox-ban vissza adja ezt:
Sajnos a ComboBox1-be nem tudom belevarázsolni és csak a Com 1 jelenik meg a Com 9 nem.
Én csak hobbiszinten programozgatok. Viszont kitartóan.Zsolt
-
Zsolt_974
tag
válasz Bobrooney #2668 üzenetére
Így indul a program:
A belépés gombra klikkelve:
Ok gombra klikkelve és utána a "Com port lenyílóban ezek láthatók: Com1, Com9, Kommunikációs port(Com1)":
A program kódban az ehhez tartozó sorok:
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_SerialPort")
_______________________________________________________________________________________Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _Button1.Click
For Each queryObj As ManagementObject In searcher.Get()
MsgBox(queryObj("Name"))
Dim textt As String = queryObj("Name").ToString
RichTextBox1.Text = textt
ComboBox1.Items.Add(textt)Next
ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
End SubVégül is tegnap már ott jártam, hogy a ComboBox-ba is beírja, de sajnos csak a
Kommunikációs port(COM1). Az USB-SERIAL CH340(COM9) nem sikerül kiíratni.
A két port közül miért csak a Kommunikációs port(COM1)-et találja meg?[ Szerkesztve ]
-
Zsolt_974
tag
válasz Bobrooney #2670 üzenetére
Bocs, hogy nem válaszoltam, de nem volt rá időm.
Igen közbe rájöttem én is, hogy miért csak a Com1-et találja meg és a Com9-et miért nem. Azért, mert a Com9 egy usb-s eszköz, "virtuális soros port".
Viszont ezzel:
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PnPEntity")sikerült megtalálni az USB-Serial CH340(COM9)-et, de sajnos sok PnP eszköz, erőforrások is belekerült a listába.
-
alexy92
aktív tag
válasz Bobrooney #2812 üzenetére
Köszi nézegettem, de nem nagyon érzem úgy, hogy az én megoldásom lenne.
Csináltam egy képet, hogy ábrázoljam mi is az én bajom:
És kb most 30-40 ilyen blokkról beszélek. Nem debugot keresek, hanem egyszerűen az általam választét részt hagyja el.
Köszönöm!
[ Szerkesztve ]
-
csaszizoltan
csendes tag
válasz Bobrooney #3042 üzenetére
Szia!
Gondolom az egyes celláinak elérése nem gyors vagy minden X találat után indítasz egy új átfésülést, ami fölösleges ezért
Rakd tömbbe a gyümölcsneveket (ha sokféle van, kb 100-nál több akkor bináris fába, ahol a fa egyes mutatói még két tömbben helyezkednek el tömbindexként) és másik két ugyanakkora tömbbe, hogy van X benne és van nem X benne. Ez az algoritmus egyszer fog végigfutni a munkalapon.
Érdekelne majd a "gyümölcsökre" megvalósított algoritmus, hogy beleszólhassak a gyorsabb futás érdekében.
Üdv[ Szerkesztve ]
- Kivel és mit iszik Orbán? - Tök mindegy! Sörös vagy boros, csak közel legyen Soroshoz.
-
Zalanius
tag
válasz Bobrooney #3042 üzenetére
Kipróbáltam két oszloppal, 10 ezer sorban, de nehezítésképpen úgy, hogy az első 5000-ben csak X volt mindenhol, és az egyik gyümölcsnél később is csak X volt. Nem is igazán mérhető a futásidő, fél másodpercnél is kevesebb. Tehát vagy rengeteg oszlopod lehet, vagy sok százezer sor, vagy még egyéb tényezők. De a 10 perc mindenképpen túlzás.
Tudom h nem kértél konkrétumot, de csak bemásolok ide egy rövidke scriptet, egyszerű megközelítésben, valami támpontot adhat azért.
Option Base 1
Sub t()
Dim gimilc()
Dim vannemX()
Dim n%, i%
Dim g As String
n = 1
ReDim Preserve gimilc(n)
ReDim Preserve vannemX(n)
gimilc(1) = Cells(2, 1).Value
vannemX(1) = False
If Cells(2, 2).Value <> "X" Then
vannemX(1) = True
End If
For i = 3 To 10000
g = Cells(i, 1).Value
Dim gindex%
gindex = -1
For j = 1 To n
If gimilc(j) = g Then
gindex = j
Exit For
End If
Next
If gindex = -1 Then
n = n + 1
ReDim Preserve gimilc(n)
ReDim Preserve vannemX(n)
gimilc(n) = g
vannemX(n) = False
If Cells(i, 2).Value <> "X" Then vannemX(n) = True
Else
If vannemX(gindex) = False Then
If Cells(i, 2).Value <> "X" Then vannemX(gindex) = True
End If
End If
Next
End Sub--= Zalán =--
-
Zalanius
tag
válasz Bobrooney #3045 üzenetére
Ez elég furcsa, efféle url encodingot automatikusan nem kellene kapnod, kipróbáltam saját fájlban is, simán benne hagyta a szóközöket. Van egyébként olyan beépített függvény Encodeurl néven, ami ilyen átalakításokat csinál, de a fordított irányról nem tudok (2013-assal bezárólag). Kerülő úton lehet megpróbálni, mondjuk cserékkel, lásd például itt.
--= Zalán =--
-
Zalanius
tag
válasz Bobrooney #3050 üzenetére
Ez félig bugnak tűnik, de található rá magyarázat. A szürke popup kivételével sikerült is reprodukálnom. A cellához tartozó link nem egy egyedi string érték, hanem egy collection. Két cella egyesítésekor az első cella linkje marad csak meg, a többié elveszik, eddig rendben. Ha ezután módosítod a grafikus nézetben a linket, akkor a háttérben egy .Add() függvényt használhat az Excel. Ez csak tipp, de eléggé gyanús. Mi történik ezután: az egyesített cella első részcellájában KETTŐ link lesz, az (1) indexen a régi, a (2) indexen az új. A többi részcellában eddig semmi nem volt, ezért oda az (1) indexen az új kerül.
Tegyük fel, hogy az A oszlopban vannak a linkes cellák, némelyik egyesített. Ekkor egy teljeskörű teszthez például bevethető ez, most 4 sort feltételezve:
Dim rowcount%
rowcount = 4
For i = 1 To rowcount
If Range("A1").Offset(i - 1, 0).Hyperlinks.Count > 0 Then
For j = 1 To Range("A1").Offset(i - 1, 0).Hyperlinks.Count
MsgBox Range("A1").Offset(i - 1, 0).Hyperlinks(j).Address, vbOKOnly, _
Range("A1").Offset(i - 1, 0).AddressLocal & ", index: " & j & _
", full count: " & Range("A1").Offset(i - 1, 0).Hyperlinks.Count
Next
End If
NextHa a problémádat jól leírja a fenti, és VBA-ban kell feldolgoznod a linkeket, akkor a Count tulajdonságot kell indexként használni, és így mindig a legutoljára beállított linket olvassa a kód.
Persze van egy olyan olvasata is ennek az enyhén bugos helyzetnek, hogy formailag szép dolog az egyesített cella, de amint a tábla célja nem a külsőségekről szól, hanem valamilyen automatizált feldolgozásról, ott részemről csak felesleges nyűg.
--= Zalán =--
Új hozzászólás Aktív témák
- Suzuki topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Milyen cserélhető objektíves gépet?
- Milyen routert?
- Motorola Edge 40 - jó bőr
- ZIDOO médialejátszók
- Kerékpárosok, bringások ide!
- Békéscsaba és környéke adok-veszek-beszélgetek
- BestBuy topik
- További aktív témák...