- Mobilinternet
- Windows 10
- Milyen routert?
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- QNAP hálózati adattárolók (NAS)
- Max
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen program, ami...?
- Pénzt akar a WhatsAppból a Meta, az AI majd segít
- Perelnek a vallásos kripto-piramisjáték miatt
-
IT café
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
Topikgazda
Sub Csere()
Range("A1:A1000").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
For Each cv In Worksheets("Munka1").Range("A1:A1000")
Range(cv.Address) = Left(cv.Value, Len(cv.Value) - 3)
Next
End SubEz a makró megcsinálja mindegyik cserét, de a futtatása előtt a Range("A1:A1000")-et két helyen, és a Munka1-et írd át a saját értékeidre.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fehér Mancs
tag
A probléma az, hogy a macro a számokat angolosan látja, vagyis tizedesvesszőként pont szerepel; ha azt kicseréled, akkor elvész a nagyságrend. (A visszaírásnál is így kell megadni).
Két megoldást látok:
- egyik, hogy az excelbe való betöltésnél kezeljük ezt le (Tools->Options->International menüpontban be kell állítani a konvertálás idejére a ","-ős ezresválasztót és "."-os tizedesvesszőt.- másik, hogy a macro csak a szöveges mezőket alakítja át, angolos lelkületűre (futtatás előtt ki kell választani az átalakítandó cellákat):
Sub Macro6()
Dim rngCell As Range
For Each rngCell In ActiveWindow.RangeSelection
If VarType(rngCell.Value) = vbString Then
rngCell.Replace What:=".", Replacement:=""
rngCell.Replace What:=",", Replacement:="."
End If
Next rngCell
End SubReméljük ez megoldja a problémát.
Új hozzászólás Aktív témák
- Politika
- Nézzük élőben az este folyamán érkező Xbox Games Showcase 2024-et!
- BestBuy topik
- Doom Eternal
- Mibe tegyem a megtakarításaimat?
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Bivalyerős lett a Poco F6 és F6 Pro
- PlayStation 5
- exHWSW - Értünk mindenhez IS
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen