-
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
-
#47789
Fire/SOUL/CD
félisten
moma
#47784
1. Notepadd++ letöltjük (van Portable változata, Én is azt használtam)
2. Excel és Notepadd++ elindítjuk, Excelben terület kijelöljük és CTRL+C, Notepad++ ba átmegyünk és CTRL+V
3. Elindítjuk a makrórögzítést
4. Duplaklikk az egy szóközön (így kijelöli az összeset a szavak közt), majd CTRL+H
5. Lecseréljük a szóköz csoportokat | karakterre
6. Minden sor elejére beszúrjuk a | karaktert
7. Minden sor végére is beszúrjuk a | karaktert
8. Megállítjuk a makrórögzítést és elmentjük későbbre (valami beszédes néven ill. bill. kombót rendelünk hozzá), hogy legközelebb már egy kattintással végigjátssza a 4.-7. pontokat automatikusan. (értelem szerűen már csak a Excel-ből copy-paste-l kell csak az adatokat átvinni és a makrórögzítést sem kell indítani) -
-
-
#47781
Fire/SOUL/CD
félisten
moma
#47778
-
Mutt
senior tag
Szia,
Abban kéne segítség, hogy az megcsinálható, hogy kijelölök egy oszlopban cellákat, amikben van szöveg, és szövegek elég tegyen be sorszámokat a kijelölt cellákba.
Az alábbi makró tud segíteni, a kommentek alapján szerintem te is tudsz rajta igazítani.
Beletettem egy plusz opciót hogy tömegesen el lehessen távolítani a sorszámot.Sub Sequencing()
Dim num As Long
Dim changedCells As Long
Dim selectionArea As Range
Dim currentCell As Range
'kijelölés megjegyzése
Set selectionArea = Selection
'beviteli mező hogy lehessen a sorszámot megadni
num = Application.InputBox(Prompt:="Kezdő sorszám (-1 esetén törli a sorszámot): ", Title:="Számozás", Default:=1, Type:=1)
'mégsem esetén álljunk le
If num = 0 Then
Exit Sub
End If
For Each currentCell In selectionArea
'csak olyan cellák érdekelnek amelyek nem üresek és képletet sem tartalmaznak
If currentCell.Value <> "" And currentCell.HasFormula = False Then
If num = -1 Then
'töröljük a cella elejéről a sorszámot ha van
currentCell.Value = RemoveTrailingNumbers(currentCell.Value)
changedCells = changedCells + 1
Else
'hozzáadjuk a sorszámot a cella elejére
currentCell.Value = num & ". " & currentCell.Value
num = num + 1
changedCells = changedCells + 1
End If
End If
Next currentCell
'visszajelzés
If changedCells = 0 Then
MsgBox "Nincs módosítás", vbOKOnly, "Számozás"
Else
MsgBox changedCells & " cella lett változtatva", vbOKOnly, "Számozás"
End If
End Sub
Function RemoveTrailingNumbers(s As String) As String
Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
'^ - csak a szöveg elején lévő dolgokat nézi
'\d+ - számjegy ami legalább egyszer megtalálható
'\. - pontot keresük
'\s* - whitespacet (szóköz, tab, sortörtés) keresünk
regEx.Pattern = "^\d+\.\s*"
RemoveTrailingNumbers = regEx.Replace(s, "")
End Function
üdv -
Delila_1
veterán
Fferi válaszán felbuzdulva a personalomba tettem egy rövid makrót, ami a szerkesztőlécet ki-bekapcsolja.
Ikont, és/vagy gyorsbillentyűt rendelhetsz hozzá. A 2003-as verzióban még saját rajzzal is el tudod látni az ikont.Sub Szerkesztolec()
If Application.DisplayFormulaBar = True Then
Application.DisplayFormulaBar = False
Else
Application.DisplayFormulaBar = True
End If
End SubA personal szóra rákeresve több hsz-t találsz, amik leírják, mit kell tenned.
-
lapa
veterán
eszközök --> beállítások --> számolás --> kézi pl.
ilyenkor ha valamit számolna megjelenik a státuszbárban vmi jelzés nem is tudom hirtelen micsoda. F9 számol ilyenkor meg úgy általában is. csak figyelj oda nagyon, csúnyákat lehet szívni ha elfelejted miért nem kapsz értéket valamire...
egyébként olyankor szokott belassulni, ha már számolt cellák eredményétől teszel függővé más cellákat újra meg újra. próbáld meg zanzásítani a képleteket szvsz. vagy dobd be ide, hátha tud vki erőforráskímélőbb megoldásokat.
jó ötlet lehet az is, ha a már ''kész'' (későbbiekben nem változó) képleteket kijelölöd --> másolás --> irányított beillesztés --> értéket. ekkor kicseréli a képletet a cellákban az eredményre és ezeket már nem kell újraszámolgatnia. -
lapa
veterán
nemtom hogyan érdemes, nekem szerencsére volt és van elég megoldandó feladatom ahhoz, hogy mindig legyen mit tanulnom. szerintem ez fontosabb, mint az, hogy könyvet, súgót vagy internetet használ az ember. a könyvet személy szerint mondjuk pont emiatt hanyagolom, nehezebb keresni benne.
Új hozzászólás Aktív témák
Fferi50- sziku69: Fűzzük össze a szavakat :)
- Formula-1 humoros
- Luck Dragon: Asszociációs játék. :)
- Milyen légkondit a lakásba?
- MWC 2026: Kezünkben a Vivo V70, megvan a magyar ára is
- Ilyen olcsó sem volt még egy Apple notebook
- Lakáshitel, lakásvásárlás
- A fociról könnyedén, egy baráti társaságban
- MWC 2026: Úgy kell ide az aktív hűtés, mint kígyónak a sportcipő
- Assetto Corsa Rally
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- iKing.Hu - Google Pixel 10 Pro 5G Porcelain AI-fotó varázs, Super Actua 120 Hz 128 GB
- Honor X7b / 6/128GB / Kártyafüggetlen / 12Hó Garancia
- 194 - Lenovo Legion 5 (15IRX10) - Intel Core i9-14900HX, RTX 5070 (ELKELT)
- GYÖNYÖRŰ iPhone SE 2020 256GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS4003
- Samsung Galaxy S23 Ultra 8/256GB - Kártyafüggetlen, Fekete - 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest