Developing.ru

На форме 8 Textbox's, Суть кода значения из 8 Textbox's разносятся в 8 ячеек.
Однако, все 8 ячеек заполняются знач . последнего Textbox.8
Помогите разобраться

Вод кусок кода:

Cells(NextRow +1, J) = Me.Controls("TextBox" & iCount).Text 'Value

NextRow = Application.WorksheetFunction.CountA(Range("dDAtоdD")) + 1

For J = 2 To 9
For iCount = 1 To 8

Cells(NextRow + 1, J) = Me.Controls("TextBox" & iCount).Text 'Value
With Worksheets("dDAtоdD").Cells(NextRow +1, J)

.Cells.Borders.LineStyle = xlContinuous
.WrapText = True
.Font.Size = 10
.Font.Name = "Times New Roman"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.ReadingOrder = xlContext
.RowHeight = 16
End With
Next
Next J

С уважением...

Рассмотрим часть кода: Раскрываем внутренний цикл: Теперь видно, что в одну и ту же ячейку записывались значения последовательно из всех TextBox. Последним было значение TextBox8, которое Вы и наблюдали

Попробуйте заменить Cells(NextRow + 1, J) на Cells(NextRow + iCount, J), или в конце цикла добавьте строку NextRow=NextRow+1

Здравствуйте seergy.
EducatedFool верно указал на причину проблемы, но судя по Вашему вопросу "значения из 8 Textbox's разносятся в 8 ячеек" мне кажется во вложении второго цикла нет необходимости совсем, массив заполняется одномерныйсоветую вынести команды форматирования ячеек за пределы цикла и задавать формат всего диапазона ячеек одновременно (рекомендация Microsoft)
Евгений.

Не помагает. Вот это поюзайте .....
С уважением...
Вот как правильно
For iCount = 6 To 13

Cells(NextRow + 5, iCount - 4) = Me.Controls("TextBox" & iCount).Text 'Value
With Worksheets("dDAtоdD").Cells(NextRow + 5, iCount - 4)

.Cells.Borders.LineStyle = xlContinuous
.WrapText = True
.Font.Size = 10
.Font.Name = "Times New Roman"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.ReadingOrder = xlContext
.RowHeight = 16
End With
Next
Спасибо всем.......

Здравствуйте seergy
"Не помагает. Вот это поюзайте ...."
В Вашем примере неверно построено вложение циклов.
Евгений.

Да вы правы. Пришёл к тому же мнению...
Спасибо за оперативную помощь...
С уважением...