Вопрос на тему CheckBox

[Andrey26]

Здравствуйте,
Подскажите пожалуйста, возможно ли с помощью CheckBox'ов вносить в таблицу excel определенный текст?
А именно, имеется лист (каталог_книг) с колонками: название, автор, год, издатель,.... и жанр. При нажатии на ячейку в колонке "ЖАНР" должна появляться форма с CheckBox'ами имеющими названия жанров (роман, вестерн, детектив и т.п.) , при выборе определенного жанра он должен вставляться в ячейку, при выборе нескольких тоже самое, через запятую.

Заранее спасибо за информацию.

[VictorM]

Посмотрите вот это Пометка элементов списка флажками (checkbox)

[Andrey26]

Нет, не то, наверное непонятно объяснил, надо чтобы при выделении (нажании на) любую ячейку в столбе F открывалась форма на которой отображенны CheckBox'ы:
CheckBox1="роман"
CheckBox2="детектив"
CheckBox3="фэнтази"
CheckBox4="фантастика" и т.д.
и CommandButton:
CommandButton1-Ок
CommandButton2-выйти из формы
К примеру:
Если ставим галочку на CheckBox1 и нажимаем Ок, в ячейке появляется надпись "роман" и форма закрывается
Если ставим галочку на CheckBox1, CheckBox4, CheckBox10 и нажимаем Ок, в ячейке текст" роман, фантастика, триллер "и точь также как в предыдущем.
Ну как-то вот так.
Я конечно сам пробую, но к сожалению объем моих познаний в этой сфере равен почти нулю(((
Посмотрите пожалуйста, очень надо...

[VictorM]

Посмотрите вот это.

[nilem]

Виктор, еще можно так:

Код: Выделить всё

Option Explicit

Private Sub CommandButton1_Click()
Dim txt1, txt2 As String, i As Byte
txt1 = Array("Роман", "Детектив", "Фэнтези", "Фантастика и т.д.")
For i = 1 To 4
    If Me.Controls("CheckBox" & i) Then
        txt2 = txt2 & ", " & txt1(i - 1)
    End If
Next i
ActiveCell.Value = Mid(txt2, 3)
End Sub

Private Sub CommandButton2_Click(): Unload Me: End Sub

[Andrey26]

Спасибо Вам наиогромнейшее, выручили, Вы просто Гении

[VictorM]

Виктор, еще можно так:

Да, красиво!!!
Возьму себе на заметку.
p.s. Вообще-то я не программист, пишу как умею)))

[The_Prist]

Еще вариант:

Код: Выделить всё

Private Sub CommandButton1_Click()
    Dim oCntrl As Object, sTxt As String
    For Each oCntrl In Me.Controls
        If TypeOf oCntrl Is msforms.CheckBox Then
            If oCntrl Then
                sTxt = sTxt & ", " & Me.Controls("Label" & --Replace(oCntrl.Name, "CheckBox", "") - 1).Caption
            End If
        End If
    Next oCntrl
    ActiveCell.Value = Mid(sTxt, 3)
End Sub

Во вложении другой вариант, более гибкий.

[Majckl]

http://depositfiles.com/files/fp1imdwtw - все про VBA в MS OFFICE большинство для 2007 го и 2003