Új hozzászólás Aktív témák

• mimi_bacsi tag

  #4182

  #4181 Fire/SOUL/CD

  2008-12-11 09:28:22

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  mimi_bacsi

  tag

  #4181 Fire/SOUL/CD

  #4181 Fire/SOUL/CD

  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 Sub

  A 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.

  Köszönöm a válaszodat, ma vagy holnap (idő hiányában) kipróbálom!!!

Új hozzászólás Aktív témák