Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выгрузка userform на лист 2 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка userform на лист 2 (Макросы/Sub)
Выгрузка userform на лист 2
tad_4real Дата: Вторник, 19.01.2021, 20:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, помогите пожалуйста связать форму, чтобы она выгружала всё на Лист2. Файлик прилагаю
К сообщению приложен файл: BirBir.xlsm(21.6 Kb)
 
Ответить
СообщениеЗдравствуйте, помогите пожалуйста связать форму, чтобы она выгружала всё на Лист2. Файлик прилагаю

Автор - tad_4real
Дата добавления - 19.01.2021 в 20:19
Pelena Дата: Вторник, 19.01.2021, 22:31 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17511
Репутация: 3890 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Как это должно выглядеть на Лист2? Нарисуйте вручную структуру


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Как это должно выглядеть на Лист2? Нарисуйте вручную структуру

Автор - Pelena
Дата добавления - 19.01.2021 в 22:31
mgt Дата: Пятница, 22.01.2021, 12:57 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub CommandButton1_Click()
Dim o As Object
Dim k%, r%
Dim s$
CommandButton1.Enabled = False
If Sheets(2).Range("a1").Value = "" Then
    r = 1
Else
    r = Sheets(2).Range("a65536").End(xlUp).Row + 1
End If
For Each o In UserForm1.Controls
    If TypeOf o Is MSForms.TextBox Then
        Sheets(2).Range("a" & r).Offset(0, k).Value = o.Value
        k = k + 1
    ElseIf TypeOf o Is MSForms.CheckBox Then
        If o.Value = True Then
            If s = "" Then
                s = o.Caption
            Else
                s = s & ", " & o.Caption
            End If
        End If
    End If
Next
Sheets(2).Range("a" & r).Offset(0, k).Value = s
CommandButton1.Enabled = True
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Private Sub CommandButton1_Click()
Dim o As Object
Dim k%, r%
Dim s$
CommandButton1.Enabled = False
If Sheets(2).Range("a1").Value = "" Then
    r = 1
Else
    r = Sheets(2).Range("a65536").End(xlUp).Row + 1
End If
For Each o In UserForm1.Controls
    If TypeOf o Is MSForms.TextBox Then
        Sheets(2).Range("a" & r).Offset(0, k).Value = o.Value
        k = k + 1
    ElseIf TypeOf o Is MSForms.CheckBox Then
        If o.Value = True Then
            If s = "" Then
                s = o.Caption
            Else
                s = s & ", " & o.Caption
            End If
        End If
    End If
Next
Sheets(2).Range("a" & r).Offset(0, k).Value = s
CommandButton1.Enabled = True
End Sub
[/vba]

Автор - mgt
Дата добавления - 22.01.2021 в 12:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка userform на лист 2 (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!