| |
こんにちは。
簡易的なサンプルですが。
Option Explicit
Sub サンプルシート作成() 'できたシートのCheckBoxクリック
Dim i As Long
With Sheets.Add
With .Range("A1:C20")
.Formula = "=address(row(),column(),4)"
.Value = .Value
End With
With .Range("E1")
For i = 1 To 3
With .Cells(i, 1)
With .Worksheet.CheckBoxes.Add _
(.Left, .Top, .Width, .Height)
.Placement = xlFreeFloating
.OnAction = "try"
End With
End With
With .Cells(i, 2)
With .Worksheet.TextBoxes.Add _
(.Left, .Top, .Width, .Height)
.Placement = xlFreeFloating
.Text = VBA.Array("A2*", "B2*", "C2*")(i - 1)
End With
End With
Next
End With
End With
End Sub
Sub try()
Dim i As Long
With ActiveSheet
For i = 1 To 3
If .CheckBoxes(i) = xlOn Then
.UsedRange.AutoFilter Field:=i, _
Criteria1:=.TextBoxes(i).Text
Else
.UsedRange.AutoFilter Field:=i
End If
Next
End With
End Sub
>チェックボックスにチェックされた隣に文字列を入力出来るとします。
この辺は考慮してません。あくまで考え方の一例として。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
