Hirdetés
- Honor Magic8 Lite - a félig sikerült bűvésztrükk
- iPhone topik
- VoLTE/VoWiFi
- Így spórolhat az Apple az iPhone 18 kijelzőin
- Xiaomi 13 - felnőni nehéz
- Külföldi prepaid SIM-ek itthon
- Fittyet hány a pesti napfényre a Honor 600
- Samsung Galaxy S26 - szeret, nem szeret
- MIUI / HyperOS topik
- Fotók, videók mobillal
-
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
-
#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
Hirdetés
Fferi50- Eredeti játékok OFF topik
- Gitáros topic
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Honor Magic8 Lite - a félig sikerült bűvésztrükk
- Július 9-én jön az Assassin’s Creed: Black Flag Resynced
- Fejhallgató erősítő és DAC topik
- Facebook és Messenger
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- MotoGP & WSBK
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Microsoft Office 2024 Home Business dobozos
- The Elder Scrolls Online Imperial Collector s Edition
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- HIBÁTLAN iPhone 11 64GB White-1 ÉV GARANCIA - Kártyafüggetlen, MS4389, 100% Akksi
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB DDR5 RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- Micron 3400 512GB M.2 PCIe Gen4 SSD! 6600-3600MB/s
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Ulefone RugKing Pad Pro strapatablet
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest