Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Voltz
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Автоматически запускать макрос при пересчёте формул ячеек в столбце
 
#
12.07.2025 19:37:24
Здравствуйте подскажите пожалуйста, как можно автоматически запустить макрос при пересчёте формул ячеек в столбце?
 
Перейти    
Как макросом определить область печати по последней заполненной строке
 
#
01.07.2025 13:38:34
Как макросом определить область печати по последней заполненной строке?
 
Перейти    
Как протянуть формулу на Листе не переходя на него
 
#
30.04.2025 10:18:41
Как протянуть формулу на Листе не переходя на него. Ну например Мне нужно протянуть формулу на "Лист1", не переходя на него
 
Перейти    
Как записать из TextBox в ячейку при нажатии на Enter
 
#
17.04.2025 09:17:47
Здравствуйте подскажите, как можно сделать так. Например я внес данные в TextBox, как сделать так чтобы при нажатии на Enter эти данные внеслись в ячейку. Обычно делаю по кнопке " ['Лист1'!X4] = Me.TextBox1"
 
Перейти    
Как в Ribbon XML Editor поставить пароль на кнопку или на выпадающий список с кнопками
 
#
15.04.2025 13:18:01
Здравствуйте, подскажите пожалуйста есть ли возможность, в Ribbon XML Editor поставить пароль на кнопку или на выпадающий список с кнопками, что бы на пример во вкладке "Пробник" при  раскрытии списка "Профи" или нажатия на кнопку "Печатать", запрашивался каждый раз пароль  
 
Перейти    
Добавить в таблицы перед каждым месяцами месяц прописью
 
#
22.01.2023 19:53:56
Здравствуйте помогите сделать, такую беду. В общем у меня на "Лист1" расположены даты, а на "Лист2", как хотелось бы, чтобы формировал макрос перед началом каждого месяца добавлялось строка посменное название месяца с объединёнными строками с "A:E". В общем во вложенном файле наверно будет понятней на "Лист1" как есть, а на "лист2", как хотелось бы, но чтобы формировалось на "Лист1". Спасибо
 
Перейти    
Как выделить определенные слова в ячейках
 
#
20.01.2023 21:37:37
Здравствуйте. Есть просьба допилить Маркос который находится в "Лист1", чтобы от туда его убрать и запускать как макрос
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cl As Range
If Not Intersect(Target, [A1:C20]) Is Nothing Then
On Error Resume Next
For Each cl In Sheets("Лист2").Range("A1:A6").Cells
N = WorksheetFunction.Search(cl.Text, Target)
If Err = 0 Then
With Target.Characters(N, Len(cl)).Font

.FontStyle = "полужирный"

End With
Else
Err.Clear
End If
Next
End If
End Sub
Просто, я когда пытаюсь его запустить как макрос, он ругается на "If Not Intersect(Target, [A1:C20]) Is Nothing Then". и ещё как сделать, чтобы он выделял не конкретный диапазон "[A1:C20] ", а только те ячейки которые заполненные
Изменено: Voltz - 20.01.2023 21:39:27
 
Перейти    
Как макросом пройтись по списку добавить каждому наименованию 30 строк и объединить по 30 ячеек
 
#
14.10.2020 20:46:49
Здравствуйте, подскажите с такой проблемой. На листе "Фрукты" имеется перечень фруктов, можно ли сделать так чтобы макросом пройтись по списку добавить каждому наименованию 30 строк и объединить по 30 ячеек, и так до конца списка. В примере на листе "Фрукты" как будет на начальном этапе, а на листе "Список" как должно получиться.
 
Перейти    
Задать область печати от и до определенных столбцов и до последней не заполненной ячейки
 
#
13.10.2020 20:28:29
Здравствуйте. Подскажите с таким вопросом. Как макросом задать область печати от столбца "B" и до столбца "X" и до последней не заполненной ячейки?
 
Перейти    
При закрытии формы снять выделение листов
 
#
12.10.2020 12:23:33
Здравствуйте. Подскажите пожалуйста. Через форму чекбоксами происходит выделение листов, как при закрытии формы снять выделение листов?  
 
Перейти    
Макросом вставить скопированные ячейки не переходя на лист
 
