Создание UserForm с CheckBox при выполнении макроса

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание UserForm с CheckBox при выполнении макроса (Макросы/Sub)

rever27

Дата: Суббота, 01.08.2015, 21:45 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте. Есть простенький код
[vba]

Код

For i = 1 To 10
Cells(i, 1) = "Номер " & i
Next

[/vba]

Нужно в цикл вставить создание CheckBox в общей UserForm с названием Cells(i, 1).

Т.е. при нажатии макроса должно на пустом листе в ячейках А1:А10 появится название "Номер i", появиться UserForm с 10 CheckBox такого же названия, длинной строго под эти 10 галочек

Ответить

AndreTM

Дата: Воскресенье, 02.08.2015, 02:51 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Во-первых, ваш "простенький код" создаст вам значения для ячеек на активном в данный момент листе. А никак не на каком-то вашем "пустом". И, кстати, даже не факт, что в текущей книге

А насчёт юзерформы - так это тоже к вам, здесь телепатов нетути... мы эту форму в глаза не видели, и даже в хрустальном шаре не наблюдаем...

Кстати, уважаемый: "нажатие макроса" - это сродни "понюхать зелёный"... чуть не написал "потереть 'Пуск'", но вовремя вспомнил о сенсорных экранах :)

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Воскресенье, 02.08.2015, 02:57

Ответить

alex77755

Дата: Воскресенье, 02.08.2015, 07:49 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Так добавляется у меня. Подпили под свои нужды
[vba]

Код

For R = 1 To UBound(M, 2)
      N = M(1, R)
      Set Q = Me.Controls.Add("Forms.CheckBox.1")
      With Q
          H = 14
          .Top = T * H
          .Left = C * 70
          .Name = NM & R
          .Caption = N
          T = T + 1
          If T = 9 Then
          T = 0
          C = C + 1
          End If
      End With
Next

[/vba]

К сообщению приложен файл: 0317987.jpg (37.9 Kb)

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Воскресенье, 02.08.2015, 07:52

Ответить

rever27

Дата: Воскресенье, 02.08.2015, 10:24 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

AndreTM, Это код для примера. Естественно, если бы у меня был полный готовый код, я бы его сюда выложил. Меня интересовала возможность эти осуществить с примером.

alex77755, То, что нужно. Спасибо )

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание UserForm с CheckBox при выполнении макроса (Макросы/Sub)

Страница 1 из 1
1