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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Как поменять язык интерфейса редактора макросов
 
Весь VBA иероглифами
Закрытие в VBA нового окна Excel
 
Рекомендую
К вопросу о запуске макросов с другой книги
 
Цитата
TheStroller написал:
То есть вместо ActiveSheet стоит пользоваться Application.ThisWorkbook
A для переноски бревен вместо слона мартышку использовать можно?
Обработка заказов. Решение ошибки "For without Next"., Исправление имеющего кода, При запуске выдает ошибку.
 
Цитата
aybek04 написал:
есть вышедшие на связь первые ) исполнители.

aybek04 кот крысолов?
ибо такие "исполнители" являются форумными крысами.
Изменено: RAN - 03.11.2021 20:02:49
Обработка заказов. Решение ошибки "For without Next"., Исправление имеющего кода, При запуске выдает ошибку.
 
У каждого For и With должен быть соответствующий End.
У If в зависимости от выбранного синтаксиса, многосточный (нужен), или однострочный (не нужун).
Очки на нос, куркулятор в руки. Считайте, вставляйте.
Цитата
aybek04 написал:
будет разумная цена за услугу
Это сколько? Пачка сигарет, или, хотя-бы блок?
Изменено: RAN - 03.11.2021 19:58:01
VBA Проверка на ввод определенных значений в Textbox.
 
Цитата
Семен Фадеев написал:
А если я хочу
Не держите в себе, делайте.
Срабатывание макроса не только на обычных фигурах, но и на фигурах в группах
 
Код
Sub qq()
    For Each Shape In ActiveSheet.Shapes
        If Shape.Type = msoGroup Then
            If Not Intersect(Shape.TopLeftCell, Selection) Is Nothing And _
               Not Intersect(Shape.BottomRightCell, Selection) Is Nothing Then
                For Each Shp In Shape.GroupItems
                    If Shp.AutoShapeType = msoShapeRectangle Then
                    If Shp.DrawingObject.Text <> "" Then Shape.DrawingObject.ShapeRange.Line.Visible = msoFalse
                    End If
                Next
            End If
        End If
    Next
End Sub
Передача данных из фильтра в VBA
 
Цитата
bertz написал:
А дальше я, зная номер столбца, где был применен фильтр
Код
Sub qq()
    Dim i&, t$
    With ActiveSheet.AutoFilter
        For i = 1 To .Filters.Count
            If .Filters(i).On Then t = t & "," & i
        Next
        MsgBox Mid(t, 2)
    End With
End Sub
Обработка заказов. Решение ошибки "For without Next"., Исправление имеющего кода, При запуске выдает ошибку.
 
То, что в строках 207, 226 и 236 нет End If, это понятно. Но куда вставлять Next baserow?
Вставлять макросом в текст фигуры символы отмеченного и неотмеченного флажка шрифтом Wingdings
 
Для шрифтов Wingdings, Wingdings 2 и т.п. код символа не более 122.
Код
Sub Мяу()
    ActiveSheet.Range("B1") = Not ActiveSheet.Range("B1")
    With ActiveSheet.Shapes("Rounded Rectangle 3").TextFrame2.TextRange
        .Text = "Исправительная запись?  "
        .Font.Name = "Calibri"
        .Font.Size = 9
        If ActiveSheet.Range("B1") = 0 Then
            .Text = .Text & Chr(111)
            .Characters(.Length, 1).Font.Name = "Wingdings"
        Else
            .Text = .Text & Chr(82)
            .Characters(.Length, 1).Font.Name = "Wingdings 2"
        End If
        .Characters(.Length, 1).Font.Size = 12
    End With
End Sub
Нужно вычислить сложную формулу, Нужно вычислить сложную формулу, содержащую несколько действий
 
1. Взять бумажку, ручку, и посчитать.
2. Записать эти формулы в файле Excel, и тоже посчитать.
Слияние двух динамических массивов
 
Цитата
Фрол Деревянкин написал:
а если средствами самого экселя?
Цитата
Фрол Деревянкин написал:
У меня есть решение
Превращение множества ячеек в гиперссылки. Оптом.
 
10 минут + макрорекордер = готовый код
откуда при суммировании времени появляется време с больше чем 60 секунд?, Время считается больше чем надо.
 
Для того, чтобы считалось время, нужно считать время. Время в Excel - это число от 0 до 1. А число 3930, даже если оно выглядит как время (39:30), таковым не является.
Как обойти копирование с выше 255 символов
 
