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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 162 След.
Конвертация значений в число, Перевод неопределенного формата данных в число
 
в ячейке выделяете пробел и скопируйте. Далее ctrl+h в помощь
Последовательная подстановка значения, вычисление и вывод результатов на лист
 
МатросНаЗебре, Вангуешь? или понял задание?
Смещение данных вниз после ввода диапазона с UserForm1
 
вам это нужно?
Код
Private Sub CommandButton1_Click()
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1 'последняя строка по 1 столбцу
With Worksheets("Лист1")
.Range("A" & lr & ":I" & lr) = Array(Me.TextBox14, TextBox5, Me.ComboBox4, Me.ComboBox1, Me.TextBox3, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox12)
End With
End
End Sub
Изменено: V - 04.06.2021 14:56:04
Связать выпадающий список в таблице по нескольким условиям
 
еще вариант
Код
=ВПР($B2;Дополнение!$B$2:$G$53;ПОИСКПОЗ(C1;Дополнение!$B$1:$G$1;))
Автоматическое заполнение в зависимости от множества условий, Автозаполнение по условию
 
V, можно. доп таблица нужна. Дайте нормальное название темы. Предупреждения МОДЕРАТОРА не игнорьте.
Автоматическое заполнение в зависимости от множества условий, Автозаполнение по условию
 
МатросНаЗебре, пора название темы огласить. ;), а то виктор накажет. :)
Автоматическое заполнение в зависимости от множества условий, Автозаполнение по условию
 
через если
Код
=ЕСЛИ(C2="+";"V";"X")
Автоматическое заполнение в зависимости от множества условий, Автозаполнение по условию
 
судя по примеру если достаточно, там всего два условия. Или я что то не понял.
Название листа в надпись
 
Код
=ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("]";ЯЧЕЙКА("имяфайла"))+1;99)

файл пример не помешает, пока не очень понятно о чем вы.
Отбор в combobox при условие нажатия на форме фильтра CheckBox
 
Код
Private Sub CheckBox1_Click()
Dim a(), LR As Long, i As Long
If CheckBox1.Value = True Then
LR = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по 1 столбцу
a = Range("A1:B" & LR).Value 'заносим данные слиста в массив
Set sd = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a)
        If a(i, 2) = "Действует" Then sd.Item(a(i, 1)) = ""
    Next
        ComboBox1.List = sd.Keys
End If
End Sub

Private Sub UserForm_Activate()
LR = Cells(Rows.Count, 1).End(xlUp).Row 'последняя строка по 1 столбцу
ComboBox1.List = Range("A1:A" & LR).Value
End Sub


у комбобокса очистите свойство RowSource
Заполнение ячейки по условию заполнения другой ячейки, Заполнить ячейку автоматический по условию если другая ячейка заполнена
 
Цитата
riority написал:
Разобрался.Для будущих соискателей:
не до конца. ;) Зачем используете цикл если i дальше по коду не используете.
Заполнение ячейки по условию заполнения другой ячейки, Заполнить ячейку автоматический по условию если другая ячейка заполнена
 
вам случаем не это нужно? формула в ячейку С18
Код
=B19&" точка один"
Изменено: V - 31.05.2021 15:52:47
Узнать размер файлов(картинок) в килобайтах из папки
 
Код
Function GetPictureSize(sPath As String, sFileName As String)
    Dim objFile As Object, sPictureSize As String, sFS As String, sLS As String
    Dim lWidth As Long, lHeight As Long, lSize As Long
     
    Set objFile = CreateObject("Shell.Application").Namespace(CVar(sPath)).ParseName(sFileName)
    sPictureSize = objFile.ExtendedProperty("Dimensions")
    sFS = Left$(sPictureSize, 1)
    sLS = Right$(sPictureSize, 1)
 
    sPictureSize = Mid$(sPictureSize, 2, Len(sPictureSize) - 2)
    lWidth = Val(sPictureSize)
    lHeight = Val(Mid$(sPictureSize, InStr(sPictureSize, "x") + 1))
    lSize = Val(objFile.Size) ' получаем размер
    GetPictureSize = Array(lWidth, lHeight, lSize)
End Function


Sub DateiInfos()
Dim objFSO         As Object
Dim objOrdner      As Object
Dim objDatei       As Object
Dim i              As Integer
Dim pic            As Picture
Dim aPicSize
'Hier Pfad anpassen
  
Const Pfad = "C:\Users\Computer\Desktop\DONT TOUCH\sit_bilder\"
  
i = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(Pfad)
  
