Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2827 / 76735

←次へ　｜　前へ→


	【79548】Re:基準日の変更

T-K - 17/12/24(日) 22:44 -


	引用なし

	パスワード

Function myDay(stDay As Range, myVal As Long, myAry As Range)
Dim i As Long, j As Long, K As Long '変数　iをLong型　jをLong型に宣言
Dim 納期 As Date
Dim d As Date
d = stDay.Value

　'stDay=納期希望日
　'myVal=リードタイム
　'MyAry=定休日ﾃﾞｰﾀ

Do
If WorksheetFunction.CountIf(myAry, d - K) = 0 Then
納期 = d - K

Exit Do
End If
K = K + 1
Loop

i = 1
Do Until j = myVal

If WorksheetFunction.CountIf(myAry, 納期 - i) = 0 Then　'Countif関数で、
myDay = 納期 - i

j = j - 1

End If

　　i = i + 1

Loop

そのままでも使えるのは拝見していてわかりましたが、
アプローチがちがうだけで求めている処理は同じところは少し修正して
そのまま使用しました。
求めたい処理はわかってもそれを流れで考えてコードにするのは
むずかしいです
ほんとにありがとうございました。

0 hits

▼

【79542】基準日の変更 T-K 17/12/24(日) 0:46