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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 31 След.
Как создать список годов в одной ячейки
 
UDF

Код
Function rasb(r)
    Dim u, i, s
    If InStr(1, r, "-") > 0 Then
        u = Split(r, "-")
        For i = u(0) To u(1)
            s = IIf(Len(s) = 0, i, s & ", " & i)
        Next i
         rasb = s
    End If
End Function
проверка ячейки на правильное отражение даты
 
на вновь созданном листе все работает правильно
как вариант перенести данные на новый лист
на этом, возможно, изменено какое-то свойство. не нашел какое
Как создать кнопку ,которая будет открывать Word файл?
 
добавить в макрос диалог выбора файла
Особенности использования надстроек (Add-inn's) в MS Excel 2016 и MS Excel 2021, некорректная работа REFPROP
 
Цитата
однако, на 2021м
В очередной раз убеждаюсь, что чем моложе версия офиса тем больше глюков
Имхо  в надстройке используется функция которая есть в 2021 офисе но нет в 2016
Цитата
2021м офисе они работают корректно, а на 2016м возвращают ошибку #ЗНАЧ
На какой функции ошибка?
Изменено: Александр Моторин - 09.09.2022 17:33:41
подсветить слова с ошибкой
 
перебрать ячейки в выбранном диапазоне
если я понял вопрос
это по кнопке
Код
Sub проверить_диапазон()
    Dim cel As Range
    For Each cel In Selection.Cells
        ORFO CLng(cel.Row), CLng(cel.Column)
    Next
End Sub
Как выделить одну из фигур SmartArt и макросом "поставить фигуру ниже" (то есть ниже по иерархии) ?
 
не порядок, случайно, имеется в виду?
если порядок то:
Код
  ActiveSheet.Shapes("Схема 1").Select 'выбрать по имени
  Selection.ShapeRange.ZOrder msoBringToFront ' переместит вверх
Автоматическое заполнение двух таблиц из одной общей на основании условия
 
Макросы не подходят?
как написать название дня недели по номеру дня в неделе?, Нужна помощь в VBA
 
Цитата
Создайте пользовательскую функцию, которая   рассчитает сумму
Какое отношение это имеет к теме
Цитата
как написать название дня недели по номеру дня в неделе
Сегментирование данных
 
Цитата
написал:
Открыл файл
Хмм стесняюсь спросить: а какой файл
Я не вижу ни вопроса ни файла
Как макросом открыть окно "ПЕРЕЙТИ НА ЛИСТ"
 
А есть такое окно?
НЕ знал.
как вариант создать форму, при активации которой, в список будет занесен список листов
можно создать надстройку или запускать по кнопке
Ошибка при попытке вывода InputBox, Возникновение ошибки после перехода на Виндовс 10 x64
 
Цитата
После перехода с Вин7 х32 на Вин10 х64
вот именно поэтому
декларация в 64 другие типы
пример универсальной декларации некоторых АПИ
Код
#If Win64 Then
    #If VBA7 Then    ' Windows x64, Office 2010
        Public Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
        Public Declare PtrSafe Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
        Public Declare PtrSafe Function GetWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr
        Public Declare PtrSafe Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As LongPtr
        Public Declare PtrSafe Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As LongPtr
        Public Declare PtrSafe Function GetDlgCtrlID Lib "User32" (ByVal hWnd As LongPtr) As Integer
        Public Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As Integer, ByVal lParam As Any) As LongPtr
        Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
        Public Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr
        Public Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As LongPtr, ByVal Y As LongPtr, ByVal cx As LongPtr, ByVal cy As LongPtr, ByVal wFlags As LongPtr)
        
     #Else    ' Windows x64,Office 2003-2007
        Public Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongLONG
        Public Declare PtrSafe Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
        Public Declare PtrSafe Function GetWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr
        Public Declare PtrSafe Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As LongPtr
        Public Declare PtrSafe Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As LongPtr
        Public Declare PtrSafe Function GetDlgCtrlID Lib "User32" (ByVal hWnd As LongPtr) As Integer
        Public Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As Integer, ByVal lParam As Any) As LongPtr
        Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
        Public Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr
        Public Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As LongPtr, ByVal Y As LongPtr, ByVal cx As LongPtr, ByVal cy As LongPtr, ByVal wFlags As LongPtr)
        
    #End If
