- Google Pixel topik
- Xiaomi 15 - kicsi telefon nagy energiával
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Milyen okostelefont vegyek?
- Samsung Galaxy Watch7 - kötelező kör
- Poco F6 5G - Turbó Rudi
- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- Yettel topik
- Mobil flották
- Realme GT Master Edition - mestermunka
-
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
veterán
A rendezett lapon kell futtatnod a makrót.
A makró elején a B és az AD oszlop adataiból törlöm a felesleges, ismétlődő adatokat, hogy tisztább legyen a kép, majd az AD oszlopban – vesszővel elválasztva – gyűjtöm kategóriákat.
A Sheets("Munka1").Select sorban a Munka1 helyére a saját lapod nevét írd be.Sub Tisztitas()
Dim sor As Long, usor As Long
'Előkészítés
Sheets("Munka1").Select 'Ide a saját lapod nevét írd be
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("AJ2:AJ" & usor).FormulaR1C1 = "=LEFT(RC[-34],SEARCH("")"",RC[-34]))"
Range("AJ2:AJ" & usor).Copy
Range("B2").PasteSpecial xlPasteValues
Range("AJ2:AJ" & usor) = ""
With Columns("AD:AD")
.Replace What:="Transpak alkatrészek>>", Replacement:=""
.Replace What:=">>", Replacement:=""
End With
'Sortörlés
For sor = usor To 2 Step -1
If Cells(sor, "K") = Cells(sor - 1, "K") Then
Cells(sor - 1, "AD") = Cells(sor - 1, "AD") & "," & Cells(sor, "AD")
Rows(sor).Delete Shift:=xlUp
End If
Next
End Sub -
biker
nagyúr
Nos, az eredetivel az volt a gond, sok cikk nem létezik angolul, csak olaszul
Erre átküldik excelben pdf helyett, annyival jobb, hogy külön sorban van az angol, tehát itt is lehet képletezni, ha az angol sor előtt van egy olasz, akkor angol, ha nincs, akkor olasz
Szuperek ezek az exportok. De ezt már legalább könnyű megoldani -
Delila_1
veterán
A =KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;80) nem makró, hanem egy képlet. Egy üres oszlopba írd be az első (dupla) szavad sorába, majd másold le addig, amíg adataid vannak.
Vagy egyszerre beírhatod a képletet a D oszlopba, D2-től addig, ameddig adatok vannak az A oszlopban.
Ez a makró modulban legyen. A Munka1 helyett írd a saját lapod nevét.Sub angol()
Dim usor As Long
usor = Application.WorksheetFunction.CountA(Sheets("Munka1").Range("A:A"))
Range("D2:D" & usor) = "=MID(A2,SEARCH("" "",A2)+1,256)"
End Sub -
Delila_1
veterán
A laphoz kell rendelned a makrót. Feltételeztem, hogy az első oszlopban vannak a szavak. Ha nem, akkor az
If Target.Column = 1 And Not IsEmpty(Target) Then
sorban az 1-et írd át a formázandó oszlop sorszámára.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim kezd As Integer
If Target.Column = 1 And Not IsEmpty(Target) Then
kezd = InStr(Target, " ") + 1
Range(Target.Address).Characters(Start:=kezd, Length:=Len(Target)).Font.FontStyle = "Italic"
End If
End SubEz a makró az újonnan bevitt magyar-angol szöveg második részét alakítja dőlt betűssé.
Az angol szavakat a =KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;80) képlettel kapod meg egy üres oszlopban. -
Fferi50
Topikgazda
Szia!
Mit értesz azalatt, hogy csak munkalapra linkelés? Akkor honnan tudtad, hogy melyik cellára vonatkozik? Viszont sajnos azt gondolom, csak kézzel - vagy makróval lehet átírni a hivatkozásokat, de ha az Adatok menüpontban a hivatkozásokra ránézel, akkor ott egyenként végig lehet menni rajta úgy emlékszem.
A makró nyelve most is "international", azaz angol. Tehát, ha makróból írsz képletet egy cellába, akkor a függvények angol nevét kell írnod. Van ugyan egy könnyítés a formulalocal property, amelyikkel a magyar neveket használhatod, DE akkor a makród nem lesz hordozható, mivel más nyelven nem érti majd meg a képletet.
Üdv.
-
Mutt
senior tag
-
Mutt
senior tag
Hello,
Azert nem megy, mert nem tombkepletkent vitted be. Kapcsos zarojel nelkul masold be a cellaba a kepletet majd nyomj Ctrl+Shift+Entert, igy lesz CSE keplet belole es az Excel kapcsos zarojelekkel fogja megjeleniteni.
Elonye, hogy kompatibilis a tobbi Excellel, nincs makro. Hatranya hogy lassabb mint egy sima keplet, de tovabbra is gyorsabb mint egy makro, vagy udf.
Ha szerkeszted akkor se felejts el Ctrl+Shift+Entert nyomni.Udv
-
Delila_1
veterán
Ezt a makrót rendeld egy gombhoz. Az első részt rögzítővel hoztam össze.
Sub Jpg()
Dim usor As Long, sor As Long, oszlop As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
'Szövegből oszlopok
Range("A1:A" & usor).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1)), TrailingMinusNumbers:=True
'Munka2 lapra az utolsó oszlop adatai
For sor = 1 To usor
oszlop = Cells(sor, 100).End(xlToLeft).Column
Sheets("Munka2").Cells(sor, 1) = Cells(sor, oszlop)
Next
End Sub -
biker
nagyúr
konkrétan ennek a kimenete a kép elérési útra:
=KÖZÉP(Munka1!E2;SOR(INDIREKT("1:"&HOSSZ(Munka1!E2)));1)
egy darab h betű a http://......... sorból, szerintem innen borul mindenDelila: nem nekem gáz, a leendő felhasználónak.
A korábbi excelei is olyanok, amiket csináltam, hogy 1. munkalapra bemásolja az adott nagyker listáját, 2. munkalapon ott a kimenet, még te segítettél az egyiket összerakni.de itt görcsöl,hogy ő nem tudja a kép neveket innen kiszedni.
de lehet ez lesz, csinálok neki video tutorialt mellé
-
-
Delila_1
veterán
A szöveg feldarabolására egy másik módszer a Szövegből oszlopok funkció használata. A különféle verziókban más helyen éred el. Ha megtaláltad, az első ablakban a Tagolt legyen jelölt, a másodikban az alapértelmezett Tab-ból vedd ki a pipát, az Egyéb-be írj egy / jelet, Befejezés.
A példád szerinti adatot az L oszlopig szétdarabolja, az utolsó oszlopban megkapod a kép címét a kiterjesztésével.
-
Mutt
senior tag
Hello,
...feldarabolni a / jeleknél, és a tömb utolsó eleme kell...
A Munka1 lapon lévő A1 cellában lévő szövegből adja vissza az utolsó "/" utáni szövegrészt. CSE képlet!
{=KÖZÉP(Munka1!A1;MAX((KÖZÉP(Munka1!A1;SOR(INDIREKT("1:"&HOSSZ(Munka1!A1)));1)="/")*SOR(INDIREKT("1:"&HOSSZ(Munka1!A1))))+1;6^6)}
Az alábbiak szerint működik:
1. A KÖZÉP(Munka1!A1;SOR(INDIREKT("1:"&HOSSZ(Munka1!A1)));1) rész a szöveget 1 betüs tömbre bontja. Az eredmény ez lesz:
={"h";"t";"t";"p";":";"/";"/";"w";"w";"w";".";"n";"o";"m";"a";"d";"s";"p";"o";"r";"t";".";"e";"u";"/";"/";"u";"p";"l";"o";"a";"d";"/";"t";"e";"r";"m";"e";"k";"/";"k";"e";"p";"e";"k";"/";"b";"i";"g";"/";"_";"0";"/";"5";"8";"4";"3";"/";"5";"6";"8";"9";"8";"/";"e";"s";"b";"i";"t";"-";"g";"y";"u";"j";"t";"o";"k";"o";"c";"k";"a";".";"j";"p";"g"}2. Majd megnézzük hogy ez mikor azonos "/"-el. Az eredmény ez:
={HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;IGAZ;IGAZ;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;IGAZ;IGAZ;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;IGAZ;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;IGAZ;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;IGAZ;HAMIS;HAMIS;HAMIS;IGAZ;HAMIS;HAMIS;IGAZ;HAMIS;HAMIS;HAMIS;HAMIS;IGAZ;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;IGAZ;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS;HAMIS}3. Ezt szorozzuk a pozicíónak megfelelő számmal (vagyis 1, 2, 3 stb). Ez lesz:
={0;0;0;0;0;6;7;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;25;26;0;0;0;0;0;0;33;0;0;0;0;0;0;40;0;0;0;0;0;46;0;0;0;50;0;0;53;0;0;0;0;58;0;0;0;0;0;64;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0}4. Kikeressük a maximumot és hozzáadunk egyet.
5. A kapott pozicíótól a maradék részt kiíratjuk. =KÖZÉP(Munka1!A1;65;6^6)Ha érdekel akkor kapsz egy saját függvényt is.
Használata egyszerű: =szovegresz(Munka1!A1;"/";2^12)
Első paraméter a vizsgálandó cella, a második az elválasztó jel, a harmadik a kért rész (jó nagy számot megadva az utolsó részt kapod).Function szovegresz(bemenet As Range, Optional elvalaszto As String = " ", Optional resz As Integer)
'az elvalaszto ha nincs megadva akkor szóközként értelmezzük
Dim arraySplit
Dim vFelsoMeret As Long
'szétszedjük a szöveget az elválasztójel alapján
arraySplit = Split(bemenet, elvalaszto)
'megnézzük hogy hányrészre szedhető
vFelsoMeret = UBound(arraySplit)
'ha az utolsó utáni darabot kérik, akkor is az utolsót adjuk
If resz >= vFelsoMeret + 1 Then
szovegresz = arraySplit(vFelsoMeret)
End If
'ha a legelső darab előtti kell, akkor is az elsőt adjuk vissza
If resz <= 0 Then
szovegresz = arraySplit(0)
End If
'megadjuk a kért részt
If resz > 0 And resz < vFelsoMeret Then
szovegresz = arraySplit(resz - 1)
End If
End Functionüdv
-
Delila_1
veterán
A törzsdokumentumba beviszel egy táblázatot, aminek a mezőiben lesznek az adataid.
Az első mezőbe beszúrod az adatmező(ke)t. Kapcsold be a "Körlevélmezők kiemelése" funkciót.
A második mező kitöltését azzal kezdd, hogy a Beszúrás | Szöveg | Kész modulok menüponttal beszúrod a Next mezőt. Ez a táblázatodban «Következő rekord» -ként jelenik meg. Ez alá beszúrod a többi adatmezőt. A táblázatodnak ezt a mezőjét már másolhatod. -
#11598
Fire/SOUL/CD
félisten
biker
#11596
Válts LibreOffice-re, ami OOO után nem jelent nagy gondot, abban a Calc 1 millió sort kezel már. [link]
"Higher Number of Rows Per Calc Sheet
Calc spreadsheets now support 1 million rows instead of former 65,536 rows. "commanDOS
0-t lehet osztani, csak értelmetlen, viszont a 0-val való osztás nem is értelmezhető.
Ha azt szeretnéd, hogy ha 0 bármelyik is, attól még 0 legyen az eredmény, akkor ezt a képletet írd be és másold le majd szummázd=HA(HIBÁS(A1/B1);0;A1/B1)
-
#11538
m.zmrzlina
senior tag
biker
#11537
m.zmrzlina
senior tag
1, Jelöld ki a teljes adattartományt és rendezd arra az oszlopra amiben az azonosítók vannak!
2, Szúrj be egy segédoszlopot az azonosítók oszlopa mellé!
3, A segédoszlop első cellájának a képlete (ha nincs fejléc és első sortól indul az adat és A-ban vannak az azonosítók) =IF(A1=A2;1;0). Ezt lemásolod az utolsó sorodig a segédoszlopban!
4, Jelöld ki a segédoszlopot és nyomj egy Ctrl+c-t!
5, Ctrl+Shift+v vagy Edit>Paste special. Csak a Numbers-t hagyod kipipálva és rámásolod a vágólapot a segédoszlopra (gyakorlatilag a segédoszlop képleteit felülírod saját értékükkel)
6, Rendezd az adattartományt a segédoszlopra!
7, Töröld az összes sort amiben a segédoszlop cellájának az értéke =1!
8, Töröld a segédoszlopot is!
Nem magamtól vagyok ilyen okos
Innen szedtem.Ja és ki is próbáltam OOo.Calc 3.1.1-ben
-
-
biker
nagyúr
Delila: elküldtem a kérdéses filet. excel alatt (2004 for mac) még annyira sem jó, mint openoffice alatt, ugyanis ott vagy #hiányzik, vagy a helyes érték jön vissza.
Excelben vagy #n/a vagy #href jön vissza, sosem a helyes érték.Ha véletlen lesz időd rá, nagyon megköszönném
És az excel is úgy sorrendezi a szám jellegű mezőimet (kétszer is elenőriztem, számra van állítva, az sql exportnál is INT alapú mező volt!) hogy pl 42998, 42999, 43, 4300, 43000, 43001 stb
ez viszont text-re utal...
wtf? -
Delila_1
veterán
Ez azért van, mert bár szám külleműek az adataid, szöveg formátumúak. Körülményesen úgy tudnád átalakítani, hogy az egész tartományt szám formátumúra állítod, de egyenként le kellene enterezni utána mindet.
Egyszerűbben is lehet, szorozd meg az adatokat 1-gyel. Excelben ennek a módja: beírsz egy cellába egy 1-est, másolod, kijelölöd a felszorzandó tartományt, jobb klikk, Irányított beillesztés, Szorzás.
Figyelj arra, hogy mindegyik táblázatodban számként szerepeljenek az összehasonlítandó adatok. -
Delila_1
veterán
Mindig új dolgot kérsz! Először két lap volt (az is űrlap), majd 3, más nevekkel, és más oszlopokból akartad kinyerni az adatokat, most a lapnév nem stimmel.
Amit ooo-nak nézel, az O betű, kettőspont, újabb O betű, a pontosvessző után pedig nulla.
Próbáld meg eszerint. Ha nem jön össze, küldd el a füzetet. Ígérem, hogy ma bele sem nézek, legfeljebb holnap.
-
-
#8198
Fire/SOUL/CD
félisten
biker
#8193
-
#8192
Fire/SOUL/CD
félisten
biker
#8191
-
perfag
aktív tag
Nem jó a megszólításod, Excel guruk: John Walkenbach, Ole P. Erlandsen, Ole P. Erlandsen ... a jelszavas védelemről meg annyit, hogy én pl. az ő munkáikból tanultam már 15 éve is oly módon, hogy okos kis orosz programocskák segítettek megnyitni a fájljaik VBA kódját. A mai napig John Walkenbach jelszavával védem le én is a fájljaimat a mester iránti tiszteletből!
-
Delila_1
veterán
A "hónapok" listában dátumként add meg az értékeket (2010.01.01.; 2010.02.01, stb). a formátumuk legyen az egyéni kategóriában hhhh, akárcsak azé az oszlopé, ahol elő akarod csalni a hónapok nevét.
Az érvényesítés alatti sor képlete =EOMONTH(A1;1), azt véve alapul, hogy A1-ben van a legördülő. Ezt a képletet másold le 11 soron át.
Ha az EOMONTH nem szerepel a függvényeid között, kapcsold be az Eszközök/Bővítménykezelőben az Analysis kezdetű két bővítményt.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Kedvenc zene a mai napra
- Google Pixel topik
- Világ Ninjái és Kódfejtői, egyesüljetek!
- Windows Insider Program
- E-roller topik
- Külföldi rendelések: boltok, fizetés, postázás
- Kuponkunyeráló
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- Vezetékes FEJhallgatók
- EA Sports WRC '23
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Vírusirtó, Antivirus, VPN kulcsok
- Antivírus szoftverek, VPN
- Telefon felvásárlás! Samsung Galaxy A15, Samsung Galaxy A25, Samsung Galaxy A35, Samsung Galaxy A55
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
- Bomba ár! Lenovo Miix 510-12IKB : i5-7G I 8GB I 256GB SSD I 12" Touch I Cam I W11 I Garancia!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 7600XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest