- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Milyen okostelefont vegyek?
- Android alkalmazások - szoftver kibeszélő topik
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Xiaomi Mi 11 Ultra - Circus Maximus
- Apple Watch Sport - ez is csak egy okosóra
- OnePlus 7 - magabiztos folytatás
- Redmi Note 9 Pro [joyeuse]
- Nem fogod kitalálni, mire fókuszál a Dimensity 9300+
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
Hirdetés
-
Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
ph A cég megoldása centralizált vezérelhetőséggel, masszív radiátorral és robusztus ventilátorokkal igyekszik vásárlásra csábítani.
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Friss traileren a Commandos Origins
gp A játék elvileg idén debütál, első naptól elérhető lesz Game Pass előfizetők számára.
-
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
-
Fferi50
őstag
válasz attilalr2 #28000 üzenetére
Szia!
Próbáld ki ezt a makrót:
Sub cserelo(ByRef rng As Range, ByVal mit As String, ByVal mire As String)
Dim cl As Range, xx As Integer
If Len(mit) <> Len(mire) Then MsgBox "Nem egyforma a két szöveg!", vbInformation: Exit Sub
For Each cl In rng.Cells
If Not IsEmpty(cl) Then
For xx = 1 To Len(mit)
cl.Value = Replace(cl.Value, Mid(mit, xx, 1), Mid(mire, xx, 1))
Next
End If
Next
End SubA VBA nézet immediate ablakából indíthatod, pl. így:
cserelo Sheets("Munka1").Range("A1:C72"),"áéó","aeo" a végén enter.Tehát az első paraméter a tartomány címe (vba-szerint beírva), a második a cserélendő betűk, a harmadik pedig amire cserélni kell. A második és a harmadik paramétert "szinkronban" kell tartani, mert az azonos pozícióban levő betűket cseréli (tehát első betűt az elsőre, második betűt a másodikra és így tovább).
Üdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Kertészet, mezőgazdaság topik
- Xbox Series X|S
- Samsung Univerzum: Az S23-at is megbabonázta a Galaxy AI
- Milyen okostelefont vegyek?
- Házimozi belépő szinten
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Kínában túl sok az EV, fokozódik az árháború
- A Samsung hazánkban is piacra dob idén egy friss Micro LED tévét
- Gitáros topic
- További aktív témák...
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- World of Warcraft Shadowlands Collectors edition EU EN
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.