Excel VBA質問箱 IV

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

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


8339 / 76732 ←次へ | 前へ→

【73968】Re:セルを比べて一致すれば指定のセルを表示
発言  UO3  - 13/3/26(火) 10:46 -

引用なし
パスワード
   ▼nonoka さん:

こんにちは

まず、

>K列が他のコードで日付が変わっていきます。
>いれた時点では表示は間違って表示されていますが、
>ファイルを開きなおすと正常に表示されます。

「間違って表示」という意味が、いまいちわからないのですが、
「他のコード」とは、"計画調整" で K列にセットし、ループで調整しているところでしょうか?
最新の、その部分のコードがわからないのですが、仮に、そこで

Application.EnableEvents = False

'K列へのセット処理

Application.EnableEvents = True

こんなようになっているとすれば、「他のコード」で K列の日付がかわっても
今回の Workbook_SheetChange は実行されません。ブックを開きなおすと
Workbook_Open が必ず実行されるので、その結果、今回のコードが動きます。

ただ、「他のコード」に、Application.EnableEvents の手当てが加わっていないとすれば
そこでの変更で、対象の行(K列に値が入った行)について自動的に、今回の処理が実行される
はずなんですが・・・・????

もう1つ、K列への日付のセットが、"計画調整" だけで行われるとすれば、今回のコードも
Workbook_SheetChange ではなく "計画調整" 内で起動させるほうがいいかもしれませんよ。

で、

>本来、未投入となるところは空白になり、
>完了となるべきところが未投入になります。

「本来」というところが、コードとしては、そちらの要件どおりに書いているので、
どうなるべきかは、このトピで最初に説明のあった条件にしています。
念のため、コードと、最初の説明をつきあわせましたが、合致しているように思いますが?
コードで、処理している順番を言葉で書くと以下の通りです。
(条件が満足した時点で、その条件によるセットを行い、打ち止め)

1. まず、K列の入力が【日付】であった場合にのみ、この行を処理します。
  空白を含み、日付以外の値が入った場合は処理しません。(L列は空白となります)
2. K列入力された行に関して、その行のN〜AA列にK3(今日)があれば、その列のタイトルを L列にセットします。
3. K列入力日付が その行のN〜AA列にあれば、その列のタイトルをL列にセットします。
4. K列入力日付が K3(今日)未満、つまり昨日以前なら、L列に "未投入" とセットします。
5. K列入力日付が K3(今日)以上、つまり今日以降で、かつ M列日付が K3(今日)未満、つまり昨日以前なら
  L列に"完了"とセットします。
6. いずれの条件にも合致しなければ L列は空白になります。
  

279 hits

【73929】セルを比べて一致すれば指定のセルを表示 nonoka 13/3/22(金) 17:46 質問
【73933】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/22(金) 21:47 発言
【73936】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/22(金) 22:10 回答
【73938】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/22(金) 22:24 発言
【73939】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/22(金) 22:39 回答
【73940】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/22(金) 23:01 発言
【73941】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/22(金) 23:07 発言
【73942】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/22(金) 23:09 回答
【73945】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/23(土) 6:47 発言
【73947】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/23(土) 7:58 発言
【73960】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/25(月) 10:52 回答
【73961】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/25(月) 12:13 発言
【73962】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/25(月) 13:43 回答
【73963】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/25(月) 14:26 発言
【73964】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/25(月) 15:25 回答
【73965】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/25(月) 15:48 発言
【73966】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/25(月) 16:02 発言
【73967】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/25(月) 18:25 回答
【73968】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/26(火) 10:46 発言
【73969】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/26(火) 11:05 発言
【73970】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/26(火) 15:40 発言
【73971】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/26(火) 16:29 回答
【73972】Re:セルを比べて一致すれば指定のセルを表示 UO3 13/3/26(火) 17:16 発言
【73973】Re:セルを比べて一致すれば指定のセルを表示 nonoka 13/3/26(火) 17:35 お礼

8339 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free