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

Страницы: 1 2 3 4 5 6 7 8 9 След.
Макрос не удаляет последнюю строку смарт таблицы
 
#
04.03.2026 16:04:37
Понял. Надо удалять 11 -ую строку, а не 12. Т.к. 12 строка Листа, это 11 строка смарт таблицы.
Excel всемогущий.
 
Перейти    
Макрос не удаляет последнюю строку смарт таблицы
 
#
04.03.2026 15:47:33
Всем здравствуйте! Надо удалить макросом строки смарт таблицы с 12 по 14. Хочу удалить строку 12 три раза. Макрос её удаляет, но когда она становится последней, т.е перед итоговой, макрос выдаёт ошибку. Как удалить эту строку?

Код
Sub Удалить_строку()
    Selection.ListObject.ListRows(12).Delete
End Sub
Excel всемогущий.
 
Перейти    
Не запускается автомакрос
 
#
01.09.2025 10:03:23
А у начальницы на компьютере при повторном открытии файла не появляется сообщение: "Файл уже открыт. Повторное открытие приведет к потере выполненных изменений." Файл открывается и изменения не теряются. Это какие то настройки Windows?
Excel всемогущий.
 
Перейти    
Не запускается автомакрос
 
#
18.08.2025 14:07:31
Личная Книга Макросов мне не подходит.
Изменено: agregator - 18.08.2025 14:11:00
Excel всемогущий.
 
Перейти    
Как разделить столбец на две колонки?
 
#
18.08.2025 12:37:25
Я бы в соседний столбец прописал ссылку на нужную ячейку и протянул формулу выделив 27 ячеек, а затем отфильтровал непустые в этом столбце
Excel всемогущий.
 
Перейти    
Не запускается автомакрос
 
#
18.08.2025 10:19:39
"Пример.xlam" это файл надстройки, как закрыть такой файл без закрытия всего Excel я не знаю. У начальницы есть файл в который надо ежедневно вписывать "Выполнено", "Да" и "Да", доступ только с её учётки. Начальница не закрывает Excel файлы по несколько суток. Хотим через планировщик заданий windows 10 автоматизировать эту работу. Соответственно макрос там другой, этот я вложил для примера. Я обычно использую файл надстройки и никогда не было проблем.  
Excel всемогущий.
 
Перейти    
Не запускается автомакрос
 
#
18.08.2025 08:36:21
Всем здравствуйте! Есть файл "Пример.xlam" в нем макрос. На моем компьютере он срабатывает много раз при открытии файла, не закрывая Excel. А у начальницы на компьютере первый раз срабатывает, а следующий раз нет, пока не закроешь Excel, т.е. пока не закроешь  файл "Пример.xlam". Пробовал ставить на файл свойство "Только для чтения" не помогает. Подскажите, что можно сделать, может какие то настройки?
Код
Private Sub Workbook_Open()
MsgBox "Привет!"
End Sub
Excel всемогущий.
 
Перейти    
VBA макросом менять атрибут файла "Только чтение"
 
#
02.07.2025 15:14:40
Большое спасибо, работает как надо
Код
'Установка атрибута "Только чтение"
Sub SetReadOnlyAttribute()
    Dim fso As Object
    Dim file As Object
    ' Создаем объект FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
      
    ' Путь к файлу
    Dim filePath As String
    filePath = ThisWorkbook.Path & Application.PathSeparator & "1график 7зк.xlsx"  'тут имя файла измените на свое
      
    ' Проверяем, существует ли файл
    If fso.FileExists(filePath) Then
        ' Получаем объект файла
        Set file = fso.GetFile(filePath)
          
        ' Устанавливаем атрибут "Только чтение"
        file.Attributes = file.Attributes Or 1
          
        MsgBox "Атрибут 'Только чтение' установлен для файла: " & filePath
    Else
        MsgBox "Файл не найден: " & filePath
    End If
      
    ' Очищаем объекты
    Set file = Nothing
    Set fso = Nothing
End Sub

Код
'Снятие атрибута "Только чтение"
Sub RemoveReadOnlyAttribute()
    Dim fso As Object
    Dim file As Object
    ' Создаем объект FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
      
    ' Путь к файлу
    Dim filePath As String
    filePath = ThisWorkbook.Path & Application.PathSeparator & "1график 7зк.xlsx"  'тут имя файла измените на свое
      
    ' Проверяем, существует ли файл
    If fso.FileExists(filePath) Then
        ' Получаем объект файла
        Set file = fso.GetFile(filePath)
          
        ' Устанавливаем атрибут "Только чтение"
        file.Attributes = file.Attributes Xor 1
          
        MsgBox "Атрибут 'Только чтение' установлен для файла: " & filePath
    Else
        MsgBox "Файл не найден: " & filePath
    End If
      
    ' Очищаем объекты
    Set file = Nothing
    Set fso = Nothing
