Excel VBA質問箱 IV

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

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


288 / 74190 ←次へ | 前へ→

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

引用なし
パスワード
   いつも利用させていただいています。


稼働日 稼働日 稼働日 休み 休み 休み
 100      ←100    ←100(基準日)

基準日が休みに数量が入力されていると仮定して直前の稼働日に基準日
を変更しさらにきめられた日数を前にした日にちを求めたい
のですが求めたところが稼働日だったり休みの時があるため、
日にちが安定して出力されません
どういう処理をしたら処理できるか教えてください。
ユーザー定義関数をつかったサンプルがあったので少しだけ変更して
見ましたが、最後シリアル値を利用して差引しているだけなので
休みは省きたいのですができません。
できればこれを少し変えた方法で処理ができればいいのですが・・・・
ご教授のほどよろしくお願いします。

Function myDay(stDay As Range, myVal As Long, myAry As Range) 'stDay=納期 ,myVal=リードタイム,MyAry=定休日データ
Dim i As Long, j As Long, K As Long '変数 iをLong型 jをLong型に宣言
i = 1 '変数 iに1を代入
K = 0


Do Until j = myVal 'リードタイムが0まで繰り返し処理


 If WorksheetFunction.CountIf(myAry, stDay) = 1 And WorksheetFunction.CountIf(myAry, stDay - i) = 0 Then
 
 myDay = stDay - i - (j + K + 1)


j = j - 1
K = K + 1


Else

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


j = j - 1


End If
End If


  i = i + 1

Loop
End Function

52 hits

【79542】基準日の変更 T-K 17/12/24(日) 0:46 質問[未読]
【79543】Re:基準日の変更 γ 17/12/24(日) 1:16 発言[未読]
【79544】Re:基準日の変更 T–K 17/12/24(日) 7:28 質問[未読]
【79545】Re:基準日の変更 γ 17/12/24(日) 10:42 回答[未読]
【79546】Re:基準日の変更 T-K 17/12/24(日) 15:31 お礼[未読]
【79547】Re:基準日の変更 γ 17/12/24(日) 21:00 発言[未読]
【79548】Re:基準日の変更 T-K 17/12/24(日) 22:44 発言[未読]
【79549】Re:基準日の変更 γ 17/12/24(日) 23:32 発言[未読]
【79554】Re:基準日の変更 T–K 17/12/25(月) 20:52 お礼[未読]
【79555】Re:基準日の変更 γ 17/12/25(月) 21:57 発言[未読]

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