Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ускорение работы макроса
 
МатросНаЗебре, Спасибо за помощь, возникает проблема при работе макроса в таком виде - закрывается файл Excel. С чем то может быть связано?
Изменено: Jullyyyl - 07.11.2022 17:40:32
Ускорение работы макроса
 
Добрый день!

Подскажите, можно ли как-то ускорить работу макроса?

Код
Application.Cursor = xlWait
  Application.ScreenUpdating = False

    Sheets("Главная").Select
     Sheets("help").Visible = True
        Sheets("Главная").Select
    Range("Y4").Select
    Selection.Copy
    Sheets("help").Select
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
          Range("F6:H2026").Select
    Selection.Copy
    Sheets("Главная").Select
    Range("X7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        Sheets("help").Select
    ActiveWindow.SelectedSheets.Visible = False
         Sheets("Главная").Select
    Range("Y4").Select
    
 Application.Cursor = xlDefault
   Application.ScreenUpdating = True


Заранее спасибо :)
Изменено: БМВ - 08.11.2022 12:38:16
назначить макросы на элемент управления список в excel
 
Msi2102, Получилось решить проблему. Спасибо Вам, что откликнулись)
назначить макросы на элемент управления список в excel
 
ZVI, Спасибо большое за помощь! То, что нужно))
назначить макросы на элемент управления список в excel
 
Добрый день!

Есть 5 макросов. Нужно назначить их на 5 выпадающих строк из списка.

У меня получилось это сделать, но в моем способе выпадающие строки должны называться точно так, как и макросы к которым они привязаны.
Проблема в том, что выпадать должны цифры с 1 по 5. Макрос назвать цифрой не могу, чтобы связать своим способом.

Подскажите, можно ли придумать что-то еще?

Буду очень благодарна за помощь :)
Удаление данных из ячеек по условию с помощью VBA
 
Kuzmich, Получилось! Спасибо!))
Удаление данных из ячеек по условию с помощью VBA
 
Kuzmich, тоже нет
Удаление данных из ячеек по условию с помощью VBA
 
Kuzmich, нет( так совсем не хочет работать
Удаление данных из ячеек по условию с помощью VBA
 
Msi2102, Спасибо огромное!

Добавила макрос в файл Модель.xlsm (34.26 КБ). Осталась одна проблема - он работает только до столбца V.
Прикрепила файл.

Подскажите, что нужно поправить?
Удаление данных из ячеек по условию с помощью VBA
 
Kuzmich, Спасибо!
Удаление данных из ячеек по условию с помощью VBA
 
Добрый день!

Появилась следующая проблема. К сожалению, собственных навыков не хватает для ее решения.

Есть два условия и одна строка.
Первое условие задает с какого столбца начинается заполнение строки. Второе - до какого столбца она заполняется.
Например, если в строке 100 столбцов, условие1 =10, условие2 =3, то должны остаться заполненными только столбцы с 4 по 10, с 14 по 20, с 24 по 30 и тд.
Из столбцов 1-3, 11-13, 21-23 и т.д требуется удалить данные.

Условие 1 может быть в диапазоне от 1 до 100.
Условие 2 - от 1 до 10.
При изменении этих условий хотелось, чтобы автоматически удалялись данные из нужных ячеек.

Подскажите, возможно ли решение данное задачи с помощью макроса?

Пример в Ecxel прикладываю.

Буду очень сильна благодарна за помощь :)
Изменено: Jullyyyl - 08.08.2022 17:55:35
Замена значения ячейки в нескольких файлах на всех листах
 
Mershik, спасибо большое за помощь! Все работает

Дмитрий(The_Prist) Щербаков, Да, вы правы :) для меня это все очень мало понятно, где-то что-то нахожу и собираю по кусочкам,  больше с помощью метода "научного тыка", но тут не получилось довести до ума самой, поэтому и обратилась. Надеюсь, что когда получится полностью во всем разобраться, хотя бы в элементарных вещах. Спасибо за помощь!

Kuzmich, спасибо!
Замена значения ячейки в нескольких файлах на всех листах
 
Еще такой вариант был, тоже видимо не правильно, не работает
Код
Dim s As Worksheet
For Each s In ThisWorkbook.Worksheets
With s
 .Range("x3").Value = "не готов" 

End With
Next
ActiveWorkbook.Close savechanges:=True
x = x + 1
Wend
Изменено: Jullyyyl - 28.01.2021 09:49:52
Замена значения ячейки в нескольких файлах на всех листах
 
