Excel VBA質問箱 IV

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

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


8400 / 76735 ←次へ | 前へ→

【73910】Re:別シート検索してマッチすれば値を+1
発言  UO3  - 13/3/19(火) 13:59 -

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

こんにちは

アップされたコード、各種変数がそれぞれ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)))

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

0 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 回答

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