Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

482 / 76735

←次へ　｜　前へ→


	【81920】Re:所定フォームへの流し込み

ackkn - 22/1/22(土) 19:21 -


	引用なし

	パスワード

▼マナさんすいません、やっぱり伝えれませんでした。 dic(s) = dic.Count * 4 + 1 として実行すると、得意先、センター名の見出し行に揃ってすべてが1行下にズレました。(下図) 得意先名　センター名　　　14日　　　　15日　　　　16日　　　　　　　　曜日　　　(火)　　　　(水)　　　　(木) ----------------------------------------------------------- 　　　　　　　　　　｜　　　　　｜　　　　　｜　　　　　｜ ----------------------------------------------------------- 　A社　　 Aセンター｜1,153｜　8｜　　｜　｜　　1｜　1｜　　　　 ----------------------------------------------------------- 　　　　　　　　　　｜　　3,800｜　　　　　｜　　　 100｜ ----------------------------------------------------------- 　　　　　　　　　　｜　　　　　｜　　　　　｜　　　　　｜ =========================================================== 　　　　　　　　　　｜　　　　　｜　　　　　｜　　　　　｜これを、下図のようにしたいんです。得意先名　センター名　　　14日　　　　15日　　　　16日　　　　　　　　曜日　　　(火)　　　　(水)　　　　(木) ----------------------------------------------------------- 　A社　　 Aセンター｜　　　　　｜　　　　　｜　　　　　｜ ----------------------------------------------------------- 　　　　　　　　　　｜1,153｜　8｜　　｜　｜　　1｜　1｜　　　　 ----------------------------------------------------------- 　　　　　　　　　　｜　　3,800｜　　　　　｜　　　 100｜ ----------------------------------------------------------- 　　　　　　　　　　｜　　　　　｜　　　　　｜　　　　　｜ =========================================================== 　　　　　　　　　　｜　　　　　｜　　　　　｜　　　　　｜　　↑　　　 ↑ その為に、 r2.Resize(dic.Count * 4, UBound(w, 2)).Value = w の行で w() を表示した後に、上の ↑ 2列を上に1行ズラした方が早いのでしょうか？