Interpretacja kodu Vba- Exel

kamils336

New Member
Dołączył
3 Marzec 2014
Posty
3
Punkty reakcji
0
Witam :) chciałbym wiedzieć co w tym programie robi funkcja Len i Mid. Za co one są odpowiedzialne? Jest mi ktoś w stanie pomóc?
Kod:
Dim d As String
Dim g As String
Dim varTablica(1 To 35) As String
Dim varTablica2(1 To 35) As Integer
Dim dlugosc As Integer
Dim x As Integer
Dim dl As Integer
Dim j As Integer
pom = ""

If (TextBox1 = "" Or TextBox2 = "") Then
MsgBox ("Wpisz liczbę z przedziału 1-10000")
 Else
  If IsNumeric(TextBox1) = False Or IsNumeric(TextBox2) = False Then
  MsgBox ("Wpisna wartość nie jest liczbą")
   Else
    If CInt(TextBox1) > CInt(TextBox2) Then
    MsgBox ("Górna granica przediału musi być większa od dolniej")
     Else
      If CInt(TextBox1) = CInt(TextBox2) Then
      MsgBox (" Ten przedział zawiera tylko jedną liczbę")
       Else
        If CInt(TextBox1) < 0 Or CInt(TextBox2) < 0 Then
        MsgBox ("Przedział musi zawierac tylko liczby nieujemne")
        Else
         If CInt(TextBox1) > 10000 Or CInt(TextBox2) > 10000 Then
         MsgBox ("Sprawdzane liczby muszą należeć do przedziału (0;10000)")
         Else
       
 
        
          d = Val(TextBox1)
          g = Val(TextBox2)
          For i = d To g
            pom = "   "
            a = Str(i)
            For j = Len(a) To 1 Step -1
                pom = pom & Mid(a, j, 1)
 

grzechuu1990

kawopijca
Dołączył
30 Wrzesień 2012
Posty
387
Punkty reakcji
114
Wiek
29
Miasto
MałaPolska
len zapewne zwraca wartość rowną rozmiarowi wektora A.


mid - nie mam pojecia może jakies sortowanie
 

Gressil

Administrator
Członek Załogi
Administrator
Moderator
VIP
Dołączył
17 Kwiecień 2009
Posty
5 688
Punkty reakcji
488
Mid wyciąga część tekstu zawartego w komórce w formie: adres komórki, numer litery od której ma zostać rozpoczęte odczytywanie, ilość liter do odczytania np =MID(A1, 3, 6). Len zwraca długość ciągu znaków - parametrem w punkcji musi być tekst przykład: w komórce A1 masz słowo "pies", po wpisaniu =LEN(A1) w komórce wyświetli się "4"
 

kamils336

New Member
Dołączył
3 Marzec 2014
Posty
3
Punkty reakcji
0
Gressil napisał:
Mid wyciąga część tekstu zawartego w komórce w formie: adres komórki, numer litery od której ma zostać rozpoczęte odczytywanie, ilość liter do odczytania np =MID(A1, 3, 6). Len zwraca długość ciągu znaków - parametrem w punkcji musi być tekst przykład: w komórce A1 masz słowo "pies", po wpisaniu =LEN(A1) w komórce wyświetli się "4"
a co za znaczenie ma To 1 Step -1 które jest zaraz po Len(a)?
 

Gressil

Administrator
Członek Załogi
Administrator
Moderator
VIP
Dołączył
17 Kwiecień 2009
Posty
5 688
Punkty reakcji
488
"To 1 Step -1" to część pętli z VBA to znaczy, że odliczać będzie od liczby która zostanie zwrócona w "a" do 1. "-1" to długość "kroku" a 1 to wartość przy której odliczanie się zakończy.
 
Do góry