-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bepken
veterán
válasz
Fferi50
#50435
üzenetére
köszi szépen, tökéletes!
én a fenti megoldásommal csak segédoszlop segítségével tudtam elérni, hogy úgy viselkedjen, ahogy szeretném.a cellaformázás megoldásban nem vagyok még biztos, mert az összefűzött szöveg értékkel kell tovább dolgoznom majd (és ha jól értem, a cell értéke szám marad)
-
bepken
veterán
válasz
bepken
#50433
üzenetére
hmmm közben sikerült úgy "megoldanom", hogy ha nulla az érték szerepel A oszlopban, akkor B oszlop értékét nem növeli....de hátha van ennél elegánsabb megoldás is
ja és akkor már még egy kérdés: a kapott számértéket szeretném hozzáfűzni egy szöveghez (pl.: "szoveg_") és a problémám az, hogy minden sorral újra és újra összefűzi, amikor ugyebár az A oszlopban nincs változás.
szoveg_1szoveg_1szoveg1szoveg_1szoveg_1szoveg_1ezt hogyan tudom elkerülni?
-
bepken
veterán
sziasztok!
egy nagyon amatőr kérdéssel fordulnék hozzátok
A B1 11 1001 22 3002 42 4a fenti mintának megfelelően kellene előállítanom egy B oszlopot az A oszlop alapján
tehát a B oszlopban egy számláló növekedjen minden alkalommal, amikor az A oszlopban változik az érték KIVÉVE akkor, ha az A oszlopban 0 érték szerepel.=HA(A2=A1;B1;B1+1)ezzel eljutottam odáig, hogy ha változik az érték, akkor növeli az értéket eggyel...
=HA(A2=A1&A2<>0;B1;B1+1)ez viszont (egészenbiztosanhülyeség
) nem működik, fogalmam sincs egyáltalán szabályos e a függvény....ja igen: fontos, hogy függvénnyel kell megoldanom sajnos :/
köszi előre is!
-
bepken
veterán
válasz
bteebi
#48934
üzenetére
tökéletes, köszönöm szépen!
abban még egy rövid magyarázattal tudnál segíteni kérlek, hogy az én kódom miért nem úgy viselkedett, ahogy szerettem volna? mármint ugyanúgy azt a feltételt adtam meg én is, hogy csak akkor illesszen be dátumot a B oszlopba, ha az A oszlop üres.
-
bepken
veterán
sziasztok!
a segítségeteket kérem a következő amatőr problémában
a cél: A oszlopba beírt bármilyen érték mellé B oszlopba tegye oda az aktuális dátumot, ami ezt követően nem változhat, se függvény által, sem manuálisan (ez utóbbit lock-olással meg tudtam oldani)
működik ugyan, de sajnos ha pl C oszlopba írok valamit, akkor a dátum ugyanúgy frissül...
Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Not Application.Range("A" & Target.Row).Value = "" ThenApplication.Range("B" & Target.Row).Value = Format(Now, "yyyy.mm.dd")End IfApplication.EnableEvents = TrueEnd Subköszi előre is a tippeket!
-
bepken
veterán
sziasztok!
adott egy html forrás, ahonnan tag-ek alapján szedném ki az infókat. viszont sajnos abba a problémába ütköztem, hogy ezek az adatok (illetve a "helyük") sajnos nem statikusak....
valahogy így néz ki:<dt>Márka</dt><dd>XYZ</dd>
<dt>Típus</dt><dd>abc</dd>mivel ezek a tag-ek párhuzamosan növekednek, gondoltam berakom egy ciklusba és az adott "dt" tag-hez lekérem a számomra szükséges "dd" tag értékét.
Do
sdt5 = Trim(Doc.getElementsByTagName("dt")(i).innerText)
i = i + 1
Loop Until std5 = "Márka"
sdd5 = Trim(Doc.getElementsByTagName("dd")(i - 1).innerText)na most...ez így működni látszik...mindaddig, amíg megtalálja a forrásban azt a bizonyos tag-et, azzal a bizonyos értékkel. hogyha nem, akkor megakad...
tehát a kérdésem az volna: hogyan lehet lekezelni azt, hogy ha nem talál ilyet, akkor egyszerűen adjon vissza egy sdt = "" értéket?
-
bepken
veterán
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("link").Row And _
Target.Column = Range("link").Column Then
'link = InputBox("másold be a linket")
Dim IE As New InternetExplorer
IE.Visible = False
IE.navigate Range("link").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sTD As String
std1 = Trim(Doc.getElementsByTagName("td")(5).innerText)
std2 = Trim(Doc.getElementsByTagName("td")(7).innerText)
std3 = Trim(Doc.getElementsByTagName("td")(8).innerText)
std4 = Trim(Doc.getElementsByTagName("td")(9).innerText)
std5 = Trim(Doc.getElementsByTagName("td")(11).innerText)
std6 = Trim(Doc.getElementsByTagName("td")(12).innerText)
std7 = Trim(Doc.getElementsByTagName("td")(13).innerText)
std8 = Trim(Doc.getElementsByTagName("p")(1).innerText)
IE.Quit
Dim CurrentRow
CurrentRow = ActiveCell.Row
Cells(CurrentRow, 1).Value = std1
Cells(CurrentRow, 2).Value = std2
Cells(CurrentRow, 3).Value = std3
Cells(CurrentRow, 4).Value = std4
Cells(CurrentRow, 5).Value = std5
Cells(CurrentRow, 6).Value = std6
Cells(CurrentRow, 7).Value = std7
Cells(CurrentRow, 8).Value = std8
End If
End Subjelenleg itt tartok, az OLX hirdetésekkel tesztelgetem. a tutorial videók alapján valahogy nem akart kijönni az a használati mód, amire nekem szükségem van, szóval ez elég csúnyácska, lassúcska...de legalább "múkodj"
-
bepken
veterán
Getting data from HTML source in VBA (excel) - ezt az okosságot találtam, ami jó alapja volna annak, amit már régóta meg szeretnék valósítani:
tehát az egyik mezőben megadom az URL-t, majd egy gombot megnyomva ez eltárolná a nekem szükséges adatokat a megfelelő oszlop megfelelő mezőjébe
a gond ott kezdődik, hogy én már ott elakadtam, hogy a fent említett kódot működésre bírjam
-
-
-
bepken
veterán
válasz
Delila_1
#22037
üzenetére
akkor most már csak abban reménykedjek, hogy nem akar majd senki sem egyszerre több értéket törölni a C oszlopból
egyébként a táblázat funkciója ezt a lépést nem is igazán indokolja, szóval valószínűleg még egyesével se lesz törölve belőle...csak próbáltam volna "bolondbiztosra" csinálni
-
bepken
veterán
válasz
Delila_1
#22026
üzenetére
köszi szépen!
a két feltétel már kínomban volt, mert azt hittem azzal van a baj, hogy egybe írtam.
ha több értéket törlök egyszerre, akkor most is kiakad sajnos, de ha jól értem, ezt nem is nagyon lehet kezelni...annak megértésében még segítenél, hogy mit is csinál esetünkben az "Enable.Events" tiltása?
valami olyasmit szűrtem le belőle, hogy amíg a makró fut, addig nem figyeli a munkalap változásait (ami ugye aktiválja magát a makrót)
de itt most a C oszlop változásait figyeljük, ami meg ugye egyszer változik csak, aminek hatására lefut a makró. gondolom itt attól akadna ki igazán, ha azt a cellát figyelné a makró, amit épp módosít (de lehet, hogy félreértem a jelentőségét) -
bepken
veterán
sziasztok!
a következő dolgot szeretném megoldani: ha C oszlop adott sora nem üres, akkor azon sor B oszlopában jelenjen meg az aktuális dátum.
ennek az értéknek viszont statikusnak kell maradnia, tehát a (tök egyszerűnek hitt) MA() függvényes megoldás sajnos nem jött be...illetve az is fontos volna, hogy ha a C oszlopban lévő értéket törlöm, akkor a dátum is törlődjön.ahogy néztem, annak idején ezen topic első hozzászólásaiban már ki lett tárgyalva egy megoldás, épp erre a problémára, így most ezt a megoldást szeretném saját táblázatomban is használni, de sajnos egy apró szépséghibáját sehogy sem tudom eltüntetni....
most így néz ki a makró:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> "" Then
Cells(Target.Row, 2).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = "yy/mm/dd"
Target.Activate
End If
If Target.Value = "" Then
Cells(Target.Row, 2).Activate
ActiveCell.Value = ""
Target.Activate
End If
End Subtehát ezzel mindössze annyi a baj, hogy ha egyszerre több sort jelölök ki és úgy törlöm az értéküket, akkor 13-as kódot ír. ha jól sejtem az a kínja, hogy nem tudja értelmezni, melyik a "target.row" vagy méginkább a "target.value"
nem nagy probléma ez, hiszen egyesével törölgetve tökéletesen működik...csupán kíváncsiságból érdekelne a megoldás
én a fenti megoldásommal csak segédoszlop segítségével tudtam elérni, hogy úgy viselkedjen, ahogy szeretném.
Új hozzászólás Aktív témák
- AKCIÓ! Microsoft Surface 5 13,5 notebook - i5 1235U 8GB RAM 256GB SSD Intel Iris Xe IGP 27% áfa
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5600X / RX 6700XT / 32GB DDR4 !
- Lenovo ThinkPad P14s Gen 3 Intel Core i7-1280P Nvidia T550 32GB 1000GB 1 év teljeskörű garancia
- GeForce RTX 2060 (OEM HP) Garanciával
- Epson Workforce DS-530II dokumentumszkenner
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő