ExcelのK3セルのフィルターで一つチェックを入れて表示してから、実行するボタン(マクロ)が有りま

Question

ExcelのK3セルのフィルターで一つチェックを入れて表示してから、実行するボタン(マクロ)が有ります。

今は、フィルターをしていなくても、実行できますが、
K3セルのフィルターで一つを選んでからでないと、

エラーにして、
［フィルターで一つにチェックを入れて！］と、注意文を画面に表示させたいです。

どうか、マクロを教えて下さい。

Qchan1962 · Accepted Answer

>最後に質問です。
こういうエクセルの表とマクロとを見て貰って、手直ししてくれる所ってありますか？
すみません。知りません。

Qchan1962 · Answer

#6です
現状コード追加補足コードの全貌が良く分かりませんので、
参考になるか分かりませんが私が回答したもので組むと
Sub ボタン1_Click()
Dim i As Long
Dim r As Range, rr As Range
With ActiveSheet
If .AutoFilterMode Then
For i = 1 To .AutoFilter.Filters.Count
If .AutoFilter.Filters(i).On And .AutoFilter.Range(i).Column = 11 Then
If .AutoFilter.Filters(i).Operator <> 0 Then
MsgBox ("フィルターキーは1つだけ選んでください")
Else
Call メイン処理(i)
End If
Exit Sub
Else
If .AutoFilter.Range(i).Column = 11 Then
Set r = .AutoFilter.Range(i).Offset(1)
Set rr = .Range(r, .Cells(Rows.Count, 11).End(xlUp))
If Application.CountIf(rr, r.Value) = rr.SpecialCells(xlCellTypeVisible).Count Then
MsgBox ("最後のキーです")
Call メイン処理(i)
.AutoFilterMode = False
Exit Sub
End If
End If
End If
Next i
MsgBox ("フィルターキーを1つ選んでください")
Else
MsgBox ("フィルターを設定してキーを1つ選んでください")
End If
End With
End Sub
Sub メイン処理(i As Long)
Dim N As Long ', myRng As Range
'Set myRng = Range(Range("A3"), Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeVisible)
'N = myRng.Cells(1, 1).Row
N = 3
Dim rw As Long
Dim u As Range, c As Range
With ActiveSheet
rw = Application.Max(.Cells(Rows.Count, 11).End(xlUp).Row, 11) - 3
For Each c In .Range("U4").Resize(rw).SpecialCells(xlCellTypeVisible)
If Not c.EntireRow.Hidden Then
If u Is Nothing Then Set u = c Else Set u = Union(u, c)
End If
Next
If Not u Is Nothing Then u.Value = .Cells(N, 21).Value
End With
MsgBox ("仕入先名フィルター設定は：" & ActiveSheet.AutoFilter.Filters(i).Criteria1 & "　です")
End Sub

ですが、他の処理もきっとあるのですよね。。
ちなみに補足でのコードは
必ず　U3セルの値が書き込まれるような処理になっています

= .Cells(N, 21).Value　を　U3セル決め打ちにしても同じかも
そうすると
Dim N As Long ', myRng As Range
'Set myRng = Range(Range("A3"), Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeVisible)
'N = myRng.Cells(1, 1).Row
はそっくり要りません。。ね
（ご質問（コード）に沿ったコードで汎用性、合理性などは追求していません）

mygoonickname · Answer

こんにちは。

流れを全て把握していませんが、宣言を全て、Subより上に持ってきては
ダメなのでしょうか？　Sub内では、Dim宣言をしないとか。
的外れな回答でしたら、スルー願いします。

Dim N As Long, myRng As Range
Dim rw As Long
Dim u As Range, c As Range

Sub 〇〇〇

End Sub

Qchan1962 · Answer

こんにちは
Dim N As Long, myRng As Range　を
プロシージャ上部に1度宣言すれば良いです。
（書く（各）場所には不要）
又は実行前に一度宣言すれば良いです。。（下部に2度宣言する必要はありません）

Call　で呼ぶ方法が良いかと
例

MsgBox ("最後のキーです")
Call メイン処理(i)

補足に挙げられたコード（引数、変数、ActiveSheetを追加）コンパイル
内容は未確認。

処理プロシージャ
Sub メイン処理(i As Long)
Dim N As Long, myRng As Range
Set myRng = Range(Range("A3"), Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeVisible)
N = myRng.Cells(1, 1).Row
Range(Cells(N, 21), Cells(N, 21)).Copy
Dim rw As Long
rw = Application.Max(Cells(Rows.Count, 11).End(xlUp).Row, 11) - 3
Range("U4").Resize(rw).SpecialCells(xlCellTypeVisible).Select
Dim u As Range, c
For Each c In Selection
If Not c.EntireRow.Hidden Then
If u Is Nothing Then Set u = c Else Set u = Union(u, c)
End If
Next
If Not u Is Nothing Then u.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
MsgBox ("仕入先名フィルター設定は：" & ActiveSheet.AutoFilter.Filters(i).Criteria1 & "　です")
End Sub

