Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- N€T0X|N: Poloskahegy
-
LOGOUT
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- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- sziku69: Fűzzük össze a szavakat :)
- Redmi Note 12 Pro - nem tolták túl
- A Vivo S50 Pro mini is beáll a sorba
- Béta iOS-t használók topikja
- Jövedelem
- Bittorrent topik
- Mini PC
- GL.iNet Flint 2 (GL-MT6000) router
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- PC Game Pass előfizetés
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- BESZÁMÍTÁS! ASUS H510M i5 10500 16GB DDR4 512GB SSD RX 6600 8GB Zalman T4 Plus ADATA 600W
- HIBÁTLAN iPhone 12 mini 64GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3481, 100% Akksi
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4052, 100% Akkumulátor
- GYÖNYÖRŰ iPhone 12 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS2927, 100% Akkumulátor
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest