- Volkswagen ID.7 menetpróba
- Xiaomi Redmi Note 5 Global
- Frissült a MediaTek középkategóriás ajánlata
- Nothing Phone (2) - több, mint elsőre látszik
- Huawei P40 lite - kényszerpályán
- Google Pixel 6/7/8 topik
- iPhone topik
- Különleges kameraszettet kapott a Huawei Pura 70 Ultra
- Macrodroid
- Apple iPhone 15 Pro Max - Attack on Titan
Hirdetés
-
Nem bírják kiszolgálni az AI energiaigényét
it Az amerikai elektromos hálózat nem bővül elég gyorsan ahhoz, hogy az AI nagy energiaigényét kiszolgálja.
-
Lenovo Essential Wireless Combo
lo Lehet-e egy billentyűzet karcsú, elegáns és különleges? A Lenovo bebizonyította, hogy igen, de bosszantó is :)
-
Ízlésesre sikerült a Galax alacsony profilú GeForce RTX VGA-ja
ph A hónap végén a felkelő nap országában debütáló, AD107 lapkára épülő modell talán az európai piacra is megérkezik.
-
Mobilarena
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
-
Delila_1
Topikgazda
válasz Carasc0 #32995 üzenetére
Egy réges-régi fájlt feltöltöttem, kiindulási alapnak jó lesz. Tettem bele kommenteket.
Nézd meg a ThisWorkbook lap makróját is, az indítja az időzítőt.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
psg5
veterán
Sziasztok!
Olyan képletet keresek, mely tömegre vetített egységárat számol ki bármelyik szükséges adat hiányában.
pl. adott 200g só aminek az eladási ára 600.-Ft és szeretném tudni a kg-ra vetített egységárát a képlettel, de akár úgy is tudja, hogy ha tudom a kg-ra vetített egységárát és az eladási árát, de szeretném megkapni a kiszerelt tömeget (200g-ot)
Vagyis egy cellában "A" lenne pl a tömeg "B" az eladási ár "C" az egységnyi ár.
Utópia nagyon?F.K.T.
-
Soma01
veterán
Sziasztok!
Tudtok segíteni nekem egy probléma megoldásában? Azt kellene beképletezni, (pl. ha függvénnyel) hogy :
Ha egy dátum egy bizonyos időpontnál korábbi, akkor egy cél cellába irjon 0-t, ha későbbi vagy egyenlö irjon 1-est.
Milyen függvénnyel lehet ezt megoldani? -
Dr V
őstag
Sziasztok!
Egy táblázatban többféle adatom van. Az egyik oszlopban lévő adatok alapján szeretném formázni a táblázat sorait. Ennek mi a trükkje?
-
Juditta_56
aktív tag
válasz Soma01 #33006 üzenetére
"A" oszlopba írd a dátumokat, a "B" - be a következő függvényt - majd húzd végig a "B" oszlopon, amíg az "A" - ban van adat - :
=HA(A1<$C$1;0;1)
és a C1-be azt a dátumot, aminél kisebbet, illetve nagyobbat-egyenlőt szeretnél.
[ Szerkesztve ]
"You may say that I'm a dreamer But I'm not the only one"
-
lenkei83
tag
Sziasztok!
Megnyitott csv-ben szeretném megszámolni a sorokat, tehát a VBA open valami for input parancs nem jó.
És éppen ez a bajom. Nyitott fájlt hogyan lehet beadni a for input as parancshoz?A lenti kód működik, ha épp nincs megnyitva a fájl, ezt kellene orvosolni valahogyan.
üdv
P.Dim filenum As Integer
Dim count As Long
Dim tmp As String
xx = FreeFile
[B]Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As xx[/B]
Do While Not EOF(xx)
Line Input #xx, tmp$
count = count + 1
Loop
MsgBox count -
-
butch3r
senior tag
Sziasztok
Lehetséges az valahogy hogy az üres excel sorokat teljesen kitörlöjem?
Jelenelg látom 1048576-os sorig tudnék lescrollozni de tök felesleges ha csak 500 soron van adat... Nem tudom ettől nagyobb e file de kevésbé hazsnálható mert a scroll bar jó kicsi... Olyan mitnha végig adatot látna pedig többször töröltem és semmi nincs az 500-ik sor után...
Köszi
[ Szerkesztve ]
-
alfa20
senior tag
Sziasztok!
Segítséget szeretnék kérni feltételes nem üres cella számolásában (képlet!).
Adott mondjuk 3 oszlop kód, dátum mennyiség, nekem az kell, hogy adott kódhoz mennyi tétel tartozik:
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Pakliman
tag
válasz butch3r #33016 üzenetére
Szia!
Sajnos már én is jártam így
Milliószor töröltem a sorokat, mentés, megnyitás, és az excel még mindig baromi sok sort "érzékel"
A megoldás az volt, hogy új munkalap vagy munkafüzet létrehoz, szükséges adatokat tartalmazó terület kijelöl, újba átmásol, ment, régi kidob ÉS -
lenkei83
tag
-
Winner_hun
félisten
Ha megnyomom a jobbra nyilat a billentyűzeten akkor nem a kijelölt melletti cellára ugrik hanem egy oszlopnyit lapoz az egész dokumentumon. Miért? Néha előjön, csak a gép újraindítása oldja meg a problémát.
► "Kicsit olyan webcaritas" ◄ ヅ
-
tzimash
őstag
válasz Winner_hun #33027 üzenetére
Scroll lock?
-
dWan
tag
Sziasztok!
Lenne egy minden bizonnyal egyszerű kérdésem, remélem valaki tud segíteni.
Adott egy számsorozat, 9 elemből áll, nem vészes. Az alatta lévő sorba kéne a fenti sort szummázni, az adott cellának megfelelő felső soros értékkel bezárólag. Továbbá van még egy változó cella is, amely azt adja meg, hogy visszamenőleg hány cella értékét kell összeadni. Van valakinek tippje?
Köszi
-
Pakliman
tag
válasz lenkei83 #33026 üzenetére
Szia!
Csak egy pillantást tudtam vetni rá, de szerintem a hiba
For Output As #xx
lesz.
Ez esetben olvasni nem tudsz a fájlból.Egy lehetőség a sok közül:
For Each mezokod In mezokod_tartomany_1
If mezokod <> "" And mezokod.Offset(0, -6) <> "" Then
Print #xx, mezokod.Value & "=" & mezokod.Offset(0, -6).Value
End If
Next mezokod
Close #xx 'ÚJ SOR!!
Dim LineofText As String
Dim rw As Long
rw = 0
xx = FreeFile() 'ÚJ SOR!!
Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As #xx 'ÚJ SOR!!
Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
MsgBox rw
Close #xxAz 'ÚJ SOR!! részeket kell beírnod a kódba.
Figyelj! Az Open-nél Input van!Remélem műxik majd
[ Szerkesztve ]
-
DasBoot
aktív tag
Üdvözlet, Mindenkinek! "Régebbi" MSExcel verziókban volt egy Special paste nevű lehetőség. Azt kérdezném, hogy a mostaniakban van-e ilyen? 2010-est használok. Üdv.: Joe
LEGO-ból bármit megépíteni, csak idő kérdése.
-
Pakliman
tag
válasz lenkei83 #33032 üzenetére
Szia!
Ha nem akarsz csiki-csukit, akkor az rw változót a proc elején deklaráld és minden
Print #xx,
sor után írd be ezt:rw=rw+1
.
A végén az rw értéke a fájl sorainak a száma lesz (feltéve, hogy a fájlba kiírt szövegek nem tartalmaznak sortörést okozó karaktert).Vagy egy másik lehetőség, hogy az
Open ...
esetében a Random-t használod az Output helyett.[ Szerkesztve ]
-
Vladek83
tag
Sziasztok,
tud valaki ötletet adni miért fagy le az excel... (2013) ?
a munkafüzet nem tartalmaz makrókat..
A Microsoft Excel működése leállt
A Windows megoldást keres a problémára...ui.: eddig a gugli nem segített
-
Carasc0
őstag
válasz Delila_1 #33033 üzenetére
Tiszteletem Mester!
Nagyon köszönöm az időzítő makrókódot. Jól működik. Sőt még a felesleges munkalaptörlő kódrészletet is töröltem, nekem nincs rá szükségem. Viszont szeretném egy aprósággal kibővíteni a működését a makrónak!
Megoldható-e az, hogy amikor lejár a beállított timer, akkor megjelenjen egy form, rajta egy text box, vagy simán csak címke, tök mindegy, ami egy megadott cellatartomány szummázásának eredményét írja ki? A formon lenne még egy BEZÁR nevű parancsgomb amire ha katt, akkor a munkafüzet tartalm elmentődik, majd a program automatikusan bezár.
Gondolkodj globálisan és tegyél lokálisan!
-
Agostino
addikt
válasz Vladek83 #33036 üzenetére
elég soványka információ. milyen műveletet végzel, amikor a fagyás bekövetkezik? nekem is szokott, de általában akkor, ha teamvieweren dolgozok egy másik gépen is. de ez nálam van, magyarán számos oka lehet..
hey friend listen, i know the world is scary right now but its gonna get way worse
-
Delila_1
Topikgazda
válasz Carasc0 #33037 üzenetére
ThisWorkbookba
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "OsszegKiiras"
End SubModulba
Sub OsszegKiiras()
Beep
MsgBox Application.WorksheetFunction.Sum(Sheets("Munka3").Range("C4:C15")) '***
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End SubA csillagokkal jelzett sorban a saját lapod, saját összegzendő tartományod címét add meg!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
olloczky
senior tag
Sziasztok
Beírom ezt egy cellába: 7-8. és vagy azt hozza ki, hogy 08. júl vagy azt, hogy 42559. MIÉRT?! próbálgattam a cellaformázásnál a szám fülön a kategóriát állítani de semmi ..
üdv
Úgy még sosem volt, hogy valahogy ne lett volna!
-
lenkei83
tag
Sziasztok!
Ha ezt lefuttatom, az If sorban lévő munkalapokat miért nem hagyja ki az msgboxnál?
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName <> "Munka7" Or ws.CodeName <> "Munka8" Or ws.CodeName <> "Munka10" Then
MsgBox ws.CodeName
End If
NextKöszi.
P. -
lenkei83
tag
válasz Delila_1 #33043 üzenetére
Hu, ezt most fejben nem tudom összerakni.
Működik "OR"-ral, de nem értem. Eddig sosem volt gondom a ciklusokkal, de erre rácsodálkoztam.A ciklus egyszerre csak egy ws-t vizsgál és azt nézi, hogy az adott ws-nek mi a neve, ami ha nem egyenlő a megadottal akkor kihagyja, de nem ezt teszti.
OR-nak elvileg akkor lenne értelme, ha egyszerre több munkalap lenne kijelölve és azt vizsgálnám, hogy a kijelöltek közül ha az egyik neve <> munkax és a másik neve <> munkay akkor msgbox.Vagy valamit nem jól látok?
-
Delila_1
Topikgazda
-
mormota
senior tag
sziasztok
fogok kapni egy minimum 10-15000 soros legyűjtést excelben (lehet, hogy ezt szűkíteni, darabolni fogom a könnyebb kezelhetőség érdekében.
ebből a sok sorból kellene majd egy előre elkészített excel sablonnak megfelelően adatokat beszúrni adott cellákba, majd menteni adott cellában található (ez is importálva lesz) tartalom alapján (a tartalom lesz a neve a filenak).
erre kellene valami makró, ami megkönnyíti a munkát
köszönöm előre is
ps: egy sorból egy file lesz
[ Szerkesztve ]
Illusztrálok, tehát vagyok
-
mormota
senior tag
válasz mormota #33049 üzenetére
konkrétabban a forrásfile
F2 celláját a sablonfile C1
G2 -> C2
L2 -> C3
H2 -> C4 cellájába kellene másolni
majd az egész kitöltött sablont el kéne menteni a C3-ban található névenújrakzdeni a 3. sorban ugyanígy az F,G,L és H oszlopokkal, stb stb stb, amíg van rekord a forrásfileban
Illusztrálok, tehát vagyok
Új hozzászólás Aktív témák
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Volkswagen ID.7 menetpróba
- Xiaomi Redmi Note 5 Global
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Autós topik
- Gmail
- Kerékpárosok, bringások ide!
- Ukrajnai háború
- Elektromos rásegítésű kerékpárok
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- További aktív témák...