□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[4]: 追加行数だけ当該行日付を月加算して増分するＶＢＡについて | |
|---|---|
[196509] Re[4]: 追加行数だけ当該行日付を月加算して増分するＶＢＡについて- ■  / 記事引用/メール受信=OFF■
□投稿者/ VBA初心者 -(2025/04/08(20:48)) □U R L/ 半平太 さん、 ご多忙中、大変ありがとうございます。 うまく動作しました。 大変お世話になりました。 また、よろしくお願いいたします。 | |
[196508] Re[3]: 追加行数だけ当該行日付を月加算して増分するＶＢＡについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/04/08(15:45)) □U R L/ こんなことかな？ Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＢｕｔｔｏｎ１＿Ｃｌｉｃｋ（） Ｄｉｍ ｋ Ａｓ Ｌｏｎｇ ’作成行数 Ｄｉｍ ｇｙｏｕＳｒｃ Ａｓ Ｌｏｎｇ ’当初シート（データ）行ステップ数 Ｄｉｍ ｇｙｏｕＴｇｔ Ａｓ Ｌｏｎｇ ’結果シート（データ移行作成）行ステップ数 Ｄｉｍ ｗｓＳｒｃ Ａｓ Ｗｏｒｋｓｈｅｅｔ， ｗｓＴｇｔ Ａｓ Ｗｏｒｋｓｈｅｅｔ Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｆａｌｓｅ Ｓｅｔ ｗｓＳｒｃ ＝ Ｗｏｒｋｓｈｅｅｔｓ（”データ”） Ｓｅｔ ｗｓＴｇｔ ＝ Ｗｏｒｋｓｈｅｅｔｓ（”データ移行作成”） ｇｙｏｕＳｒｃ ＝ ２ ｇｙｏｕＴｇｔ ＝ ２ ｗｓＳｒｃ．Ａｃｔｉｖａｔｅ Ｄｏ Ｕｎｔｉｌ ｗｓＳｒｃ．Ｃｅｌｌｓ（ｇｙｏｕＳｒｃ， "H"） ＝ ”” ｋ ＝ ｗｓＳｒｃ．Ｃｅｌｌｓ（ｇｙｏｕＳｒｃ， "C"） ’所要行数分 転記 ｗｓＳｒｃ．Ａｃｔｉｖａｔｅ ｗｓＳｒｃ．Ｒｏｗｓ（ｇｙｏｕＳｒｃ）．Ｃｏｐｙ ｗｓＴｇｔ．Ａｃｔｉｖａｔｅ ｗｓＴｇｔ．Ｒｏｗｓ（ｇｙｏｕＴｇｔ）．Ｒｅｓｉｚｅ（ｋ ＋ １）．ＰａｓｔｅＳｐｅｃｉａｌ Ｐａｓｔｅ：＝ｘｌＡｌｌ ’日付 修正 Ｉｆ ｋ ＞ ０ Ｔｈｅｎ Ｗｉｔｈ ｗｓＴｇｔ．Ｃｅｌｌｓ（ｇｙｏｕＴｇｔ， "H"） ．ＡｕｔｏＦｉｌｌ Ｄｅｓｔｉｎａｔｉｏｎ：＝．Ｒｅｓｉｚｅ（ｋ ＋ １）， Ｔｙｐｅ：＝ｘｌＦｉｌｌＭｏｎｔｈｓ Ｅｎｄ Ｗｉｔｈ Ｅｎｄ Ｉｆ ｇｙｏｕＴｇｔ ＝ ｇｙｏｕＴｇｔ ＋ ｋ ＋ １ ｇｙｏｕＳｒｃ ＝ ｇｙｏｕＳｒｃ ＋ １ Ｌｏｏｐ ｗｓＴｇｔ．Ｓｅｌｅｃｔ ＭｓｇＢｏｘ ”end” Ａｐｐｌｉｃａｔｉｏｎ．ＣｕｔＣｏｐｙＭｏｄｅ ＝ Ｆａｌｓｅ Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｔｒｕｅ Ｅｎｄ Ｓｕｂ | |
[196507] Re[2]: 追加行数だけ当該行日付を月加算して増分するＶＢＡについて- ■記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/04/07(14:13)) □U R L/ 匿名 さん、ありがとうございます。 自分で作成してみましたが うまく動作しません お手数おかけします 手直しご指導 よろしくお願いいたします。 Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＢｕｔｔｏｎ１＿Ｃｌｉｃｋ（） Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｆａｌｓｅ Ｄｉｍ ｋ Ａｓ Ｌｏｎｇ ＇作成行数 Ｄｉｍ ｇｙｏｕ Ａｓ Ｌｏｎｇ ＇当初シート（データ）行ステップ数 Ｄｉｍ ｇｙｏｕ２ Ａｓ Ｌｏｎｇ ＇結果シート（データ移行作成）行ステップ数 ｋ ＝ Ｒａｎｇｅ（＂Ｆ２＂） ｇｙｏｕ ＝ ２ ｇｙｏｕ２ ＝ ２ Ｄｏ Ｕｎｔｉｌ Ｃｅｌｌｓ（ｇｙｏｕ ＋ １， ８） ＝ ＂＂ Ｄｏ Ｕｎｔｉｌ ｋ ＝ ０ Ｗｏｒｋｓｈｅｅｔｓ（＂データ＂）．Ａｃｔｉｖａｔｅ Ｗｏｒｋｓｈｅｅｔｓ（＂データ＂）．Ｒｏｗｓ（ｇｙｏｕ）．Ｃｏｐｙ Ｗｏｒｋｓｈｅｅｔｓ（＂データ移行作成＂）．Ａｃｔｉｖａｔｅ Ｗｏｒｋｓｈｅｅｔｓ（＂データ移行作成＂）．Ｒｏｗｓ（ｇｙｏｕ ＋ １）．ＰａｓｔｅＳｐｅｃｉａｌ Ｐａｓｔｅ：＝ｘｌＡｌｌ ｋ ＝ ｋ － １ ｇｙｏｕ ＝ ｇｙｏｕ ＋ １ Ｌｏｏｐ Ｗｏｒｋｓｈｅｅｔｓ（＂データ＂）．Ａｃｔｉｖａｔｅ Ｗｏｒｋｓｈｅｅｔｓ（＂データ＂）．Ｒｏｗｓ（ｇｙｏｕ２）．Ｃｏｐｙ Ｗｏｒｋｓｈｅｅｔｓ（＂データ移行作成＂）．Ａｃｔｉｖａｔｅ Ｗｏｒｋｓｈｅｅｔｓ（＂データ移行作成＂）．Ｒｏｗｓ（ｇｙｏｕ２ ＋ １）．ＰａｓｔｅＳｐｅｃｉａｌ Ｐａｓｔｅ：＝ｘｌＡｌｌ ｇｙｏｕ２ ＝ Ｒａｎｇｅ（＂Ｆ２＂）．Ｅｎｄ（ｘｌＤｏｗｎ）．Ｃｏｕｎｔ Ｌｏｏｐ Ｗｏｒｋｓｈｅｅｔｓ（＂データ移行作成＂）．Ｓｅｌｅｃｔ ＭｓｇＢｏｘ ＂ｅｎｄ＂ Ａｐｐｌｉｃａｔｉｏｎ．ＣｕｔＣｏｐｙＭｏｄｅ ＝ Ｆａｌｓｅ Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｔｒｕｅ Ｅｎｄ Ｓｕｂ | |
[196506] Re[1]: 追加行数だけ当該行日付を月加算して増分するＶＢＡについて- ■記事引用/メール受信=OFF■ □投稿者/ 匿名 -(2025/04/07(09:14)) □U R L/ 初心者であれば、まずは以下のような考え方をしてみてはいかがでしょうか。 現在のシート名をAとします。 ダミーの新規シートをBとします。 ①ダミーのシートAを作成 ②Aシートを1行分(n行目[初期値は2])をコピー、Bシートにペースト又は、Aシートの値をBシートに代入 ③Bシートの書き込み行数を持つ変数に1を足す ④Aシートを1行分をコピー、Bシートに貼り付け又は代入した後、Bシートの日付の月に1を足す ⑤③④を追加行数分だけ繰り返す ⑥nに1を足す ⑦②～⑥をAシートの行数分だけ繰り返す ⑧Aシートを削除 ⑨Bシートの名前をAシートの名前に変更 もちろん二次元配列が使えればよと思いますが、 まずは、Excelのシートを二次元配列のようなものと思って、 ダミーのシートを作ることで、実行結果を1行ずつ 確認しながらできるので、ダミーのシートを作るのもありだと思います。 ※二次元配列とワークシートでは添え字の初期値は違いますが、 自分の目で動きを確認しながらできるので、 ワークシートを「2次元配列なようなもの」と記述しました 上記の①～⑨のどれについて、ご自身で調べてみて わからなければ1つずつ質問することをお勧めします。 その作業をしているうちに、VBAが書けるようになると思います。 もし、この作業をしないで丸投げしているなら、 「VBA初心者ではなく、VBAをやってない人になると思います。」 と言われて、VBAを続けてきて、VBAができるようになったので、 質問者もやってみるとよいでしょう。 | |
[196505] 追加行数だけ当該行日付を月加算して増分するＶＢＡについて- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/04/06(22:58)) □U R L/ 追加行数の数だけ当該行を日付を月加算して増分したいＶＢＡコードについて シート内容の当初と結果 aの当初シート（実行前） A B C D E F G H I J K L M ・・ 1 項1 項2 追加行数 項3 項4 NO. 名前 日付 金額1 金額2 金額3 . . . 2 ・ ・ 4 ・ ・ 23 山田 2023/6/1 55 77 24 ・・ 3 ・ ・ 3 ・ ・ 46 鈴木 2024/11/1 29 1 5 ・・ 4 ・ ・ 0 ・ ・ 38 五島 2022/9/1 11 1 5 ・・ 5 ・ ・ 1 ・ ・ 10 菊井 2022/12/1 11 1 5 ・・ 6 aの実行後シート結果 A B C D E F G H I J K L M ・・ 1 項1 項2 追加行数 項3 項4 NO. 名前 日付 金額1 金額2 金額3 . . . 2 ・ ・ 4 ・ ・ 23 山田 2023/6/1 55 77 24 ・・ 3 ・ ・ 4 ・ ・ 23 山田 2023/7/1 55 77 24 ・・ 4 ・ ・ 4 ・ ・ 23 山田 2023/8/1 55 77 24 ・・ 5 ・ ・ 4 ・ ・ 23 山田 2023/9/1 55 77 24 ・・ 6 ・ ・ 4 ・ ・ 23 山田 2023/10/1 55 77 24 ・・ 7 ・ ・ 3 ・ ・ 46 鈴木 2024/11/1 29 1 5 ・・ 8 ・ ・ 3 ・ ・ 46 鈴木 2025/12/1 29 1 5 ・・ 9 ・ ・ 3 ・ ・ 46 鈴木 2025/1/1 29 1 5 ・・ 10 ・ ・ 3 ・ ・ 46 鈴木 2025/2/1 29 1 5 ・・ 11 ・ ・ 0 ・ ・ 38 五島 2022/9/1 11 1 5 ・・ 12 ・ ・ 1 ・ ・ 10 菊井 2022/12/1 11 1 5 ・・ 13 ・ ・ 1 ・ ・ 10 菊井 2023/1/1 11 1 5 ・・ 14 上記例のように 追加行数の数だけ当該行について H列に月を1月づつ加算していき 当該行をコピーペーストして増分させていきたいのです （実際にはａの当初シートのデータは300位あります） 各データのユニークとなるキーは NO.です どなたか 上記のようなＶＢＡコードについて ご教示いただければ、幸いです。 ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2019 ++++++++++++++++++++ | |