سؤال : كيف يمكن الحصول على نتيجة محددة من خلال روتين عام

[ابو جودي]

فى الروتين الاتى قمت بطباعة كل نتيجة من خلال الامر  Debug.Print 

عدد مرات الطباعة من خلال الامر   Debug.Print 14 مرة

السؤال هو كيف يمكننا الخصول مثلا على النتيجة التى تخص Debug.Print digits(8 - 1)  فقط

Function SplitLong()

    Dim digits() As Long
    Dim intValue As String
    Dim i As Long
    Dim strValue As String

    intValue = "28202280101112"
    strValue = intValue

    ReDim digits(Len(strValue) - 1) As Long
      For i = 1 To Len(strValue)
          digits(i - 1) = Mid$(strValue, i, 1)
      Next

Debug.Print " 1  >---->> "; digits(1 - 1)
Debug.Print " 2  >---->> "; digits(2 - 1)
Debug.Print " 3  >---->> "; digits(3 - 1)
Debug.Print " 4  >---->> "; digits(4 - 1)
Debug.Print " 5  >---->> "; digits(5 - 1)
Debug.Print " 6  >---->> "; digits(6 - 1)
Debug.Print " 7  >---->> "; digits(7 - 1)
Debug.Print " 8  >---->> "; digits(8 - 1)
Debug.Print " 9  >---->> "; digits(9 - 1)
Debug.Print " 10  >---->> "; digits(10 - 1)
Debug.Print " 14  >---->> "; digits(11 - 1)
Debug.Print " 12  >---->> "; digits(12 - 1)
Debug.Print " 13  >---->> "; digits(13 - 1)
Debug.Print " 14  >---->> "; digits(14 - 1)


End Function

 

[محمد أبوعبدالله]

السلام عليكم

مرحبا استاذنا الفاضل

اعتقد انك تحتاج الى شرط محدد لتنفيذ العملية

If Mid$(strValue, 8, 1) = 0 Then Debug.Print " 8  >---->> "; digits(8 - 1)

تحياتي