real beatinのプロフィール

　社員勤務のシフト表カレンダーを、EXCEL2013で作ろうとしています（BOX型）。 　作ったカレンダーは、給与が20日締めですから、例えば、9月のカレンダーは、8月21日始まり、9月20日終了という形式です。 祝祭日と日曜日の日にちは、赤文字で表示してあります。 　次に、月間総労働時間を算出するために、該当のセル範囲（G20：S20）の中から、労働時間から除外すべき日数＝【『赤文字で表示した祝祭日と日曜日』が入った（セルの数）】を、カウントし、例えば、セルE26に、＝○○（G20：S20,3）の形式を用いて表示させたいと思います。VBAを使いたいのですがうまく作れません。ご教授下さい。 《整理》 1.セル範囲（G20：S20）中の月間総労働時間を算出したい。 2.労働時間から除外すべき祝祭日と日曜日は、赤文字で表記させている。 3.この赤文字の入ったセル数をカウントしたい。 4.表示形式は、＝○○（G20：S20,3） 5.VBAを使いたい。 《追記》 祝祭日と日曜日を赤文字に表記させた作業工程は、次の通りです。 (1)日曜日は、予めFontを赤に設定、(2)祝日は、「条件付き書式」を使いFontを赤に設定、(3)8月21日より、9月20日までの期間外の日にちは、Fontを白に設定し、見えないようにしました。 ＜ 使用 Excel：Excel2013、使用 OS：Windows10 ＞

こんばんは、データの最終行／処理する対象のセルまで処理する場合のＶＢＡの記述について質問させてください！ＶＢＡの最終行／処理する対象のセルまで選択するために使用する記述方法が何種類かありますが、そのうち、書籍やネットで検索しても出てこない記述方法について今一つ理解ができていません(T_T) 本屋で売っている書籍やネットで検索すると出てくる記述方法 Range～.End(xlUp).Row Range～.CurrentRegion Range～.SpecialCells(xlLastCell) Range～.Cells(Rows.Count, 1).End(xlUp).Row 上記のようなＶＢＡは書籍やネットで検索すると説明や違いについても出てくるので、説明を読めば理解ができるのですが、 Sheets("テスト").Range("A1:C" & Sheets("テスト").Cells　_(1).CurrentRegion.Rows.Count) Range("A1").CurrentRegion.Cells(Range _("A1").CurrentRegion.Cells.Count).Row 上記のようなＶＢＡについては検索しても説明など出てこないうえに、 なぜ上記のような記述になるのかあまり理解できていません(>_<) 書籍やネットで検索すると出てくる「Range～.CurrentRegion」などの記述方法から何となく、CurrentRegionやCells.Countを使わないといけないというのは理解できますが、なぜ「～CurrentRegion.Rows.Count)」はRowsがカッコの中に入っていて、「～CurrentRegion.Cells.Count).Row」はカッコの外に出ているのか？？といった細かいことが分からずにいます。。。 半ば丸暗記のようにして使ってしまっているのですが、もし上記のようなＶＢＡについてわかるかたがいらっしゃれば、ご教授いただけるととても嬉しいです！ また、上記以外にもまだ検索しても出てこないようなＶＢＡがあるのでしょうか？？ 頭が混乱しそうです！(゜Д゜;)