#Else
    #If VBA7 Then    ' Windows x86, Office 2010
        Public Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Public Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
        Public Declare Function GetWindow Lib "User32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
        Public Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
        Public Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
        Public Declare Function GetDlgCtrlID Lib "User32" (ByVal hWnd As Long) As Integer
        Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
        Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        Public Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
        Public Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

    #Else    ' Windows x86, Office 2003-2007
        Public Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Public Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
        Public Declare Function GetWindow Lib "User32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
        Public Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
        Public Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
        Public Declare Function GetDlgCtrlID Lib "User32" (ByVal hWnd As Long) As Integer
        Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
        Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        Public Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
        Public Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
   
   #End If
#End If
Изменено: Александр Моторин - 26.07.2022 12:40:01
Добавить изображение в колонтикул
 
Цитата
написал:
а для изображения с подпистью- нет
А кто мешает включить "магнитофон"
Код
    ActiveWindow.View = xlPageLayoutView
    ActiveSheet.PageSetup.CenterHeaderPicture.Filename = "I:\Мои документы\Я8.jpg"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .CenterHeader = "Проверка" & Chr(10) & "&G"
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Application.PrintCommunication = True
как в экселе найти второй или третий или четвертый плюс в одной ячейке, поиск вхождения 1 или 2 или 3 плюса(+)
 
Цитата
написал:
затрудняюсь ответить, чем отличается первый "+"
Ну как?! первый он в африке первый!
ну раз надо, то надо!
Код
Sub qwert()
    Dim s, u, i, ss, t
    s = "22 + 33333 + 444 + 5555"
    u = Split(s, "+")
    For i = 0 To UBound(u) - 1
        t = "номер " & Chr(34) & "+" & Chr(34) & "  " & i + 1 & " положение между " & u(i) & "  и  " & u(i + 1)
        Debug.Print i, t
            ss = IIf(Len(ss) = 0, t, ss & ss & vbCrLf & t)
    Next i
End Sub
0            номер "+"  1 положение между 22   и   33333
1            номер "+"  2 положение между  33333   и   444
2            номер "+"  3 положение между  444   и   5555
Изменено: Александр Моторин - 24.07.2022 21:18:29
Прогнать множество значений через "калькулятор"
 
Циклом
Как удалить дубли фраз внутри ячейки?
 
UDF
Код
Function Удалить_дубли_в_ячейке(r)
    Dim i, sl, u: Set sl = CreateObject("Scripting.Dictionary")
    u = Split(r, ", ")
    For i = 0 To UBound(u)
        sl(u(i)) = 0
    Next i
    Удалить_дубли_в_ячейке = Join(sl.keys, ", ")
End Function
Удалить макросом "Поле со списком (элемент управления формы)"
 
ИМХО
Удалить с формы можно только тот контрол, который был создан программно
Можно сделать невидимым
Изменено: Александр Моторин - 10.07.2022 09:57:01
Копирование строк таблицы из формы по 4-м условиям
 
Код
Sub qwert()
    Dim a$, e$, f$, h$, r, lr, m, lri, n
    a = ComboBox1.Text
    e = ComboBox2.Text
    f = ComboBox3.Text
    h = ComboBox4.Text
    
    With Лист1
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row
        m = .Cells(1, 1).Resize(lr, 8).Value
        For r = 2 To UBound(m)
            If m(r, 1) = a Then
                If m(r, 5) = e Then
                    If m(r, 6) = f Then
                        If m(r, 8) = h Then
                            lri = Лист2.Cells(Лист2.Rows.Count, 1).End(xlUp).Row + 1
                            .Cells(r, 1).Resize(, 8).Copy Лист2.Cells(lri, 1)
                            n = n + 1
                        End If
                    End If
                End If
            End If
        Next r
    End With

    If n > 0 Then
        MsgBox "Скопировано строк: " & n
    End If

