Здравствуйте.
Помогите пожалуйста подкорректировать макрос. Макрос рабочий, но нужны некоторые изменения. Я в этом вообще ноль.
Макрос суммирует ячейки (в даном случае F9) во всех файлах в папке, которая указывается после запуска макроса.
Что хочеться изменить:
1. Чтоб вместо ручного ввода адреса ячейки в макрос (F9), после запуска макрос суммировал ячейки на которой стоит курсор.
2. Чтоб каждый раз не выбирать папку, а прописать в макросе адрес папки.
Заранее благодарен за помощь
Помогите пожалуйста подкорректировать макрос. Макрос рабочий, но нужны некоторые изменения. Я в этом вообще ноль.
Макрос суммирует ячейки (в даном случае F9) во всех файлах в папке, которая указывается после запуска макроса.
Что хочеться изменить:
1. Чтоб вместо ручного ввода адреса ячейки в макрос (F9), после запуска макрос суммировал ячейки на которой стоит курсор.
2. Чтоб каждый раз не выбирать папку, а прописать в макросе адрес папки.
Код |
---|
Sub Test() Dim myPath As String, myName As String, Wb As Workbook, iSum As Single Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Укажите рабочую папку" .Show If .SelectedItems.Count = 0 Then Exit Sub myPath = .SelectedItems(1) & Application.PathSeparator End With myName = Dir(myPath & "*.xlsx") 'цикл по всем файлам указанного типа Do While myName <> "" 'открываем очередной файл в режиме "Только для чтения" и присваиваем его переменной Set Wb = Workbooks.Open(Filename:=myPath & myName, ReadOnly:=True) 'делаем что надо iSum = iSum + Workbooks(Wb.name).Worksheets("Лист1").Range("F9").Value 'закрываем файл не сохраняя изменений в нём Wb.Close SaveChanges:=False 'определяем имя следующего файл в указаной директории myName = Dir Loop ActiveCell.Value = iSum End Sub |