-
IT café
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
-
Fferi50
őstag
válasz RootRulez #24202 üzenetére
Szia!
Ha már C241 van a végén, akkor az elején is annak kellene lennie az A1 helyén!
De miért nem használod a KEREKÍTÉS függvényt, az kapásból jól kerekít le és fel:
=KEREKÍTÉS(C241*1,2;-2)-10
Ha pedig 30-tól szeretnél már felfelé kerekíteni, akkor
=KEREKÍTÉS(C241*1,2+30;-2)-10
Üdv.
-
géeles
aktív tag
Szisztok!
Azt lehet egyszerűen, hogy a cellába kattintva az aktuális idõ jelenjen meg?TV Box Amlogic S905X4 4GB+64GB 8K 2.4G/5G X96Max, OnePlus Nord2-5G, "P."
-
Mittu88
senior tag
Sziasztok!
Egy tök egyszerű dologgal szívok. Egy xls fájlból szeretnék egy tartományt (C2640) átmásolni egy xlsx fájlba adott munkalapra úgy, hogy a kezdő cellát adom meg Range(Cells(sorokszama, 3))
Hogy a fenébe lehet?
-
kopogo
tag
azt
szeretném, hogy amikor egy cellában létrehozok egy egyéni számformátumot,
abban legyen felsőindexben a mértékegység megfelelő része.
Addig megvan, hogy Formátum/Cellák.../Szám/Egyéni... Itt beírom, Hogy
0"cm2", no ebből hogy lesz "négyzetcentiméter"?köszönöm
Illetve hogyan lehet cellába 0 írni amivel tudok számolni
-
-
Delila_1
Topikgazda
válasz géeles #24215 üzenetére
Szerintem jobb pl. duplaklikkhez rendelni az idő bevitelét. Laphoz rendeld a makrót:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Target.Address) = Time
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz géeles #24217 üzenetére
Lapfülön jobb klikk, Kód megjelenítése.
Már ott is vagy, ahol kell. Bal oldalon látszanak a lapjaid, és az van kijelölve, amelyikhez a makrót akarod rendelni. Jobb oldalon szép nagy üres lap, oda másold be a 3 sort, amit írtam.
Nyomás vissza az Excelbe. Duplaklikk egy cellán, ott az aktuális idő.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Axe Miskolc
tag
Üdv!
Excel 2010-ben hogyan lehet egész oszlopra érvényes képletet a leggyorsabban beírni?
Új nagyker táblázat jön(gyakran) és a szorzásokat eddig lehúzással másoltam át,de már nagyon unom,nagy a termékszám,hosszadalmas (pl.: C1=A1*X, a megoldás után a C55000 is be legyen szorozva X-el).
Lehet,hogy ez banális kérdés de nem leltem barátra a googleben erre -
Delila_1
Topikgazda
válasz Axe Miskolc #24221 üzenetére
A képletet tartalmazó cella jobb alján lévő kis fekete négyzetre duplán kattintasz, és kész.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tgumis
tag
Sziasztok
Segítsetek! Meg lehet azt oldani makróval,hogy:
Adott egy x(pl: 60 munkalapból àlló munkafüzet
Meg kellene oldani, hogy az összes munkalapon a AL1:AO49 tartományban az utolsó oszlop 0nàl nagyobb ra szűr majd a szűrt erednényt màsol majd egy tetszőleges munkalapra beilleszti (irányított) csak értéket. De ezt kérdès nélkül a munkafüzet összes lapjára tegye meg -
m.zmrzlina
senior tag
válasz tgumis #24223 üzenetére
Ennél a sornál az idézőjelbe annak a munkalapnak a nevét írod amelyikre az eredményt másolni szeretnéd.
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")Itt is kijavítod az eredmeny-t a munkalap nevére és ha nem az A tartományba akarod kiiratni az eredményt azt is megváltoztathatod (lényeg, hogy 4 oszlopnyi tartományt adj meg)
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)Option Base 1
Sub nagyobbnulla()
Dim tomb()
ReDim tomb(4, 1)
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")
j = 1
For Each ws In Worksheets
For Each cella In ws.Range("AO1:AO49")
If cella.Value > 0 Then
For i = 1 To 4
tomb(i, j) = ws.Cells(cella.Row, cella.Column - (4 - i)).Value
Next
ReDim Preserve tomb(4, j + 1)
j = j + 1
End If
Next
Next
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)
End Sub[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz m.zmrzlina #24224 üzenetére
Na szóval:
Itt is kijavítod az "eredmeny"-t a munkalap nevére és ha nem az A:D tartományba akarod kiiratni az eredményt azt is megváltoztathatod (lényeg, hogy 4 oszlopnyi tartományt adj meg)
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz m.zmrzlina #24225 üzenetére
Úgy látszik már késő van (vagy már korán)
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)Helyesen:
Vagy minden eredmeny-t átírsz a munkalapod nevére vagy csak az idézőjelben lévőt.
Vagy csinálsz egy eredmeny nevű munkalapot és hagyod az egész makrót a fenébe úgy ahogy van. -
Delila_1
Topikgazda
válasz Axe Miskolc #24227 üzenetére
Szívesen.
Annyi kiegészítés hozzá, hogy addig másolja a képletet, ameddig a mellette lévő oszlopban bármilyen adatot (akár képletet) talál. Foghíjas oszlop mellett az első üres cella fölötti sorig másol.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
tgumis
tag
válasz m.zmrzlina #24224 üzenetére
Hálás köszönet èrte. Majd ha asztali gép közelébe jutok lepróbálom. Mégegyszer köszi.
-
lacy86
addikt
Sziasztok!
Segitseget szeretnek kerni!
Jovoevi szabi riportot szeretnek csinalni es egyszeruen nem tudok rajonni milyen fuggvennyel csinaljam meg!
Az eves szabibol vonja ki azokat amiket en beirok. ( ahogy a kepen is latszik )( Szegyellem magam mert 5 evig tanultam az excelt de annyira regen hasznaltam hogy nem jut eszembe )
Elore is koszonom a segitseget!
-
lacy86
addikt
válasz m.zmrzlina #24232 üzenetére
Bazz ....
Koszonom szepen!
-
Wyll
őstag
Először is nagyon köszönöm az eddigi segítséget, ami itt kaptam, főleg Delila-tól és Fferi-től, sokat segítettetek!
Most újabb kérdésem volna, vajon miért dob hibát erre a soromra:
y = Range("rel_ev")
y az egy Long, rel_ev pedig egy név, mégpedig relatív:
=ÉV(Munka1!$G19)G19-ben pedig egy dátum van. Azazhogy minden sor G oszlopában egy dátum van.
[ Szerkesztve ]
Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll
-
tgumis
tag
sziasztok tudtok segíteni?
Selection.AutoFilter Field:=4, Criteria1:=">0"
usor = Range("AY2").End(xlDown).Row
Range("AY2:BD" & usor).Select
Selection.Copynem tudom megoldani hogy a nem 0 értékeket szűrje mert ha a criteia-hoz <>0 írok akkor nem csinál semmit hanem az egész tartományt kijelöli viszont a >0 val az a baj hogy vannak negatív értékek is. és azt nem hozza.
ötlet? mit lehet tenni, hogy a nem nulla értékeket szűrje[ Szerkesztve ]
-
Fferi50
őstag
válasz tgumis #24237 üzenetére
Szia!
Biztos, hogy számok vannak abban az oszlopban mindenütt, ahol a <>0 kritériummal szeretnél szűrni? Próbáld ki a szűrést "kézzel" a menüből, akkor kiderül a turpisság.
Mert egyébként nálam szépen szűri a számokat azzal a feltétellel is.Ha másolni akarsz, egyszerübb a
range("AY2:BD" & usor).specialcells(xlcelltypevisible).copy range.akármi
ahol az akármi helyébe írod a másolás célértékét. A szűrés után a látszó cellákat ezzel a módszerrel másolhatod át.
Nem kell a select....Sokszor hibát is okoz.Üdv.
-
ritterkrisz
tag
Sziasztok!
Létezik valamilyen módszer arra, hogy több cella tartalmát betudom másolni egy cellába és mindezt tömegesen??
-
Wyll
őstag
válasz ritterkrisz #24241 üzenetére
ÖSSZEFŰZ() függvény, vagy az ezzel egyenértékű & operátor.
Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll
-
m.zmrzlina
senior tag
válasz ritterkrisz #24241 üzenetére
-
ritterkrisz
tag
válasz m.zmrzlina #24243 üzenetére
Annyi probléma merült még fel, hogy ezt a szöveget egybe fűzi. Nem lehet beállítani, hogy az összefűzött cellák között maradjon szóköz?
-
m.zmrzlina
senior tag
válasz ritterkrisz #24245 üzenetére
A válaszomban a képen a szerkesztőlécen lévő mintát kövesd:
=A3&" "&B3&" "&.....stb stb
Az idézőjelek közötti szóközöket fogja beilleszteni a cellaértékek közé.
-
ritterkrisz
tag
Siker
-
m.zmrzlina
senior tag
válasz ritterkrisz #24247 üzenetére
Grat...
-
Thrawnad
senior tag
Hali!
2 szöveget kellene összefűznöm makróban simán + jel? Olyan kellene mint az összefűz a táblában.
Másik kérdés: Van olyan függvény ami szóközzel egészíti ki egy szöveget hogy elég hosszú legyen?
AttilaHardver hibára ritkán van jó szoftver...