-
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
-
RAiN91
őstag
Még annyit szeretnék beállítani, hogy az azonos "Id"-val rendelkező sorokban a rangsorban pl. az 1. és 2. sorok értékei össze legyenek hasonlítva. Pl. HA 2. rangsor értéke > 1. rangsor értéke *2, akkor legyen egy IGEN eredménye. Ez már komplexebb és nem lehet soronként vizsgálni?
-
RAiN91
őstag
Sziasztok.
"A" oszlopban a következő értékek vannak fentről lefelé, ez egy azonosító szám:
1123, 1123, 1123, 1124, 1124"B" oszlopban pedig a következő értékek:
2,1 majd 1,5 majd 1,1 majd 3,2 majd 4,2"C" oszlopba szeretnék egy rangsort, de úgy, hogy csak az "A" oszlopban lévő értékek mellettiek legyenen egymáshoz hasonlítva. Tehát ezt az eredményt szeretném kapni: 3; 2; 1; 1; 3.
Ezt Excel képlettel hogyan lehet megoldani?
Köszönöm a segítségeteket.
-
RAiN91
őstag
Köszönöm, akkor nem tudni mi a valós sorrend
Még egy olyan kérdésem van, hogy szeretém, hogy valami történjen, ha az egyik cella értéke megváltozott. Ezt sikerült is így összehozni:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$6" Then MsgBox "You changed cell D6" End If End Sub
Viszont akkor nem működik, ha D6 cellában egy Excel funkció van, egészen egyszerűen példaképp ez: =F6. Ha F6 cella értékék manuálisan változtatom, a D6 cella értéke is változik, azonban ilyenkor nem jön fel a "You changed cell D6".Ezt hogyan lehetne megoldani?
-
RAiN91
őstag
Sziasztok!
Ha van egy 3 munkalapos munkafüzetem, mindegyik lapon van egy makró (nem modulból, hanem egyenként mindegyiken), akkor ha egy időben kapják meg a jelet, hogy indítani kéne a makrót, akkor ez a 3 milyen sorrendben fut le? Mert ha jól tudom, párhuzamban nem tudnak futni, de akkor mi a sorrend? -
RAiN91
őstag
Sziasztok,
Az alábbi kódot hogyan lehetne úgy megcsinálni, hogy hasonlóan egyszerű felépítésű legyen? A cél, hogy AH10 cellába írja be K9 tartalmát, ha F4 cella változott. F4 cellában egyébként egy másodpercenként változó óra van, külső adatforrásból. Szeretném, hogy állandóan fusson az egész, ezért választottam worksheet_calculate-t, illetve még más kódok is vannak benne, ezért ehhez ragaszkodnék.
A hiba ott van, hogy megadtam, hogy k=10, és mindig innen indul. De nekem csak az eleljén kéne tudni, hogy 10, utána már léptethetné.
Sub worksheet_calculate()Application.EnableEvents = Falsek = 10If Range("F4") <> Range("AH9") ThenRange("AH9") = Range("F4")Range("AH" & k) = Range("K9")k = k + 1End IfApplication.EnableEvents = TrueEnd Sub -
RAiN91
őstag
Sziasztok,
adott A1 cella, amiben 5-6 különböző szó van, szóközzel elválasztva. És mindig változnak a szavak, a sorrend is.
Ebből szeretnék kiragadni bizonyos szavakat akkor, ha megegyezik az általam előre definiált szavakkal.
Konkrét példa:
A1 cella jelenleg: szó1 szó7 szó3 szó4 szó5
B oszlopban egymás alatt, a szavak, amiket keresek: szó5, szó8, szó9
C1 cellában szeretném látni szó5, szó8 vagy szó9-et akkor, ha A1-ben valahol szerepelnek.
A sorrend A1-ben nem fix, ezért a "BAL" "KÖZÉP" stb. függvény sajnos nem jó. Van erre valami kereső függvény esetleg, vagy csak VBA-val tudom megoldani?
Köszömöm előre is!
-
#46349
RAiN91
őstag
Lasersailing
#46348
RAiN91
őstag
válasz
Lasersailing
#46348
üzenetére
Köszönöm, ilyenre gondoltam!
-
RAiN91
őstag
válasz
Fferi50
#46065
üzenetére
Rendben, összeszedem nemsokára mikkel próbálkoztam és megosztom az excelt. Bár elsőre már azzal is előre lennék, ha egy cella, melyben egy képlet van, és változik az értéke, történjen valami.
Egy programon keresztül nyitom meg az excelt, ami egy saját üres excel, makró és minden nélkül. Nem értek hozzá, hogy hogyan kapja az adatot, de makró nincsen benne, hacsak nem megnyitáskor rakja bele, és rejti el.
-
RAiN91
őstag
válasz
Fferi50
#46059
üzenetére
Nem tudom, hogy működik, de makró nincs benne. Egy programból nyitom meg az excelt, ami akár egy új üres excel is lehet, oda nyomja bizonyos cellákba az értékeket. Sajna megint elcsesztem pár órát, de nem jöttem rá arra az egyszerű megoldásra, amivel működött, úgyhogy így oldom meg, de ezt utálom, sokkal lassabb:
Csinálok egy For..Next ciklust, amivel kiíratom az adott cella értékét egy másik cellába, majd ha a kettő nem egyenlő (szintén a For...Next ciklusban ellenőriztetem), akkor jelezze nekem.
-
RAiN91
őstag
válasz
Fferi50
#46053
üzenetére
Én szerintem hasonló egyszerű módon sikerült múltkor megoldanom, max valami nagyon apró dolgot írhattam még át benne. Ha változtatom kézzel a cella értékét, akkor jó, ha a gép módosítja, akkor nem. Ha képletet rakok bele és külső cellából változtatom, akkor sem jó, mert a tartalma nem változik, lehet erre kell vissza vezetni? Tehát azt figyeltetni vele, hogy az értéke változik, nem a tartalma? Azt hogyan lehetne beállítani?
Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Target.Address = "$K$4" ThenMsgBox ("sdas")End IfApplication.EnableEvents = TrueEnd SubPlusz 1 technikai kérdés: mikor kísérletezgetek VBA-n, az épp fut, nyílván ha belenyúlok, leáll. De utána hiába megyek rá a Run gombra, vagy a Pause majd Run gombra, nem történik semmi, csak ha újraindítom az excelt.
-
RAiN91
őstag
Sziasztok
Adott egy excel tábla, ami másodpercenként többször is kapja az adatokat külső adatforrásból. Olyat szeretnék, hogy ha egy adott cella értéke változzon, akkor történjen valami. Régebben nagynehezen valami nagyon egyszerű megoldással sikerült megcsinálni, most viszont sehogy sem jövök rá. Neten ezeket találtam, anno ezekkel próbálkoztam, de akkor sem lett jó, viszont fogalmam sincs, mivel lett jó.. De tudom, hogy valami hasonlóan egyszerű megoldással mint az alábbiak:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" Then'csináljon valamitEnd IfEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("A1")) Is Nothing Then'csináljon valamitEnd IfEnd SubEzzel a két módszerrel próbáltam, valamint még az eseménykezelést ki és bekapcsoltam a végén, de úgy sem ok. Ha kézzel változtatom a cella értékét, akkor jó, viszont ha külső adatforrásból változik akkor nem.
-
RAiN91
őstag
Sziasztok
Képlet beillesztés téma:
Adott B1 cella, melyben egy képletben, ami A1-re hivatkozik
Hogyan tudom átmásolni B1 cellát pl. K1-be úgy, hogy továbbra is A1-re hivatkozzon?A képletek egy nagyobb cellatartományban vannak, tehát kézzel nem szeretném másolatni a tartalmát, és ilyen beillesztést nem találtam. A példa alapján B1 cella tartalma a továbbiakban mást fog tartalmazni, kell oda a hely, ezért szeretném átrakni máshova.
Ez megoldható? Köszi a segítséget.
-
RAiN91
őstag
válasz
Fferi50
#45696
üzenetére
Sajnos nem lett gyorsabb.
Szeretném megkérdezni, hogyPrivate Sub Worksheet_Calculate()rutinban van a kódom, és ha ezt átrakom
Private Sub Worksheet_Change()-raaz mit jelent, akkor gyorsabb lenne, itt akadhat meg?
Az Excel most 20ms-ként kapja az adatokat egy külső adatforrásból, és ha fut a VBA akkor ez 4-5 másodpercre módosul.
-
RAiN91
őstag
Sziasztok,
ha egy For...Next ciklus egyfolytában fut, belassítja az Excel-t.
Ez 0-69 ig megy cellánként felülről lefelé. Ha soronként bepötyögöm, simán IF paranccsal, akkor azzal gyorsabb lenne a rendszer, vagy az ugyan úgy lelassítja, mert egyfolytában figyeli egyidőben ezeket a sorokat? -
RAiN91
őstag
Sziasztok,
ismét segítségeteket szeretném kérni.
Runtime error "28"
Out of stack space
hibát kapok, ha rámegyek a Debug feliratra, akkor ezt a sort emeli ki:If (Range("O" & i) = "PLACED" Or Range("O" & i) = "OK") And Range("DC" & i + 1) <> Range("DB" & i + 1) ThenA teljes kód így néz ki:
Private Sub Worksheet_Calculate()Dim i As IntegerFor i = 9 To 69 Step 2If (Range("O" & i) = "PLACED" Or Range("O" & i) = "OK") And Range("DC" & i + 1) <> Range("DB" & i + 1) ThenRange("DC" & i + 1) = Range("DB" & i + 1)Range("O" & i).ClearContentsEnd IfNextEnd SubKöszönöm a segítséget.
-
RAiN91
őstag
Sziasztok
Az alábbi kóddal kapcsolatban a kérdésem, hogy ha teljesül a feltétel, akkor az egymás alatt lévő parancsokat (4 cella törlése), felülről lefelé sorrendben törli, vagy egy időben, vagy olyan sorrendben, ahogy gondolja? Ez egy For - Next ciklus részlete.
Ha nem felülről lefelé sorrendben, akkor erre lenne megoldás?If Range("L" & i) <> "" And Range("O" & i) <> "" And Range("DC" & i + 1) <> Range("DB" & i + 1) ThenRange("L" & i).ClearContentsRange("M" & i).ClearContentsRange("N" & i).ClearContentsRange("O" & i).ClearContentsEnd If -
RAiN91
őstag
válasz
Fferi50
#42707
üzenetére
Mennyire helytálló, amit feljebb is írtak, hogy nyitva kell, hogy legyen?
Mert így működik, ha meg van nyitva:Sub szamol()Range("C1") = Workbooks("asd.xlsx").Sheets("Diagram").Range("A1")End SubHa zárva van akkor nem, és úgy sem, ha az elérési út be van írva, helyesen:
Sub szamol()Range("C1") = Workbooks("C:\Users\Balint\Desktop\asd.xlsx").Sheets("Diagram").Range("A1")End Sub -
RAiN91
őstag
válasz
Fferi50
#42705
üzenetére
Köszi a válaszokat.
Ellenőriztem a fájlneveket, jók.
Meg is nyitja ezzel a paranccsal:
Workbooks.open("C:\Users\Balint\Desktop\asd.xlsx")Szóval, a munkalap hivatkozásnál lehet a probléma, tehát ezzel a résszel:
.Worksheets("Diagram").Range("A1")Van diagram fül, és táblázat, A1-be beírtam egy számot.
-
-
RAiN91
őstag
Sziasztok
Sub szamol()Range("C8") = Workbooks("asd.xlsx").Worksheets("Diagram").Range("A45")End Suberre Runtime error 9-et kapok. Miért? Azonos mappában van a két excel fájl (a jelenlegi, és az "asd.xlsx" is.
Próbáltam így is, de ugyan az a gondja.Range("C8") = Workbooks("C:\mappa\asd.xlsx").Worksheets("Diagram").Range("A45")Mi lehet a gondja? Köszönöm előre is.
-
RAiN91
őstag
Sziasztok,
szeretném A1 cella értékét átírni, ha B1 cella értéke változik. B1 cella = B2-vel, tehát nem kézzel íródik át A1. (Igazából B2 sem kézzel íródik át, mert egy programon keresztül frissülnek az adatok).A lényeg, Target.Address-el nem működik nekem. Az alábbi két programot próbáltam.
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Range("B1"), Target) Is Nothing ThenRange("A1") = 10End IfEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$B$1" ThenRange("A1") = 10End IfEnd SubHogyan lehetne megoldani? Köszönöm előre is.
-
RAiN91
őstag
válasz
Fferi50
#41286
üzenetére
Szia
Sajnos makrót nem tudok adni. BetAngel a program, amire rá van kötve, a programon belül kell kiválasztanom az excelemet, majd a programban rányomni, hogy connect.
Esetleg nem lehet átformázni valahogy, hogy úgy érzékelje a változást, mintha kézzel írnám be? Pl. egy másik cella értékét egyenlővé tenni azzal a cellával, ahol változnak az értékek, vagy nem tudom.
-
RAiN91
őstag
válasz
Fferi50
#41283
üzenetére
Nem működött, mert nem tudtam elindítani, mert feljött az ablak, hogy melyik makrót akarom elindítani. De már rájöttem, nem kell elindítani, alapból fut.
Annyi a probléma, hogy kézzel működik, ha beírok valamit és entert nyomok (bár ha ha ugyan azt az értéket írom be neki, akkor is ő beírja a következő cellába), viszont ha rákötöm az adatforrásra, és változnak a számok másodpercenként, nem ír be semmit.
Időzítő lenne a másik megoldás, amit írtál is korábban, de sokkal jobb lenne egy ilyen megoldás.
-
RAiN91
őstag
válasz
Fferi50
#41277
üzenetére
Szia
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1"), Range(Target.Address)) Is Nothing Then
Range("B1").Offset(0, k).Value = Target.Value
If k < 2 Then k = k + 1 Else k = 0
End If
End SubÍgy már félig működik, csak az Offsetet nem lépteti valamiért. Mindig B1-be írja csak a változást, és azt írja felül.
-
RAiN91
őstag
válasz
Fferi50
#41271
üzenetére
Sajnos nem találtam megoldást. Annyi a lényeg, ha egy cella értéke változik, akkor írja ki az új értéket, majd ha megint változik, akkor a tőle egyel jobbra lévő cellába írja ki, és így tovább, de mindig menjen vissza az elejére is írja felül.
Tehát pl. A1-be kiíratom, majd B1-be, majd C1-be, de a következőt megint A1-be, B1 stb.
Erre esetleg tudsz valami egyszerű megoldást?
Köszönöm! -
RAiN91
őstag
válasz
Fferi50
#41271
üzenetére
Renden, köszönöm, kísérletezgetek.
Nagyon nem értem a témát, de korábban még te írtad ezt az eseménykezelést, ami akkor meg is oldotta az akkori problémát (makró elejére Application.EnableEvents=false, végére true), gondolom erre gondolsz. Ez az excel egy adatforrásra van csatlakoztatva és 200ms-ként változnak az adatok.
Próbálgatom, nem hiszem, hogy bonyolult lenne a megoldás. -
-
RAiN91
őstag
Sziasztok
Egy kis segítséget szeretnék kérni.
i egy változó, 44-47ig, ha 47-ig eljutott, akkor a következő mindig a 44, és így megy körkörösen.
Erre ezt írtam, de mivel megadtam, hogy i kezdő értéke 44, ezért mindig is az lesz az első, és nem ugrik tovább.
Private Sub Worksheet_Calculate()
Dim i As Long
i = 44
If Cells(9, 7) <> Cells(9, i) Then
Cells(9, i + 1) = Cells(9, 7)
i = i + 1
end if
If i = 47 Then i = 44
End SubHogy lehetne másképp megoldani? For-Next ciklussal sem tudtam megoldani, mert csak akkor szeretném, ha i ugorjon egyet, ha a feltétel teljesül, és ha NEXT-et IF függvényen belül rakom, akkor hibát jelez:
For i = 44 To 47
If Cells(9, 7) <> Cells(9, i) Then
Cells(9, i + 1) = Cells(9, 7)
Next
End IfKöszönöm előre is a segítséget!
-
RAiN91
őstag
Sziasztok
Van egy táblázatom számokkal, A1:X10-ig pl.
Egy for-next ciklust szeretnék végigfuttatni úgy, hogy először az első soron (A1:A10) ig fusson, majd ha lefutott, menjen a 2. sor (B2
10), és így tovább.Hogyan lehetne ezt megvalósítani? Én csak addig jutottam, hogy a sorokban vízszintesen fut, de a következő sort kézzel kell beírnom (k=1, 2, 3 stb.)
Köszönöm előre is a segítséget!
Sub asd()
k = 1
For i = 10 To 2 Step -1
If Cells(k, i) > Cells(k, 2) * 1.15 Then
Cells(k, 64) = Cells(k, i)
End If
Next
End Sub -
-
RAiN91
őstag
Sziasztok
Üres sorokat szeretném törölni, hogy az adatok között ne legyen rés. Van egy makróm rá, de nagyon lassú, 36.000 Sor esetében, fél óra alatt nem végzett, le is állítottam. Hogyan lehetne begyorsítani, vagy máshogyan megközelíteni a sortörlést?
Köszönöm.Sub Sortorles2()
Dim i As Integer
For i = 25 To 3 Step -1
If Cells(i, 5) = "" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub -
RAiN91
őstag
Van egy Exel fájlom, amibe napi szinten 30 megabájtnyi adat kerül. Napról napra egyre lassabb. Az adatok nagy részét most nem használom, de talán később, viszont szeretném, hogy egy fájlba legyen. El lehet valahogy tüntetni úgy, hogy ne foglaljon ennyit, de később mégis vissza tudjam hozni ha kell? Semmi képlet nincs benne, csak számok és szövegek. Köszönöm.
-
RAiN91
őstag
Szia!
Köszönöm a választ. Azért nem jó nekem, mert csak egyetlen egy időpontból szeretnék egész percet csinálni (ami a legközelebb esik hozzá). Ha már kétszer szerepel, már elrontja az egészet. Példa, így szeretném:0:03:57
0:03:59
0:04:01
0:04:02Ezekből vagy a 0:04:01 vagy a 0:03:59 -et írja át 0:04:00-ra. (mindegy melyik)
-
RAiN91
őstag
Sziasztok
Egy munkafüzetben 0:00:00 - 0:30:00-ig vannak idő formátumban adatok. Elvileg másodpercenként, de van hogy ez nem jön össze, ilyenkor hibás a képlet ha hiányzik az adott adat. Példaként hiányzik a 0:04:00 időpont.Azt szeretném megcsinálni, hogy ha hiányzik (erre van függvényem, tudom, hogy hol hiányzik), akkor az ahhoz legközelebbi időpontot írja át 0:04:00 -ra (. 0:03:59)-et cserélje ki.
Van erre valami egyszerű megoldás, akár VBA-ban?
Köszönöm!
-
RAiN91
őstag
-
RAiN91
őstag
válasz
Delila_1
#36970
üzenetére
Sajnos lesz annyi adat, legalábbis elméletben lesz, de már most 50 Mb a fájl, és lassú az egész, és még alig van benne valami
1 évnyi sportfogadás statisztika adatai.
#36972: akkor ezzel kapcsolatban még egy kérdés. Akkor inkább VBA-ban érdemesebb a képleteket írogatni, egy For-Next ciklussal?
-
-
RAiN91
őstag
Sziasztok
Melyik az a függvény, ami hasonló mint a KERES, csak kicsit fordítva:
Van egy adott sor, számokkal. Megadok neki egy számot, amit keressen ki abból a sorból, és adja meg, hogy pl. balról hányadik oszlopban található.
Pl. 2 5 9 8 10 5
Keresem a 9-est, eredményül tehát a 3-as számot szeretném kapni.
-
RAiN91
őstag
Sziasztok! Ebből hogyan tudnék működőt varázsolni? A cél az, hogy ha egymás alatt vannak adatok, kihagyással, akkor, ha kihagyás van, egyet lépjen előre sorszámban. Példa:
sdasdas 1
dasdsad 1sadasd 2
asdsad 2
asdasd 2
sdadsa 2Sub ffffasd()
For k = 1 To 51 Step 1
For i = 1 To 51 Step 1
Cells(i, 18) = k
If Cells(i, 1) = "" Then
Next k
End If
Next i
End Sub -
RAiN91
őstag
Sziasztok
Excellel meg lehet oldani (esetleg VBA), hogy pl. az utolsó valamennyi oszlopot SZUM-ázza össze, egy bizonyos celláig, amiben valami szerepel?
Pl. ha A14 cellában "X" szerepel A3 cellában pedig "Y", akkor adja össze B14
3 cellák értékeit, valamint
A26 cellában "X", A16-ban "Y", akkor SZUM(B2616), és így tovább. Tehát mindig X és Y sorok közötti cellák értékeit szeretném összeadni. -
RAiN91
őstag
Sziasztok
Van egy kb. 100.000 soros munkalapom, amiben elég sok az üres sor.
Ezeket szeretném kitörölni, de úgy, hogy pl. 2 adat között van 100 üres sor, akkor azért maradjon például 3 üres sor a 2 adat között, tehát ne érjenek össze. Van rá valami egyszerű megoldás?
Köszönöm.
-
RAiN91
őstag
Sub TEST()
Dim c As Range, r As Range
Dim output As String
For Each r In Range("B69:D1870").Rows
For Each c In r.Cells
output = output & "," & c.Value
Next c
output = output & vbNewLine
Next r
Open "D:\text.txt" For Output As #1
Print #1, output
Close
End SubHogyan tudom megcsinálni, hogy ha már létezik az adott helyen a text.txt, akkor ne írja felül, hanem csináljon egy másik fájlt (pl. text2.txt)?
Köszönöm előre is.
-
RAiN91
őstag
válasz
Fferi50
#35729
üzenetére
Nem biztos, hogy jól el tudom magyarázni, de azért megpróbálom.
Az a probléma, hogy a törlés parancsom ugyan akkor törlődik ki, mint amikor bekerül az XYZ a cellába, és ez problémát okoz. Én azt hittem, párhuzamosan adja ki ilyenkor a parancsot, de akkor viszont csak annyi a gond, hogy túl gyors a program
Időzítővel kell megoldani, de eddig nem találtam jó időzítőt, mert közben az excelem online frissítése leáll. -
RAiN91
őstag
Sehogy sem jön össze az időzítés, tudnátok segíteni? Az Application.Ontime-nél az a gond, ha azt a fajta időzítőt behívnám, akkor ott az idő letelte után egy subot kellene behívnom, én viszont csak annyit szeretnék, hogy ha lefut az időzítő, folytassa ugyan ott az eredeti makrómat, ahol abbahagyta.
Private Sub worksheet_calculate()
Dim i As Integer
Application.EnableEvents = False
CALL "idozito "'IDE SZERETNÉK MÁSODPERC vagy MS ALAPÚ IDŐZÍTŐT
For i = 9 To 39 Step 2
Cells(i + 1, 38) = Cells(i, 8)
Next i
Application.EnableEvents = True
End Sub -
RAiN91
őstag
Sajnos mégsem jó, egyikkel sem. Az excel táblában 3 munkaablak van, és online kapja az adatokat. Viszont ha az eddig működő Worksheet_calculate()-t használom, akkor nem frissíti online. A többinél pedig automatikusan kell elindítanom a subrutint, és akkor is csak az egyik munkaablaké fut.
-
RAiN91
őstag
Sziasztok
Van egy ilyenem, 3 excel táblában is.
Private Sub worksheet_idozito()
1
Cells(6, 6) = Cells(9, 8)
ido = Timer + 0.2
Do While (Timer < ido)
DoEvents
Loop
If Cells(9, 8) < Cells(6, 6) Then
Cells(6, 7) = Cells(9, 8)
ido = Timer + 1.5
Do While (Timer < ido)
DoEvents
Loop
Cells(6, 8) = Cells(9, 8)
ido = Timer + 1.5
Do While (Timer < ido)
DoEvents
Loop
Cells(6, 9) = Cells(9, 8)
ido = Timer + 1.5
Do While (Timer < ido)
DoEvents
Loop
Else
End IfGoTo 1
End SubHogyan lehet megoldani, hogy ha elindítom az excel fájlt, akkor ezek automatikusan fussanak?
Ha kézzel indítom, akkor csak az egyik worksheetben fut. -
RAiN91
őstag
Sziasztok
Van egy excel táblám, amiben folyamatosan frissülnek online az adatok, fél másodpercenként.
Szeretnék egy időzítést bele, ha egyik cellába valami kerül, akkor másik cellába valami íródjon.
Ezt dobtam össze:
Sub ido()
If Cells(6, 6) > 1 Then
Application.Wait Now + TimeValue("00:00:02")
Cells(6, 7) = 2Application.EnableEvents = True
End SubA fő gond az, ha teljesül a feltétel, elindul az időzítő, megtörténik amit kértem, és utána teljesen meghal az excel, megáll minden benne, bezárni is csak a feladatkezelőből tudom. Mi a rossz?
Nagyon köszönöm
szerk: az "ido" szubruting for next-el kérem le folyamatosan, lehet ez a gond? Hogy lehet lehívni máshogy, úgy, hogy folyamatosan figyelje a "cells(6,6"-ot?
-
#34834
RAiN91
őstag
Juditta_56
#34833
RAiN91
őstag
válasz
Juditta_56
#34833
üzenetére
Köszi, király vagy!
Nem értem hogy működik, "=" és a kérdőjel, de erre gondoltam.
-
RAiN91
őstag
Sziasztok. Adott "A" oszlopban lévő számok, van amelyikből csak 1 darab van, van amiből több. B oszlop tartalmát szeretném megkapni a lenti példa alapján. Tehát pl. A oszlopban 121-es számból 2 darab van, akkor 2-es számot szeretnék kapni.
(viszont A oszlopban nagyon sok féle szám van, tehát egyenként nem tudok az adott számra hivatkozni, fel kellene ismernie az Excelnek, hogy ugyan olyan számokból hány darab van)
Létezik ilyen függvény?
A B
121 | 2
121 | 2
123 | 1
233 | 4
233 | 4
233 | 4
233 | 4Köszönöm!
10), és így tovább.
Új hozzászólás Aktív témák
- PlayStation 5
- Milyen monitort vegyek?
- Kerékpárosok, bringások ide!
- Spórolós topik
- Rendkívül ütőképesnek tűnik az újragondolt Apple tv
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Assetto Corsa Rally
- Kuponkunyeráló
- Path of Exile (ARPG)
- Anime filmek és sorozatok
- További aktív témák...
- BESZÁMÍTÁS! AMD Ryzen 7 5800X3D 8 mag 16 szál processzor garanciával hibátlan működéssel
- Bomba ár! Fujitsu LifeBook U904 - i5-4G I 10GB I 256SSD I 14" QHD+ I HDMI I Cam I W10 I Garancia!
- Bomba ár! Lenovo X1 Yoga 2nd - i7-7G I 8GB I 256GB SSD I 14" WQHD Touch I W11 I CAM I Garancia!
- HIBÁTLAN iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3734
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS2998, 100% Akksi
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő