ActiveCell.Row & " " & ActiveCell.Column

Fieldは列番号です Selection.AutoFilter でAND条件検索します Criteria1/Criteria2で範囲を指定します Sub 年数フィルター(year As Integer) If IsNull(year) Or year <= 0 Then Selection.AutoFilter Field:=4 Exit Sub Else Selection.AutoFilter Field:=…

列番号:3を指定します Sub 性別フィルタ_女性() Selection.AutoFilter Field:=3, Criteria1:="=女", Operator:=xlAnd End Sub Sub 性別フィルタ_男性() Selection.AutoFilter Field:=3, Criteria1:="=男", Operator:=xlAnd End Sub Sub 全ての性別() Selecti…

スピンボタン スピンボタンの値をID指定セルの値と同期するために シート変更イベント「Worksheet_Change」を監視 Private Sub SpinButton1_Change() Sheets("明細書印刷用").Range("A10").Value = SpinButton1.Value End Sub ' スピンボタンの値をID指定セ…

文字列幅のチェック Dim strYearMonth As String strYearMonth = Sheets("データ設定").Range("C11") If Len(strYearMonth) = 6 Then 'MsgBox strYearMonth & " " & Len(strYearMonth) Else MsgBox strYearMonth & " 対象年月は６桁で指定してください" Exit…

show FORM hide FORM unload FORM Range Range("B" & x_id).Value = Me.txtTitle.Text Cell