For iCount% = 0 To 99
If Text1(iCount%).Text <> "" Then
iRow% = iCount% \ 10
iColumn% = iCount% Mod 10
iXLWb.Worksheets("Лист1"). _
Range("B2").Offset(iRow%, iColumn%).Value = _
Text1(iCount%).Text: Text1(iCount%).Text = ""
End If
Next
Спешиал фо Спешиалистс (Pashulka, Where are you?)
есть 100 textBox ( text1 c i 0-99 )
нужно чтобы
для всех text1(i) с i= от 0 до 9 заполнялись СТРОКИ в книге Excel B2,C2,E2,F2..K2
для всех text1(i) с i= от 10 до 19 заполнялись СТРОКИ в книге Excel B3,C3,E3,F3..K3
для всех text1(i) с i= от 20 до 29 заполнялись СТРОКИ в книге Excel B4,C4,E4,F4..K4
..........................
для всех text1(i) с i= от 90 до 99 заполнялись СТРОКИ в книге Excel B11,C11,E11,F11..K11
для етого пытался модифицировать следующее:
[COLOR=blue]
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Excel\1.xls"
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
For iCount% = 0 To 19
iXLWb.Worksheets("Ëèñò1").Range("b2").Offset(iCount%).Value = Text1(iCount%).Text
Next
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
[/COLOR]
но Ранже -ето же столбец...поетому не то :(
ПОМОГИТЯЯЯЯЯЯЯЯЯ P(
нужно чтобы
для всех text1(i) с i= от 0 до 9 заполнялись СТРОКИ в книге Excel B2,C2,E2,F2..K2
для всех text1(i) с i= от 10 до 19 заполнялись СТРОКИ в книге Excel B3,C3,E3,F3..K3
для всех text1(i) с i= от 20 до 29 заполнялись СТРОКИ в книге Excel B4,C4,E4,F4..K4
..........................
для всех text1(i) с i= от 90 до 99 заполнялись СТРОКИ в книге Excel B11,C11,E11,F11..K11
для етого пытался модифицировать следующее:
[COLOR=blue]
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Excel\1.xls"
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
For iCount% = 0 To 19
iXLWb.Worksheets("Ëèñò1").Range("b2").Offset(iCount%).Value = Text1(iCount%).Text
Next
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
[/COLOR]
но Ранже -ето же столбец...поетому не то :(
ПОМОГИТЯЯЯЯЯЯЯЯЯ P(
Код:
Примечание : Проверку нужно убрать, если пустая строка "" используется для того, чтобы "очистить" ячейку.
Вроде придумал кое-что но не работает( видать условие "или" подводит:( )
[COLOR=blue]
Private Sub Command1_Click()
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Kurs@\Excel\1.xls"
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
For iCount% = 0 To 99
If iCount% = 0 Or 10 Or 20 Or 30 Or 40 Or 50 Or 60 Or 70 Or 80 Or 90 Then
iXLWb.Worksheets("Ëèñò1").Range("B2").Offset(iCount% Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 1 Or 11 Or 21 Or 31 Or 41 Or 51 Or 61 Or 71 Or 81 Or 91 Then
iXLWb.Worksheets("Ëèñò1").Range("C2").Offset((iCount% - 1) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 2 Or 12 Or 22 Or 32 Or 42 Or 52 Or 62 Or 72 Or 82 Or 92 Then
iXLWb.Worksheets("Ëèñò1").Range("D2").Offset((iCount% - 2) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 3 Or 13 Or 23 Or 33 Or 43 Or 53 Or 63 Or 73 Or 83 Or 93 Then
iXLWb.Worksheets("Ëèñò1").Range("E2").Offset((iCount% - 3) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 4 Or 14 Or 24 Or 34 Or 44 Or 54 Or 64 Or 74 Or 84 Or 94 Then
iXLWb.Worksheets("Ëèñò1").Range("F2").Offset((iCount% - 4) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 5 Or 15 Or 25 Or 35 Or 45 Or 55 Or 65 Or 75 Or 85 Or 95 Then
iXLWb.Worksheets("Ëèñò1").Range("G2").Offset((iCount% - 5) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 6 Or 16 Or 26 Or 36 Or 46 Or 56 Or 66 Or 76 Or 86 Or 96 Then
iXLWb.Worksheets("Ëèñò1").Range("H2").Offset((iCount% - 6) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 7 Or 17 Or 27 Or 37 Or 47 Or 57 Or 67 Or 77 Or 87 Or 97 Then
iXLWb.Worksheets("Ëèñò1").Range("I2").Offset((iCount% - 7) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 8 Or 18 Or 28 Or 38 Or 48 Or 58 Or 68 Or 78 Or 88 Or 98 Then
iXLWb.Worksheets("Ëèñò1").Range("J2").Offset((iCount% - 8) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 9 Or 19 Or 29 Or 39 Or 49 Or 59 Or 69 Or 79 Or 89 Or 99 Then
iXLWb.Worksheets("Ëèñò1").Range("K2").Offset((iCount% - 9) Mod 10).Value = Text1(iCount%).Text
End If
Next
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
End Sub
[/COLOR]
[COLOR=blue]
Private Sub Command1_Click()
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Kurs@\Excel\1.xls"
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
For iCount% = 0 To 99
If iCount% = 0 Or 10 Or 20 Or 30 Or 40 Or 50 Or 60 Or 70 Or 80 Or 90 Then
iXLWb.Worksheets("Ëèñò1").Range("B2").Offset(iCount% Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 1 Or 11 Or 21 Or 31 Or 41 Or 51 Or 61 Or 71 Or 81 Or 91 Then
iXLWb.Worksheets("Ëèñò1").Range("C2").Offset((iCount% - 1) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 2 Or 12 Or 22 Or 32 Or 42 Or 52 Or 62 Or 72 Or 82 Or 92 Then
iXLWb.Worksheets("Ëèñò1").Range("D2").Offset((iCount% - 2) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 3 Or 13 Or 23 Or 33 Or 43 Or 53 Or 63 Or 73 Or 83 Or 93 Then
iXLWb.Worksheets("Ëèñò1").Range("E2").Offset((iCount% - 3) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 4 Or 14 Or 24 Or 34 Or 44 Or 54 Or 64 Or 74 Or 84 Or 94 Then
iXLWb.Worksheets("Ëèñò1").Range("F2").Offset((iCount% - 4) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 5 Or 15 Or 25 Or 35 Or 45 Or 55 Or 65 Or 75 Or 85 Or 95 Then
iXLWb.Worksheets("Ëèñò1").Range("G2").Offset((iCount% - 5) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 6 Or 16 Or 26 Or 36 Or 46 Or 56 Or 66 Or 76 Or 86 Or 96 Then
iXLWb.Worksheets("Ëèñò1").Range("H2").Offset((iCount% - 6) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 7 Or 17 Or 27 Or 37 Or 47 Or 57 Or 67 Or 77 Or 87 Or 97 Then
iXLWb.Worksheets("Ëèñò1").Range("I2").Offset((iCount% - 7) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 8 Or 18 Or 28 Or 38 Or 48 Or 58 Or 68 Or 78 Or 88 Or 98 Then
iXLWb.Worksheets("Ëèñò1").Range("J2").Offset((iCount% - 8) Mod 10).Value = Text1(iCount%).Text
ElseIf iCount% = 9 Or 19 Or 29 Or 39 Or 49 Or 59 Or 69 Or 79 Or 89 Or 99 Then
iXLWb.Worksheets("Ëèñò1").Range("K2").Offset((iCount% - 9) Mod 10).Value = Text1(iCount%).Text
End If
Next
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
End Sub
[/COLOR]