Макрос для пересчета чисел в ячейках

@P_u_n_i_s_h_e_r · Регистрация: 24.04.2010

Студворк — интернет-сервис помощи студентам

ПРЕДПОЛОЖИМ В ЯЧЕЙКАХ A1:B4 содержатся некоторые цифры, любые.
Нужно все эти цифры разделить например на 28.
Т.е. идея вот в чем, пользователь выделяет некий диапазон ячеек, например A1:B4
и запускает макрос, макрос должен спросить число, вводим 28, и все числа в указаном диапазоне должны разделиться на 28.
Как можно это реализовать?
Трудность именно с работой в указанном диапазоне, как перемещаться от одной ячейки к другой, последовательно?

Johny Walker · 25.12.2011, 16:52

Реально работающий код из одной проги:

Visual Basic
1
2
3
4
5
6
7
Sub Division_by_10()
    Application.ScreenUpdating = False
    For Each cl In ActiveWindow.Selection
        cl.Value = cl.Value / 10
    Next cl
    Application.ScreenUpdating = True
End Sub

Сам догадаешься, как "любое число" юзать? :-)

@Masalov · 26.12.2011, 06:21

Поскольку Вы задали вопрос в форуме по программированию, то решение от Johny Walker имеет место быть.
Но для решения такой задачи достаточно использовать штатные возможности Excel-я.
Для этого в свободной ячейке укажите делитель (в Вашем случае это 28) и запомните его в буфер обмена (Ctrl+C), затетем выделите область-делимое (ячейки А1:В4), нажмите правую кнопку мышки, выберите СПЕЦИАЛЬНАЯ ВСТАВКА и поставте точку напротив слова РАЗДЕЛИТЬ.

Johny Walker · 26.12.2011, 10:35

Сообщение от Masalov

... для решения такой задачи достаточно использовать штатные возможности Excel-я...

И чего - лучше работает? Код короче? Может, протестим, стоит ли овчинка выделки, или пожертвовать крутизной рази большей понятности кода. Одно только действие - поиск свободной ячейки, ее копирование, потом очистка (чтобы мусора в файле не оставлять) - не слишком ли изысканно?

@Masalov · 26.12.2011, 12:21

to Johny Walker
Мне показалось, что P_u_n_i_s_h_e_r необходимо сделать РАЗОВУЮ операцию, поэтому я предложил решить её таким способом.

@bazile · 26.12.2011, 13:57

Лично мне решение Masalov больше нравится независимо от того нужно ли это действий делать один раз или постоянно. В последнем случае есть смысл воспользоваться макрорекодером чтобы получить соотв. код VBA. Короче он не будет, но возможно на больших диапазонах данных он будет работать быстрее, чем цикл по ячейкам.

Johny Walker · 26.12.2011, 14:17

Проверил скорость работы на массиве данных 10х1000 ячеек. Код с циклом работает [underline]намного[/underline] медленнее, кому критично - имейте в виду.

@cornet · 26.12.2011, 14:36

Visual Basic
1
2
3
4
5
6
7
Public Sub divide()
    Dim d As Double
    d = InputBox("Divide by", "Divide")
    For Each c In Selection
        c.Value = c.Value / CDbl(d)
    Next c
End Sub

28.12.2011, 08:01

Что-то мне подсказывает, что P_u_n_i_s_h_e_r спросил именно об макросе и именно макрос должен был спросить чило.
то есть необходимо использовать InputBox

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@P_u_n_i_s_h_e_r 0 / 0 / 0 Регистрация: 24.04.2010 Сообщений: 29

	Макрос для пересчета чисел в ячейках 25.12.2011, 16:40. Показов 4691. Ответов 8 Метки нет (Все метки) ПРЕДПОЛОЖИМ В ЯЧЕЙКАХ A1:B4 содержатся некоторые цифры, любые. Нужно все эти цифры разделить например на 28. Т.е. идея вот в чем, пользователь выделяет некий диапазон ячеек, например A1:B4 и запускает макрос, макрос должен спросить число, вводим 28, и все числа в указаном диапазоне должны разделиться на 28. Как можно это реализовать? Трудность именно с работой в указанном диапазоне, как перемещаться от одной ячейки к другой, последовательно? 0

@Masalov 22 / 5 / 1 Регистрация: 05.09.2010 Сообщений: 370
	26.12.2011, 06:21
	Поскольку Вы задали вопрос в форуме по программированию, то решение от Johny Walker имеет место быть. Но для решения такой задачи достаточно использовать штатные возможности Excel-я. Для этого в свободной ячейке укажите делитель (в Вашем случае это 28) и запомните его в буфер обмена (Ctrl+C), затетем выделите область-делимое (ячейки А1:В4), нажмите правую кнопку мышки, выберите СПЕЦИАЛЬНАЯ ВСТАВКА и поставте точку напротив слова РАЗДЕЛИТЬ. 0

@Masalov 22 / 5 / 1 Регистрация: 05.09.2010 Сообщений: 370
	26.12.2011, 12:21
	to Johny Walker Мне показалось, что P_u_n_i_s_h_e_r необходимо сделать РАЗОВУЮ операцию, поэтому я предложил решить её таким способом. 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	26.12.2011, 13:57
	Лично мне решение Masalov больше нравится независимо от того нужно ли это действий делать один раз или постоянно. В последнем случае есть смысл воспользоваться макрорекодером чтобы получить соотв. код VBA. Короче он не будет, но возможно на больших диапазонах данных он будет работать быстрее, чем цикл по ячейкам. 0

Johny Walker 2 / 2 / 1 Регистрация: 10.04.2011 Сообщений: 415
	26.12.2011, 14:17
	Проверил скорость работы на массиве данных 10х1000 ячеек. Код с циклом работает [underline]намного[/underline] медленнее, кому критично - имейте в виду. 0

Alex77
	28.12.2011, 08:01
	Что-то мне подсказывает, что P_u_n_i_s_h_e_r спросил именно об макросе и именно макрос должен был спросить чило. то есть необходимо использовать InputBox