□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| データに該当情報がある場合、台帳に書出すコードについて | |
|---|---|
[196516] データに該当情報がある場合、台帳に書出すコードについて- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/04/16(11:22)) □U R L/ 全先台帳シートと年度データがあり、 シートモジュール（Worksheets("全先台帳")）でのコマンドで 下記コードを実行したのですが、うまくいきません どなたかご教示頂ければ幸いです 全先台帳シートのキー＝T列 年度データシートのキー＝B列 として 全先台帳シートのI列に何も無い場合 年度データシートのI列、K列、L列、M列、N列、O列、P列から 全先台帳シートのI列、J列、K列、L列、M列、N列、O列に それぞれそのセル内容を取り込みたいのです ＶＢＡコード内容 Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＢｕｔｔｏｎ６＿Ｃｌｉｃｋ（） ＇画面更新停止 Ａｐｐｌｉｃａｔｉｏｎ．Ｃａｌｃｕｌａｔｉｏｎ ＝ ｘｌＣａｌｃｕｌａｔｉｏｎＭａｎｕａｌ ＇手動計算 Ｄｉｍ Ｌａｓｔｒｏｗ Ａｓ Ｌｏｎｇ， ｒ Ａｓ Ｌｏｎｇ， ｒ２ Ａｓ Ｌｏｎｇ Ｌａｓｔｒｏｗ ＝ Ｃｅｌｌｓ（Ｒｏｗｓ．Ｃｏｕｎｔ， ２）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ ｒ ＝ ２ ｒ２ ＝ ２ Ｄｏ Ｕｎｔｉｌ ｒ ＞ Ｌａｓｔｒｏｗ Ｉｆ Ｃｅｌｌｓ（ｒ， ＂Ｔ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｂ＂） Ｔｈｅｎ Ｉｆ Ｃｅｌｌｓ（ｒ， ＂Ｉ＂） ＝ ＂＂ Ｔｈｅｎ Ｃｅｌｌｓ（ｒ， ＂Ｉ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｉ＂） Ｃｅｌｌｓ（ｒ， ＂Ｊ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｋ＂） Ｃｅｌｌｓ（ｒ， ＂Ｋ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｌ＂） Ｃｅｌｌｓ（ｒ， ＂Ｌ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｍ＂） Ｃｅｌｌｓ（ｒ， ＂Ｍ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｎ＂） Ｃｅｌｌｓ（ｒ， ＂Ｎ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｏ＂） Ｃｅｌｌｓ（ｒ， ＂Ｏ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｐ＂） Ｅｎｄ Ｉｆ Ｅｎｄ Ｉｆ ｒ ＝ ｒ ＋ １ ｒ２ ＝ ｒ２ ＋ １ Ｌｏｏｐ ＇画面更新再開 Ａｐｐｌｉｃａｔｉｏｎ．Ｃａｌｃｕｌａｔｉｏｎ ＝ ｘｌＣａｌｃｕｌａｔｉｏｎＡｕｔｏｍａｔｉｃ ＇自動計算 ＭｓｇＢｏｘ ＂終了です＂ Ｅｎｄ Ｓｕｂ ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2019 ++++++++++++++++++++ | |
[196517] Re[1]: データに該当情報がある場合、台帳に書出すコードについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/04/19(12:46)) □U R L/ １．Lastrowを求める列が、全先台帳シートのB列でいいのかどうか。 ２．T列とB列にキーがあるとの話なのに、 同一行番号のデータが同じかどうかしかチェックしていないのはちょっと解せない。 | |
[196518] Re[2]: データに該当情報がある場合、台帳に書出すコードについて- ■記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/04/19(15:24)) □U R L/ 半平太さん、ありがとうございます。 >１．Lastrowを求める列が、全先台帳シートのB列でいいのかどうか。 全先台帳シートのB列が顧客NOのキーなので 顧客NOがある行が最後であれば、そこまでと考えました。 >２．T列とB列にキーがあるとの話なのに、 同一行番号のデータが同じかどうかしかチェックしていないのはちょっと解せな>い。 「全先台帳」シートの ユニークキー：T列＝B列（顧客NO）＋H列（納付月） 「年度データ」シートのユニークキー：B列＝D列（顧客NO）＋J列（納付月） ここで どちらのシートのI列を検索すると 「全先台帳」シートにはその列以降、I列～O列まで セル内容が空白の場合が有り、 その場合、「年度データ」のレコードから Ｃｅｌｌｓ（ｒ， ＂Ｉ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｉ＂） ～ Ｃｅｌｌｓ（ｒ， ＂Ｏ＂） ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂年度データ＂）．Ｃｅｌｌｓ（ｒ２， ＂Ｐ＂） までを書き出したいのです。 コードをうまく表せず、混乱させてすみません。 ご指導よろしくお願いいたします。 | |
[196519] Re[3]: データに該当情報がある場合、台帳に書出すコードについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/04/19(16:49)) □U R L/
| |
[196520] Re[4]: データに該当情報がある場合、台帳に書出すコードについて- ■  / 記事引用/メール受信=OFF■
□投稿者/ VBA初心者 -(2025/04/19(19:41)) □U R L/ 半平太さん 大変ありがとうございました。 うまく動作しました。 まだ、コード内容は理解がおよびませんが、 勉強したいと思います。 いつも大変お世話になりました。 | |