こんばんは、データの最終行／処理する対象のセルまで処理する場合のＶＢＡの記述について質問させてください！ＶＢＡの最終行／処理する対象のセルまで選択するために使用する記述方法が何種類かありますが、そのうち、書籍やネットで検索しても出てこない記述方法について今一つ理解ができていません(T_T) 本屋で売っている書籍やネットで検索すると出てくる記述方法 Range～.End(xlUp).Row Range～.CurrentRegion Range～.SpecialCells(xlLastCell) Range～.Cells(Rows.Count, 1).End(xlUp).Row 上記のようなＶＢＡは書籍やネットで検索すると説明や違いについても出てくるので、説明を読めば理解ができるのですが、 Sheets("テスト").Range("A1:C" & Sheets("テスト").Cells　_(1).CurrentRegion.Rows.Count) Range("A1").CurrentRegion.Cells(Range _("A1").CurrentRegion.Cells.Count).Row 上記のようなＶＢＡについては検索しても説明など出てこないうえに、 なぜ上記のような記述になるのかあまり理解できていません(>_<) 書籍やネットで検索すると出てくる「Range～.CurrentRegion」などの記述方法から何となく、CurrentRegionやCells.Countを使わないといけないというのは理解できますが、なぜ「～CurrentRegion.Rows.Count)」はRowsがカッコの中に入っていて、「～CurrentRegion.Cells.Count).Row」はカッコの外に出ているのか？？といった細かいことが分からずにいます。。。 半ば丸暗記のようにして使ってしまっているのですが、もし上記のようなＶＢＡについてわかるかたがいらっしゃれば、ご教授いただけるととても嬉しいです！ また、上記以外にもまだ検索しても出てこないようなＶＢＡがあるのでしょうか？？ 頭が混乱しそうです！(゜Д゜;)

　社員勤務のシフト表カレンダーを、EXCEL2013で作ろうとしています（BOX型）。 　作ったカレンダーは、給与が20日締めですから、例えば、9月のカレンダーは、8月21日始まり、9月20日終了という形式です。 祝祭日と日曜日の日にちは、赤文字で表示してあります。 　次に、月間総労働時間を算出するために、該当のセル範囲（G20：S20）の中から、労働時間から除外すべき日数＝【『赤文字で表示した祝祭日と日曜日』が入った（セルの数）】を、カウントし、例えば、セルE26に、＝○○（G20：S20,3）の形式を用いて表示させたいと思います。VBAを使いたいのですがうまく作れません。ご教授下さい。 《整理》 1.セル範囲（G20：S20）中の月間総労働時間を算出したい。 2.労働時間から除外すべき祝祭日と日曜日は、赤文字で表記させている。 3.この赤文字の入ったセル数をカウントしたい。 4.表示形式は、＝○○（G20：S20,3） 5.VBAを使いたい。 《追記》 祝祭日と日曜日を赤文字に表記させた作業工程は、次の通りです。 (1)日曜日は、予めFontを赤に設定、(2)祝日は、「条件付き書式」を使いFontを赤に設定、(3)8月21日より、9月20日までの期間外の日にちは、Fontを白に設定し、見えないようにしました。 ＜ 使用 Excel：Excel2013、使用 OS：Windows10 ＞

以前教えていただいた方法で検索窓を作成しました。 質問No.9377089 シートにテキストボックス１個、コマンドボタン２個を配置し、下記を記載しました。 Option Explicit Private Sub CommandButton1_Click() Dim Target As Range, rCrit As Range, sCrit As String Dim nR As Long, cnC As Long, i As Long 　　Application.ScreenUpdating = False 　　On Error Resume Next 　　ActiveSheet.ShowAllData 　　On Error GoTo 0 　　sCrit = "=""*" & TextBox1.Value & "*""" 　　Set Target = Cells.CurrentRegion 　　nR = Target.Rows.Count + 2 　　cnC = Target.Columns.Count 　　Set rCrit = Cells(nR, 1).Resize(cnC + 1, cnC) 　　For i = 1 To cnC 　　　　rCrit(i) = Cells(i) 　　　　rCrit(i + 1, i) = sCrit 　　Next i 　　Target.AdvancedFilter _ 　　　　Action:=xlFilterInPlace, _ 　　　　CriteriaRange:=rCrit, _ 　　　　Unique:=False 　　rCrit.ClearContents 　　Application.ScreenUpdating = True End Sub Private Sub CommandButton2_Click() 　　On Error Resume Next 　　ActiveSheet.ShowAllData 　　On Error GoTo 0 End Sub 希望としてはシート内の文字はすべて検索対照にしたい。 検索後にテキストが消えないようにしたいです。 どうぞよろしくお願い致します。