End Sub
Excel всемогущий.
 
Перейти    
VBA макросом менять атрибут файла "Только чтение"
 
#
02.07.2025 09:26:03
Ошибка не выскакивает.
Появляется сообщение "Атрибут 'Только чтение' установлен для файла: C:\Users\shishigin_vs\Desktop\1график 7зк.xlsx".
Но галочка "Только чтение" не ставится.
Код
Sub SetReadOnlyAttribute()
    Dim fso As Object
    Dim file As Object
    ' Создаем объект FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
      
    ' Путь к файлу
    Dim filePath As String
    filePath = ThisWorkbook.Path & Application.PathSeparator & "1график 7зк.xlsx"  'тут имя файла измените на свое
      
    ' Проверяем, существует ли файл
    If fso.FileExists(filePath) Then
        ' Получаем объект файла
        Set file = fso.GetFile(filePath)
          
        ' Устанавливаем атрибут "Только чтение"
        file.Attributes = file.Attributes Or ReadOnly
          
        MsgBox "Атрибут 'Только чтение' установлен для файла: " & filePath
    Else
        MsgBox "Файл не найден: " & filePath
    End If
      
    ' Очищаем объекты
    Set file = Nothing
    Set fso = Nothing
End Sub
Изменено: agregator - 02.07.2025 09:26:59
Excel всемогущий.
 
Перейти    
VBA макросом менять атрибут файла "Только чтение"
 
#
02.07.2025 08:26:14
Цитата
VBA выделяет "fso As FileSystemObject" и выдает сообщение
"Compile error:
User-defined type not defined" , т.е. "Ошибка компиляции:Пользовательский тип не определен"
Изменено: agregator - 02.07.2025 09:02:29
Excel всемогущий.
 
Перейти    
VBA макросом менять атрибут файла "Только чтение"
 
#
02.07.2025 07:52:02
Всем здравствуйте. Можно с помощью VBA макроса менять атрибут файла "Только чтение", т.е. ставить - снимать галочку в свойствах файла? Или как макросом сохранять копию книги с атрибутом файла "Только чтение"?
Excel всемогущий.
 
Перейти    
При обновлении Подключения к книге открывается исходная книга
 
#
08.04.2025 16:39:05
ZVI большое спасибо. Хорошо, что есть такие специалисты.
Excel всемогущий.
 
Перейти    
При обновлении Подключения к книге открывается исходная книга
 
#
07.04.2025 04:26:46
Цитата
написал:
попробуйте сохранить как XLSX
Попробовал. Никаких изменений.
Excel всемогущий.
 
Перейти    
При обновлении Подключения к книге открывается исходная книга
 
#
03.04.2025 14:45:17
Расширение xls.
Excel всемогущий.
 
Перейти    
При обновлении Подключения к книге открывается исходная книга
 
#
03.04.2025 11:04:42
В Power Query такая же ситуация. Изначально в Power Query (Power BI) этот вопрос и возник.
Excel всемогущий.
 
Перейти    
При обновлении Подключения к книге открывается исходная книга
 
#
03.04.2025 07:23:49
Всем здравствуйте. При При обновлении Подключения к книге (сделанного в Microsoft Query) открывается исходный файл исходный файл (Книга) в режиме для чтения, если эту Книгу кто-то уже открыл. Есть возможность избежать открытия книги при обновлении подключения?
Excel всемогущий.
 
Перейти    
Vba поиск ячейки по значению возвращаемому формулой в ячейке
 
#
16.01.2025 12:09:04
Цитата
написал:
Sub Поиск()
'Set Rng1 = Columns("C:C").Find(Range("A1").Value, LookIn:=xlValues)
Set Rng1 = myFind(Range("A1").Value, Columns("C:C"))
MsgBox Rng1.Row

End Sub

Private Function myFind(vWhat As Variant, rr As Range) As Range
   Dim arr As Variant
   arr = Intersect(rr, rr.Parent.UsedRange).Value
   
   Dim ya As Long, xa As Long
   For ya = 1 To UBound(arr, 1)
       For xa = 1 To UBound(arr, 2)
           If arr(ya, xa) = vWhat Then
               Set myFind = rr.Cells(ya, xa)
               Exit Function
           End If
       Next
   Next
