エクセル マクロ

質問

・まずルールとして決められた時間　今回は『 8：00 』～『 17：00 』以外の時間外の『 同一日付 』の日付の計算をするエクセルの
マクロを組もうと考えています。少し複雑な内容になりますので私では組めなく困っております。
どうかお力添えをお願い致します。

考えている　作業としては　具体例を挙げますが

(1)　『 同一日付 』の『 8：00 』～『 17：00 』以外の時間外のまとめをしたい

(2) 下の例、　縦に並ぶ『 D 』セル内の　2012/07/10、7/12..と続く『 同一日付 』の時間外の時間を比較して

(3) 『 同一日付 』の『 E 』と『 F 』の数字の最初の数字（時間）と最後の数字（時間）を取得し

(4) 『 それ以外の時間 』には数字の上にーを引き《 エクセルの[ CTRL ]＋数字の[ ５ ] 》で

引ける取り消し線　ーを引き

(5) 『 D 』セル内の　2012/07/10 の『 同一日付 』が終わる『 下のセル 』

例（ ● ）黒丸の場所にセルを挿入し一旦『 空白を空け 』

その一旦『 空白を空け 』た『 A 』のセルに『 最初と最後の時間 』と書き込み

その行の『 E 』と『 F 』に『 同一日付 』の数字の最初の数字（時間）と最後の数字（時間）を

自動で書き込むマクロを作りたいのです

(6) ・『 D 』セル内の比較する『 同一日付 』は『 縦に並んでおり 』、１つの時もあれば多くて２０個

・基本的に20日～翌月20日まで（土日祝が20日に当たれば18日～20日など前後しますが）

・(3)のデータを取得し(5)で『 同一日付 』の数字の最初の数字（時間）と最後の数字（時間）

を書き込むので(5)で書き込む以外の　『 同一日付 』内の時間外の時間にはすべて取り消し線を引きます

・数字の上にーを引き《 エクセルのCTRL＋数字の５ 》で

引ける取り消し線を引き..が説明のテキストでは表現出来ませんでしたが..必要な作業です

例で　『 時間の下に× 』を書いて見ましたが、これが取り消し線を実行した感じの時です

上手く伝えられているか分かりませんが、どうぞよろしくお願致します

　　　A 　|　B　|　C　 | 　　　　D　　|　E　　|　　F
____________|_______|_______|________________|__________________
　　　　　|　　　|　　　|　2012/07/10|　17:24　| 17:37
_________________________________________________________________
　　　　　|　　　|　　　|　2012/07/10|　17:15　| 17:50
__________________________________________________________________　　　　　　
　　　　　|　　　|　　　|　2012/07/10|　17:15　| 17:22
__________________________________________________________________
　　　　 |　　　|　　　 |　　　　　|　　　　|　　　　　|
●(セル挿入) → 『 最初と最後の時間 』と書き込み
___________|_______|_______|__________|_________|___________________
　　　　　|　　　|　　　|　2012/07/12|　17:28　| 17:33
___________|_______|______|___________|_________|___×___|___×___
　　　　　|　　　|　　　|　2012/07/12| 17:35 | 17:38
___________|_______|______|___________|_________|___×___|___×___
　　　　　|　　　|　　　|　2012/07/12|　17:43　| 17:54
___________|_______|______|___________|_________|___×___|___×___
『 最初と最後の時間 』　　　|　　　　|17:28　　|　17:54
___________|_______|______|___________|_________|___×___|___×___
　　　　　|　　　|　　　|　2012/07/12|　17:37　| 17:45
___________|_______|_______|___________|_________|_______|___________
　　　　　|　　　|　　　|　2012/07/12|　17:50　| 17:53
___________|_______|_______|___________|_________|_______|__________

回答No.1

cj_mover · ベストアンサー

こんにちは。
（# 『時刻』、、、に関する処理、ということでいいのですよね？）
> 例で　『 時間の下に× 』を書いて見ましたが、これが取り消し線を実行した感じの時です
例示では、F:G列が×になっていたり、×（取消線）の位置が説明通りにはなっていないようですので、
説明文をこちらで解釈したものを元にしてお応えします。
期待されているものと、こちらの理解が一致していない可能性もありますので、
期待通りの結果が得られない場合は、補足欄にでも、より具体的な説明を書いてみてください。
修正点がハッキリと理解できれば、修正のお手伝いはします。