End Sub

Private Sub ComboBox1_Change()
    qwert
End Sub

Private Sub ComboBox2_Change()
    qwert
End Sub

Private Sub ComboBox3_Change()
    qwert
End Sub

Private Sub ComboBox4_Change()
    qwert
End Sub

Макрос для печати всех данных из выпадающего списка 2, Нужна помощь по корректировке работы макроса
 
Цитата
Макрос для печати всех данных из выпадающего списка
Сразу напрашивается вопрос: как формируется выпадающий список?
По идее надо плясать от туда
А вообще лучше задать вопрос что надо получить, а не то, что найдено-скопировано в интернете
Изменено: Александр Моторин - 02.07.2022 19:58:54
Макрос по созданию списка кнопками, Помощь по созданию макроса для кнопки
 
пункт в мено по ПКМ копирует строку с выделенной ячейкой (любой в нужной строке)
Парсинг VBA проекта. Как программно найти в коде что-либо, Parse VBA Project
 
Цитата
существует ли имя
разве список имен нельзя получить?
Сохранить как надстройку для любого документа
 
надстройка
Пауза в цикле
 
Цитата
необходимо забрать значение с textbox'а.
запрашивать можно inputbox
Сделать выборку из диапазона данных, в котором есть объединенные ячейки разные по количеству строк, Получение дынных с использованием объединенных ячеек и зависимых выпадающих списков
 
Цитата
Товары расположены в объединенных ячейках
Цитата
формулы работают не правильно
ИМХО от чего-то нужно отказываться
Например в сторону макросов вместо формул
Изменено: Александр Моторин - 29.06.2022 05:31:08
Текстовый массив, Автоматические заполнение таблицы с помощью массива.
 
У меня из картинки вообще ничего не подтягивается!
Поделись опытом как подтянуть из картинки.
Вдруг пригодится! :(  
Ошибка "Method range of object _worksheet failed"
 
Код
Like "*" & "OК1" & "*"
удовлетворяют OK1, OK10, OK11, OK12... и тд
Изменение параметров осей в диаграмме средствами vba, Не выполняется команда vba по изменению параметров (цвета) осей встроенной диаграммы
 
Да все работает
Код
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Range("Лист1!$C$3:$E$20")
    With ActiveChart.Axes(xlValue).Format.Line
        .ForeColor.RGB = RGB(0, 32, 96)
        .Weight = 2.25
     End With
    With ActiveChart.Axes(xlPrimary).Format.Line
        .ForeColor.RGB = RGB(255, 255, 96)
        .Weight = 2.25
    End With
Замена части строки по справочнику соответствия
 
Мне всегда проще выполнять такую работу макросом
Если работу приходится выполнять часто сделать надстройку с зашитой таблицей соответствия
[ Закрыто] Запись макроса, Нужно написать два простых макроса.
 
хмм...что хоть должны делать макросы?
секрет?
:qstn:  
Невозможно скопировать надстройку в библиотеку, Надстройка для общего пользования
 
Надстройка без пароля и модуль из надстройки, который можно поместить в нужную книгу
Формулы с ссылкой на надстройку надо будет изменить
в формулах такого вида:
Код
=ЕСЛИ(ЕЧИСЛО(ПОИСК("RUB";D26));'M:\Страхование Грузов\ГРУЗЫ и ГО\ПАКЕТ ДОКУМЕНТОВ 2010\00_Абсолют Страхование\АС_Документы для общего пользования\Надстройки\Деньги прописью.xla'!руб(Полис!I24;2);
Почему при получении значения по отсутствующему в словаре ключу в числовую переменную, её длина равна 4, а не 1, When I get Value from Dictionary by missing Key in Numeric Variable, Len(var&)=4 (not 1). Why?
 
наверное в типе переменной дело
Код
Dim x
Изменено: Александр Моторин - 03.06.2022 12:30:09
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 31 След.
Наверх