With ThisWorkbook.Worksheets("Tabelle3")

    .Range("A1:D1") = Array("Name", "Breite", "Hohe", "Size")
       
    On Error Resume Next
    For Each objDatei In objOrdner.Files
        .Cells(i, 1) = objDatei.Name
        aPicSize = GetPictureSize(Pfad, objDatei.Name)
        .Cells(i, 2) = aPicSize(0)
        .Cells(i, 3) = aPicSize(1)
        .Cells(i, 4) = aPicSize(2)
        i = i + 1
    Next
    .Columns("A:C").AutoFit
End With
End Sub
Изменено: V - 28.05.2021 16:45:15
Как из TextBox вписать в ячейку число в числовом (не в текстовом) формате, Установить формат ячеек через VBA
 
Цитата
vikttur написал:
Для целых - Val
по чему же. если разделитель точка то и дробную часть увидит.
Поиск значения на основе неявных данных
 
читайте справку про 4 параметр "интервальный_просмотр".
Цитата
M-I-B написал:
все дело в "интервальном просмотре"?
Да.
Изменено: V - 19.05.2021 15:25:20
Запись данных на листы с UserForm
 
Цитата
Вадим написал:
он ищет только первый поиск  (Манго
неа, не ищет. Т.к. в Columns(1) только "склад" и никакого "Манго"
П.С. по моему приход и отгрузку лучше на разных листах сделать.
Find ищет только на одном листе, по этому нужно в цикле переходить по листам и проводить процедуру поиска на каждом листе.

написанный код добавляйте в файл пример.
Изменено: V - 19.05.2021 14:42:54
Выбор из выпадающего списка с подстановкой данных из справочника в другом месте
 
Цитата
Антон Тетерев написал:
Лист Направление, следующая ячейка  в строк после Профессия там выбрана "санитарка"
в примере нет, отвалился список.
Слетает выпадающий список после закрытия и открытия документа
 
без ф-ции СМЕЩ не обойтись? не раз замечал что относительные ссылки в ф-ции СМЕЩ могут слетать. в чем причина не вникал. Старался СМЕЩ в паре с относительными ссылками не исползовать.
Как записать число с более чем 15 значащими цифрами
 
Oльга, при расчете все равно возьмет только 13.
Как записать число с более чем 15 значащими цифрами
 
костыль :) чисто для визуализации. на расчет не влияет.
=СУММ(U8*--"98,403128332740846"%/100%)
Изменено: V - 22.04.2021 10:46:15
Вернуть данные из общей таблицы по двум критериям
 
для ВПР в "Просмотриваемых данных" перед таблицей добавьте столбец с формулой =J14&K14 и соответственно откорректируйте формулу ВПР.
Слетает выпадающий список при открытии документа
 
у ф-ции СМЕЩ относительные ссылки могут слетать.
Перестал работать нормально работающий макрос, выдаёт ошибку
 
Цитата
Bodrichkom написал:
сейчас отказывается работать
и что пишет? на какой строчке?
Перенос из бланка-ввода заказа в БД
 
для переноса не обязательно копировать.
например
Код
Sheets("Kbcn1").Range("F1")=Sheets("Kbcn2").Range("F10").value
Передача из Sub Label_Click значения
 
вот
Передача из Sub Label_Click значения
 
объявите как публичную (глобальную) переменную и не нужно её объявлять во всех кодах
Изменено: V - 02.04.2021 10:11:13
Передача из Sub Label_Click значения
 
файл не помешал бы.
Код
public Theme_Number As Integer
Изменено: V - 02.04.2021 10:07:46
Поиск значений в заданном диапазоне и подсчет количества отработанных часов
 
проверяйте если правильно понял.
Код
=ИНДЕКС(C12:C16;ПОИСКПОЗ(A2;A12:A16;))/A10*ИНДЕКС(D11:Z11;ПОИСКПОЗ(B2;ИНДЕКС(D12:Z16;ПОИСКПОЗ(A2;A12:A16;););1))

ссылки относительные, абсолютными сделаете сами.
Изменено: V - 01.04.2021 16:37:42
Макрос копирования формулы с изменением аргумента, Помогите написать макрос копирования формулы с изменением аргумента по алгоритму ручного изменения
 
scalpoff, СМЕЩ - летучая функция, т.е. пересчитывается при любом чихе. А т.к. их у вас по ходу будет много то может файл подтормаживать.
Макрос копирования формулы с изменением аргумента, Помогите написать макрос копирования формулы с изменением аргумента по алгоритму ручного изменения
 
вариант
Код
srtformula = Mid(Selection.Formula, 1, Len(Selection.Formula) - 2)
For i = 1 To 10
    Selection.Offset(, i * 3).Formula = srtformula & i + 1 & ")"
Next

п.с. может лучше ИНДЕКС чем СМЕЩ
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 162 След.
Наверх