Запись в диапазон ячеек циклом
yaweg87
Дата: Четверг, 30.09.2021, 16:25 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Добрый день. Помогите, пожалуйста, упростить макросик циклом Я понимаю, что это просто, но vba не знаю от слова совсем. :facepalm: Нужно записать числа от 1 до 30 в диапазон ячеек B11:B25; D11:D25 [vba]Код
Sub Record() Range("B11") = "1" Range("B12") = "2" Range("B13") = "3" Range("B14") = "4" Range("B15") = "5" Range("B16") = "6" Range("B17") = "7" Range("B18") = "8" Range("B19") = "9" Range("B20") = "10" Range("B21") = "11" Range("B22") = "12" Range("B23") = "13" Range("B24") = "14" Range("B25") = "15" Range("D11") = "16" Range("D12") = "17" Range("D13") = "18" Range("D14") = "19" Range("D15") = "20" Range("D16") = "21" Range("D17") = "22" Range("D18") = "23" Range("D19") = "24" Range("D20") = "25" Range("D21") = "26" Range("D22") = "27" Range("D23") = "28" Range("D24") = "29" Range("D25") = "30" End Sub
[/vba]
Добрый день. Помогите, пожалуйста, упростить макросик циклом Я понимаю, что это просто, но vba не знаю от слова совсем. :facepalm: Нужно записать числа от 1 до 30 в диапазон ячеек B11:B25; D11:D25 [vba]Код
Sub Record() Range("B11") = "1" Range("B12") = "2" Range("B13") = "3" Range("B14") = "4" Range("B15") = "5" Range("B16") = "6" Range("B17") = "7" Range("B18") = "8" Range("B19") = "9" Range("B20") = "10" Range("B21") = "11" Range("B22") = "12" Range("B23") = "13" Range("B24") = "14" Range("B25") = "15" Range("D11") = "16" Range("D12") = "17" Range("D13") = "18" Range("D14") = "19" Range("D15") = "20" Range("D16") = "21" Range("D17") = "22" Range("D18") = "23" Range("D19") = "24" Range("D20") = "25" Range("D21") = "26" Range("D22") = "27" Range("D23") = "28" Range("D24") = "29" Range("D25") = "30" End Sub
[/vba] yaweg87
Ответить
Сообщение Добрый день. Помогите, пожалуйста, упростить макросик циклом Я понимаю, что это просто, но vba не знаю от слова совсем. :facepalm: Нужно записать числа от 1 до 30 в диапазон ячеек B11:B25; D11:D25 [vba]Код
Sub Record() Range("B11") = "1" Range("B12") = "2" Range("B13") = "3" Range("B14") = "4" Range("B15") = "5" Range("B16") = "6" Range("B17") = "7" Range("B18") = "8" Range("B19") = "9" Range("B20") = "10" Range("B21") = "11" Range("B22") = "12" Range("B23") = "13" Range("B24") = "14" Range("B25") = "15" Range("D11") = "16" Range("D12") = "17" Range("D13") = "18" Range("D14") = "19" Range("D15") = "20" Range("D16") = "21" Range("D17") = "22" Range("D18") = "23" Range("D19") = "24" Range("D20") = "25" Range("D21") = "26" Range("D22") = "27" Range("D23") = "28" Range("D24") = "29" Range("D25") = "30" End Sub
[/vba] Автор - yaweg87 Дата добавления - 30.09.2021 в 16:25
Nic70y
Дата: Четверг, 30.09.2021, 16:33 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
0% ±
Excel 2010
вариант [vba]Код
Sub Record() Application.ScreenUpdating = False i = 0 For Each c In Range("b11:b25,d11:d25") i = i + 1 Range(c.Address) = i Next Application.ScreenUpdating = True End Sub
[/vba]
вариант [vba]Код
Sub Record() Application.ScreenUpdating = False i = 0 For Each c In Range("b11:b25,d11:d25") i = i + 1 Range(c.Address) = i Next Application.ScreenUpdating = True End Sub
[/vba] Nic70y
ЮMoney 41001841029809
Ответить
Сообщение вариант [vba]Код
Sub Record() Application.ScreenUpdating = False i = 0 For Each c In Range("b11:b25,d11:d25") i = i + 1 Range(c.Address) = i Next Application.ScreenUpdating = True End Sub
[/vba] Автор - Nic70y Дата добавления - 30.09.2021 в 16:33
Gustav
Дата: Четверг, 30.09.2021, 18:11 |
Сообщение № 3
Группа: Админы
Ранг: Участник клуба
Сообщений: 2769
Репутация:
1140
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
Чой-то Вы, батенька, как-то с переборчиком тут, проще надо, проще: [vba][/vba]
Чой-то Вы, батенька, как-то с переборчиком тут, проще надо, проще: [vba][/vba] Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение Чой-то Вы, батенька, как-то с переборчиком тут, проще надо, проще: [vba][/vba] Автор - Gustav Дата добавления - 30.09.2021 в 18:11
Nic70y
Дата: Пятница, 01.10.2021, 10:37 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
0% ±
Excel 2010
та да, есть такое, отвлекают всякие - типа просят работать(
та да, есть такое, отвлекают всякие - типа просят работать( Nic70y
ЮMoney 41001841029809
Ответить
Сообщение та да, есть такое, отвлекают всякие - типа просят работать( Автор - Nic70y Дата добавления - 01.10.2021 в 10:37