ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставить ссылку на ячейку с формулой из другого листа
8 сообщений из 8, страница 1 из 1
Вставить ссылку на ячейку с формулой из другого листа
    #38907042
tvm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tvm
Участник
Всем добрый.
Имеется книга с n-ным количеством листов. Со второго до предпоследнего листа в первой строке вставлены формулы мин/макс/сред. Диапазон ячеек берется с того же листа где и формулы. Нужно пройтись по листам и в последний вставить имя каждого листа и получить значения из мин/макс/сред с каждого листа. Как сделать так чтобы на последний лист вставились формулы из каждого листа где указывается мин/макс/сред,а не их значение- чтобы при изменении значений в этих ячейках менялось и на последнем листе. подскажите плиз как сделать? Сейчас получается либо конечное значение, либо формула но она просто копируется без привязки к листу.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
StartColumn = 1
StartRow = 1
For x = 2 To Sheets.Count - 1
Cells(StartColumn, StartRow) = Sheets(x).Name
Cells(StartColumn, StartRow + 1).Formula = Sheets(x).Cells(1, 1).Formula ' скопируется формула в виде MIN(A6:A10), нужно бы сослаться на ячейку листа "Лист2!A1"
Cells(StartColumn, StartRow + 2) = Sheets(x).Cells(1, 4).Text 
Cells(StartColumn, StartRow + 3) = Sheets(x).Cells(1, 6).Text 
startCell = startCell + 1
Next
...
Рейтинг: 0 / 0
17.03.2015, 13:33
| Ответить | Цитировать | Написать  
Вставить ссылку на ячейку с формулой из другого листа
    #38907053
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Используй не .Formula, а .Address.
...
Рейтинг: 0 / 0
17.03.2015, 13:41
| Ответить | Цитировать | Написать  
Вставить ссылку на ячейку с формулой из другого листа
    #38907086
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
У Cells сначала идет строка, потом столбец. Попробуйте
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub bb()
Dim x&
For x = 1 To Sheets.Count - 2
  Cells(x, 1) = Sheets(x + 1).Name
  Cells(x, 2).FormulaR1C1 = "='" & Cells(x, 1) & "'!R1C1"
  Cells(x, 3).FormulaR1C1 = "='" & Cells(x, 1) & "'!R1C4"
  Cells(x, 4).FormulaR1C1 = "='" & Cells(x, 1) & "'!R1C6"
Next
End Sub
...
Рейтинг: 0 / 0
17.03.2015, 13:58
| Ответить | Цитировать | Написать  
Вставить ссылку на ячейку с формулой из другого листа
    #38907117
tvm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tvm
Участник
AkinaИспользуй не .Formula, а .Address.
вставляется как абсолютная ссылка на ячейку "$D$1", но нужно чтобы была привязка к листу типа "=Лист2!A1"

Казанский У Cells сначала идет строка, потом столбец. Попробуйте
Выдает ошибку 400
...
Рейтинг: 0 / 0
17.03.2015, 14:13
| Ответить | Цитировать | Написать  
Вставить ссылку на ячейку с формулой из другого листа
    #38907168
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
У меня не выдает. Приложите файл с частью данных. Хотя принцип должен быть понятен из моего кода.
...
Рейтинг: 0 / 0
17.03.2015, 14:40
| Ответить | Цитировать | Написать  
Вставить ссылку на ячейку с формулой из другого листа
    #38907180
tvm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tvm
Участник
Казанский,
на листе3 я сделал табличку чтоб было попонятнее. В нее должны собраться данные из всех листов.
на листах 1-2 в первой строке вставлены формулы. При этом если что-то меняется на листах то данные в этих ячейках конечно же изменяются и это изменение должно отразиться на листе3
...
Рейтинг: 0 / 0
17.03.2015, 14:51
| Ответить | Цитировать | Написать  
Вставить ссылку на ячейку с формулой из другого листа
    #38907217
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Вот практически без переделки
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub bb()
Dim x&, r&

r = 3 'строка, с которой начинать
Sheets(Sheets.Count).Activate
For x = 1 To Sheets.Count - 1
  Cells(r, 1) = Sheets(x).Name
  Cells(r, 2).FormulaR1C1 = "='" & Cells(r, 1) & "'!R1C2"
  Cells(r, 3).FormulaR1C1 = "='" & Cells(r, 1) & "'!R1C4"
  Cells(r, 4).FormulaR1C1 = "='" & Cells(r, 1) & "'!R1C6"
  r = r + 1
Next
End Sub
...
Рейтинг: 0 / 0
17.03.2015, 15:19
| Ответить | Цитировать | Написать  
Вставить ссылку на ячейку с формулой из другого листа
    #38907253
tvm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tvm
Участник
Казанский,

большое спасибо! то что надо
...
Рейтинг: 0 / 0
17.03.2015, 15:41
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставить ссылку на ячейку с формулой из другого листа
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=48&tid=2173589]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 13ms
total:  131ms
созд. / загр.: 131ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]