решить задачи - Microsoft Office Excel

Марийка · 11.10.2009, 14:50

Нужна помощь в решении задач VBA (excel)

№1. Поменяйте местами содержимое ячейки А10 (один) и ячейки В10 (два) при нажатии кнопки *замена*.

№2. Начиная с ячейки D2, при нажатии кнопки *сумма* просуммируйте содержимое непустых ячеек строки. Результат поместите в пустую ячейку, следующую за ней непустой.

IgorGO · 11.10.2009, 15:31

Код:

Sub Replace()
  v = [a10]
  [a10] = [b10]
  [b10] = v
End Sub

Sub Sum2()
  LastC = Cells(2, Columns.Count).End(xlToLeft).Column
  Cells(2, LastC + 1) = WorksheetFunction.Sum(Range(Cells(2, 4), Cells(2, LastC)))
End Sub

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

Успехов в учебе! И огромного счастья в личной жизни!
Игорь

Марийка · 11.10.2009, 20:30

Огромное спасибо за решение!!) и за пожелания! Вам тоже всего хорошего. но к сожалению на этом пока мои нерешенные задачи не закончились!))

11.10.2009, 14:50	#1
Марийка Новичок Джуниор Регистрация: 11.10.2009 Сообщений: 2	решить задачи Нужна помощь в решении задач VBA (excel) №1. Поменяйте местами содержимое ячейки А10 (один) и ячейки В10 (два) при нажатии кнопки замена. №2. Начиная с ячейки D2, при нажатии кнопки сумма просуммируйте содержимое непустых ячеек строки. Результат поместите в пустую ячейку, следующую за ней непустой.

11.10.2009, 15:31	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Sub Replace() v = [a10] [a10] = [b10] [b10] = v End Sub Sub Sum2() LastC = Cells(2, Columns.Count).End(xlToLeft).Column Cells(2, LastC + 1) = WorksheetFunction.Sum(Range(Cells(2, 4), Cells(2, LastC))) End Sub` Надеюсь, разместить на листе две кнопки, подписать их "замена" и "сумма" и внимание, самое главное, разобраться какой макрос с какой кнопкой надо связать... сможете самостоятельно. Успехов в учебе! И огромного счастья в личной жизни! Игорь Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите решить задачи	modulrev	Помощь студентам	8	11.01.2009 15:59
Решить 4 задачи по си	versetty	Фриланс	1	28.05.2008 20:14
Помогите решить задачи в C++	marsius	Помощь студентам	4	18.04.2008 23:33
Решить задачи	Дарья Русанова	Помощь студентам	3	30.03.2008 16:15

11.10.2009, 20:30	#3
Марийка Новичок Джуниор Регистрация: 11.10.2009 Сообщений: 2	Огромное спасибо за решение!!) и за пожелания! Вам тоже всего хорошего. но к сожалению на этом пока мои нерешенные задачи не закончились!))