Private Sub MyFind(ByVal src As String, ByRef rng

Question

Private Sub MyFind(ByVal src As String, ByRef rng As Range)
    Dim r As Range
    Set rng = Nothing
    For Each r In Range("F5:AJ5")
        If r.Text = src Then
            Set rng = r
            Exit Sub
        End If
    Next
End Sub
このマクロの意味を、教えてください？

tatsu99 · Accepted Answer

No8は無視してください。
https://ideone.com/wF8Bejを
こちらでを変えました。
https://ideone.com/7lDjiU
にアップしています。
Textでの比較はいろいろと弊害がありそうなので、Valueの比較に変えています。
この方法なら#####の表示箇所も、非表示の箇所も、00:00:00の箇所も問題なく検索できます。（こちらで試した限りではですが）

WindFaller · Answer

少しややこしい内容のサブルーチンのようです。
人の好き好きたらか、書き方は、なんとも言いようがありませんが、
F5:AJ5 の間で、文字列src 　と一致しているセルがあれば、そのセルを格納せよ、という意味です。
ちなみに、ByValは、値渡し、ByRef は、参照渡し。参照渡しで、セルのオブジェクトを確保しています。

Private Sub MyFind(ByVal src As String, ByRef rng As Range)
  Dim r As Range
  Set rng = Nothing
  For Each r In Range("F5:AJ5")
　If r.Text = src Then
　  Set rng = r
　  Exit Sub
　End If
  Next
End Sub

例えば、実行ファイルでは、見つけたら、その文字列の先頭に、「!」をつけるようにメインコードを作ってみました。

Sub Test1()
  Dim rng As Range
  Dim src As String
  src = "abc"
  MyFind src, rng
  rng.Value = "!" & rng.Value
End Sub

tatsu99 · Answer

前回の回答者です。（Private Sub MyFindの作者です）
前回の質問は、下記URLです。
https://oshiete.goo.ne.jp/qa/10741686.html
（質問者へお願いです。今後このような質問をするときは、前回のURLも提示するようにするようにしてください。そうすると他の回答者も
前後関係が判るので回答しやすくなります）

本来のソースの問題の箇所は、
Set org = Range("F5:AJ5").Find( _
            What:=c.Value, LookAt:=xlWhole)
Set dst = Range("F5:AJ5").Find( _
            What:=c.Offset(0, 1).Value, LookAt:=xlWhole)
となっています。
要はここで何をしているかというと、
①c.valueにマッチするセルをF5:AJ5の範囲で検索し、そのセル位置をorgにセットする。
②cの右隣のvalueにマッチするセルをF5:AJ5の範囲で検索し、そのセル位置をdstにセットする。
ということをやっています。
これと同じことをMyFindで行っています。
但しc.valueで検索するのではなく、c.textで検索するのが重要な点です。
c.valueとc.textの違いは、c.valueが内部データを示すのに対し、c.textは表示されているままのデータを示します。
今回は、2018/9/1 6:00のようなデータが設定されますが、c.valueは43344.25の数値です。c.textは"2018/9/1 6:00"の文字列です。
c.valueで検索すると00:00:00のデータで検索が失敗します。その為、c.textで検索するようにしています。
何故、00:00:00の場合のみ失敗するのは判りません。（調査していません）
その為、わざわざ、失敗する方法をとるよりは、確実に成功する方法をとったのが、MyFindによる検索になります。
MyFindの呼び出しは、
Call MyFind(c.Text, org)
Call MyFind(c.Offset(0, 1).Text, dst)
で行っています。
①c.Textを指定して、マッチするするセルを検索し、そのセル位置をorgにセットする。
②cの右隣のTextにマッチするセルを検索し、そのセル位置をdstにセットする。
ということを行います。
検索範囲は、F5:AJ5であることが、今回決まり切っているので、MyFindの中でその範囲を検索するようにしています。
（パラメータで与えても構いませんが、今回はMyFindの内部で範囲を決め打ちしています。
このMyFind自体が汎用的なプロシージャではないので、これで必要十分かと）

このプロシージャの機能の説明は、No1のかたが説明されているので、まさにその通りとしか言いようがありません。
Private Sub MyFind(ByVal src As String, ByRef rng As Range)
srcがc.Textで渡された文字列になります。入力のみなので、ByValと記述します。
rngが検索して見つかったセルになります。これは、そのセルを返すので、ByRefと記述します。
見つからなければ、nothhingを返します。
If r.Text = src Then
でsrcと比較しているのはセルのTextであることに注意してください。（If r.Value = src Thenではありません）
不明点があれば補足ください。

tatsu99 · Answer

>前回の回答内容では、実際、マクロが実行できないため、どこが原因か、マクロ内容を理解したく再度の質問となりました
「実際、マクロが実行できないため」とはどのようなことでしょうか。
前回の質問のように、実行すると、エラーが発生するということでしょうか。
そうであれば、どのようなデータの場合にエラーが発生するのでしょうか。
また、エラー発生時のソースの箇所も同じでしょうか。（デバッグをクリックした時、黄色で表示される行です）

tatsu99 · Answer

If c.Value <> "" Then・・・・①
         Call MyFind(c.Text, org)・・・・②
         Call MyFind(c.Offset(0, 1).Text, dst)・・・③

その状態で、
②のorgの箇所、
③のdstの箇所
にマウスをあててください。
どちらかがnothingになります。
nothingになったほうの検索がエラーになっています。
orgがなると、開始時間でエラーです。
dstがなると、終了時間でエラーです。
また、①のc.Valueにマウスを当ててください。
それがD列の開始時間です。
１．①のc.Valueの内容
２．その横のE列の内容（終了時間）
３．②のorgの値
４．③のdstの値
を提示してください。

tatsu99 · Answer

念のため確認ですが
Sub ガントチャート描画2()
呼び出していますね。
Sub ガントチャート描画()を
呼び出してはいけません。

tatsu99 · Answer

こちらで確認したところ、正常に引けています。（添付図参照）
念の為確認です。
①D列の2018/09/25 06:00　はきちんと表示されているか。
②E列の2018/09/26 17:45　はきちんと表示されているか。
③開始時間2018/09/25 06:00はF5:AJ5内にきちんと表示されているか。
④終了時間2018/09/26 17:45は③より右側でかつF5:AJ5内にきちんと表示されているか。
を確認してください。
特にF5:AJ5内の時間が、########のようになっていませんでしょうか。（添付図の赤線で囲んだところ）
私が提示した検索方法は、みたままの状態での検索です。見た目が多少でも違っているとエラーになります。

tatsu99 · Answer

F5:AJ5内の時間が、########のようになっていても、あなたが最初に提示されたマクロでは正常に動作します。
########表示の幅が狭いときに発生します。
もし、どうしても########の表示になってしまう箇所が発生するなら、私が提示したマクロは使えません。
あなたが最初に提示されたマクロを使用したほうが良いでしょう。

但し、その場合、00:00:00の時間が正しく検索できない為、エラーになります。
これを解消する為に、姑息な手段ですが、
2018/9/25/ 00:00:01のように秒のところを00でなく01にします。F5:AJ5内も同様にします。
すると、表示上は2018/9/25/ 00:00なので問題ありません。（添付図の赤線で囲んだところ）
これで、あなたが最初に提示されたマクロを実行すると正常に描画できます。
時刻が00:00:00の場合のみ、00:00:01にして登録する方法も１つの解決方法かと。

tatsu99 · Answer

>実は、ガンチャート表の範囲を大きくしたため現在のマクロは、以下となります
>申し遅れました、失礼しました
>https://ideone.com/wF8Bej
このマクロをこちらで試してみました。
問題なく動作しています。

＞時刻の欄では、最初、o列の開始時刻を入力すると、p列の終了時刻は計算式で設定しています
＞そして、o列の日付が変わった欄(行下)も計算式で設定されており、連続で日時が変わる設定となっております
＞入力した日時は、正常に表示されています
入力した日時に対応するR5:BZE5の範囲の日時も正常に表示されていますでしょうか。
R5:BZE5の範囲の日時が#####のように表示されているか、その列が非表示になっていませんか。
非表示でもエラーになります。

Private Sub MyFind(ByVal src As String, ByRef rng

少しややこしい内容のサブルーチンのようです。

前回の回答者です。

>前回の回答内容では、実際、マクロが実行できないため、どこが原因か、マクロ内容を理解したく再度の質問となりました

If c.Value <> "" Then・・・・①

念のため確認ですが

こちらで確認したところ、正常に引けています。

F5:AJ5内の時間が、########のようになっていても、あなたが最初に提示されたマクロでは正常に動作します。

>実は、ガンチャート表の範囲を大きくしたため現在のマクロは、以下となります

No8は無視してください。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング