Excel vba チェックボックスの位置を調整 その2

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

シート上にある複数のチェックボックスを行ごとに配置させます。

完成イメージ


チェックボックスを配置するまでの手順は
「Excel vbaでチェックボックスの位置を設定」を参照
よってソースのみを記載します!

ソース


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 Dim maxCbox As Long
 Dim Cbox As Long
 maxCbox = ActiveSheet.CheckBoxes.Count

 For Cbox = 1 To maxCbox
  CheckBoxes(Cbox).Left = Range(Cells(Cbox, 1).Address).Left
  CheckBoxes(Cbox).Top = Range(Cells(Cbox, 1).Address).Top
 Next

End Sub


列ごとに配置する場合

 Dim maxCbox As Long
 Dim Cbox As Long
 maxCbox = ActiveSheet.CheckBoxes.Count

 For Cbox = 1 To maxCbox
  CheckBoxes(Cbox).Left = Range(Cells(1, Cbox).Address).Left
  CheckBoxes(Cbox).Top = Range(Cells(1, Cbox).Address).Top
Next

メソッド解説
ActiveSheet.CheckBoxes.Count
シート上にあるチェックボックスを数えてくれます!
※フォームコントロールのチェックボックスのみ

その他のプロパティ解説は「Excel vbaでチェックボックスの位置を設定」を参照

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

SNSでもご購読できます。

コメント

  1. erotik より:

    Awesome write-up. I am a normal visitor of your blog and appreciate you taking the time to maintain the nice site. I will be a regular visitor for a really long time. Marjy Arie Catlee

コメントを残す

*