[Excel] про personal.xlsb

  • Автор темы Автор темы George
  • Дата начала Дата начала

George

I wish I was a monster you think I am
Топикстартер
15 лет на форуме
Сообщения
17 491
Реакции
7 914
Код:
Sub MoveCells()
    Dim rm As String
    rm = InputBox(prompt:=p, Title:="Переместить на место перед строкой:")
    If Not IsNumeric(rm) Then
        MsgBox "Введенный номер строки некорректен.", vbCritical
        Exit Sub
    End If
  
    Set rng = Selection
    ' Проверка, что выделены ячейки
    If rng Is Nothing Then
        MsgBox "Выделите ячейки для перемещения.", vbCritical
        Exit Sub
    End If
  
    ' Проверка, что номер строки в диапазоне допустимых значений
    If rm < 1 Or rm > Rows.Count Then
        MsgBox "Некорректный номер строки.", vbCritical
        Exit Sub
    End If
    Selection.Cut
    Cells(rm, rng.Column()).Select
    Selection.Insert Shift:=xlDown
End Sub
Это код, чтобы файл был с поддержкой макросов? Или это addin?
 
Это код, чтобы файл был с поддержкой макросов?
Это код чтобы макросы в принципе были разрешены, а записать его можно и в PERSONAL.XLB, да повесить на кнопку.
А почему выше не оно кстати?
 

Не по теме:
всегда, если ты обработчик vba не отрубил


Извини ламера, но задам вопрос: и тот макрос, что ты Дастин мне писал про уменьшение/увеличение регистра туда тоже как-то можно записать рядом и не будет требоваться изменять файл на тот, который с поддержкой макросов? Вот прям так взять и наколбасить кнопок с макросами можно для всех файлов, что открываешь?
 
Последнее редактирование:
@suntory у меня в этой ветке нет прав. Перемести пожалуйста про personal.xlsb в отдельную тему посты.
 
про уменьшение/увеличение регистра туда тоже как-то можно записать рядом
Ну да...
Тут несколько раз эта тема поднималась
Вот например:
 
Я вижу пару постов и не вижу причину выделять их в отдельную тему.
Я там продолжу как доберусь. Это отдельная тема, как макросы собрать и навешать на кнопки.
 
Последнее редактирование: