Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 206 След.
Макрос для склеивания ячеек и вставки в них изображений., Макрос для склеивания ячеек и вставки в них изображений.
 
Написал ЛС
Удалить данные до или после третей запятой.
 
Код
Selection.Replace "*,*,*, ", ""
Количество заказов и изделий в месяц
 
.
Изменено: RAN - 26 янв 2021 17:13:50
[ Закрыто] Вставка и удаление строк
 
Цитата
vaspup88 написал:
вот вопрос
Вот это как раз не вопрос. Ткнул в ячейку, нажал кнопку. Раздел удалил.
А вот куда, что, и в каком количестве вставлять...
Заполнение массива объектом Shape
 
Код
Set massiv(i) = ws.Shapes(i + 1)
Передача переменной в пользовательскую форму
 
Ну, наверное, была бы не видна, и макрос бы не работал.  :D
Выпадающий список на основе значения
 
Загляните в Приемы. Там есть.
Передача переменной в пользовательскую форму
 
Код
Dim nrs&
Private Sub CommandButton1_Click()
    If Len(Worksheets("EXCEL").Cells(nrs, 1)) Then
        Worksheets("EXCEL").Cells(nrs, 35).Value = "да"
        nrs = nrs + 1
    End If
End Sub
Private Sub CommandButton2_Click()
    If Len(Worksheets("EXCEL").Cells(nrs, 1)) Then
        Worksheets("EXCEL").Cells(nrs, 35).Value = "нет"
        nrs = nrs + 1
    End If
End Sub
Private Sub CommandButton3_Click()
    If Len(Worksheets("EXCEL").Cells(nrs, 1)) Then
        Worksheets("EXCEL").Cells(nrs, 35).Value = "част."
        nrs = nrs + 1
    End If
End Sub
Private Sub UserForm_Activate()
'    nrs = 24 ' со строки 24
    nrs = Worksheets("EXCEL").Cells(Rows.Count, 35).End(xlUp).Row + 1 ' с пустой строки
End Sub

Sub Defekti()
    UserForm1.Show
End Sub
Как убрать пробелы только в конце текстовой строки?
 
А вы можете прочитать тему, и взять нужную формулу?
Передача переменной в пользовательскую форму
 
Код
Public nrs As Integer
Sub Defekti()


Цитата
'LDBname-название щита
Я понимаю, что это коммент для личного пользования, но вам что, слов русского языка не хватает? Без ваушков и океюшков никак?  :(
[ Закрыто] Вставка и удаление строк
 
vaspup88, т.е вас интересует не
Цитата
vaspup88 написал:
Вставка и удаление строк
а вставка\удаление определенных строк в определенном месте по определенному признаку?
Согласитесь, это совершенно другая задача.
[ Закрыто] Вставка и удаление строк
 
Включаете запись макроса, проделываете нужные действия, получаете код.
Закрыть пользовательскую форму клавишей Esc
 
И зачем так далеко ходить? Можно просто #5 прочитать.  :D
Узнать имя активного окна, q = ActiveWindow.Name не работает
 
У окна нет имени, только подпись
Код
q = ActiveWindow.Caption
Закрыть пользовательскую форму клавишей Esc
 
Событие UserForm_KeyPress возникает только в случае, когда на форме нет ни одного контрола, способного получить фокус.
Макрос. Сцепление текста ячеек через разделитель "-"
 
Здесь этих макросов как грязи. На любой вкус.
Переменная с нарастающим итогом, сделать так чтобы переменная увеличивалась на 1
 
Anton_Kozlov, это не код, это огрызки того, что, возможно, было кодом.
Переменная с нарастающим итогом, сделать так чтобы переменная увеличивалась на 1
 
i=i+1  :D
Разбиение текста ячейки на две части
 
Цитата
Дмитрий написал:
встроенную функцию "Текст по столбцам" не предлагайте. Нужен конкретно макрос
А два в одном флаконе?
Код
Sub Макрос1()
    Selection.TextToColumns Destination:=Range("F6"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
Написание макроса для автоматической нумерации и сравнения коммерческих предложений, Макрос необходим для автоматической нумерации и сравнения коммерческих предложений
 
Цитата
Вячеслав Чедакин написал:
участия в тендере
Самое любимое занятие.  :D
VBA: Почему ошибка Run-time error '13': Type mismatch, если в массиве один элемент текст
 
Нужно мяукнуть, и будет вам массив из одной ячейки.
Код
Sub мяу()
    Dim ar
    ar = Selection.Value
    If Not IsArray(ar) Then
        ReDim ar(1 To 1, 1 To 1)
        ar(1, 1) = Selection.Value
    End If
End Sub


PS Когда писал, сообщения 12 не видел.  :)
Изменено: RAN - 22 янв 2021 14:36:09
VBA: Почему ошибка Run-time error '13': Type mismatch, если в массиве один элемент текст
 
Цитата
vikttur написал:
Но получите ошибку при заполнении массива одним значением
Не пудри мозги!  :)
При заполнении массива 1 значением ошибки не будет.
А при заполнении с листа, при условии, что в диапазоне 1 ячейка, массива не будет.
Выпадающий список с поиском
 
надстройка nerv_DropDownList
Ошибка при добавлении новой записи: application defined or object defined error
 
Смерть (ошибка) в игле (объекте), игла (объект) в яйце (файле), яйцо (файл) в утке (у вас)...
Не будут ли мешать друг-другу excel, в котором работает пользователь и excel, которым управляет vbs-скрипт?, Какие тут могут оказаться подводные камни?
 
Здесь
Вставка данных в умную таблицу с помощью макроса
 
здесь
Значение с нижнем индексом без потери вида
 
В формулах никак
Привязка комментария к строке в таблице по запросу, вопрос
 
До чего люди безалаберно относятся к терминологии. Пишет про PivotTable, а показывает ListObject.
Поелику объект листа ListObject и объект ячейки Comment о существовании друг-друга даже не подозревают, то вышеизложенное, это практически единственный способ.
Вставка строки в "Умную таблицу", При заполнении ячейки первой строки.
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Offset(-1), Me.ListObjects(1).ListColumns(3).Range) Is Nothing Then
        Target.Offset(0, -2).Resize(, 2) = Array(Format(Now, "dd mmmm yyyy"" ã."), Format(Now, "hh:nn"))
    End If
End Sub
Событие Change для comboBox срабатывает, хотя comboBox никто не трогает
 
Неправильно ты, Дядя Федор, бутерброд ешь!
Пока не поздно, выкиньте весь свой код, и начните заново.
Образец в файле.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 206 След.
Наверх