powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите с макросом
12 сообщений из 12, страница 1 из 1
Помогите с макросом
    #35489065
dakkkar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
записываю макрос, получаю нечто вроде этого
Range("B2").Select
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=('\\Alcatel\root\Groups\Assistants\Zakurazhnova_Construction\forms\[R08-08-08.xls]подбор '!R18C5)"

Можно сделать так, чтобы о"=('\\Alcatel\root\Groups\Assist...." он брал из двух разных ячеек?
ну к примеру кусок "=('\\Alcatel\root\Groups\Assistants\Zakurazhnova_Construction\forms\ из А2 и кусок [R08-08-08.xls]подбор '!R18C5)" из А3? и потом еще эту операцию провернуть на 1000 строк вниз?)
...
Рейтинг: 0 / 0
Помогите с макросом
    #35489416
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по-моему проще использовать функ. ДВССЫЛ(СЦЕПИТЬ())

а если макросом, то
for i%= 1 to 1000
f=cells(i,1) & cells(i,3)
Cells(i,какое-то).Formula = а
next

как-то так. время просто нет оформить и проверить. если не то, то я вопрос не понял
...
Рейтинг: 0 / 0
Помогите с макросом
    #35489779
dakkkar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо! Но идейка обломилась. Пытаюсь сделать ссылку на гиперссылку. Ну то есть кто-то кидает в таблицу ссылку на свой файл (форма у всех одинакова) а остальные столбцы автозаполняются после добавления гиперссылки.
...
Рейтинг: 0 / 0
Помогите с макросом
    #35489800
dakkkar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
блин, после некоторых действия, я из столбца гиперссылок (\\Sovintel\Root\Groups\Assistants\Zakurazhnova_Construction\forms\M08-08-08.xls)
получаю рядом столбец с полным именем пути к файлу и конкретной ячейке
(=\\Sovintel\Root\Groups\Assistants\Zakurazhnova_Construction\forms\('[M08-08-08.xls]подбор '!$E$18)
при чем он стоит через равно и не меняет значение на значение по гиперссылке. а вот если взять кусок =('[M08-08-08.xls]подбор '!$E$18) в новой ячейке и потом в строке формул Обязательно нажать enter то, тогда он обновится на значение по гиперссылке. Можт я просто тормоз...)
...
Рейтинг: 0 / 0
Помогите с макросом
    #35498926
dakkkar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не буду создавать новую тему. перефразирую вопрос. в столбце, после некоторых операций, я получаю формулы (ссылки на другие книги с конкретными ячейками), копирую-вставляю спец. вставкой на значение, снова получаю формулы. тыкаю на каждую ячейку отдельно и жму enter получаю значение. Итак вопрос: как сделать, чтобы получить значение, не тыкая каждый раз еnter? можно как-то автоматизировать операцию?
...
Рейтинг: 0 / 0
Помогите с макросом
    #35499153
dakkkar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
причем, чтобы формула сменилась на значение, нежно тыкнуть enter в строке формулы каждоый ячейки. вот так
...
Рейтинг: 0 / 0
Помогите с макросом
    #35499176
Фотография ДмиДми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
range(<столбец, в котором нужно заменить формулы на значения>) = range(<столбец, в котором нужно заменить формулы на значения>)
...
Рейтинг: 0 / 0
Помогите с макросом
    #35499297
dakkkar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ДмиДмиrange(<столбец, в котором нужно заменить формулы на значения>) = range(<столбец, в котором нужно заменить формулы на значения>)
не прокатило.
...
Рейтинг: 0 / 0
Помогите с макросом
    #35499316
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пример покажи
...
Рейтинг: 0 / 0
Помогите с макросом
    #35499405
dakkkar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ммм, такой? вот там, где в ячейке "ххх", это я уже нажал в строке формул enter.
макрос примерно такой, но он никак не подходит...в нем я просто выделяю и щелкаю enter в строке формул.
Sub
Range("L2").Select
ActiveCell.FormulaR1C1 = _
"=('\\Sovintel\root\Groups\Assistants\Zakurazhnova_Construction\forms\[R08-08-08.xls]подбор'!R18C5)"
Range("L3").Select
ActiveCell.FormulaR1C1 = _
"=('\\Sovintel\Root\Groups\Assistants\Zakurazhnova_Construction\forms\[M08-08-08.xls]подбор'!R18C5)"
Range("L4").Select
ActiveCell.FormulaR1C1 = "=('[M08-08-08.xls]подбор'!R18C5)"
End Sub
вот что получается.
...
Рейтинг: 0 / 0
Помогите с макросом
    #35500506
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Помогите с макросом
    #35719432
348tom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Посмотрите вот этот способ. Может с ним будет удобней и бустрей.
Тем более это встроено в Excel
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите с макросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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