Excel VBA質問箱 IV

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

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


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

8397 / 76732

←次へ　｜　前へ→


	【73910】Re:別シート検索してマッチすれば値を＋１

UO3 - 13/3/19(火) 13:59 -


	引用なし

	パスワード

▼nonoka さん：

こんにちは

アップされたコード、各種変数がそれぞれ１４、そこへの値のセットも１４行、処理も１４・・
というところが気になりましたので、変数を配列にして、変数定義も１行、値のセットも１行
処理もループでコンパクトに・・・・

ということでコードを書き始めたんですが、考え直しました。
コードはコンパクトになったとしても、そのためのバグつぶしに時間がかかるかもしれませんし
今後の、そちらでの運用過程で追加改訂なども考えられ、その時に、nonokaさんが理解して
コード対応を行わなければいけないですよね。

なので、とりあえず・・・というか・・・最終的に。

以下のプロシジャを追加してください。

Function GetWorkDate(ByVal dt As Date) As Date
　　Dim a As Variant
　　With Sheets("holiday")
　　　　Do
　　　　　　a = Application.Match(CDbl(dt), .Range("B4", .Range("B" & .Rows.Count).End(xlUp)), 0)
　　　　　　If Not IsNumeric(a) Then Exit Do
　　　　　　dt = dt + 1
　　　　Loop
　　End With
　　GetWorkDate = dt
End Function

で、現在、Ｎ列～ＡＡ列に日付をセットしておられるところ、たとえば

.Range("N1").Value = .Range("K1").Value + Val(s(1))

ここを

.Range("N1").Value = GetWorkDate(.Range("K1").Value + Val(s(1)))

こんなふうに変更してみてください。
セットしようとしている日付が休日リストにあった場合、翌日、翌々日。。。と
一番近い営業日にかえてセットします。

310 hits

▼

【73864】別シート検索してマッチすれば値を＋１ nonoka 13/2/26(火) 11:09