цикл for vba excel
Автор Dick Wood задал вопрос в разделе Другие языки и технологии
Внесение значений в ячейки через цикл For в vba Excel и получил лучший ответ
Ответ от DsD[гуру]
что за "ЯчейкаА"? это как понимать?
где объявление i?
а как нужно?
хоть с присвоением по +3 на шаг.
нужны именно выделенные? делать что-то на селектах всегда было плохой идеей
вы хоть проверили бы хоть чему равно ваше "КолличествоСтрок"
в данном случае это скорее Areas а не Rows.
DsD
Мыслитель
(8680)
Dim KolichestvoStrok As Integer
KolichestvoStrok = Selection.Rows.Count
количество разделённых областей не укажет, уже писал об этом
Ответ от Полосатый жираф Алик[гуру]
И что ты бьёшься..
Sub Each1()
Dim ar As Range
Dim C As Range
Dim i As Integer
Set ar = Selection
' это - если хочется увидеть, сколько ячеек выделено
i = ar.Cells.Count
MsgBox i
' если не нужно - можно удалить этот кусок
i = 1
For Each c In ar
c = i
i = i + 1
Next
End Sub
Заполнение будет в том же порядке, в котором выделялись ячейки...
И что ты бьёшься..
Sub Each1()
Dim ar As Range
Dim C As Range
Dim i As Integer
Set ar = Selection
' это - если хочется увидеть, сколько ячеек выделено
i = ar.Cells.Count
MsgBox i
' если не нужно - можно удалить этот кусок
i = 1
For Each c In ar
c = i
i = i + 1
Next
End Sub
Заполнение будет в том же порядке, в котором выделялись ячейки...
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Внесение значений в ячейки через цикл For в vba Excel
Цикл for в excel vba
Запустите этот примерчик кода и увидите то, что вам нужно.
Dim i As Integer
Dim
подробнее...
спросили в Sugar Ray V10 0
Как записать в VBA excel функцию максимум?
на вот. сам разбирайся:
Sub ExitForDemo()
MaxVal =
подробнее...
Как записать в VBA excel функцию максимум?
на вот. сам разбирайся:
Sub ExitForDemo()
MaxVal =
подробнее...
VBA Excel
p = 1
for i = 1 to size
if (not a[ i ] пустое) then я тут хз как проверять на пустоту,
подробнее...
Помогите сделай генератор случайных чисел на VBA excel
For q = 1 To 4
Cells(1, q) = Int(22 * Rnd) + 1
Next
числа будут от 1 до 22
но
подробнее...
как в VBA Excel прописать поиск в ячейке, которая содержит нужный набор символов(например "Казань") и в случае выполнени
Поиск в одной ячейке или в диапазоне? Обязательно на ВБА или просто формулой?
Олег
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
Подскажите как обратиться к символу в строке (VBA)
Увидел begin и чуть не получил разрыв сердца.
Неужели, думаю, создали Delphi Applications for
подробнее...
спросили в Taobao
run-time error 13 type mismatch Excel
Вы где ставите еочку перед Cells, а где нет. Без точки значения не определены. Ваш код с точками
подробнее...
run-time error 13 type mismatch Excel
Вы где ставите еочку перед Cells, а где нет. Без точки значения не определены. Ваш код с точками
подробнее...
как в VBA for Application заполнить поле со списком из ячеек Excel
Вообще код так выглядит:
ComboBox1.AddItem (лист2.Range("A1").Value)
ComboBox1 -
подробнее...
спросили в Selection
Excel, VBA
Объект Selection.
Количество столбцов - Selection.Columns.Count
Количество строк -
подробнее...
Excel, VBA
Объект Selection.
Количество столбцов - Selection.Columns.Count
Количество строк -
подробнее...
Помощь в написание программы на VBA
А не проще из Access подцепить таблицу Excel в качестве источника данных и там уже можно
подробнее...
Поиск по именам вкладок в Excel?
Когда стопиццот листов, то переход от одного листа к другому можно сделать так. Кликнуть правой
подробнее...
спросили в Selection
нужна помощь.(VBA Excel)
Dim R As Range Описание переменной R
+-With ActiveSheet в активном листе
| Set R =
подробнее...
нужна помощь.(VBA Excel)
Dim R As Range Описание переменной R
+-With ActiveSheet в активном листе
| Set R =
подробнее...