□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[7]: AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり） | |
|---|---|
[196403] Re[7]: AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり）- ■  / 記事引用/メール受信=OFF■
□投稿者/ VBA初心者 -(2025/01/05(20:50)) □U R L/ 半平太さん 早速確認しました 上手く動作しました。 優秀なコードを大変ありがとうございました。 御多忙中お手数おかけしました 今後ともよろしくお願いいたします お世話になりました。 | |
[196402] Re[6]: AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり）- ■記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/01/05(20:31)) □U R L/ 半平太さん 早速にありがとうございます すぐにテストして見ます また、結果をお知らせします。 よろしくお願いいたします。 | |
[196401] Re[5]: AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり）- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/01/05(12:47)) □U R L/ まだ復旧しない様なので、全角でアップします。(後はそちらで対応してください。) Ｓｕｂ ｔｅｓｔ（） Ｄｉｍ Ｗｓ（１ Ｔｏ ３） Ａｓ Ｗｏｒｋｓｈｅｅｔ Ｄｉｍ ｉ Ａｓ Ｌｏｎｇ Ｄｉｍ ｒ（１ Ｔｏ ２） Ａｓ Ｒａｎｇｅ Ｄｉｍ ａＣｅｌｌ Ａｓ Ｒａｎｇｅ Ｄｉｍ ｄｉｃＴ（１ Ｔｏ ２） Ａｓ Ｏｂｊｅｃｔ Ｄｉｍ ｋｙ Ｄｉｍ Ｒｗ， ａｄｒ（１ Ｔｏ ２） Ｓｅｔ Ｗｓ（１） ＝ Ｗｏｒｋｓｈｅｅｔｓ（”Ａ”） Ｓｅｔ Ｗｓ（２） ＝ Ｗｏｒｋｓｈｅｅｔｓ（”Ｂ”） Ｓｅｔ Ｗｓ（３） ＝ Ｗｏｒｋｓｈｅｅｔｓ（”Ｃ”） Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｆａｌｓｅ Ｗｓ（３）．ＵｓｅｄＲａｎｇｅ．Ｏｆｆｓｅｔ（１）．ＣｌｅａｒＣｏｎｔｅｎｔｓ ’事前クリア Ｆｏｒ ｉ ＝ １ Ｔｏ ２ Ｓｅｔ ｄｉｃＴ（ｉ） ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（”Ｓｃｒｉｐｔｉｎｇ．Ｄｉｃｔｉｏｎａｒｙ”） Ｗｉｔｈ Ｗｓ（ｉ） Ｓｅｔ ｒ（ｉ） ＝ ．Ｒａｎｇｅ（”Ｂ２”， ．Ｃｅｌｌｓ（．Ｒｏｗｓ．Ｃｏｕｎｔ， ”Ｂ”）．Ｅｎｄ（ｘｌＵｐ）） Ｆｏｒ Ｅａｃｈ ａＣｅｌｌ Ｉｎ ｒ（ｉ） Ｉｆ ａＣｅｌｌ ＜＞ ”” Ｔｈｅｎ ｄｉｃＴ（ｉ）（ａＣｅｌｌ ＆ ”，” ＆ ａＣｅｌｌ．Ｏｆｆｓｅｔ（０， ２）） ＝ ａＣｅｌｌ．Ｒｏｗ Ｅｎｄ Ｉｆ Ｎｅｘｔ ａＣｅｌｌ Ｅｎｄ Ｗｉｔｈ Ｎｅｘｔ ｉ Ｆｏｒ Ｅａｃｈ ｋｙ Ｉｎ ｄｉｃＴ（２） Ｉｆ ｄｉｃＴ（１）．ｅｘｉｓｔｓ（ｋｙ） ＝ Ｆａｌｓｅ Ｔｈｅｎ Ｗｓ（２）．Ｃｅｌｌｓ（ｄｉｃＴ（２）（ｋｙ）， ”Ａ”）．Ｒｅｓｉｚｅ（１， １７）．Ｃｏｐｙ Ｗｓ（３）．Ｃｅｌｌｓ（Ｒｏｗｓ．Ｃｏｕｎｔ， ”Ａ”）．Ｅｎｄ（ｘｌＵｐ）．Ｏｆｆｓｅｔ（２） Ｅｎｄ Ｉｆ Ｎｅｘｔ ｋｙ Ｆｏｒ Ｅａｃｈ ｋｙ Ｉｎ ｄｉｃＴ（１） Ｉｆ ｄｉｃＴ（２）．ｅｘｉｓｔｓ（ｋｙ） Ｔｈｅｎ Ｒｗ ＝ ｄｉｃＴ（１）（ｋｙ） ａｄｒ（１） ＝ Ｗｓ（１）．Ｎａｍｅ ＆ ”！” ＆ Ｃｅｌｌｓ（Ｒｗ， ”Ｆ”）．Ｒｅｓｉｚｅ（１， １２）．Ａｄｄｒｅｓｓ ａｄｒ（２） ＝ Ｗｓ（２）．Ｎａｍｅ ＆ ”！” ＆ Ｃｅｌｌｓ（ｄｉｃＴ（２）（ｋｙ）， ”Ｆ”）．Ｒｅｓｉｚｅ（１， １２）．Ａｄｄｒｅｓｓ Ｉｆ Ｗｏｒｋｓｈｅｅｔｓ（”Ｃ”）．Ｅｖａｌｕａｔｅ（”ＡＮＤ（” ＆ ａｄｒ（１） ＆ ”＝” ＆ ａｄｒ（２） ＆ ”）”） ＝ Ｆａｌｓｅ Ｔｈｅｎ Ｗｓ（１）．Ｃｅｌｌｓ（ｄｉｃＴ（１）（ｋｙ）， ”Ａ”）．Ｒｅｓｉｚｅ（１， １７）．Ｃｏｐｙ Ｗｓ（３）．Ｃｅｌｌｓ（Ｒｏｗｓ．Ｃｏｕｎｔ， ”Ａ”）．Ｅｎｄ（ｘｌＵｐ）．Ｏｆｆｓｅｔ（２） Ｗｓ（２）．Ｃｅｌｌｓ（ｄｉｃＴ（２）（ｋｙ）， ”Ａ”）．Ｒｅｓｉｚｅ（１， １７）．Ｃｏｐｙ Ｗｓ（３）．Ｃｅｌｌｓ（Ｒｏｗｓ．Ｃｏｕｎｔ， ”Ａ”）．Ｅｎｄ（ｘｌＵｐ）．Ｏｆｆｓｅｔ（１） Ｅｎｄ Ｉｆ Ｅｎｄ Ｉｆ Ｎｅｘｔ ｋｙ Ｗｓ（３）．Ｒｏｗｓ（２）．Ｄｅｌｅｔｅ ’不要行を削除 Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｔｒｕｅ ｄｉｃＴ（１）．ＲｅｍｏｖｅＡｌｌ ｄｉｃＴ（２）．ＲｅｍｏｖｅＡｌｌ Ｅｎｄ Ｓｕｂ | |
[196400] Re[4]: AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり）- ■記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/01/04(17:52)) □U R L/ 大変お手数おかけいたします。よろしくお願いいたします。 | |
[196399] Re[3]: AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり）- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/01/04(16:19)) □U R L/ ＞ 説明とは ＞ 上記文章にある ＞ ４．Ｃシートへの書き出し事由 ＞ の以下の事です・・ 通常の「仕様説明」であると理解しました。 ただ、現在、コードをアップしようとすると、 ＞Forbidden ＞The server refuse to browse the page.・・・ とか言われて拒否されるので（この現象は時々発生します。困ったものです） 回復したらアップする予定です。 | |
[196397] Re[1]: AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり）- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/01/04(15:42)) □U R L/ ＞（説明あり） 説明あり、とはどう言う意味なんですか？ 普通、質問には説明があるのが相場なのですが。。 | |
[196395] AｼｰﾄとBｼｰﾄとのﾃﾞｰﾀ相違書き出しについて（説明あり）- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/01/04(08:55)) □U R L/ 1．Aｼｰﾄ(今年） | |