Игорь А (Автор тем)

Сгенерировать случайное имя-отчество из данных соседнего листа

Пользователь

Сообщений: 8 Регистрация: 25.09.2022

30.11.2022 19:32:55

Добрый вечер всем !

Как макросом сгенерировать случайное Имя Отчество в ячейку "E3" листа "ИО"
Имя берется из листа "Данные" из столбца "B2:B"
Фамилия берется из листа "Данные" из столбца "С2:С"
При этом не нужно генерировать Имя-Отчество из одинаковых имен и отчеств
Например: не нужно Александр Александрович, Андрей Андреевич и тд
(когда имя-отчество в соседних ячейках рядом на листе "Данные")

Пример файла во вложении

Перейти

Разделить дробное число на части

Игорь А

Пользователь

Сообщений: 8 Регистрация: 25.09.2022

26.09.2022 17:49:37

Добрый вечер всем !

Есть в ячейке число дробное с двумя знаками после запятой - например 50,93 192,25 10001,87
Как из этих чисел взять целую и дробную часть макросом - и записать в переменные
Например:
Число 50,93
Переменная t1=50 - целая часть Переменная t2=0,93 - дробная часть

Число 192,25
Переменная t1=192 - целая часть Переменная t2=0,25 - дробная часть

Число 10001,87
Переменная t1=10001 - целая часть Переменная t2=0,87 - дробная часть

Перейти

Отобразить в ListBox время

Игорь А

Пользователь

Сообщений: 8 Регистрация: 25.09.2022

25.09.2022 18:40:37

Добрый вечер !

На 1 листе кнопка вызова формы - в форму должно попасть время из столбца С со второго листа
Но дело в том что время отображается некорректно в ListBox - многозначным числом

Как поправить этот макрос в форме чтоб время показывал ?

Код

Private Sub UserForm_Initialize()

Dim iLastRow As Long, k As Long
Dim myArray()

    With Worksheets("Данные")
        iLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row 'последняя строка в столбец С
        myArray() = .Range("C2:C" & iLastRow).Value
    End With

    For k = LBound(myArray) To UBound(myArray)
        If myArray(k, 1) <> "" Then ListBox1.AddItem myArray(k, 1)
    Next k

End Sub

Изменено: Игорь А - 25.09.2022 18:41:15

Перейти