|
|
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
записываю макрос, получаю нечто вроде этого 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 строк вниз?) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.08.2008, 10:51:45 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
по-моему проще использовать функ. ДВССЫЛ(СЦЕПИТЬ()) а если макросом, то for i%= 1 to 1000 f=cells(i,1) & cells(i,3) Cells(i,какое-то).Formula = а next как-то так. время просто нет оформить и проверить. если не то, то я вопрос не понял ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.08.2008, 12:37:55 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
Спасибо! Но идейка обломилась. Пытаюсь сделать ссылку на гиперссылку. Ну то есть кто-то кидает в таблицу ссылку на свой файл (форма у всех одинакова) а остальные столбцы автозаполняются после добавления гиперссылки. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.08.2008, 14:04:20 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
блин, после некоторых действия, я из столбца гиперссылок (\\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 то, тогда он обновится на значение по гиперссылке. Можт я просто тормоз...) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.08.2008, 14:10:13 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
Не буду создавать новую тему. перефразирую вопрос. в столбце, после некоторых операций, я получаю формулы (ссылки на другие книги с конкретными ячейками), копирую-вставляю спец. вставкой на значение, снова получаю формулы. тыкаю на каждую ячейку отдельно и жму enter получаю значение. Итак вопрос: как сделать, чтобы получить значение, не тыкая каждый раз еnter? можно как-то автоматизировать операцию? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2008, 12:51:07 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
причем, чтобы формула сменилась на значение, нежно тыкнуть enter в строке формулы каждоый ячейки. вот так ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2008, 13:47:01 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
range(<столбец, в котором нужно заменить формулы на значения>) = range(<столбец, в котором нужно заменить формулы на значения>) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2008, 13:52:00 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
ДмиДмиrange(<столбец, в котором нужно заменить формулы на значения>) = range(<столбец, в котором нужно заменить формулы на значения>) не прокатило. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2008, 14:18:54 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
пример покажи ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2008, 14:23:00 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
ммм, такой? вот там, где в ячейке "ххх", это я уже нажал в строке формул 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 вот что получается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2008, 14:42:40 |
|
||
|
Помогите с макросом
|
|||
|---|---|---|---|
|
#18+
http://spreadsheetpage.com/index.php/tip/a_vba_function_to_get_a_value_from_a_closed_file/ KL [MVP - Microsoft Excel] ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2008, 22:23:17 |
|
||
|
|

start [/forum/topic.php?fid=61&fpage=208&tid=2179994]: |
0ms |
get settings: |
4ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
37ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 228ms |
| total: | 327ms |

| 0 / 0 |
