Вставка формулы с елементами Cell

vigor Пользователь Сообщений: 172 Регистрация: 23.12.2012	#1 01.07.2011 22:15:28 Добрый вечер.Коротко суть проблемы. Нужно в коде VBA вставить формулу ActiveCell.Formula = "=SUM(ActiveSheet("111").Range(Cell(1,переменная),(5,переменная))" Вроде просто а решить проблема.Давайте думать вместе

Kuzmich Пользователь Сообщений: 8189 Регистрация: 21.12.2012	#2 01.07.2011 22:21:10 ActiveCell.Formula = "=SUM(ActiveSheet("111").Range(Cells(1,переменная), _ Cells(5,переменная))"

vigor Пользователь Сообщений: 172 Регистрация: 23.12.2012	#3 01.07.2011 22:23:54 Не работает.Сами попробуйте, я так уже експериментировал

nerv Пользователь Сообщений: 3071 Регистрация: 22.12.2012	#4 01.07.2011 22:40:31 ActiveCell.Formula = "=СУММ(" & Range("A2").Address & "," & Range("A3").Address & ")" Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук https://github.com/nervgh

Hugo Пользователь Сообщений: 26259 Регистрация: 22.12.2012	#5 01.07.2011 22:49:35 Идиотская конструкция получилась... With Sheets("111") ActiveCell.Formula = "=SUM(" & .Cells(1, m).Address & "," & .Cells(5, n).Address & ")" End With

Hugo Пользователь Сообщений: 26259 Регистрация: 22.12.2012	#6 01.07.2011 22:52:28 Лист потерялся, не заметил... ActiveCell.Formula = "=SUM(111!" & Cells(1, m).Address & ",111!" & Cells(5, n).Address & ")"

Hugo Пользователь Сообщений: 26259 Регистрация: 22.12.2012	#7 01.07.2011 22:56:53 1:1 :)

Guest Гость	#8 01.07.2011 22:58:52 Насчет ActiveSheet("111") согласен Prist.Спешил.Все остальное работает спасибо ребята

vigor Пользователь Сообщений: 172 Регистрация: 23.12.2012	#9 01.07.2011 23:07:50 Ребятки посоветуйте книгу по RibbonX,или прикольную статейку в Нете.Буду благодарен

nerv

Пользователь

Сообщений: 3071 Регистрация: 22.12.2012

#10

01.07.2011 23:22:35

Но его радость была бы не полной. Позвольте добавить идиотизма : )

ActiveCell.Formula = "=СУММ('" & Sheets("111").Name & "'!" & Range("A2").Address & "," & Range("A3").Address & ")"

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh

nerv Пользователь Сообщений: 3071 Регистрация: 22.12.2012	#11 02.07.2011 10:50:13 {quote}{login=The_Prist}{date=02.07.2011 09:58}{thema=Re: }{post}{quote}{login=nerv}{date=01.07.2011 11:22}{thema=}{post}Но его радость была бы не полной. Позвольте добавить идиотизма : ) ActiveCell.Formula = "=СУММ('" & Sheets("111").Name & "'!" & Range("A2").Address & "," & Range("A3").Address & ")"{/post}{/quote}А Вы уверены, что в таком случае суммироваться будут ячейки с одного только листа "111"? :-) Может тогда так: ActiveCell.Formula = "=SUM('" & Sheets("111").Name & "'!" & Range("A2").Address & ",'" & Sheets("111").Name & "'!" & Range("A3").Address & ")" Специально заменил СУММ на SUM, т.к. в таком случае локализация не влияет и формула не выдаст ИМЯ.{/post}{/quote}не уверен :D За пояснение про локализацию отдельное спасибо! Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук https://github.com/nervgh

Читают тему