初歩的な知識しかなく、startRowと列以外は不規則で組み方も思いつきません。
以下の条件をVBAで実行するにはどのようなコードを書けばよろしいでしょうか?
ご教示ください。
1.使用するシートは ws = ActiveWorkbook.ActiveSheet とします
2.検索のstartRow = 24行目とし、
最終行は lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Rowで取得します。
3.対象の表は1か月分の縦型のカレンダー形式ですが、B列の日付は文字列で出力されています。
4.日曜から土曜までをワンサイクルとして、AA列に罫線が入っています。
5.この表の中で4/4(27行目と28行目)はセル結合されています。これは自動出力された状態であり、他列の関連で防げないものとします。
5.最終行から最下の罫線の一つ下までのJ列の合計をAA列の最終行に入力(値でもSUM関数でもどちらでも構いません)
同じように24行目までサイクル毎にJ列の合計をAA列の下線の行のセルへ入力する。
No.1ベストアンサー
- 回答日時:
こんばんは
>どのようなコードを書けばよろしいでしょうか?
この手のご質問で、方法を説明して解決した試しがないので、コードの一例を。
(方法はいろいろあるので、あくまでも一例です)
ご説明でやや曖昧な部分を以下のように解釈しました。
・小計を求めるのはB列の文字列に"(土)"を含む行と、最終行とする。
(罫線の有無は参照していません)
・その他の行は空白とする。
※ "(土)"の「()」が全角なのか半角なのか不明ですが、図の雰囲気からひとまず全角文字として解釈しました。(違う場合は適宜修正してください)
Sub Q13800616()
Dim n As Long
Dim B, J, s
n = Cells(Rows.Count, 2).End(xlUp).Row - 23
If n < 1 Then Exit Sub
B = Cells(24, 2).Resize(n).Value
J = Cells(24, 10).Resize(n).Value
s = 0
For n = 1 To UBound(B)
If IsNumeric(J(n, 1)) Then s = s + J(n, 1)
J(n, 1) = ""
If InStr(B(n, 1), "(土)") Or n = UBound(B) Then
J(n, 1) = s
s = 0
End If
Next n
Cells(24, 27).Resize(UBound(B)).UnMerge
Cells(24, 27).Resize(UBound(B)).Value = J
End Sub
fujillin様
ありがとうございます。
やりたいことが実行できました。
UBoundの使い方が苦手で避けてきましたすが、勉強しなおします。
ありがとうございました。
No.2
- 回答日時:
No1です。
>UBoundの使い方が苦手で避けてきましたすが、~
苦手なら、使わなくてもまったく同じ方法でできますよ。
むしろ、こちらの方が普通の書き方かも知れませんね。
Sub Q13800616()
Dim n As Long, i As Long
Dim B, J, s
n = Cells(Rows.Count, 2).End(xlUp).Row - 23
If n < 1 Then Exit Sub
B = Cells(24, 2).Resize(n).Value
J = Cells(24, 10).Resize(n).Value
s = 0
For i = 1 To n
If IsNumeric(J(i, 1)) Then s = s + J(i, 1)
J(i, 1) = ""
If InStr(B(i, 1), "(土)") Or i = n Then
J(i, 1) = s
s = 0
End If
Next i
Cells(24, 27).Resize(n).UnMerge
Cells(24, 27).Resize(n).Value = J
End Sub
更に使いやすいコードもご教示いただきありがとうございます。
今回はこのデータをRPAで全社員分出力するだけで8時間以上が必要で、さらにVBAでの作業を追加するためVBAは全部で一人当たり5秒程度に収めたいと考えており、未熟な人間が管理するにはふさわしくないかも知れませんがNo.1のコードにしたいと思います。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) Excel VBA 文字列のセルを反映させたいです 2 2024/02/24 00:06
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- Visual Basic(VBA) Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです 1 2024/02/19 21:37
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelはなんで先頭の0を消すんですか?しかもCSVとかもなんでそもそも勝手に元のデータ変えるのに
Excel(エクセル)
-
エクセルを使っていて2024/5/15と入力したのに令和元年とかででるのでしょうか?何か設定分かる方
Excel(エクセル)
-
Excelについて教えてください
Excel(エクセル)
-
-
4
Excelで50個のセルに同じ文字を簡単に入力する方法はありますか?
Excel(エクセル)
-
5
Excelが固まってしまった。
Excel(エクセル)
-
6
文字列になっている時間をVBAで処理できません。
Excel(エクセル)
-
7
在庫管理表に使うエクセルの関数が分かりません
Excel(エクセル)
-
8
Excel初心者です。 詳しい方、効率の良いやり方を教えてください。 職場で、抽出したデータの表を見
Excel(エクセル)
-
9
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
10
エクセル 価格表から単価を呼び出す方法
Excel(エクセル)
-
11
エクセルの条件付き書式について教えてください
Excel(エクセル)
-
12
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
13
エクセル②
Excel(エクセル)
-
14
pdfの表をexcelにはりつけて計算したい
Excel(エクセル)
-
15
Excel関数-文字列で自動作成された関数を実行する方法
Excel(エクセル)
-
16
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
17
[関数得意な方]教えて下さい・・[困ってます]
Excel(エクセル)
-
18
Excelでの時間帯の入力
Excel(エクセル)
-
19
excel で二つのどちらかを選ぶ
Excel(エクセル)
-
20
エクセルで指定した日付、店舗の数値を自動で反映させる。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
EXCELにて複数列を同条件(色)...
-
エクセルで空白以外のセルの値...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
Excelのマクロで不規則に連番を...
-
[Excel VBA]空白セル以外に連番...
-
エクセルの関数について(日付で...
-
Excel VBAで日にちを入力して線...
-
行数が不規則な一週間ごとの合...
-
エクセルVBA 複数列をコピーす...
-
こんにちは
-
エクセルのマクロ、AVERAGEIFを...
-
エクセルの複数のセルを一括で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
エクセルで日付から日にちを削...
-
エクセルでセルを10個分くらい...
-
複数の文字列のいずれかが含ま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
【マクロ】セルに関数を入れる...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
エクセルで空白以外のセルの値...
-
エクセルで行挿入した際、自動...
-
エクセル VBA 指定の範囲内をコ...
-
エクセル マクロ 貼り付け先が...
-
特定の桁数を抽出
-
Excel VBAで日にちを入力して線...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
最終行から上10行をコピーする...
-
エクセルで反転コピー
-
エクセルのマクロ、AVERAGEIFを...
-
【マクロ】IF複数条件の上限に...
-
同一列内の複数条件 カウント
おすすめ情報