' ' ///
Sub Re8514242()
　　Dim vTemp
　　Dim vMin
　　Dim vMax
　　Dim c As Range
　　Dim nBtmRow As Long
　　Dim nB As Long
　　Dim i As Long
' ' ◆注意）１行めがタイトル行であること、が動作条件です。
　　nBtmRow = Cells(Rows.Count, "D").End(xlUp).Row
　　nB = nBtmRow
　　vTemp = Cells(nB, "D")
　　For i = nBtmRow To 1 Step -1
　　　　If Cells(i, "D") <> vTemp Then
　　　　　　Rows(nB + 1).Insert
　　　　　　With Cells(nB + 1, "A").Resize(, 6)
　　　　　　　　.FormulaR1C1 = Array("『最初と最後の時間』", , , , _
　　　　　　　　　　"=min(R[" & i - nB & "]C:R[-1]C)", "=max(R[" & i - nB & "]C:R[-1]C)")
　　　　　　　　.Value = .Value
　　　　　　　　vMin = .Cells(5)
　　　　　　　　vMax = .Cells(6)
　　　　　　End With
　　　　　　For Each c In Range("E:F " & i + 1 & ":" & nB)
　　　　　　　　If c > vMin And c < vMax Then c.Font.Strikethrough = True
　　　　　　Next
　　　　　　vTemp = Cells(i, "D")
　　　　　　nB = i
　　　　End If
　　Next i
End Sub

お礼

先質問の件　空白がある為　そこを計算しているという事が分かり解決致しました

続けて質問を書き込みできないようなのであと少し修正などがいる為cj_mover様が組んで頂いたマクロ文を示し再投稿で質問させて頂きます

お時間ありましたらまた回答お願い致します

この度は大変助かりました　ありがとうございました

一応質問しようかなと思っているのは
自分が決めた時間帯　例　8:00～17:00以外の時間帯だけの取得　16:50などは取得しないようにしたいのです

補足

cj_mover様　ご回答ありがとうございます
大変助かります
私にマクロを組める能力が無い為お手数をおかけします
ほぼ理想どうりの動きが再現できました

詳細に説明しますと縦に並んだ
・『 D 』セルの『同一日付』内の
・『 E 』と『 F 』の時刻の比較

その『 D 』セルの『同一日付』が終わる下に１行挿入し『最初と最後の時間』

その１行挿入し『最初と最後の時間』と書き込みした行の『 E 』と『 F 』のところに

『同一日付』内の『 E 』と『 F 』の最初の数字（時間）と最後の数字（時間）を書き込み

『 それ以外の時間 』には数字の上にーを引き《 エクセルの[ CTRL ]＋数字の[ ５ ] 》で

引ける取り消し線　ーを引くまでは私の理想どうりです

エクセルで１行目をcj_mover様が◆注意）１行めがタイトル行であることとされているので

１行目を空白挿入した後に
『 D 』セルに『同一日付』『 E 』と『 F 』に17:10 17:15など３行ほど打ち込み作成して頂いたマクロをエクセルで実行して頂くとお分かりになると思いますが

例を書きます
１行目　　空白
２行目　（ABCセルには他の文章があります）2012/7/10（Dセル）17:10（Eセル）17:20（Fセル）　
３行目　（ABCセルには他の文章があります）2012/7/10（Dセル）17:20（Eセル）17:50（Fセル）　　
４行目　（ABCセルには他の文章があります）2012/7/10（Dセル）17:30（Eセル）17:40（Fセル）　
５行目　空白セル挿入→『 A 』セルに『最初と最後の時間』と書き込み　その行の17:10（Eセル）17:50（Fセル）
６行目　次の『同一日付』との空白
７行目　空白セル挿入→『 A 』セルに『最初と最後の時間』と書き込み　その行の0:00（Eセル）0:00（Fセル）　
８行目　次の『同一日付』と時刻
・
・
と続きますが　この場合の７行目の書き込みと計算が必要ありません..

私に能力が無い為　どう修正すればいいか分からず再度お伺い致します
申し訳ありません

回答No.2

MarcoRossiItaly

「……は何ですか？」とか「……で合っていますか？」というのは質問、「……したいです」というのは業務委託です。ちょっと、あんまりです。QA サイトの趣旨に立ち返ってください。