Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55455 / 76732

←次へ　｜　前へ→


	【26051】Re:セルにチェックボックスを関連付けるには？

だるま

- 05/6/22(水) 16:21 -


	引用なし

	パスワード

>1行1行に対して、カラムAにチェックボックスを割り当てて（関連付けて）、
>チェックが入った場合に、その行の色を変えたいと思っています。
>新しく行が増えた場合にも新たにチェックボックスを作成し、
>割り当てたいと考えています。

チェックボックスという形にこだわりますか。
もし形はどうでもいいというのであれば、右クリックで処理する手もあります。
これなら行が増えても減っても自動で追従します。^d^

===== ThisWorkbookモジュール =====
Private Sub Workbook_SheetBeforeRightClick _
　　(ByVal Sh As Object, ByVal Target As Range, _
　　Cancel As Boolean)
　　
　　Dim myCell As Range
　　Dim myRange As Range
　　
　　With Target
　　
　　　　'二列以上選択していたら
　　　　If .Columns.Count >= 2 Then Exit Sub
　　　　'A列以外だったら
　　　　If .Column <> 1 Then Exit Sub
　　　　
　　　　'処理対象範囲をシートの使用範囲との交わり部分とする
　　　　Set myRange = Intersect(.Cells, _
　　　　　　Target.Worksheet.UsedRange.EntireRow.Columns(1))
　　　　If myRange Is Nothing Then Exit Sub
　　　　
　　　　For Each myCell In myRange
　　　　　　With myCell
　　　　　　　　If .Value = "レ" Then
　　　　　　　　　　.Value = "-"
　　　　　　　　　　.EntireRow.Interior.ColorIndex _
　　　　　　　　　　　　= xlAutomatic
　　　　　　　　Else
　　　　　　　　　　.Value = "レ"
　　　　　　　　　　.EntireRow.Interior.ColorIndex = 3
　　　　　　　　End If
　　　　　　End With
　　　　Next
　　　　
　　End With
　　
　　Cancel = True
　　
End Sub

0 hits

▼