Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1527 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【73929】セルを比べて一致すれば指定のセルを表示
質問  nonoka  - 13/3/22(金) 17:46 -
引用なし
パスワード
   いつもお世話になってます。

Ｋ３に本日の日付が入ってます。

表は9行目に見出しが入っていて１０行目から下がデータになります。
Ｋ３と比べる日付はＮ〜ＡＡに入ります。

Ｎ１０が3/22でＫ３が3/22の時に見出しのＮ９をＬ１０に表示したいです。

1.ﾃﾞｰﾀは追加型でＫ列（この場合はＫ１０）にﾃﾞｰﾀが入力された時点で
Ｎ〜ＡＡの日付を読み取り同じものがあれば同じ列の９行目をＬ１０に表示したいです。
2.日付がなかった場合はＫ列（この場合はＫ１０）とＫ３の本日の日付を比べ本日の日付より前なら”未投入”とＬ１０に表示
3.上記でも該当がない場合、次はＭ列（この場合はＭ１０）とＫ３を比べて本日の日付よりＭ１０が小さかった場合は”完了”とＬ１０に表示

としたいです。

どうぞよろしくお願い申し上げます。
【73933】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/22(金) 21:47 -
引用なし
パスワード
   ▼nonoka さん：

▼nonoka さん：

こんばんは
該当の日付と同じ日付がN〜AAに複数あった場合はどうしましょうか？
【73936】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/22(金) 22:10 -
引用なし
パスワード
   ▼UO3 さん：

>
>こんばんは
>該当の日付と同じ日付がN〜AAに複数あった場合はどうしましょうか？


こんばんは。またまたお世話になります。
複数ある場合はないです。
【73938】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/22(金) 22:24 -
引用なし
パスワード
   ▼nonoka さん：

確認です。

>Ｎ１０が3/22でＫ３が3/22の時に見出しのＮ９をＬ１０に表示したいです。

この記述と、その下の 1,2,3 の記述はどういう関係でしょうか？
この記述も1,2,3もその行のL列になんらかの値をいれますけど、
K列の日付もあった、K3の日付もあった場合、L列には何が入るのですか？

>Ｋ列（この場合はＫ１０）にﾃﾞｰﾀが入力された時点で

これは、入力（転記）された時点で自動的に実行ということですか？
【73939】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/22(金) 22:39 -
引用なし
パスワード
   ▼UO3 さん：
>▼nonoka さん：
>
>確認です。
>
>>Ｎ１０が3/22でＫ３が3/22の時に見出しのＮ９をＬ１０に表示したいです。
>
>この記述と、その下の 1,2,3 の記述はどういう関係でしょうか？
>この記述も1,2,3もその行のL列になんらかの値をいれますけど、
>K列の日付もあった、K3の日付もあった場合、L列には何が入るのですか？
>
>>Ｋ列（この場合はＫ１０）にﾃﾞｰﾀが入力された時点で
>
>これは、入力（転記）された時点で自動的に実行ということですか？


実行というよりたえずK3とNからAAを比べて日付が一致したていれば
N9からAA9の値を表示したいです。
NからAAは工程、下には工程通過日が入ります。
本日の工程をL列に表示したいだけです。
次の日になった場合、当然工程が一つ進みます。
すると、L列の表示も変わるようにしたいです。

説明が下手で申し訳ありません。
【73940】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/22(金) 23:01 -
引用なし
パスワード
   ▼nonoka さん：

実行のタイミングは、あとでいかようにもできますので横に置き
たとえば、K3の日付と同じものが N10にあったとします。
で、K10 の日付が P10 にあったとします。
L10 にいれるのはどこですか？

お聞きしているのはそういうことです。
K3の日付と比較して。。。。というところと
K10の日付と比較して。。。というところが、どういう関係なのかな？と思ったものですから。
【73941】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/22(金) 23:07 -
引用なし
パスワード
   ▼nonoka さん：

もしかして・・・
1,2,3が優先度だとして
K3の値とN〜AAの比較が　1 で、1,2,3 は 2,3,4 ということですか？
それならわかるのですが。
【73942】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/22(金) 23:09 -
引用なし
パスワード
   ▼UO3 さん：
>▼nonoka さん：
>
>もしかして・・・
>1,2,3が優先度だとして
>K3の値とN〜AAの比較が　1 で、1,2,3 は 2,3,4 ということですか？
>それならわかるのですが。

1で該当がない場合に2、
2でもない場合に3という意味です。
【73945】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/23(土) 6:47 -
引用なし
パスワード
   ▼nonoka さん：

