Excel VBA質問箱 IV

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

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


8391 / 76732 ←次へ | 前へ→

【73916】Re:別シート検索してマッチすれば値を+1
質問  nonoka  - 13/3/19(火) 19:10 -

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

すいません。確認です。
どこに追加すればよろしいでしょうか?


>
>こんにちは
>
>アップされたコード、各種変数がそれぞれ14、そこへの値のセットも14行、処理も14・・
>というところが気になりましたので、変数を配列にして、変数定義も1行、値のセットも1行
>処理もループでコンパクトに・・・・
>
>ということでコードを書き始めたんですが、考え直しました。
>コードはコンパクトになったとしても、そのためのバグつぶしに時間がかかるかもしれませんし
>今後の、そちらでの運用過程で追加改訂なども考えられ、その時に、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
>
>で、現在、N列〜AA列に日付をセットしておられるところ、たとえば
>
> .Range("N1").Value = .Range("K1").Value + Val(s(1))
>
>ここを
>
> .Range("N1").Value = GetWorkDate(.Range("K1").Value + Val(s(1)))
>
>こんなふうに変更してみてください。
>セットしようとしている日付が休日リストにあった場合、翌日、翌々日。。。と
>一番近い営業日にかえてセットします。
305 hits

【73864】別シート検索してマッチすれば値を+1 nonoka 13/2/26(火) 11:09 質問
【73865】Re:別シート検索してマッチすれば値を+1 UO3 13/2/26(火) 12:36 発言
【73866】Re:別シート検索してマッチすれば値を+1 nonoka 13/2/26(火) 13:19 質問
【73867】Re:別シート検索してマッチすれば値を+1 nonoka 13/2/26(火) 15:54 質問
【73878】Re:別シート検索してマッチすれば値を+1 UO3 13/2/27(水) 10:41 発言
【73879】Re:別シート検索してマッチすれば値を+1 UO3 13/2/27(水) 16:30 発言
【73880】Re:別シート検索してマッチすれば値を+1 nonoka 13/2/27(水) 17:03 回答
【73894】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/18(月) 15:49 回答
【73903】Re:別シート検索してマッチすれば値を+1 UO3 13/3/19(火) 5:44 発言
【73904】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/19(火) 9:27 発言
【73905】Re:別シート検索してマッチすれば値を+1 UO3 13/3/19(火) 9:44 発言
【73906】Re:別シート検索してマッチすれば値を+1 UO3 13/3/19(火) 9:50 発言
【73907】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/19(火) 9:59 回答
【73908】Re:別シート検索してマッチすれば値を+1 UO3 13/3/19(火) 10:50 発言
【73909】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/19(火) 11:14 回答
【73910】Re:別シート検索してマッチすれば値を+1 UO3 13/3/19(火) 13:59 発言
【73916】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/19(火) 19:10 質問
【73917】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/19(火) 19:19 質問
【73918】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/19(火) 19:37 お礼
【73911】Re:別シート検索してマッチすれば値を+1 UO3 13/3/19(火) 14:01 発言
【73912】Re:別シート検索してマッチすれば値を+1 UO3 13/3/19(火) 15:31 発言
【73915】Re:別シート検索してマッチすれば値を+1 nonoka 13/3/19(火) 18:29 回答

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