Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/в каждый файл добавить в определенную ячейку одну формулу - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » в каждый файл добавить в определенную ячейку одну формулу (Формулы/Formulas)
в каждый файл добавить в определенную ячейку одну формулу
fr0st Дата: Суббота, 09.06.2018, 08:16 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Здравствуйте, с толкнулся с такой проблемой есть папка в ней около 150 файлов с разрешением .xlsx. Во всех файлах структура одинаковая, только в каждом файле в ячейках разные данные, нужно в каждый файл добавить в определенную ячейку одну формулу, адрес ячейки один и тот же во всех файлах. И можно вообще как нибудь собрать в один файл все значения изо всех файлов с этой ячейки? Пример файла прилагаю.
К сообщению приложен файл: Australia-Capit.xlsx(10.4 Kb)


Сообщение отредактировал fr0st - Суббота, 09.06.2018, 09:18
 
Ответить
СообщениеЗдравствуйте, с толкнулся с такой проблемой есть папка в ней около 150 файлов с разрешением .xlsx. Во всех файлах структура одинаковая, только в каждом файле в ячейках разные данные, нужно в каждый файл добавить в определенную ячейку одну формулу, адрес ячейки один и тот же во всех файлах. И можно вообще как нибудь собрать в один файл все значения изо всех файлов с этой ячейки? Пример файла прилагаю.

Автор - fr0st
Дата добавления - 09.06.2018 в 08:16
Pelena Дата: Суббота, 09.06.2018, 08:57 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12905
Репутация: 2843 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Вроде, не первый день на форуме, а название темы ни о чём. Дайте теме более конкретное название, отражающее суть задачи


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Вроде, не первый день на форуме, а название темы ни о чём. Дайте теме более конкретное название, отражающее суть задачи

Автор - Pelena
Дата добавления - 09.06.2018 в 08:57
fr0st Дата: Суббота, 09.06.2018, 09:12 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Переименовал, а что с моим вопросом, это вообще реально или нет?
 
Ответить
СообщениеПереименовал, а что с моим вопросом, это вообще реально или нет?

Автор - fr0st
Дата добавления - 09.06.2018 в 09:12
Pelena Дата: Суббота, 09.06.2018, 09:15 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12905
Репутация: 2843 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Нет не годится, у Вас же в первом посте есть почти готовое название
в каждый файл добавить в определенную ячейку одну формулу


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНет не годится, у Вас же в первом посте есть почти готовое название
в каждый файл добавить в определенную ячейку одну формулу

Автор - Pelena
Дата добавления - 09.06.2018 в 09:15
fr0st Дата: Суббота, 09.06.2018, 09:19 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Исправил) Помогите с решением моего вопроса.
 
Ответить
СообщениеИсправил) Помогите с решением моего вопроса.

Автор - fr0st
Дата добавления - 09.06.2018 в 09:19
Pelena Дата: Суббота, 09.06.2018, 10:00 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12905
Репутация: 2843 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Используя Готовое решение отсюда, можно так
[vba]
Код
Sub example_03() 'msoFileDialogFolderPicker
Dim Fold As String, f As String, i&
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select the folder in which the files to be processed"
.ButtonName = "Select": .AllowMultiSelect = False
If .Show Then Fold = .SelectedItems(1) Else Exit Sub
End With
Application.ScreenUpdating = False
If Right(Fold, 1) <> "\" Then Fold = Fold & "\"
f = Dir(Fold & "*.xls*", vbNormal)
i = 1
Do While f <> ""
Workbooks.Open Fold & f
ActiveWorkbook.Sheets(1).Range("H9").Formula = "=CountA(D2:D999)/(CountA(D2:D999)-(CountA(D2:D999)*H2))"
ThisWorkbook.Sheets(1).Cells(i, 1) = ActiveWorkbook.Sheets(1).Range("H9").Value
ActiveWorkbook.Close True
i = i + 1
f = Dir()
Loop
Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: fr0st.xlsm(17.7 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеИспользуя Готовое решение отсюда, можно так
[vba]
Код
Sub example_03() 'msoFileDialogFolderPicker
Dim Fold As String, f As String, i&
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select the folder in which the files to be processed"
.ButtonName = "Select": .AllowMultiSelect = False
If .Show Then Fold = .SelectedItems(1) Else Exit Sub
End With
Application.ScreenUpdating = False
If Right(Fold, 1) <> "\" Then Fold = Fold & "\"
f = Dir(Fold & "*.xls*", vbNormal)
i = 1
Do While f <> ""
Workbooks.Open Fold & f
ActiveWorkbook.Sheets(1).Range("H9").Formula = "=CountA(D2:D999)/(CountA(D2:D999)-(CountA(D2:D999)*H2))"
ThisWorkbook.Sheets(1).Cells(i, 1) = ActiveWorkbook.Sheets(1).Range("H9").Value
ActiveWorkbook.Close True
i = i + 1
f = Dir()
Loop
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Pelena
Дата добавления - 09.06.2018 в 10:00
fr0st Дата: Суббота, 09.06.2018, 10:53 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Используя Готовое решение отсюда, можно так

Спасибо большое за помощь. А можно как то еще сделать так чтобы напротив ячейки со значением указывалось название файла откуда это значение?
 
Ответить
Сообщение
Используя Готовое решение отсюда, можно так

Спасибо большое за помощь. А можно как то еще сделать так чтобы напротив ячейки со значением указывалось название файла откуда это значение?

Автор - fr0st
Дата добавления - 09.06.2018 в 10:53
Pelena Дата: Суббота, 09.06.2018, 11:57 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12905
Репутация: 2843 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
После [vba]
Код
ThisWorkbook.Sheets(1).Cells(i, 1) = ActiveWorkbook.Sheets(1).Range("H9").Value
[/vba]добавьте[vba]
Код
ThisWorkbook.Sheets(1).Cells(i, 2) = f
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПосле [vba]
Код
ThisWorkbook.Sheets(1).Cells(i, 1) = ActiveWorkbook.Sheets(1).Range("H9").Value
[/vba]добавьте[vba]
Код
ThisWorkbook.Sheets(1).Cells(i, 2) = f
[/vba]

Автор - Pelena
Дата добавления - 09.06.2018 в 11:57
fr0st Дата: Суббота, 09.06.2018, 12:08 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Спасибо большое за помощь, все получилось, очень благодарен!
 
Ответить
СообщениеСпасибо большое за помощь, все получилось, очень благодарен!

Автор - fr0st
Дата добавления - 09.06.2018 в 12:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » в каждый файл добавить в определенную ячейку одну формулу (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!