Как связать CheckBox с ячейкой?

Ишшо вот... так на всякий случай....
ИСТИНА === True === 1
ЛОЖЬ === False === 0

> Mypppka
Вы писали:

а не "решите за меня задачу", как довольно часто пишут. К тому же, задача как таковая поставлена не совсем корректно.
Далее, Вы описали свою проблему

Код, приведенный выше, эту проблему решает? ;)
Теперь, давайте уточним, какая (или какие) именно связь требуется?
-- нажимаем одну из кнопок - в результате флажок  принимает нужное состояние, а в ячейке отображается так как вы хотите (решение есть);
-- переключаем флажок мышом - в ячейке отображается одно из трех состояний флажка (какими тремя из пяти символами они должны быть отображены, пока не понятно);
-- вводим в ячейку текст (ИСТИНА, True, 1, ЛОЖЬ, False, 0, Null, -1) - флажок меняет свое состояние в соотв. со значением в ячейке;
-- вводим в ячейку абракадабру (не являющуюся состоянием флажка) - флажок что делает???? ;)
Так что, будьте любезны, изложите полностью условия задачи, а то дежурный телепат в бессрочном отпуску :)

Как один из вариантов, докиньте в начале вот это

Private flag As Boolean
Private Sub UserForm_Initialize()
  flag = False
  Range("A1").NumberFormat = "@"
  With CheckBox1
    Select Case Range("A1").Value
      Case "true", True, 1, "истина"
        .Value = True
      Case 0, False, "false", "ложь"
        .Value = False
      Case Else
        .Value = Null
    End Select
  End With
  flag = True
End Sub
Private Sub CheckBox1_Change()
  If flag Then
    With Range("A1")
      Select Case CheckBox1.Value
        Case False
          .Value = "False"
        Case True
          .Value = "True"
        Case Else
          .Value = "Null"
      End Select
    End With
  End If
End Sub

Хренасе, формулировочка, подумал я, взглянув на размерчик прилагаемого файла :)))
На будущее, если уж лень перепечатать текст буква в букву, то jpg тем более зиповать совсем не обязательно - не жмется он почти что... Гораздо эффективнее из фотошопа уменьшить разрешение и сделать "Save for web", подобрав коэффициент сжатия...
Ладно, это не главное, взглянул... И даже перечитал дважды. Теперь скажите, где Вы обнаружили в этой методичке то, что натолкнуло Вас на эту проблему?

Укажите плиз хотя бы страницу и строку...

> Mypppka
Еще можно маленький вопросик?
Надо написать макрос, кот бы производил заполнение списка(ListBox) пятью фамилиями, используя свойство List, и связать с кнопкой.
Вот написала:

Private Sub CommandButton3_Click()
ListBox1.List = "Сидоров"
ListBox1.List = "Петров"
ListBox1.List = "Иванов"
ListBox1.List = "Васичкин"
ListBox1.List = "Веснушкин"
End Sub

А комп плюется, говорит, не правильно
Че не так?
Спасиб заранее:)

или так, чтоб меньше писать

  With Me.ListBox1
    .AddItem ("Иванов")
    .AddItem ("Петров")
    .AddItem ("Сидоров")
  End With

или вот так

Private Sub CommandButton1_Click()
  Dim listOfNames As Variant
  Dim oneName
  listOfNames = Array("Иванов", "Петров", "Сидоров")
  For Each oneName In listOfNames
    Me.ListBox1.AddItem (oneName)
  Next
End Sub

Кстати, если кнопку потыкать несколько раз, то список будет расти... Очищать не надо чтоль? ;)

Не вопрос

Private Sub CommandButton6_Click()
  Dim listOfNames As Variant
  listOfNames = Array("Иванов", "Петров", "Сидоров")
  Me.ListBox1.List() = listOfNames
End Sub

Кстати, пример добросовестно содран из Екселевского хелпа, с небольшой модификацией, разумеется  :)))
И кто из нас диплом получать будет? ;)

> Mypppka
есть еще такое:
Какой солдат не мечтает стать генералом...
;)

> Mypppka
Проверьте у Вас наверно кнопка F1 перестала работать :)

.AddItem [ item [, varIndex]]

varIndex Optional. Отвечает за позицию вставки.