Да, совершенно верно. Если лист заблокирован без пароля, то предыдущий код снимал защиту, а если с паролем, то для разблокировки этот пароль нужно ввести
Да, совершенно верно. Если лист заблокирован без пароля, то предыдущий код снимал защиту, а если с паролем, то для разблокировки этот пароль нужно ввести_Boroda_
Всем доброго времени суток. Помогите пожалуйста доработать макрос. Сделал через УФ выделение цветом в колонке "Лицевой счёт абонента" одинаковых лицевых счетов(бывает, что передают данные по 2 или некоторые аж по 5 раз за день. А файлы переименовывают). Но после каждого заполнения таблицы правило в УФ спускается к концу таблицы и приходится диапазон задавать вновь. Помогите решить эту проблему макросом. Спасибо заранее за любой ответ.
Всем доброго времени суток. Помогите пожалуйста доработать макрос. Сделал через УФ выделение цветом в колонке "Лицевой счёт абонента" одинаковых лицевых счетов(бывает, что передают данные по 2 или некоторые аж по 5 раз за день. А файлы переименовывают). Но после каждого заполнения таблицы правило в УФ спускается к концу таблицы и приходится диапазон задавать вновь. Помогите решить эту проблему макросом. Спасибо заранее за любой ответ.DrMini
... Dim r1_ With wsh .Cells.FormatConditions.Delete r1_ = .Cells(.Rows.Count, 4).End(3).Row .Cells(2, 4).Resize(r1_ - 1).FormatConditions.AddUniqueValues With .Cells(2, 4).Resize(r1_ - 1).FormatConditions(1) .DupeUnique = xlDuplicate .Font.Bold = True .Font.ColorIndex = 2 .Interior.Color = 255 End With End With Application.ScreenUpdating = True End Sub
[/vba]
Убиваем все УФ на листе и рисуем его заново Если всё УФ убивать не нужно, то можно только в столбце D [vba]
Код
.Columns("D:D").FormatConditions.Delete
[/vba]
Добавьте вниз макроса еще такой кусок [vba]
Код
... Dim r1_ With wsh .Cells.FormatConditions.Delete r1_ = .Cells(.Rows.Count, 4).End(3).Row .Cells(2, 4).Resize(r1_ - 1).FormatConditions.AddUniqueValues With .Cells(2, 4).Resize(r1_ - 1).FormatConditions(1) .DupeUnique = xlDuplicate .Font.Bold = True .Font.ColorIndex = 2 .Interior.Color = 255 End With End With Application.ScreenUpdating = True End Sub
[/vba]
Убиваем все УФ на листе и рисуем его заново Если всё УФ убивать не нужно, то можно только в столбце D [vba]
И ещё раз всем доброго утра. Помогите пожалуйста макросом убрать заливку цветом (сделать так, чтобы не было заливки) в колонке Наименование услуги, в зависимости от количества счетчиков воды. В исходном файле эта заливка удобна, а вот в итоговом она вообще не нужна. Файл не прикладываю. Он идентичен файлу в Сообщении 27
И ещё раз всем доброго утра. Помогите пожалуйста макросом убрать заливку цветом (сделать так, чтобы не было заливки) в колонке Наименование услуги, в зависимости от количества счетчиков воды. В исходном файле эта заливка удобна, а вот в итоговом она вообще не нужна. Файл не прикладываю. Он идентичен файлу в Сообщении 27DrMini
Сообщение отредактировал DrMini - Суббота, 01.09.2018, 08:16
Добрый день форумчане. Всё работало но перестало преобразовывать в колонке Месяц номер месяца (1-12) в название месяца. Перестал работать макрос: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then 'здесь меняется адрес изменяемого значения ячейки If Target = 1 Then Target = "Январь" If Target = 2 Then Target = "Февраль" If Target = 3 Then Target = "Март" If Target = 4 Then Target = "Апрель" If Target = 5 Then Target = "Май" If Target = 6 Then Target = "Июнь" If Target = 7 Then Target = "Июль" If Target = 8 Then Target = "Август" If Target = 9 Then Target = "Сентябрь" If Target = 10 Then Target = "Октябрь" If Target = 11 Then Target = "Ноябрь" If Target = 12 Then Target = "Декабрь" 'тут можно добавить ещё ассоциации End If End Sub
[/vba] На листе Data. Помогите запихнуть его в модуль. Пробовал и так и эдак. Но я в VBA мягко говоря вааще не компетентен. Помогите пожалуйста добить этот файл.
Добрый день форумчане. Всё работало но перестало преобразовывать в колонке Месяц номер месяца (1-12) в название месяца. Перестал работать макрос: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then 'здесь меняется адрес изменяемого значения ячейки If Target = 1 Then Target = "Январь" If Target = 2 Then Target = "Февраль" If Target = 3 Then Target = "Март" If Target = 4 Then Target = "Апрель" If Target = 5 Then Target = "Май" If Target = 6 Then Target = "Июнь" If Target = 7 Then Target = "Июль" If Target = 8 Then Target = "Август" If Target = 9 Then Target = "Сентябрь" If Target = 10 Then Target = "Октябрь" If Target = 11 Then Target = "Ноябрь" If Target = 12 Then Target = "Декабрь" 'тут можно добавить ещё ассоциации End If End Sub
[/vba] На листе Data. Помогите запихнуть его в модуль. Пробовал и так и эдак. Но я в VBA мягко говоря вааще не компетентен. Помогите пожалуйста добить этот файл. DrMini
.Columns("E:E").Interior.Pattern = xlNone For i = 2 To r1_ Step 4 .Cells(i, 1) = MonthName(.Cells(i, 1)) Next i End With Application.ScreenUpdating = True End Sub
[/vba] Ну и объявите переменную i А Worksheet_Change убейте
Добавьте вниз [vba]
Код
.Columns("E:E").Interior.Pattern = xlNone For i = 2 To r1_ Step 4 .Cells(i, 1) = MonthName(.Cells(i, 1)) Next i End With Application.ScreenUpdating = True End Sub
[/vba] Ну и объявите переменную i А Worksheet_Change убейте_Boroda_
Добрый день уважаемые форумчане. Сегодня начал работать с файлами и выскакивает ошибка в коде Run-time error '13': Type mismatch И выделяет жёлтым ошибку в строке кода
Код
.Cells(i, 1) = MonthName(.Cells(i, 1))
Помогите пожалуйста, кто может.
Добрый день уважаемые форумчане. Сегодня начал работать с файлами и выскакивает ошибка в коде Run-time error '13': Type mismatch И выделяет жёлтым ошибку в строке кода
Не все. В файле для передачи показаний месяц через УФ. Некоторые пишут буквами некоторые цифрами. И когда цифрами то надо преобразовать в слово. Прилагаю файл для показаний. Может я в нём, чего намутил.
Не все. В файле для передачи показаний месяц через УФ. Некоторые пишут буквами некоторые цифрами. И когда цифрами то надо преобразовать в слово. Прилагаю файл для показаний. Может я в нём, чего намутил.DrMini