どうも、意図がうまくつたわらないようですねぇ。
もちろん、1,2,3　の順番は理解してますよ。
お聞きしているのは、その 1,2,3 の前にK3の値とN〜AAの比較がありますけど、
それは、1,2,3　より優先度が高い、つまり、K3の日付がN〜AAにあれば
1,2,3は行わないのですね？　そういうことですけど。
【73947】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/23(土) 7:58 -
引用なし
パスワード
   ▼nonoka さん：

判定の優先度がいまいちわかりませんが、K3とN〜AAの比較を第一優先としたコードです。

Sub Sample()
　　Dim c As Range
　　Dim a As Variant
　　Dim r As Range
　　Dim bDt As Double
　　
　　Application.ScreenUpdating = False
　　bDt = Range("K3").Value2
　　
　　For Each c In Range("K10", Range("K" & Rows.Count).End(xlUp))
　　　　With c.EntireRow
　　　　　　.Range("L1").ClearContents
　　　　　　If IsDate(c.Value) Then
　　　　　　　　Set r = .Range("N1:AA1")
　　　　　　　　a = Application.Match(bDt, r, 0)
　　　　　　　　If IsNumeric(a) Then
　　　　　　　　　　.Range("L1").Value = Cells(9, a + 13).Value
　　　　　　　　Else
　　　　　　　　　　a = Application.Match(.Range("K1").Value2, r, 0)
　　　　　　　　　　If IsNumeric(a) Then
　　　　　　　　　　　　.Range("L1").Value = Cells(9, a + 13).Value
　　　　　　　　　　Else
　　　　　　　　　　　　If .Range("K1").Value2 < bDt Then
　　　　　　　　　　　　　　.Range("L1").Value = "未投入"
　　　　　　　　　　　　Else
　　　　　　　　　　　　　　If .Range("M1").Value2 < bDt Then .Range("L1").Value = "完了"
　　　　　　　　　　　　End If
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　End If
　　　　End With
　　Next
　　　　　　　　　　
　　Application.ScreenUpdating = True
　　MsgBox "処理完了"
　　
End Sub
【73960】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/25(月) 10:52 -
引用なし
パスワード
   ▼UO3 さん：
返信遅れまして申し訳ありません。
早急にご対応頂きありがとうございました。
作動確認ＯＫでした。

Ｋ３の日付が日が変わるごとに変化します。
これをｼｰﾄﾀﾌﾞ、右ｸﾘｯｸ、ｺｰﾄﾞとしたいのですが、
何か変更箇所等ありますでしょうか？
private　sub？でしたか？
ご教授ください。
【73961】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/25(月) 12:13 -
引用なし
パスワード
   ▼nonoka さん：

最初にお聞きした実行タイミングの件ですね。
基本的には、このコードの内容を（少し手直しして）このシートのシートモジュールの
Worksheet_Change　に記述することになりますが、その自動処理のトリガーとして
K10から下のK列に変更があった場合のほか、理屈としては、K3 が変更になっても
実行必要ですね。

K3 は人間が入力するのですか？それとも =TODAY() といった関数が入っているのですか？
【73962】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/25(月) 13:43 -
引用なし
パスワード
   ▼UO3 さん：
>
>K3 は人間が入力するのですか？それとも =TODAY() といった関数が入っているのですか？

K3=TODAY()です。
【73963】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/25(月) 14:26 -
引用なし
パスワード
   ▼nonoka さん：

こんにちは

そういうことでしたら

・まずブックを開いたときに処理する。
（一度処理すれば、その日のうちは２度目に開いたときの処理は不要ですが、まぁ、そこは横着に）
・で、万が一、K3の値をマニュアルで入力する場合があったときも考え、K3 と K10以降のK列の値が
　変更になれば処理。

ちょっと難点がなきにしもあらず。
夜中に作業をしていて、日付がかわったあと、シートに何かの変化があれば、K3の値がかわりますが
その時には、イベントをキャッチできませんので、処理は行われません。

ThisWorkbookモジュールに。（対象のシート名は、とりあえず"Sheet1"としていますが
実際のものに直してください。

（★コードを書いただけで動かして確認してません。不備あれば指摘願います）

Option Explicit

Const shName As String = "Sheet1"　　　 '実際のものに

Private Sub Workbook_Open()
　　Call Sample(Columns("K"))
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　Dim r As Range
　　If Not Sh Is Sheets(shName) Then Exit Sub
　　Set r = Intersect(Target, Sh.Columns("K"))
　　If r Is Nothing Then Exit Sub
　　Call Sample(r)
End Sub