Как можно обойти то, чего нет? Где в вашем коде копирование?
Появилось огромное количество новых строк
 
Вить

и без изменения высоты строки адрес не меняется

Владимир, я сделал так
1. Изменил высоту строк на 16
2. Удалил лишнее.
3. Сохранил.
>>> Открыл,  сработало.
Изменено: RAN - 01.10.2021 15:42:46
Появилось огромное количество новых строк
 
Выделить все, изменить высоту строки, и сработает.
Создание файлов из груп листов книги Excel
 
Цитата
Viper25 написал:
чтобы созданные файлы не открывались.
Они и не открываются. Они создаются.
Можно не создавать.  :)
А чтобы не моргали, отключить обновление экрана
Код
application.ScreenUpdating = false
Изменено: RAN - 01.10.2021 11:35:30
Как вытащить числа из текста в ячейке
 
Цитата
JayBhagavan написал:
В модуль книги вставьте следующий код.
<> "В книгу вставьте модуль с кодом."
Как получить список имен диапазонов из диспетчера имен из закрытой книги с помощью vba
 
Цитата
apfu написал:
Если уточните, то постараюсь исправить
Уточняю.
Для того, чтобы тренироваться на кошках, нужно этих кошек иметь.
Правило выделения цветом одинаковых значений, выделение цветом одинаковых значений
 
У вас нет чисел, у вас только текст, который выглядит как число. В Excel числа могут иметь только 15 знаков (цифр). Применяйте текстовое правило "содержит".
Отображение данных ячейке в другой книге
 
Workbooks. ("T:\Книга 2.xlsb") и ничего.
Или наоборот.
Изменено: RAN - 17.09.2021 17:40:52
Как получить список имен диапазонов из диспетчера имен из закрытой книги с помощью vba
 
Цитата
apfu написал:
как-то изменить код  МатросНаЗебре
Я же не гадалка.
Вам лень правила прочитать, значит и ответ не шибко надобен.
Изменено: RAN - 17.09.2021 17:28:46
Сохранение столбцов в отдельный файл (xlsx) макросом
 
Цитата
Maxim написал:
зов моей помощи
И что человек сказать хотел???  8-0  
Как получить список имен диапазонов из диспетчера имен из закрытой книги с помощью vba
 
Цитата
apfu написал:
список имен диапазонов
и
Цитата
apfu написал:
имена умных таблиц
это разные вещи, хотя и то, и другое отображается в диспетчере задач.
Код
Sub qq()
    Dim sh As Worksheet, lb As ListObject
    For Each sh In ActiveWorkbook.Worksheets
        For Each lb In sh.ListObjects
            Debug.Print lb.Name
        Next
    Next
End Sub
Сохранение столбцов в отдельный файл (xlsx) макросом
 
Цитата
Maxim написал:
ActiveWorkbook.LinkSources(xlExcelLinks)
Сильно сомневаюсь, что сие надобно
Код
Sub Сохранить_НД_в_лист()
    Application.ScreenUpdating = False
    Dim path As String, iLinks As Variant, i As Long, vopros&

    vopros = MsgBox("Сохранить форму загрузки НД?", vbYesNo, "Сохранение")
    If vopros = vbYes Then

        path = ThisWorkbook.path
        ActiveSheet.Copy
        With ActiveWorkbook
            .Sheets(1).UsedRange.Cells.Value = .Sheets(1).UsedRange.Cells.Value
            .Sheets(1).Columns(7).Resize(, .Sheets(1).UsedRange.Columns.Count).Delete
            .SaveAs path & Application.PathSeparator & .Sheets(1).Name & " " & .Sheets(1).Range("B10") & " " & .Sheets(1).Range("B11") & ".xlsx", 51
            .Close False
            MsgBox "Форма сохранена в папку", vbInformation, "Важное сообщение:"
        End With
    End If
End Sub
Как выводить значение ячейки в TextBox в формате процентов с онлайн-обновлением при изменении ячейки., Форма немодальная.
 
:)  
Заливка ячеек по RGB или HEX, по параметрам из другой ячейки
 
Ведмедь дальтоник?  :D  
Как открыть новый Excel в отдельном окне и запустить надстройку
 
   
Код
NewExcel.Workbooks.Open "D:\Addin.xlam"
Сортировка в выделяемом диапазоне по определенной колонке
 
Sub Vanga() не спрашивает.  :D  
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Наверх