Qchan1962 · Answer

こんばんは
組み込みは出来たと解釈して
＞K列のフィルターラスト1個の場合は？
非表示で1つになるかなぁ？、、行削除と言う事で。

＞K列のフィルターラスト1個の場合は、フィルターを1つ選択して下さい、とメッセージボックスが出て、貼付が出来ません。

なるほど、、使い方はともかくとして最後にと言う事ですね
.AutoFilter.Filters(i).Onにならないなら、取得も出来ないので、、
力業かな？

最後なので非表示セルがないと思いますが、（補足文ではある事になっていますが）
一応　SpecialCells(xlCellTypeVisible)として

＃３のコード間違いもあるので　書き直すと、、
Sub test()
    Dim i As Long
    Dim r As Range, rr As Range
    With ActiveSheet
        If .AutoFilterMode Then
            For i = 1 To .AutoFilter.Filters.Count
                If .AutoFilter.Filters(i).On And .AutoFilter.Range(i).Column = 11 Then
                    If .AutoFilter.Filters(i).Operator <> 0 Then
                        MsgBox ("フィルターキーは1つだけ選んでください")
                    Else
                        MsgBox ("キー設定は：" & .AutoFilter.Filters(i).Criteria1 & "　です")

End If
                    Exit Sub
                Else
                    If .AutoFilter.Range(i).Column = 11 Then
                        Set r = .AutoFilter.Range(i).Offset(1)
                        Set rr = .Range(r, .Cells(Rows.Count, 11).End(xlUp))
                        If Application.CountIf(rr, r.Value) = rr.SpecialCells(xlCellTypeVisible).Count Then
                            MsgBox ("最後のキーです")
                            .AutoFilterMode = False
                            Exit Sub
                        End If
                    End If
                End If
            Next i
            MsgBox ("フィルターキーを1つ選んでください")
        Else
            MsgBox ("フィルターを設定してキーを1つ選んでください")
        End If
    End With
End Sub

メッセージ部分が分岐処理結果です。
その場所に実行コード又は実行プロシージャをCallしてみてください

Qchan1962 · Answer

こんにちは＃３です。
＞その組み込み方法が分かりません。
他のマクロが分からないのでどうなっているのかわかりません。
＞(フィルター一つのみ選択時、のみ貼付)

If .AutoFilter.Filters(i).Operator <> 0 Then
MsgBox ("フィルターキーは1つだけ選んでください")
Else
’この部分が1つのみ選ばれている時に実行されます
’従ってここで貼り付けコードを書けば良い？
End If

K列のみに対して調べて実行するのなら
If .AutoFilter.Filters(i).On Then　を
If .AutoFilter.Filters(i).On And .Cells(1, i).Column = 11 Then
ちょっとやっつけ感ありますが、K列が対象になるかと。。

全く違う方向に向かっている様でしたら、貼り付けコード（プロセス）を示してもらえると、、いいかな

Qchan1962 · Answer

こんばんは、
参考コードです。
Sub test()
Dim i As Long
    With ActiveSheet
        If .AutoFilterMode Then
            For i = 1 To .AutoFilter.Filters.Count
                If .AutoFilter.Filters(i).On Then
                    If .AutoFilter.Filters(i).Operator <> 0 Then
                        MsgBox ("フィルターキーは1つだけ選んでください")
                        Else
                        MsgBox ("キー設定は：" & .AutoFilter.Filters(i).Criteria1 & "　です")
                    End If
                    Exit Sub
                End If
            Next i
            MsgBox ("フィルターキーを1つ選んでください")
        Else
            MsgBox ("フィルターを設定してキーを1つ選んでください")
        End If
    End With
End Sub

MsgBox部分を参考にコードを実行すれば良いかも
A列からK列までフィルタが掛かっているのなら、、11でいい？

fujillin · Answer

こんばんは

ActiveSheet.AutoFilter.FilterMode

でフィルタがかかっている状態かどうかが判断できると思いますので、それで分岐してみてください。
https://docs.microsoft.com/ja-jp/office/vba/api/excel.autofilter.filtermode

mygoonickname · Answer

こんばんは。

フィルターですと、下記の記事が参考になるかと思います。
http://officetanaka.net/excel/vba/tips/tips129.htm

ただ、フィルターでK列の1つだけの条件が選ばれているかを調べる方法が
あるのかが、見た限り分りませんでした。
フィルターで絞り込まれているかどうか？は、調べられる様です。

少しでも参考になれば良いですが。。。

ExcelのK3セルのフィルターで一つチェックを入れて表示してから、実行するボタン(マクロ)が有りま

>最後に質問です。

#6です

こんにちは。

こんにちは

こんばんは

こんにちは＃３です。

こんばんは、

こんばんは

こんばんは。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング