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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 206 След.
Переменная с нарастающим итогом, сделать так чтобы переменная увеличивалась на 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 никто не трогает
 
Неправильно ты, Дядя Федор, бутерброд ешь!
Пока не поздно, выкиньте весь свой код, и начните заново.
Образец в файле.
Событие Change для comboBox срабатывает, хотя comboBox никто не трогает
 
Аналогично.
Никакой логики в этой абсолютно бесполезной писанине не просматривается.
Не могу присвоить значение элементу массива, который сам является значением словаря
 
Код
Sub slomas1()
    Dim bbb()
    Set dic = CreateObject("Scripting.Dictionary")
    ar = Array(1, 2, 1, 3)
    For i = 1 To 4
        If dic.exists(ar(i - 1)) Then
            ReDim bbb(2)
            bbb = dic.Item(ar(i - 1))
            bbb(1) = 1000
            dic.Item(ar(i - 1)) = bbb
        Else
            ReDim bbb(2)
            For j = 0 To 2
                bbb(j) = j * 2
            Next
            dic(dic.Count) = bbb
        End If
    Next
   it = dic.Items
   k = dic.keys
End Sub
Форматированние номера телефона, Как переформатировать запись
 
=ТЕКСТ(A1;"000-000-0000")
Можно ли сделать уникальный процесс Excel, который будет работать особняком?
 
Пишите надстройку примерно с таким кодом
Код
Public WithEvents app  As Application
Public fName$

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
Dim NewExcel As Object
fName = ActiveWorkbook.FullName
If fName = ThisWorkbook.FullName Then Exit Sub
Set NewExcel = CreateObject("Excel.Application")
NewExcel.Visible = True
ActiveWorkbook.Close False
DoEvents
NewExcel.Workbooks.Open fName
End Sub

Private Sub Workbook_Open()
Set app = Excel.Application

End Sub
Формула для расчета процента от выручки, в зависимости от средней выручки дня
 
Интересно, кто первый проснется, ТС, или модераторы?
Пользовательский формат ячеек (строчный+надстрочный)
 
Цитата
Maximich написал:
Пользовательский формат ячеек
есть, а пользовательского формата части ячейки нет.
Обработка прайс-листов
 
написал в ЛС
Как в Автофильтре отделить текстовое вхождение в строке "#1" от "#10", если после "#1" может быть как конец строки, так и любой символ
 
Да легко.
Выбирайте в списке автофильтра только те значения, которые подходят под ваши условия.
Макрос с работай с таблицами
 
А точно макрос нужен? Без него если и не быстрее, то и не медленнее.  :)
Ошибка макроса - Method "Add" of object "ListObject" failed
 
А может есть смысл позволить Excel самому имя таблицы придумать?
Код
With ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A:$C"), , xlYes)
    With .ListColumns("Униграмма").Range(1)
        .AddComment
        .Comment.Visible = True
        .Comment.Text Text:="Униграмма (лемма)  - это исходная форма слова. "
    End With
End With
Удалить все символы и буквы до И.О.Фамилия, Удалить все символы и буквы до И.О.Фамилия, если количество символов меняется
 
=ПРАВСИМВ(A28;ДЛСТР(A28) -ПОИСК(".";A28)+2)
Вложенный цикл не меняет значения счетчика
 
Цитата
vikttur написал:
они и для Вас написаны
Ты уверен?
Копирование CSV файлов в один файл EXCEL из определенной папки, Копирование CSV файлов в один файл EXCEL из определенной папки
 
Dir(tmpFolder & "*.CSV") и цикл Do Loop.
Вложенный цикл не меняет значения счетчика
 
Цитата
Алексей Китаинов написал:
Другие уникальные номера (адреса ячеек) игнорируются.
Они не игнорируются, это вы их игнорируете. Используйте Find правильно, и все будет работать.
Оптимизация использования типов переменных Integer, Long и проч.
 
Будь проще. Я давно считаю, что нет в VBA такого типа данных, как Integer. И голова не болит.  :D
Оптимизация использования типов переменных Integer, Long и проч.
 
БМВ, Миша, мне тоже до кончика хвоста... Чем тебе Long не угодил, и что-же ты считаешь?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 206 След.
Наверх