Visual Basic Excel作成コードのチェックボックス

Question

ボタンをクリックするとテキストファイルが読み込まれ、テキストファイルの行が列に読み込まれます。私は、行に含まれるものに応じて、特定の行に隣接するセルにチェックボックスを追加する必要があります。

チェックボックスのようなコンポーネントをコードに作成することはできますか？

ご回答いただければ幸いです。

Answer 1

@Sivaが提供するリンクは確かに有効ですが、私は外部リンクの代わりにStackOverflowで回答する方が好きです。したがって、ここであなたが探しているかもしれない解決策は以下のとおりです。

Option Explicit 

Public Sub tmpSO() 

Dim i As Long 
Dim chk As CheckBox 

With ThisWorkbook.Worksheets(1) 
    .CheckBoxes.Delete 
    For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row 
     If .Cells(i, "A").Value2 = "need checkbox" Then 
      Set chk = .CheckBoxes.Add(Left:=.Cells(i, "B").Left, Top:=.Cells(i, "B").Top, Width:=.Cells(i, "B").Width, Height:=10) 
      chk.OnAction = "runThisSub" 
      chk.Name = "CheckBowInRow" & i 
      chk.Caption = "CheckBowInRow" & i 
     End If 
    Next i 
End With 

End Sub 

---

Sub runThisSub() 

MsgBox "You clicked the checkbox " & Application.Caller _ 
      & Chr(10) & "in cell " & ThisWorkbook.Worksheets(1).CheckBoxes(Application.Caller).TopLeftCell.Address 

End Sub 

コピーの両方潜水艦はModuleに第一副

1. シートでExcelファイルと変更にテキストは（ここではWorksheet(1)です）、
2. にインポートされます。条件が見つかる欄（ここでは列A）、さらに
3. 条件は何ですか（ここでは列Aの値はneed checkboxでなければなりません）。

コードがシートWorksheet(1)に列A内のすべてのセルに目を通すと、値がneed checkboxであるかどうかをチェックします。その場合、コードはそのセルに隣接する列Bに自動的にチェックボックスを追加します。

新しく作成されたチェックボックスのいずれかをクリックすると、2番目のサブが起動し、メッセージボックスにどの行がクリックされたかを示すチェックボックスが表示されます。