Excel VBA質問箱 IV

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

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


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

8400 / 76732

←次へ　｜　前へ→


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

nonoka - 13/3/19(火) 9:59 -


	引用なし

	パスワード

▼UO3 さん：
下記に返信します。

>まず、↑で、コードは元に戻しましょうと申し上げましたが、
>もしＫ列自体も休日なら翌日にしておく必要があれば元に戻さず、
>連絡した対処でお願いします。

K列は入力日ですので、休日の計算は不要です。

>=GetWorkDate(K10,AD19,AE10,AF10,AG10) というように書き直します。
>この機能は
>K10 が空白なら空白
>K10に値がある場合は、列挙された最後のセル（この場合はAG10)が空白なら空白。
>そうでない場合は、列挙されたものを合計。
>こういったものを考えています。

これはセルの関数をコードに変えるということですよね？
今IFで作ったｺｰﾄﾞではおっしゃるとおりかなり重いです。
この処理で軽くなるということですよね？

>
>このGetWOrkDateの中で、現在K列で行っているような休日チェックを行います。
>ちょっと気になっているのは、現在、この処理を、ＶＢＡの中でも、負荷の大きな
>Findメソッドを使っている点です。１つ、２つならどうってことはないのですが、
>おそらく膨大な数のセルに式が配置されていると思いますので、ここを少しでも
>軽くできるかどうかがポイント。
>土日も翌日回しということなら、ロジックの中でシート関数のNETWORKDAYS等も
>使えるかな？と思っているのですが、いやいや、そうではない、あくまで休日リスト
>の日付だけを翌日回しということなら、Findを使わざるを得ないかも。
>
>また、休日リストが、現在のように　B4:S200 ではなく　１列にずらっとセット
>してあれば、Findより、やや軽めのMATCH関数が使えます。
>

あくまで休日リストでB4から下に一列は可能です。

287 hits

▼

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