End Function
Спасибо, сработало как надо.
Excel всемогущий.
 
Перейти    
Vba поиск ячейки по значению возвращаемому формулой в ячейке
 
#
16.01.2025 11:41:27
Извиняюсь, думал, что вложил файл, а он из-за размера не вложился.
Excel всемогущий.
 
Перейти    
Vba поиск ячейки по значению возвращаемому формулой в ячейке
 
#
16.01.2025 11:15:31
Спасибо за ответ. Но выдает ячейку С4. А может макрос выдать C3 ? В C3 формат ячейки другой.
Excel всемогущий.
 
Перейти    
Vba поиск ячейки по значению возвращаемому формулой в ячейке
 
#
16.01.2025 09:29:37
Всем здравствуйте! Надо найти первую ячейку в столбце C, где значение равно ячейке A1. Это С3, а выдает С5. Макрос находит ячейку где значение внесено напрямую, а результат выдаваемый формулой не находит. Может ли макрос искать ячейки по значению возвращаемому формулой в ячейке?
Код
Sub Поиск()
Set Rng1 = Columns("C:C").Find(Range("A1"))

MsgBox Rng1.Row

End Sub
Excel всемогущий.
 
Перейти    
Пересчет формул в Excel автоматически при изменении заливки ячеек
 
#
10.10.2024 05:38:19
БМВ, ЭТО МОЩНО!!! Спасибо!
Excel всемогущий.
 
Перейти    
Пересчет формул в Excel автоматически при изменении заливки ячеек
 
#
08.10.2024 11:11:27
Sanja, Вы правы, это не совсем правильно, но это не важно, это для примера.
Excel всемогущий.
 
Перейти    
Пересчет формул в Excel автоматически при изменении заливки ячеек
 
#
08.10.2024 09:30:50
Всем здравствуйте! Как сделать пересчет формул в Excel автоматически при изменении заливки ячеек? Т.е. не используя используйте сочетание клавиш Ctrl+Alt+F9 для определения количества ячеек с заливкой.
Excel всемогущий.
 
Перейти    
Источник данных xml для microsoft query
 
#
14.04.2024 17:47:29
Microsoft query из файла xml не может получать данные?
Excel всемогущий.
 
Перейти    
Источник данных xml для microsoft query
 
#
24.02.2024 05:24:05
Всем здравствуйте! Подскажите пожалуйста как создать источник данных для microsoft query из файла xml? Какой использовать драйвер? Или можно добавить дополнительный драйвер? Power Query нет, интересует решение для microsoft query.
Excel всемогущий.
 
Перейти    
Поставить пробел через каждые 4 символа
 
#
08.02.2024 17:11:52
Вот вариант =ПОДСТАВИТЬ(ТЕКСТ(B2;"[<=9999999]###-####;####-####-####-####");"-";" ")
Excel всемогущий.
 
Перейти    
Файл открывается самостоятельно
 
#
29.09.2023 17:47:52
МатросНаЗебре, Спасибо, буду проверять в 20:00. Думаю вы правы.
Excel всемогущий.
 
Перейти    
Файл открывается самостоятельно
 
#
29.09.2023 17:39:28
Цитата
МатросНаЗебре, написал:
Application.OnTime
Да в коде есть Application.OnTime.
Код
Private Sub Workbook_Open()
On Error Resume Next
ЦветЯрлыка
Время = Date & " 20:00"
Application.OnTime Время, "ЦветЯрлыка"
End Sub
Изменено: agregator - 29.09.2023 17:40:49
Excel всемогущий.
 
Перейти    
Файл открывается самостоятельно
 
#
29.09.2023 16:23:30
Сегодня открывал файл примерно в 10:00, за весь день сам не открылся, думал прошло. Нет. В 20:05 зашел удаленно на рабочий комп и он открыт и просит ввести пароль. При чем на работе 2 компа и открывается и на одном и на другом. На одном никаких назначенных заданий нет, на другом есть.
Excel всемогущий.
 
Перейти    
Файл открывается самостоятельно
 
#
28.09.2023 18:32:58
Всем здравия. Во вложении файл, пароль 654. После установки пароля на эту книгу он стал самостоятельно повторно открываться 1 раз. Т.е. я этот файл открываю, закрываю, потом перестаю использовать компьютер (ухожу домой) и файл сам открывается и запрашивает пароль, 1 раз, после закрытия он второй раз уже не открывается. При чем, каждый месяц делается копия файла, меняется имя, но он продолжает сам открываться. Может у кого нибудь, такое было. Как это прекратить?
Excel всемогущий.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 След.
Наверх