よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■13182 / inTopicNo.1)  シートごとに月別のカレンダー:空白セル以外を塗りつぶす
  
□投稿者/ 佐藤 -(2017/08/25(Fri) 15:46:47)
    こんにちは、よねさん

    Excel(エクセル) VBA入門:
    シートごとに月別のカレンダーを作成する

    月曜始まりのカレンダーのことについて教えてほしいことがあります。

    カレンダーに予約が入った内容を書き込んでいるのですが
    予約済の内容を黒く塗りつぶして、空いてる日の確認をしたいです。

    やりたいことの詳細としては
    指定した月をシート最後(12月の後)にコピペしてスケジュールが入っている(空白以外)セルを塗りつぶしたいです。
    月指定は、ボタン設置、セルに月入力。。。いい方法が思いつかないので
    合わせてご教授いただけると助かります。

    共有使用の為、既存(1月〜12月)のカレンダーには、塗りつぶしがないようにしたいです。

    スケジュールの内容が記載されるのは
    シートごとに月別のカレンダーを作成するのエクセル画像より
    7.8.11.12.15.16.19.20.23.24行になります。
    例えば
    AB7もしくは、AB8に記載があった場合
    A7:B9を黒く塗りつぶしたいです。
    (B9に空白がある為、B9までの塗りつぶしが難しい場合は、B8まででも可能です)

    お手数をお掛けいたしますが
    ご教授のほど、よろしくお願いいたします。

引用返信/返信 削除キー/
■13183 / inTopicNo.2)  Re[1]: シートごとに月別のカレンダー:空白セル以外を塗りつぶす
□投稿者/ よねさん -(2017/08/25(Fri) 18:00:04)
    12月の後ろに塗りつぶし用のカレンダーを作成します。
    
    塗りつぶしは条件付き書式でできます。
    適用先を =$A$7:$N$9 として、条件を数式で =(A$7<>"")+(A$8<>"") といった具合にします。
    カレンダーの2週目以降も同様な感じで、
    適用先を =$A$11:$N$13 として、条件を数式で =(A$11<>"")+(A$12<>"") とします。
    3週目以降は省略します。
    
    この12月の後ろのシートに指定した月のデータをコピーして、
    上書きすればよさそうに思いますが、いかがでしょうか?
    
    

引用返信/返信 削除キー/
■13185 / inTopicNo.3)  Re[2]: シートごとに月別のカレンダー:空白セル以外を塗りつぶす
□投稿者/ よねさん -(2017/08/30(Wed) 09:14:27)
    上の投稿ではよくわからないかもしれませんので、
    サンプルをアップしておきます。
    http://www4.synapse.ne.jp/yone/sample/20170825.xlsm
    
    条件付き書式はあらかじめ作成しておく、「コピー先」シートに設定しています。
    2017年5月のシートのみ備考欄に記入しています。
    入力規則の塗りつぶしは適当ですので、週で色が異なっていたりします。
    
    最後の「コピー先」というシートのボタンをクリックして
    インプットボックスでシート名を入力すると「コピー先」にコピーされます。

引用返信/返信 削除キー/
■13186 / inTopicNo.4)  Re[3]: シートごとに月別のカレンダー:空白セル以外を塗りつぶす
□投稿者/ 佐藤 -(2017/09/04(Mon) 16:06:42)
    返事が遅くなり、すみません。
    ちょうど、ボタンの所をどうしようか考えていたところでした。
    ありがとうございます!

    また、もう1つ質問教えていただきたいのですが
    各カレンダーシートに図形が挿入されています。
    コピー先に、選択範囲指定(A1:N29)のオブジェクトを削除してからコピーする場合はどうすれば良いでしょうか?
    ご教授のほど、よろしくお願いいたします。
引用返信/返信 削除キー/
■13187 / inTopicNo.5)  Re[4]: シートごとに月別のカレンダー:空白セル以外を塗りつぶす
□投稿者/ よねさん -(2017/09/04(Mon) 17:53:43)
    「Excelのオプション」で設定を一時的に変更して、コピーできないようにするのはいかがでしょうか?
    ただし、この操作が終わったら設定を元に戻すことになります。

    「Excelのオプション」の「詳細設定」で、「切り取り、コピー、貼り付け」の「挿入したオブジェクトをセルと共に切り取り、コピー、並び替えを行う」のチェックを外します。


引用返信/返信 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -