Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2012, 11:05   #11
ratibor
Пользователь
 
Регистрация: 01.12.2011
Сообщений: 42
По умолчанию

Цитата:
Сообщение от ratibor Посмотреть сообщение
Уважаемые, подскажите как адаптировать этот код к моему примеру.
Данные лежат в папках по годам, в каждой папке "года" еще три папки с пронумерованными файлами. Вычисления реализованы через использование функции "ДВССЫЛ", естественно данные обновляются только после открытия файлов. Хотелось бы, чтобы данные обновлялись при закрытых файлах. Пример во вложении.Вложение 50023
Убрал "ДВССЫЛ" в формулах и вставил макрос замены, который меняет часть формулы в зависимости от значения в ячейке:

Sub EditColumn():
[G:G].Replace "\2???\", "\" & [c6] & "\"
[G:G].Replace "[*.xlsm]", "[" & [g4] & ".xlsm]"
End Sub

Теперь вопрос, как в коде перечислить нужные столбцы. Вариант G:Y например неподходит, потому что поменяет во всем диапазоне, а мне надо выборочно.
ratibor вне форума Ответить с цитированием
Старый 13.08.2018, 19:42   #12
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию По той же теме, но немного другие условия...

Привет Всем!
У меня та же ситуация и так же есть все данные но... (не удается прикрепить файл с примером)

1. Имя книг в столбце B
2. Ссылка на папку с книгами берется с ячейки D3 (есть возможность поменять)
3. Имя листа - это имя файла, только без последней буквы 's' в окончании '.xls' (Например: 1.xls = 1.xl)

Цель: напротив каждой книги (в столбце B), указать значение ячейки А76

Уверен, что из исходного примера вам это "раз плюнуть"... Я намучился пару часов
Jungo must die!!! (C) Bill Gates.
jungo вне форума Ответить с цитированием
Старый 14.08.2018, 09:24   #13
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Код:
Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    Dim midsheet As String
    For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    midsheet = mid(Cells(i, 2), 1, 7)
            If Cells(i, 2) <> "" Then Cells(i, 2).Next = ExecuteExcel4Macro("'" & Cells(3, 4) & "\[" & Cells(i, 2) & "]" & midsheet & "'!$A$76")
    Next
End Sub
Друзья,
Что не так? Я немогу понять....
Jungo must die!!! (C) Bill Gates.
jungo вне форума Ответить с цитированием
Старый 14.08.2018, 09:50   #14
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от jungo Посмотреть сообщение
(не удается прикрепить файл с примером)
так запакуйте файл/файлы в архив, архив прикрепите к сообщению на форуме.

p.s. это не значит, что Вам тогда 100% ответят, но шансы получить помощь резко повышаются...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 14.08.2018, 10:09   #15
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
так запакуйте файл/файлы в архив, архив прикрепите к сообщению на форуме.

p.s. это не значит, что Вам тогда 100% ответят, но шансы получить помощь резко повышаются...
Я умею это делать, но по какой то причине мне это не удается...

Пэ. Сэ. Даже фото не удается...
Jungo must die!!! (C) Bill Gates.
jungo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка в Excel внешних событий pan Microsoft Office Excel 4 22.02.2009 17:26
Импорт внешних данных, если данные в архиве Zip Vic65 Microsoft Office Excel 5 29.07.2008 14:10
Импорт внешних данных, синхронизация по времени slba Microsoft Office Excel 3 15.07.2008 13:05
Компиляция внешних файлов NoRty Паскаль, Turbo Pascal, PascalABC.NET 2 25.02.2008 15:34
Импорт внешних данных asale Microsoft Office Excel 1 15.04.2007 00:41