Sub Sample(Target As Range)
　　Dim c As Range
　　Dim a As Variant
　　Dim r As Range
　　Dim bDt As Double
　　
　　Application.ScreenUpdating = False
　　Application.EnableEvents = False
　　
　　With Sheets(shName)
　　　bDt = .Range("K3").Value2
　　
　　　For Each c In Target.Cells
　　　　If c.Row = 3 Or c.Row >= 10 Then
　　　　　　With c.EntireRow
　　　　　　　　.Range("L1").ClearContents
　　　　　　　　If IsDate(c.Value) Then
　　　　　　　　　　Set r = .Range("N1:AA1")
　　　　　　　　　　a = Application.Match(bDt, r, 0)
　　　　　　　　　　If IsNumeric(a) Then
　　　　　　　　　　　　.Range("L1").Value = Target.Parent.Cells(9, a + 13).Value
　　　　　　　　　　Else
　　　　　　　　　　　　a = Application.Match(.Range("K1").Value2, r, 0)
　　　　　　　　　　　　If IsNumeric(a) Then
　　　　　　　　　　　　　　.Range("L1").Value = Target.Parent.Cells(9, a + 13).Value
　　　　　　　　　　　　Else
　　　　　　　　　　　　　　If .Range("K1").Value2 < bDt Then
　　　　　　　　　　　　　　　　.Range("L1").Value = "未投入"
　　　　　　　　　　　　　　Else
　　　　　　　　　　　　　　　　If .Range("M1").Value2 < bDt Then .Range("L1").Value = "完了"
　　　　　　　　　　　　　　End If
　　　　　　　　　　　　End If
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　End With
　　　　End If
　　　Next
　　End With
　　
　　Application.ScreenUpdating = True
　　Application.EnableEvents = True
　　
End Sub
【73964】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/25(月) 15:25 -
引用なし
パスワード
   ▼UO3 さん：

ありがとうございます。
動作確認しました。動作はほぼ完璧でした。さすがです。

ひとつ、手直し可能か教えてください。
10行目から下（見出しから下）のデータ部分を削除すると
Ｋ列の見出しが消えてしまいます。K列のみオートフィルターをセットしています。
ﾃﾞｰﾀを削除した場合を想定してK列の見出し及びオートフィルターは消えないようにしておきたいです。

>・で、万が一、K3の値をマニュアルで入力する場合があったときも考え、K3 と K10以降のK列の値が変更になれば処理。

これが、原因ならここを削除頂いてもかまいません。
宜しくお願いします。
【73965】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/25(月) 15:48 -
引用なし
パスワード
   ▼nonoka さん：

こんにちは

わぁ、行削除ですか！！

で、今、アップしたコードをつらつら眺めていたら、不備なところがてんこ盛り！！
それが、指摘の不具合につながっているのかどうかは、まだ確かめていません。
やっぱり、ちゃんと環境をつくって動かして確認しなきゃいけませんね。

少し時間ください。

（それにしても、行削除・・・ちょっと大変かも）
【73966】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/25(月) 16:02 -
引用なし
パスワード
   ▼nonoka さん：

こんにちは

まだ、ざくっとした確認しかしていないのですが・・・

で、さらに手を抜いて K3 の値が万が一入れなおされても処理はしないことにしました。

Option Explicit

Const shName As String = "Sheet1"　　　 '実際のものに

Private Sub Workbook_Open()
　　With Sheets(shName)
　　　　Call Sample(.Range("K10", .Range("K" & .Rows.Count).End(xlUp)))
　　End With
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　Dim r As Range
　　If Not Sh Is Sheets(shName) Then Exit Sub
　　Set r = Intersect(Target, Sh.Columns("K"))
　　If r Is Nothing Then Exit Sub
　　If Target.Rows(1).Cells.Count = Target.Parent.Columns.Count Then Exit Sub '行削除、挿入
　　Call Sample(r)
End Sub

