先程オートフィルタについて質問させて頂いた者です

質問

先程は的確なアドバイスありがとうございました。

更に質問させて頂きたい事があり、
厚かましいと思いましたがこちらに投稿させていただきました。
（nishi6さまに直接質問させて頂きたくてこちらに投稿しましたが
もし間違っていたのなら申し訳ありません）

今回もオートフィルタのついての質問ですが
現在添付ファイルのような表をつかって作業をしています。

列は１か月分続きますが、作業は１週間ごとに区切って行っています。
１週間のうち、１回目の返品をオレンジ色、２回目の返品を青色。
１回しか返品がなかった場合は色づけなしで区別しています。
（ちなみに先程の質問でフィルタを解除したくなかったのは左端の「返品」です）

はじめは色づけする作業から始まります。

1日ずつ空白セルのみ・空白セル以外でフィルタをかけては解除しての延々繰り返しで
よくわからなくなることもしばしばあります（笑）

この作業の中で複数の列を空白なしでフィルタをかけることがあるのですが
日数が増えてくると1日ずつフィルタをかけるのが大変になってくるので
一回でできる方法はありませんでしょうか？
複数列に同じ条件で一括でフィルタをかける方法があれば知りたいです。

大変厚かましいのは重々承知の上ですが
どうかお知恵をお貸しください。。。

よろしくお願いいたします。

回答No.3

nishi6 · ベストアンサー

＞「Sub 色付け()」から「End Sub 」までを・・・

（１）開発タブ＞Visual Basicを選択。VBE画面が表示されます。（Alt+F11でも可）
（２）表示されたVBE画面のメニューで、挿入＞標準モジュールとします。
（３）表示された標準モジュールに「Sub 色付け()」から「End Sub 」までをコピーして貼り付けます。
（４）Excel Sheetに戻ります。（Alt+F11でも可）
（５）色を付けたいセル領域を選択します。
　　　　広いセル領域の選択は、領域の左上セルを選択した状態で、
　　　　名前ボックスに右下セルを入力して、「B2:h34」のようにして、
　　　　Shift+Enterとすれば簡単に選択できます。慣れれば簡単です。
（６）開発タブ＞マクロ＞色付け　を実行します。

マクロは、選択したセル領域の色付けをクリアした後、色付けを行っています。
従って、１回色付けをした後、データ修正があれば、修正した後、再度マクロ色付けを実行してください。

マクロは色付けを行った後、選択領域が選択されたままです。どこかセルをクリックすればいいんですが、最後の２行目の「End With」の前に、「　　.Cells(1, 1).Select」を挿入すれば、選択した領域の左上セルが選択された状態で終わります。試してみてください。

　　Next
　　.Cells(1, 1).Select
　End With
End Sub

お礼

お礼が遅くなり申し訳ありません。。

結局今回教えて頂いたやり方ではうまくできませんでしたが
何度となく親切丁寧にお答えくださったので
こちらをベストアンサーにさせていただきます。