#
11.10.2020 20:11:00
Здравствуйте, подскажите пожалуйста. Вот у меня есть макрос который копирует данные при нажатии на кнопку "Копировать" из одного листа не переходя на него "Sheets("Инф(заказчик)").Range("C11:K14").Copy", и мне надо при нажатии на кнопку "Вставить" скопировать данные на лист "Инфор(МКТ) не переходя на него.
 
Перейти    
После перехода с Excel 32 на Excel 64 некоторые макросы не запускаются
 
#
09.10.2020 17:19:17
Здравствуйте выручите меня помощью в следующей проблеме. Внутри книги VBA ругается на следующий код:
Код
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
и
Код
 Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
выделено красным. Что делать?
 
Перейти    
Как макросом удалить данные из ячейки неактивного листа
 
#
06.10.2020 09:30:15
Здравствуйте подскажите, как макросом удалить данные из ячейки на определенном листе не переходя на этот лист.
 
Перейти    
Как с помощью CheckBox выделить нужные листы и снять выделение листов
 
#
01.10.2020 19:42:57
Здравствуйте. Помогите пожалуйста с такой просьбой. Есть форма на ней есть четыре CheckBox, нужно например выделил CheckBox2 и CheckBox4 и они выделили "Лист (Яблоко)", "Лист (Слива)", по типу как через cntrl выделение, ну и также снять выделение. Я так понимаю, где то в коде нужно указать, чтобы CheckBox смог обратиться к другим CheckBox запрашивая их выделения, или через кнопку через отмеченные CheckBox выделить листы. Вообщем не знаю как реализовать нужна помощь.
 
Перейти    
ComboBox с поиском из нескольких листов
 
#
28.09.2020 19:20:22
Здравствуйте. Подскажите можно ли сделать так, чтобы при вводе в ComboBox поиск проходил по подходящим значениям на нескольких листах?
 
Перейти    
Дата из Textbox переноситься как текст в диапазоне ячеек
 
#
06.08.2020 22:12:27
Здравствуйте. Маленькая проблема, как сделать чтобы, дата из Textbox в ячейки распознавалась как дата? Когда в ношу дату через Textbox в ячейку B5 и потом сравниваю с нужной датой из ячейки H4 выдает "ЛОЖЬ"
 
Перейти    
Как в таблице показать первую скрытую строку
 
#
02.08.2020 23:16:23
Всем привет. Помогите написать макрос. Вообщем имеется таблица она занимает ячейки "A1:J33", но таблиц может быть больше и располагаться могут и с "A123:J156", т.е в разных местах вниз, в этих таблицах например "A1:J33" имеются объединенные ячейки с "A1:A33", и в этих таблицах есть скрытые строки. Нужно, чтобы я мог встать на эти объединенные ячейки, запустить макрос и он мне показал бы первую скрытую строку. Например я встаю на таблицу на ячейки "A315:A348" в этой таблице имеется скрытые строки A332:A348, запускаю макрос и он мне показывает первую скрытую строку, т.е A332. Таблицы могут располагаться в разных местах, но начинаться будут со столбца "A", количество скрытых строк может быть разное.
 
Перейти    
Календарь в пользовательской форме с выбором нескольких дат
 
#
01.08.2020 15:38:22
Здравствуйте. У меня есть календарь, который я взял отсюда http://www.excelworld.ru/forum/10-40132-1, в нём можно выбирать дату и время и в носить в Textbox. Как сделать чтобы я мог выбирать для каждого Textbox свою дату и время. Я сделал для Textbox3, но почему то при выборе даты для него
, дата меняется и в Textbox1. Подскажите что надо сделать.
 
Перейти    
Как формулой подтянуть данные из одного столбца в другой
 
#
27.07.2020 18:36:18
Здравствуйте. Подскажите, как формулой подтянуть данные из одного столбца в другой. У меня в первой таблицы в столбике занесены данные, но ни в каждой стоке они есть. А во вторую их надо про дублировать, только без пропущенных строк. Пример прикладываю.
 
Перейти    
Строке присвоить номер блока данных (блоки пронумеровны)
 
#
31.01.2020 07:12:33
Здравствуйте. У меня возникла, такая необходимость, создать такую формулу. Вообщем нужно смотреть пример так не смогу объяснить. Будет около 70000 строк в ручную ну ооочень долго это делать
 
Перейти    
Макрос как удалить папку по пути из ячейки
 
#
13.01.2020 23:33:49
Здравствуйте. У меня есть макрос который удаляет папку по пути из активной ячейки (например "G10") и саму строку на которой находится эта ячейка, а как сделать тоже самое но только с ячейкой "C4", у нее другой формат объяснить не могу надо смотреть пример.
 
Перейти    
Гиперссылка со значением из текста поменять на название файла
 
#
08.01.2020 23:41:20
Здравствуйте. Нашел на этом сайте вот такой макрос ссылка
Вставил в свой файл но он почему то не работает
Код
Sub MakeHyper() 'http://www.planetaexcel.ru/forum.php?thread_id=42349  
Dim LastRow As Long, i As Long, Adr As String, Str As String  
LastRow = Cells(Rows.Count, 2).End(xlUp).Row  
   For i = 2 To LastRow  
       Adr = Cells(i, 2).Value  
       Str = Split(Split(Cells(i, 2), "\")(UBound(Split(Cells(i, 2), "\"))), ".")(0)  
       Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:=Adr, TextToDisplay:=Str  
   Next  
End Sub
 
Перейти    
Скопировать данные из закрытой книги в разные ячейки и листы
 
#
02.01.2020 14:49:39
Здравствуйте помогите сократить следующий макрос
Код
Sub Get_Value_From_Close_Book2()
    Dim sShName As String, sAddress As String, vData
    Dim objCloseBook As Object
    'Отключаем обновление экрана
    Application.ScreenUpdating = False
    Set objCloseBook = GetObject("C:\Книга12.xlsm")
    sAddress = "G8" 'или одна ячейка - "A1"
    'получаем значение
    vData = objCloseBook.Sheets("Лист1").Range(sAddress).Value
    objCloseBook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [G8].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [G8] = vData
    End If
    Set objCloseBook = GetObject("C:\Книга12.xlsm")
    sAddress = "I10" 'или одна ячейка - "A1"
    'получаем значение
    vData = objCloseBook.Sheets("Лист1").Range(sAddress).Value
    objCloseBook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [I10].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [I10] = vData
    End If
    Set objCloseBook = GetObject("C:\Книга12.xlsm")
    sAddress = "C14" 'или одна ячейка - "A1"
    'получаем значение
    vData = objCloseBook.Sheets("Лист2").Range(sAddress).Value
    objCloseBook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [C14].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [C14] = vData
    End If
    Application.ScreenUpdating = True
End Sub
Данный макрос копирует данные из закрытой книги в активную, и почему то в этой части:
Код
    Set objCloseBook = GetObject("C:\Книга12.xlsm")
    sAddress = "C14" 'или одна ячейка - "A1"
    'получаем значение
    vData = objCloseBook.Sheets("Лист2").Range(sAddress).Value
    objCloseBook.Close False
    'Записываем данные на активный лист книги,
    'с которой запустили макрос
    If IsArray(vData) Then
        [C14].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [C14] = vData
    End If
    Application.ScreenUpdating = True
он копирует на "Лист1", а надо на "Лист2"
 
Перейти    
Как отправить на печать только те листы, которые выбраны ЧекБоксами?
 
#
01.01.2020 20:05:28
Здравствуйте. Помогите решить следующий вопрос, есть форма на ней несколько чекбоксов, которые запускают листы на печать, но нужно, чтобы сперва я мог отметить с помощью чекбоксов какие листы отправить на печать, и с помощью отдельной кнопки запустить выполнение отмеченных чекбоксов
 
Перейти    
ADO. Как получить данные из закрытой книги?
 
#
30.12.2019 16:42:25
Здравствуйте подскажите, что я сделал ни так .Скопировал код ADO отсюда  КАК ПОЛУЧИТЬ ДАННЫЕ ИЗ ЗАКРЫТОЙ КНИГИ?, но почему то выдает "#знач!"
 
Перейти    
Страницы: 1
Наверх