Sub Sample(Target As Range)
　　Dim c As Range
　　Dim a As Variant
　　Dim r As Range
　　Dim bDt As Double
　
　　Application.ScreenUpdating = False
　　Application.EnableEvents = False
　
　　With Sheets(shName)
　　　bDt = .Range("K3").Value2
　
　　　For Each c In Target.Cells
　　　　If c.Row >= 10 Then
　　　　　　With c.EntireRow
　　　　　　　　.Range("L1").ClearContents
　　　　　　　　If IsDate(c.Value) Then
　　　　　　　　　　Set r = .Range("N1:AA1")
　　　　　　　　　　a = Application.Match(bDt, r, 0)
　　　　　　　　　　If IsNumeric(a) Then
　　　　　　　　　　　　.Range("L1").Value = Target.Parent.Cells(9, a + 13).Value
　　　　　　　　　　Else
　　　　　　　　　　　　a = Application.Match(.Range("K1").Value2, r, 0)
　　　　　　　　　　　　If IsNumeric(a) Then
　　　　　　　　　　　　　　.Range("L1").Value = Target.Parent.Cells(9, a + 13).Value
　　　　　　　　　　　　Else
　　　　　　　　　　　　　　If .Range("K1").Value2 < bDt Then
　　　　　　　　　　　　　　　　.Range("L1").Value = "未投入"
　　　　　　　　　　　　　　Else
　　　　　　　　　　　　　　　　If .Range("M1").Value2 < bDt Then .Range("L1").Value = "完了"
　　　　　　　　　　　　　　End If
　　　　　　　　　　　　End If
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　End With
　　　　End If
　　　Next
　　End With
　
　　Application.ScreenUpdating = True
　　Application.EnableEvents = True
　
End Sub
【73967】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/25(月) 18:25 -
引用なし
パスワード
   ▼UO3 さん：
検証してみました。
本来、未投入となるところは空白になり、
完了となるべきところが未投入になります。
単に表示を逆にすればよろしいですか？


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

おそらくIFの優先でたとえばひとつ目にtureならそれが残っている感じだと思います。
【73968】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/26(火) 10:46 -
引用なし
パスワード
   ▼nonoka さん：

こんにちは

まず、

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

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

Application.EnableEvents = False

'K列へのセット処理

Application.EnableEvents = True

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

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

もう１つ、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列は空白になります。
　　
【73969】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/26(火) 11:05 -
引用なし
パスワード
   ▼nonoka さん：

こんにちは

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

もう１つ可能性があります。
今回のコードでも、登場しますが

Application.EnableEvents = False

'なんらかの処理

Application.EnableEvents = True

こんなコードの実行中、「何らかの処理」で不具合があり、処理が中断されたとします。
そうしますと、Application.EnableEvents = True　の実行がされていませんので
このエクセルでは、イベントが一切発生しなくなり、Workbook_SheetChange　は実行されません。
このステータスは、このエクセルそのものを終わらせるまで継承されます。
（エクセルを終了させ、再度立ち上げると、Application.EnableEvents は True にリセット
　されていますので、イベントのキャッチができるようになりますが）

K列日付を変更しているのに、うんともすんとも　いわなくなった場合、この可能性はありますね。

ＶＢＥ画面のメニュー、　表示 -> イミディエイトウィンドウ　で表示されるところに
?Application.EnableEvents とタイプしてエンターしますと次の行に 現在の状態が
False なのか True　なのかが表示されます。
ここで False と表示された場合、Application.EnableEvents = True　とタイプしてエンターすれば
復旧します。
【73970】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/26(火) 15:40 -
引用なし
パスワード
   ▼nonoka さん：


こんにちは

もしかして、最初の説明文の

>2.日付がなかった場合はＫ列（この場合はＫ１０）とＫ３の本日の日付を比べ本日の日付より前なら”未投入”とＬ１０に表示

これは、「Ｋ列に入力した日付がＫ３，本日の日付より大きければ、つまり明日以降なら"未投入"」
じゃないのですか？
【73971】Re:セルを比べて一致すれば指定のセルを...
回答  nonoka  - 13/3/26(火) 16:29 -
引用なし
パスワード
   ▼UO3 さん：
>
>これは、「Ｋ列に入力した日付がＫ３，本日の日付より大きければ、つまり明日以降なら"未投入"」
>じゃないのですか？

そうです。日本語から勉強する必要がありそうですね。
すいません。
【73972】Re:セルを比べて一致すれば指定のセルを...
発言  UO3  - 13/3/26(火) 17:16 -
引用なし
パスワード
   ▼nonoka さん：

それでは

If .Range("K1").Value2 < bDt Then

を

If .Range("K1").Value2 > bDt Then

にかえてお試しください。
【73973】Re:セルを比べて一致すれば指定のセルを...
お礼  nonoka  - 13/3/26(火) 17:35 -
引用なし
パスワード
   ▼UO3 さん：
出来ました！ありがとうございます！
さらにsubも入れて計画調整に組み込みました。
一応ざっくり検証しましたが、問題ないように思います。
ありがとうございました！
これからも宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1527 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free