Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1212 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75640】オートシェイプの貼付け OVL 14/6/3(火) 20:01 質問[未読]
【75641】Re:オートシェイプの貼付け γ 14/6/3(火) 20:03 発言[未読]
【75647】Re:オートシェイプの貼付け OVL 14/6/4(水) 19:47 質問[未読]
【75648】Re:オートシェイプの貼付け γ 14/6/4(水) 20:05 発言[未読]
【75650】Re:オートシェイプの貼付け γ 14/6/4(水) 22:10 発言[未読]
【75652】Re:オートシェイプの貼付け OVL 14/6/5(木) 14:12 発言[未読]
【75640】オートシェイプの貼付け
質問  OVL  - 14/6/3(火) 20:01 -
引用なし
パスワード
   オートシェイプの貼付けを自動でしたいのですが、
見ていただけないでしょうか？

下記にあります。説明もあります。

宜しくお願い致します。

fast-uploader.com/file/6957348837472/
【75641】Re:オートシェイプの貼付け
発言  γ  - 14/6/3(火) 20:03 -
引用なし
パスワード
   ▼OVL さん：
>下記にあります。説明もあります。
すみませんが、それだと記録に残りません。
手数ですが、こちらの掲示板で完結するように、
ここで説明してください。
【75647】Re:オートシェイプの貼付け
質問  OVL  - 14/6/4(水) 19:47 -
引用なし
パスワード
   γさん
申し訳ございません。
説明が長くなるのでこのような方法になりました。
説明がわかるかどうかわかりませんが、以下のようにできないかと思います。


入力シートに下記のセルにリストボックスがあります。

E20〜N20
E22〜N22
E23〜N23
E24〜N24
E25〜N25
E27〜N27
E28〜N28
E29〜N29

この行間が77行

E107〜N107
E109〜N109
E110〜N110
E111〜N111
E112〜N112
E114〜N114
E115〜N115
E116〜N116

と同じ行間で続き最後が↓

E368〜N368
E370〜N370
E371〜N371
E372〜N372
E373〜N373
E375〜N375
E376〜N376
E377〜N377

楕円シートにオートシェイプを貼付けしたいのですが、
貼付け場所が下記です。

入力シートE20が"済"の時、楕円シートのH22:I22の結合セルに貼付け
入力シートE20が"未"の時、楕円シートのS22:T22の結合セルに貼付け

入力シートE22の"有"の時、楕円シートのAF24:AG24の結合セルに貼付け
入力シートE22の"無"の時、楕円シートのAM24:AN24の結合セルに貼付け

入力シートE23の"はい"の時、楕円シートのAF25:AG25の結合セルに貼付け
入力シートE23の"いいえ"の時、楕円シートのAM25:AN25の結合セルに貼付け

入力シートE24の"1年"の時、楕円シートのAF26:AG26の結合セルに貼付け
入力シートE24の"2年"の時、楕円シートのAM26:AN26の結合セルに貼付け
入力シートE24の"3年"の時、楕円シートのAV26:AW26の結合セルに貼付け

入力シートE25の"ある"の時、楕円シートのAF27:AG27の結合セルに貼付け
入力シートE25の"ない"の時、楕円シートのAV27:AW27の結合セルに貼付け

入力シートE27の"よい"の時、楕円シートのAF28:AG28の結合セルに貼付け
入力シートE27の"ふつう"の時、楕円シートのAM28:AN28の結合セルに貼付け
入力シートE27の"わるい"の時、楕円シートのAV28:AW28の結合セルに貼付け

入力シートE28の"はい"の時、楕円シートのAF29:AG29の結合セルに貼付け
入力シートE28の"いいえ"の時、楕円シートのAM29:AN29の結合セルに貼付け

入力シートE29の"いる"の時、楕円シートのAF30:AG30の結合セルに貼付け
入力シートE29の"いない"の時、楕円シートのAM30:AN30の結合セルに貼付け


入力シートF20が"済"の時、楕円シートのBL22:BM22の結合セルに貼付け
入力シートF20が"未"の時、楕円シートのBW22:BX22の結合セルに貼付け

入力シートF22の"有"の時、楕円シートのCJ24:CK24の結合セルに貼付け
入力シートF22の"無"の時、楕円シートのCQ24:CR24の結合セルに貼付け

入力シートF23の"はい"の時、楕円シートのCJ25:CK25の結合セルに貼付け
入力シートF23の"いいえ"の時、楕円シートのCQ25:CR25の結合セルに貼付け

入力シートF24の"1年"の時、楕円シートのCJ26:CK26の結合セルに貼付け
入力シートF24の"2年"の時、楕円シートのCQ26:CR26の結合セルに貼付け
入力シートF24の"3年"の時、楕円シートのCZ26:DA26の結合セルに貼付け

入力シートF25の"ある"の時、楕円シートのCJ27:CK27の結合セルに貼付け
入力シートF25の"ない"の時、楕円シートのCZ27:DA27の結合セルに貼付け

入力シートF27の"よい"の時、楕円シートのCJ28:CK28の結合セルに貼付け
入力シートF27の"ふつう"の時、楕円シートのCQ28:CR28の結合セルに貼付け
入力シートF27の"わるい"の時、楕円シートのCZ28:DA28の結合セルに貼付け

入力シートF28の"はい"の時、楕円シートのCJ29:CK29の結合セルに貼付け
入力シートF28の"いいえ"の時、楕円シートのCQ29:CR29の結合セルに貼付け

入力シートF29の"いる"の時、楕円シートのCJ30:CK30の結合セルに貼付け
入力シートF29の"いない"の時、楕円シートのCQ30:CR30の結合セルに貼付け

行間が54行空き、入力シートのG列、H列分
行間が54行空き、入力シートのI列、J列分
行間が54行空き、入力シートのK列、L列分
行間が54行空き、入力シートのM列、N列分

が同じ間隔で貼付けできるようにできないでしょうか？

説明が下手なのでわかるかどうかわかりませんが
宜しくお願い致します。
【75648】Re:オートシェイプの貼付け
発言  γ  - 14/6/4(水) 20:05 -
引用なし
パスワード
   >宜しくお願い致します。

予めお断りしておきますが、
私は、コード作成を代行するつもりはありません。

しかし、ご自分でコードを作成したい、
スキルを高めたいと考えている方には、
サポートさせていただきたいと思っています。

その前提で、以下コメントします。

こういう場合は、問題をいくつか簡単なことに分割して
検討していくと良いでしょう。

まずは、どこにあるシェイプなのか知りませんが、
それをH22:I22に貼り付ける処理をマクロ記録してみることです。
【75650】Re:オートシェイプの貼付け
発言  γ  - 14/6/4(水) 22:10 -
引用なし
パスワード
   少しそもそも論を追加します。
一般論として、結合セルの多用は余りお勧めできません。

また○で囲むというのも、余りお勧めできません。
集計にも使えませんし、負荷に見合う効果がないと思います。
見た目が手作業のものに類似していることぐらいです。
セルの背景色とか、オプションボタンとか、
もっと別の方法を検討してもいいんじゃないですか？

また、最悪、図形を扱うとしても、
その都度貼り付けたり、削除を繰り返すのは、名前管理など面倒なだけです。
図形は固定して置いて、表示、非表示状態を切り替えるほうが楽なはずです。
こうした点も検討してください。
【75652】Re:オートシェイプの貼付け
発言  OVL  - 14/6/5(木) 14:12 -
引用なし
パスワード
   追記：別の掲示板で質問しなおすのでこちらは終了します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1212 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free