いつもお世話になっております
fujillin様
おしえてくれませんでしょうか
Application.Max(.Cells(Rows.Count, 6).End(xlUp).Row - 2, 1)
の部分ですが、
最後の ,1 の部分の意味おしえてくれませんでしょうか
Sub sample()
Dim T(1 To 12), v, m
Dim shtNo As Long
Dim i As Long, n As Long
Const shtName = "集計"
For shtNo = 1 To 3
With Worksheets(shtNo)
If .Name <> shtName Then
n = Application.Max(.Cells(Rows.Count, 6).End(xlUp).Row - 2, 1)
v = .Cells(3, 6).Resize(n).Value
For i = 1 To n
m = v(i, 1)
If IsDate(m) Then T(Month(m)) = T(Month(m)) + 1
Next i
End If
End With
Next shtNo
Worksheets(shtName).Range("C3:N3").Value = T
End Sub
No.1ベストアンサー
- 回答日時:
【.Cells(Rows.Count, 6).End(xlUp).Row - 2】
と
【1】
の最大値(Max)を取るということです。
【.Cells(Rows.Count, 6).End(xlUp).Row】 (← 「-2」を省いてます)
は、6列目(F列)の最終行から上方向へ、最終入力のあるセルを探しています。
仮に6列目(F列)の入力が全く無ければ、「1」が返ってきます。
これを「-2」すると、
n=-1に
なっちゃいますよね。
その後に続く Resize(n)等、nを用いる箇所で不具合が出るのを避ける目的で、
n が取りうる最小値を「1」にするため、Max関数を用いて処理しています。
イメージをわかりやすく書いちゃうと
=MAX(【F列の最終入力行 -2】,1)
それから、指名しての質門はNGですよ。
個人間のトークになっちゃうので。
ありがとうございました。
このコード とても 奥が深いです。
ありがとうございました。
m = v(i, 1) の部分なるほどです
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
文字列の結合を空白行まで実行
-
マクロ 最終列をコピーして最終...
-
VBAで10行おきにセルの下に罫線...
-
VBA 何かしら文字が入っていたら
-
vbaでシートより100より大きい...
-
VBAのFind関数で結合セルを検索...
-
rowsとcolsの意味
-
【VBA】2つのシートの値を比較...
-
重複データの合算(VBA)
-
エクセル VBA ユーザーフォー...
-
【Excel VBA】 B列に特定の文字...
-
マクロで若干複雑なPDFのファイ...
-
セルに値が入っていた時の処理
-
vba 2つの条件が一致したら...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報