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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

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


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

Автор - Pelena
Дата добавления - 19.01.2021 в 22:31
mgt Дата: Пятница, 22.01.2021, 12:57 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 96
Репутация: 24 ±
Замечаний: 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
Поиск:

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