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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 206 След.
Макрос для склеивания ячеек и вставки в них изображений., Макрос для склеивания ячеек и вставки в них изображений.
 
#
27 янв 2021 01:27:36
Написал ЛС
 
Перейти    
Удалить данные до или после третей запятой.
 
#
26 янв 2021 19:36:29
Код
Selection.Replace "*,*,*, ", ""
 
Перейти    
Количество заказов и изделий в месяц
 
#
26 янв 2021 17:13:21
.
Изменено: RAN - 26 янв 2021 17:13:50
 
Перейти    
[ Закрыто] Вставка и удаление строк
 
#
26 янв 2021 16:41:03
Цитата
vaspup88 написал:
вот вопрос
Вот это как раз не вопрос. Ткнул в ячейку, нажал кнопку. Раздел удалил.
А вот куда, что, и в каком количестве вставлять...
 
Перейти    
Заполнение массива объектом Shape
 
#
26 янв 2021 14:30:51
Код
Set massiv(i) = ws.Shapes(i + 1)
 
Перейти    
Передача переменной в пользовательскую форму
 
#
26 янв 2021 13:40:52
Ну, наверное, была бы не видна, и макрос бы не работал.  :D
 
Перейти    
Выпадающий список на основе значения
 
#
26 янв 2021 13:39:31
Загляните в Приемы. Там есть.
 
Перейти    
Передача переменной в пользовательскую форму
 
#
26 янв 2021 13:37:35
Код
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
 
Перейти    
Как убрать пробелы только в конце текстовой строки?
 
#
26 янв 2021 13:16:48
А вы можете прочитать тему, и взять нужную формулу?
 
Перейти    
Передача переменной в пользовательскую форму
 
#
26 янв 2021 13:09:20
Код
Public nrs As Integer
Sub Defekti()


Цитата
'LDBname-название щита
Я понимаю, что это коммент для личного пользования, но вам что, слов русского языка не хватает? Без ваушков и океюшков никак?  :(
 
Перейти    
[ Закрыто] Вставка и удаление строк
 
#
26 янв 2021 12:47:23
vaspup88, т.е вас интересует не
Цитата
vaspup88 написал:
Вставка и удаление строк
а вставка\удаление определенных строк в определенном месте по определенному признаку?
Согласитесь, это совершенно другая задача.
 
Перейти    
[ Закрыто] Вставка и удаление строк
 
#
26 янв 2021 10:58:49
Включаете запись макроса, проделываете нужные действия, получаете код.
 
Перейти    
Закрыть пользовательскую форму клавишей Esc
 
#
25 янв 2021 11:32:19
И зачем так далеко ходить? Можно просто #5 прочитать.  :D
 
Перейти    
Узнать имя активного окна, q = ActiveWindow.Name не работает
 
#
25 янв 2021 11:28:57
У окна нет имени, только подпись
Код
q = ActiveWindow.Caption
 
Перейти    
Закрыть пользовательскую форму клавишей Esc
 
#
25 янв 2021 11:25:40
Событие UserForm_KeyPress возникает только в случае, когда на форме нет ни одного контрола, способного получить фокус.
 
Перейти    
Макрос. Сцепление текста ячеек через разделитель "-"
 
#
25 янв 2021 11:01:02
Здесь этих макросов как грязи. На любой вкус.
 
Перейти    
Переменная с нарастающим итогом, сделать так чтобы переменная увеличивалась на 1
 
#
22 янв 2021 16:45:06
Anton_Kozlov, это не код, это огрызки того, что, возможно, было кодом.
 
Перейти    
Переменная с нарастающим итогом, сделать так чтобы переменная увеличивалась на 1
 
#
22 янв 2021 16:40:08
i=i+1  :D
 
Перейти    
Разбиение текста ячейки на две части
 
#
22 янв 2021 16:08:54
Цитата
Дмитрий написал:
встроенную функцию "Текст по столбцам" не предлагайте. Нужен конкретно макрос
А два в одном флаконе?
Код
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
 
Перейти    
Написание макроса для автоматической нумерации и сравнения коммерческих предложений, Макрос необходим для автоматической нумерации и сравнения коммерческих предложений
 
#
22 янв 2021 15:56:31
Цитата
Вячеслав Чедакин написал:
участия в тендере
Самое любимое занятие.  :D
 
Перейти    
VBA: Почему ошибка Run-time error '13': Type mismatch, если в массиве один элемент текст
 
#
22 янв 2021 14:17:46
Нужно мяукнуть, и будет вам массив из одной ячейки.
Код
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, если в массиве один элемент текст
 
#
22 янв 2021 12:50:44
Цитата
vikttur написал:
Но получите ошибку при заполнении массива одним значением
Не пудри мозги!  :)
При заполнении массива 1 значением ошибки не будет.
А при заполнении с листа, при условии, что в диапазоне 1 ячейка, массива не будет.
 
Перейти    
Выпадающий список с поиском
 
#
20 янв 2021 19:44:18
надстройка nerv_DropDownList
 
Перейти    
Ошибка при добавлении новой записи: application defined or object defined error
 
#
20 янв 2021 12:53:28
Смерть (ошибка) в игле (объекте), игла (объект) в яйце (файле), яйцо (файл) в утке (у вас)...
 
Перейти    
Не будут ли мешать друг-другу excel, в котором работает пользователь и excel, которым управляет vbs-скрипт?, Какие тут могут оказаться подводные камни?
 
#
20 янв 2021 09:28:34
Здесь
 
Перейти    
Вставка данных в умную таблицу с помощью макроса
 
#
17 янв 2021 13:53:24
здесь
 
Перейти    
Значение с нижнем индексом без потери вида
 
#
14 янв 2021 17:17:55
В формулах никак
 
Перейти    
Привязка комментария к строке в таблице по запросу, вопрос
 
#
14 янв 2021 16:43:43
До чего люди безалаберно относятся к терминологии. Пишет про PivotTable, а показывает ListObject.
Поелику объект листа ListObject и объект ячейки Comment о существовании друг-друга даже не подозревают, то вышеизложенное, это практически единственный способ.
 
Перейти    
Вставка строки в "Умную таблицу", При заполнении ячейки первой строки.
 
#
14 янв 2021 14:29:21
Код
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 никто не трогает
 
#
14 янв 2021 12:46:43
Неправильно ты, Дядя Федор, бутерброд ешь!
Пока не поздно, выкиньте весь свой код, и начните заново.
Образец в файле.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 206 След.
Наверх