Mershik, спасибо, но я все равно не понимаю как это применить к моим листам)
Я пробую по разному, но на всех листах ячейка не меняется. Плюс у у меня во всех файлах разное количество листов
Замена значения ячейки в нескольких файлах на всех листах
 
Kuzmich,
А можно поподробнее про цикл? Next - ни к чему не относится, я забыла удалить, после того как попробовала такой вариант:
Код
Workbooks.Open Filename:=FilesToOpen(x)

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets

ws.Range("x3").Value = "не готов"  

ActiveWorkbook.Close savechanges:=True
x = x + 1
Next
Wend
Изменено: Jullyyyl - 28.01.2021 09:04:47
Замена значения ячейки в нескольких файлах на всех листах
 
Юрий М,
Код переоформила, спасибо

Нужно с помощью макроса выбрать несколько файлов. В этих файлах на всех листах в одной ячейке х3 добавить фразу "не готов".
(Это требуется для того, чтобы не открывать каждый файл в ручную, т.к. файлов много, менять нужно часто) .

Сейчас в таком виде макрос работает только для одного листа во всех файлах. Нужно, чтобы он менял ячейку на всех листах выбранных файлов, не только на одном.
И еще проблема, что после работы, файл с макросом закрывается.

Не знаю, как лучше сформулировать тему. Может быть - "макрос для замены ячейки в нескольких файлах на всех листах" ?
Замена значения ячейки в нескольких файлах на всех листах
 
Добрый день!

Есть макрос, который меняет в выбираемых файлах ячейку х3. Все выбираемые файлы имеют стандартный вид, но разное количество листов. И проблема в том, что макрос работает только для одного листа плюс после работы файл с макросом закрывается.
Код
Sub Макрос1
Dim FilesToOpen
Dim x As Integer

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="All files (*.*), *.*", _
MultiSelect:=True, Title:="Выберите файлы")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)

sheets(1).Range("x3").Value = "не готов"  'нужно для всех листов в файле в ячейке х3 написать "не готов"

ActiveWorkbook.Close savechanges:=True
x = x + 1
Next
Wend

ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
Не получается доработать. Буду очень благодарна, если кто-нибудь поможет :)  
Скрыть по условию листы, но за исключением некоторых
 
Всё получилось, спасибо!
Скрыть по условию листы, но за исключением некоторых
 
Добрый день!

Есть задача скрыть листы, у которых ячейка w3 пустая. Но сделать так, чтобы это условие распространялось на все листы кроме "Лист 1" и "Лист 2".
Код
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Range("w3").Value = Empty Then
        sh.Visible = xlSheetHidden
    Else
        sh.Visible = xlSheetVisible
    End If
Next
Application.ScreenUpdating = True

не соображу как доработать, чтобы исключить из условия некоторые листы. Буду благодарна за помощь! :)
Защита области печати листа
 
Добрый день!
Подскажите, можно ли каким-то образом защитить лист эксель от добавления новых страниц на листе и изменения области печати ?
Как убрать поля на листе
 
Цитата
Андрей VG написал:
Используйте какой-нибудь виртуальный принтер в pdf - и нет проблем.
Получилось! Большое спасибо)
Как убрать поля на листе
 
Добрый день,
Подскажите, как убрать поля на листе эксель, так чтобы при сохранении в пдф отступов не было совсем? В параметрах страницы поля и колонтитулы выставила по 0, но это не помогло

Заранее спасибо :)
Защита разными способами нескольких таблиц на одном листе, Как заблокировать на одном листе все ячейки от форматирования (изменения шрифта, заливка и т.д.) кроме нескольких.
 
Добрый день!
Есть лист эксель. На нем две таблицы - верхняя и нижняя. Подразумевается, что таблицы будут заполняться только комментариями и числами пользователями файла. При этом размеры самих таблицы не должны меняться. Для этих целей я защитила лист и выбрала все необходимые параметры для этого.

Но появились две проблемы:  
- Для верхней таблицы подходит блокировка без возможности форматирования ячеек, строк и столбцов. А вот для второй нужно сделать так, чтобы в целом размер таблицы оставался неизменным, но при этом была возможность регулировать высоту ячеек внутри.
- Также нужно оставить часть ячеек с возможность менять в них цвет, часть без возможности вносить изменения по формату. Но защита листа и выбранные параметры распространяются на все ячейки.

Буду очень благодарна за помощь в решении проблемы
Страницы: 1
Наверх