Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42326 / 76732 ←次へ | 前へ→

【39477】チェックボックスについてなんですけれども・・
質問  超ビギナー E-MAIL  - 06/6/24(土) 21:59 -

引用なし
パスワード
   UserFormには20個のCheckBoxがあり、CheckBoxでチェックを入れるとA列の空いている上のセルから順にプロットしていくようなマクロをネットで見ながらなんとか出来たのですが、チェックをはずしたときにそのセルにプロットした文字を消したいのですが上手く出来ません。
今の状況は、チェックを外したら、チェックをつけた時と同じ動きになってしまいます。
どなたかヒントをお願い致しますm(__)m


Private Sub CheckBox1_Click()
Dim i As Range

 On Error Resume Next
 Set i = Columns("A").SpecialCells(xlCellTypeBlanks).Cells(1, 1)
 On Error GoTo 0
 If i Is Nothing Then
  If Range("A1").Value = "" Then
   Set i = Range("A1")
  ElseIf Range("A65536").Value <> "" Then
  Else
  MsgBox "対象範囲にはすべて入力済みです"
  End If
 End If
 
 If Not i Is Nothing Then
  i.Value = "root"
 Else
  MsgBox "対象範囲にはすべて入力済みです"
 End If

End Sub

0 hits

【39477】チェックボックスについてなんですけれども・・ 超ビギナー 06/6/24(土) 21:59 質問
【39479】Re:チェックボックスについてなんですけれ... [名前なし] 06/6/24(土) 23:39 発言
【39506】Re:チェックボックスについてなんですけれ... 超ビギナー 06/6/25(日) 21:48 質問
【39509】Re:チェックボックスについてなんですけれ... [名前なし] 06/6/25(日) 22:10 発言
【39511】Re:チェックボックスについてなんですけれ... 超ビギナー 06/6/25(日) 22:22 お礼

42326 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free