Расчет суммы ячеек с заносом результата в буфер

29.11.2011, 11:39. **Показов** 1133. **Ответов** 1

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

Эффект должен быть такой.
Выделяются одна или несколько ячеек с помощью мыши в Excel, содержащие числовые данные.
Запускается макрос.

В результате в системный буфер обмена попадает сумма ячеек.

Сам писал в свое время такой макрос с использованием объектов, но результат затерся, а я уже немного постарел и не вспоминаю..

@SlavaRus · 11.01.2012, 11:38

Попробуй так.

Код

Public Sub MySumm()
Dim Clipp As New MSForms.DataObject
Clipp.SetText WorksheetFunction.Sum(Selection)
Clipp.PutInClipboard
End Sub

По моему нужно будет подключить MSForms.

kodobeast
		1
	Расчет суммы ячеек с заносом результата в буфер 29.11.2011, 11:39. Показов 1133. Ответов 1 Метки нет (Все метки) Эффект должен быть такой. Выделяются одна или несколько ячеек с помощью мыши в Excel, содержащие числовые данные. Запускается макрос. В результате в системный буфер обмена попадает сумма ячеек. Сам писал в свое время такой макрос с использованием объектов, но результат затерся, а я уже немного постарел и не вспоминаю..

@SlavaRus 1122 / 233 / 37 Регистрация: 15.03.2010 Сообщений: 709
	11.01.2012, 11:38	2
	Попробуй так. Код Public Sub MySumm() Dim Clipp As New MSForms.DataObject Clipp.SetText WorksheetFunction.Sum(Selection) Clipp.PutInClipboard End Sub По моему нужно будет подключить MSForms. 0

Опции темы