VBA - EXCEL добавление данных в лист
Формулировка задачи:
Доброго Вам времени суток
Уважаемые господа
при наличии времени прошу Вас помочь
вот таким образом я помещаю первую строку данных в указанный лист
Worksheets("Отчет").Range("C9") = "1"
Worksheets("Отчет").Range("D9") = "2"
Worksheets("Отчет").Range("E9") = "3"
Worksheets("Отчет").Range("F9") = "4"
Worksheets("Отчет").Range("G9") = "5"
Worksheets("Отчет").Range("H9") = "6"
Worksheets("Отчет").Range("I9") = "7"
запись данных должна начинаться с девятой строчки
как добавить вторую, третью и т.д. строку данных в этот лист ?
я понимаю так
1. проверить не забита ли строка 9,10,11 и т.д.
2. передать в переменную номер незабитой строки
3. добавить данны
пробовал так
ctname = 9
If Worksheets("Отчет").Range("C" + ctname) = "" Then
Worksheets("Отчет").Range("C" + ctname) = "1"
Worksheets("Отчет").Range("D" + ctname) = "2"
Worksheets("Отчет").Range("E" + ctname) = "3"
Worksheets("Отчет").Range("F" + ctname) = "4"
Worksheets("Отчет").Range("G" + ctname) = "5"
Worksheets("Отчет").Range("H" + ctname) = "6"
Worksheets("Отчет").Range("I" + ctname) = "7"
esle
ctname = ctname = +1
а вот как быть дальше не могу сообразить
возможно я мудрю или делаю все через голову
мне надо добавлять строки в этот лист от определенной позиции в данном случае от 9 строки
С Уважением и Благодарностью
Намик
Уважаемые господа
при наличии времени прошу Вас помочь
вот таким образом я помещаю первую строку данных в указанный лист
Worksheets("Отчет").Range("C9") = "1"
Worksheets("Отчет").Range("D9") = "2"
Worksheets("Отчет").Range("E9") = "3"
Worksheets("Отчет").Range("F9") = "4"
Worksheets("Отчет").Range("G9") = "5"
Worksheets("Отчет").Range("H9") = "6"
Worksheets("Отчет").Range("I9") = "7"
запись данных должна начинаться с девятой строчки
как добавить вторую, третью и т.д. строку данных в этот лист ?
я понимаю так
1. проверить не забита ли строка 9,10,11 и т.д.
2. передать в переменную номер незабитой строки
3. добавить данны
пробовал так
ctname = 9
If Worksheets("Отчет").Range("C" + ctname) = "" Then
Worksheets("Отчет").Range("C" + ctname) = "1"
Worksheets("Отчет").Range("D" + ctname) = "2"
Worksheets("Отчет").Range("E" + ctname) = "3"
Worksheets("Отчет").Range("F" + ctname) = "4"
Worksheets("Отчет").Range("G" + ctname) = "5"
Worksheets("Отчет").Range("H" + ctname) = "6"
Worksheets("Отчет").Range("I" + ctname) = "7"
esle
ctname = ctname = +1
а вот как быть дальше не могу сообразить
возможно я мудрю или делаю все через голову
мне надо добавлять строки в этот лист от определенной позиции в данном случае от 9 строки
С Уважением и Благодарностью
Намик
Решение задачи: «VBA - EXCEL добавление данных в лист»
textual
Листинг программы
Worksheets(<font color="teal">"Отчет"</font>).Range(<font color="teal">"C3"</font>).<font color="blue">End</font>(xlDown).Offset(<font color="darkblue"><b>1</b></font>,<font color="darkblue"><b>0</b></font>)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д