□ 戻る □VBAのサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| レイアウト変更について | |
|---|---|
[133762] レイアウト変更について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ さくら -(2023/05/15(11:26)) □U R L/ 単価表のレイアウト変更を思案中です。 現行のファイルは、同じ単価で顧客が複数いる場合、B列にズラズラと 書き加えております。 1件1行の形式で変更を考えているのですが、複数顧客がいる場合、 単価を顧客分繰り返し入力しなければなりません。 又、顧客分を列で表示させた場合、横長の資料になってしまいます。 何かいい方法がありましたら、ご教授いただければ幸いです。 現行 A B C D E F G Ｈ I ランク 顧客名 適用日付 みかん りんご 梨 桃 仕入先 備考 1 鈴木 2023/1/1 150 200 250 300 田中 2 藤田 2023/1/2 120 220 270 310 吉田 森田 竹田 岸田 変更案 A B C D E F G H I J K L ランク 顧客名 顧客名 顧客名 顧客名 適用日付 みかん りんご 梨 桃 仕入先 備考 1 鈴木 2023/1/1 150 200 250 300 田中 2 藤田 森田 竹田 岸田 2023/1/2 120 220 270 310 吉田 | |
[133763] Re[1]: レイアウト変更について- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/05/15(15:22)) □U R L/ 変更案は、顧客数が最大４名とは限らないので、 もっと増えたら困るレイアウトではないですか？ ＞複数顧客がいる場合、単価を顧客分繰り返し入力しなければなりません。 と言っても、単に下にコピーするだけですよね？ C3:I6をドラッグ選択して、Ctrl+D で終わりの話と思うのですが。 それとも、こんな形にして、増えた顧客は幾らでも右に書き込めるようにするか。 ↓ 行 ___A___ ___B___ ____C____ ___D___ ___E___ ___F___ _G_ ___H___ __I__ 1 ランク 適用日付 みかん りんご 梨 桃 仕入先 備考 2 1 2023/1/1 150 200 250 300 田中 3 2 2023/1/2 120 220 270 310 吉田 4 5 ランク 顧客名1 顧客名2 顧客名3 顧客名4 顧客名5 6 1 鈴木 7 2 藤田 森田 竹田 岸田 または、こんな形にするか。 行 ___A___ ____B____ ___C___ ___D___ __E__ _F_ ___G___ __H__ 1 ランク 適用日付 みかん りんご 梨 桃 仕入先 備考 2 1 2023/1/1 150 200 250 300 田中 3 鈴木 4 2 2023/1/2 120 220 270 310 吉田 5 藤田 森田 竹田 岸田 まぁ、将来、データをどう使うかにもよりますけどね。 ところで、適用日付が変わったらどうなるんですか？ | |
[133767] Re[2]: レイアウト変更について- ■記事引用/メール受信=OFF■ □投稿者/ さくら -(2023/05/16(12:44)) □U R L/ 半平太さんありがとうございます。 適用日付は、どんどん増えていきます。 データは、テーブルとして扱いたいと考えております。 ランク毎、適用日付毎などで分析するため。 この表では、抽出が出来ないので、ネックとなっております。 又、品物が横に並んでいるので品物別の抽出も出来ません。 何か良いアイディアがございましたらよろしくお願い致します。 | |
[133768] Re[3]: レイアウト変更について- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/05/16(15:23)) □U R L/ ふーむ、申し訳ないですが、 最近、思考能力が低下して来て、いいアイデアが浮かんで来ないです。 他の回答者からのレスをお待ちください。m(__)m | |
[133769] Re[4]: レイアウト変更について- ■記事引用/メール受信=OFF■ □投稿者/ さくら -(2023/05/16(16:25)) □U R L/ 半平太さん、申し訳ございません。 ＞他の回答者からのレスをお待ちください。m(__)m＞ →しばらく、待ってみます | |
[133779] Re[5]: レイアウト変更について- ■記事引用/メール受信=OFF■ □投稿者/ メジロ -(2023/05/21(09:13)) □U R L/ あの半平太さんがご回答を差し控えたということは こんな平凡な式ではダメなのかもしれませんが・・・・ Sheet2に変更後の表を作成するとします。 全ての行にランクが入力されていないようですので作業列（仮にK列）を使います。 Sheet1!K2: =IF(B2="","",IF(A2="",K1,A2)) 下に必要数コピーします。 Sheet2!A2: =IF(ROW(A1)>COUNT(Sheet1!$A$2:$A$6),"",SMALL(Sheet1!$A$2:$A$6,ROW(A1))) 下に必要数コピーします。 Sheet2!B2: =IFERROR(INDEX(Sheet1!$B$2:$B$6,AGGREGATE(15,6,ROW($A$1:$A$5)/(Sheet1!$K$2:$K$6=$A2),COLUMN(A1))),"") E列までと下にコピーします。 Sheet2!F2: =IF($A2="","",INDEX(Sheet1!$C$2:$I$6,MATCH($A2,Sheet1!$A$2:$A$6,0),COLUMN(A1))) L列までと下にコピーします。 Sheet1の備考（I列）はすべて入力されているのか、入力されているデータの種類が 分からないので、現状の式では空白の場合「0」が表示されます。 | |
[133783] Re[6]: レイアウト変更について- ■  / 記事引用/メール受信=OFF■
□投稿者/ さくら -(2023/05/27(21:20)) □U R L/ 返事が遅くなり申し訳ありません。 メジロさん、ありがとうございます。 検証した結果、一部は意図した結果になりませんでした。 やはり、難しいようですね。 他の方からのアドバイスを待っていたのですが 回答がないようですのでここは、いったん解決としておきます。 | |