この度はありがとうございました(^^♪

補足

先程実際に登録して実行してみましたが
色が消えただけでした。。

金曜日から木曜日まで列をまるごと選択してから実行したり
列まるごとではなく、表の部分だけ選択してみたりしましたが
やはり結果は同じでした。。

選択の仕方がおかしったのでしょうか？

回答No.4

msMike

》 …すればその方に個人的に質問できるものだと勘違いしておりました。
そうなんですよ。私も同じ苦い経験をしたことがあります。

お礼

そうですよね(笑)
あの表記だと勘違いしてしまうのも無理はないと思いました。。

回答No.2

nishi6

実を言うと、Excelでフィルター機能を使ったことはほとんどありません。
理由は、質問に書かれているように、面倒くさいのと作業や処理が個人の知識や技量に依存して、大事な確認が難しくなることです。
経験からですが、Excelで１つの同じ作業が時間単位の場合、何らかの別方法がありました。Excelの機能を使ったり、無ければマクロということになります。
社内では、５分以上かかる作業は別方法（正確、確認が簡単、誰でもできる作業）があると言っていました。

この質問の場合、フィルターをかけることに注力した方法を考えてもあまり効果がないように思えます。
添付図を見る限り、色付けは簡単な理屈に見えます。しかし、内容について少し疑問があります。
（１）この添付図は、１日から７日（８日）までに対応する結果？
（２）10008行と10011行の３日にオレンジ色が付いているのはなぜ？
（３）例えば、10002行で、10日に「2」とかになってもどこにも色はつかない？
（４）１日から７日までの処理の次は、８日から１４日、１５日から２１日となっていく？
（５）前月末のデータは今月初めに影響しない？
（６）３回以上の返品は無い？

私なら、２か月分のデータを登録し、２か月分で色をつけるか、選択して１週間ごとに色を付けると思います。
「１週間」ごとの作業の意味が、月初めの１日からだと、月末の数日はどうする？というような疑問も起きてきます。
実際の処理内容が分からないので、勝手なことを書いているとおもいます。ご容赦を。

フィルターのかけ方は難しいので、マクロを考えました。

色をつけたいセル（日付の方）を選択して、マクロ「色付け」を実行します。
10008行と10011行の３日にはオレンジ色が付きませんでした。広いセル領域の選択は、名前ボックスを使えば簡単です。

Sub 色付け()
　Dim rng As Range　'// セル
　Dim rw As Long　　'// 行カウンタ
　Dim topRw As Long '// A列の行
　Dim col As Long　 '// 列カウンタ
　Dim col1 As Long　'// 1回目の列
　Dim col2 As Long　'// 2回目の列
　Dim col3 As Long　'// 3回目の列

　With Selection
　　.Interior.ColorIndex = 0　'// 塗りつぶしを消す
　　topRw = .Cells(1, 1).Row　'// A列の行

　　'// 選択した範囲を行単位で調べる
　　For rw = 1 To .Rows.Count
　　　'// 返品を調べる
　　　If Range("A" & (topRw + rw - 1)) = "返品" Then
　　　　'// 各日の入力を調べる
　　　　For col = 1 To .Columns.Count
　　　　　If .Cells(rw, col) <> "" Then
　　　　　　If col1 = 0 Then '// 1回目
　　　　　　　col1 = col
　　　　　　ElseIf col1 <> 0 And col2 = 0 Then '// 2回目
　　　　　　　col2 = col
　　　　　　Else
　　　　　　　col3 = 99　　''// 3回目以上の入力を避ける
　　　　　　End If
　　　　　End If
　　　　Next
　　　　'// 色付け
　　　　If col1 <> 0 And col2 <> 0 Then
　　　　　.Cells(rw, col1).Interior.ColorIndex = 40 '// オレンジ
　　　　　.Cells(rw, col2).Interior.ColorIndex = 37 '// 青
　　　　End If
　　　　col1 = 0: col2 = 0
　　　End If
　　Next
　End With
End Sub

補足

遅い時間にも関わらず、またまたご回答ありがとうございます。

まず、疑問点についてですが

（１）この添付図は、１日から７日（８日）までに対応する結果？
　　　厳密にいえば毎週金曜日～木曜日（添付していただいた表に基づくと月～土）ですが
　　　1日を非表示にするのを忘れておりました。

（２）10008行と10011行の３日にオレンジ色が付いているのはなぜ？
　　　申し訳ありません。
　　　単純に色づけミスなので、本来なら色づけなしです。

（３）例えば、10002行で、10日に「2」とかになってもどこにも色はつかない？
　　　はい。
　　　10日は次の週なので、対象外になるので色はつきません。

（４）１日から７日までの処理の次は、８日から１４日、１５日から２１日となっていく？
　　　はい。
　　　ただし、月の最終日が週の途中でもそこまでで集計します。
　　　（今月ですと、9/30は月曜日ですが、その週は10/3までではなく30日までです。）

（５）前月末のデータは今月初めに影響しない？
　　　はい。影響しません。
　　　月が変わった時点でリセット？されます。

（６）３回以上の返品は無い？
　　　はい。ありません。

正直上司から依頼されたものを処理してるだけなので、色々疑問に思う箇所もあります。
（これらの処理で完成した表に基づいて何らかの分析をするそうですが。。）

マクロを考えて頂きありがとうございました。
私の求めている結果は添付して頂いた画像であってると思います。
ただ、マクロ自体あまり詳しくなくて
「マクロの記録」から登録してする方法しかやり方がわかりません。。

たくさん書いていただいた「Sub 色付け()」から「End Sub 」までを
「開発」から「visual basic」を開いてどこかにコピペすれば実行できるのでしょうか？

回答No.1

msMike

》 先程は的確な…
「先程は」ではドレのことか一般人には分かりません。URLで示すべきです。
例えば貴方のこの質問の場合はブラウザの上端に記されている
https://okwave.jp/qa/q9657501.html?f=mail_favorite_new
のことです。
「先程」に該当するソレをコピーして貼り付ければ御の字です。

お礼

大変失礼いたしました。
以前別の質問でいろいろアドバイスをくださった方に個別に質問がしたくて
「このユーザーに質問する」から質問すればその方に個人的に質問できるものだと勘違いしておりました。

その方法で質問してもすべてに公開されるんですね。
私の知識不足でした。。。

この質問は一旦削除して、改めて質問しなおすことにします。

ご指摘いただきありがとうございました。