- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Google Pixel topik
- Mobil flották
- Milyen okostelefont vegyek?
- Xiaomi 14T - nem baj, hogy nem Pro
- Huawei Watch GT 5 Pro - egészség + stílus
- Samsung Galaxy A55 - új év, régi stratégia
- iPhone topik
- Bemutatkozott a Poco X7 és X7 Pro
- Szerkesztett és makrofotó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
-
válasz
mimi_bacsi #4180 üzenetére
Hali!
A SPLIT a megoldás, helyezz el a lapon egy CommandButton-t, írja be valamit egy cellába, állj rá, katt...
Münkafüzet1 - Munka1(Code)
Private Sub CommandButton1_Click()
Dim x() As String
xstr = ActiveCell.Value
xstrlen = Len(xstr)
Pos = InStr(1, xstr, "/", vbTextCompare)
Rem Ez csak egy ellenőrzés, hogy NE LEGYEN ÜRES CELLA
Rem LEGALÁBB 3 KARAKTER SZEREPELJEN (pl 1/a)
Rem és LEGALÁBB EGY ELVÁLASZTÓ-KARAKTERT ("/") TARTALMAZZON
If Not (IsEmpty(xstr)) And xstrlen >= 3 And Pos <> 0 Then
x = Split(ActiveCell.Value, "/")
MsgBox ("Adat1 = " & x(0) & vbCrLf & "Adat2 = " & x(1))
Cells(ActiveCell.Row, ActiveCell.Column + 1) = x(0)
Cells(ActiveCell.Row, ActiveCell.Column + 2) = x(1)
End If
End SubA Split visszaad egy string-tömböt, amiben egyel több string lesz, mint ahány elválasztó-karakter. Ezekre, hagyományos módon 0-tól kezdődő indexel tudsz hivatkozni.
A sok feltétel azért kellett, mert különben hibát dob.(ha üres, meg nincs bent elválasztó, stb)Fire.
Új hozzászólás Aktív témák
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Nyíregyháza és környéke adok-veszek-beszélgetek
- LED világítás a lakásban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Milyen légkondit a lakásba?
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Mibe tegyem a megtakarításaimat?
- Ingatlanos topic!
- Soundbar, soundplate, hangprojektor
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Telefon felvásárlás!! Huawei P20 Lite/Huawei P20/Huawei P30 Lite/Huawei P30/Huawei P30 Pro
- Xiaomi Redmi Note 13 Pro 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- iKing.Hu - Apple iPhone 13 Pro Max - Graphite - Használt, újszerű
- Telefon felvásárlás!! Apple iPhone SE (2016), Apple iPhone SE2 (2020), Apple iPhone SE3 (2022)
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest