|
▼みぽりん さん:
>Private Function Fg_Chk 以下について教えてください。
>このCase文はループの中に入っていないですよね?入ってるんですか?
入ってます。
>Line Input #1, dat
>Fg = Fg_Chk(dat)
ここでFg_Chkファンクションを呼び出して
結果をFgに入れています。
1行分をdatに読み込み→チェック→Trueなら書き込み としてます。
ステップ実行すると、Loopの中でFunctionに飛んでいるのが確認できると思います。
>1件のファイルを読み込んだ時に、C7 C9 C8 C13 C15 C14 の情報だけ
>欲しいのですが、datに入れちゃっていいんですか?
ここの部分の意味がわかりません。
これは、テキストをExcelで開いた場合のセルのアドレスですか??
テキストファイルの"7行目の3列目のデータ"ということ?
それともテキストの内容ですか?
該当するアドレスだとすると、
> Do Until EOF(1)
> Line Input #1, dat
・
・
> End If
> Loop
Do〜Loopの間のロジックを変更するほうが効率が良いと思います。
テキストファイルの内容をUPしてみてください。
もちろん、見せられないデータは違う文字列に置き換えて。
>True Falseで返す意味がわかりません。お手数をおかけいたしますが、
>もうちょっと説明していただけませんか?
SubとFunctionで変数名が重複していてすいません><
>Select Case True
> Case dat Like "*AA*"
dat Like "*AA*"の結果がTureならば、
Fg_Chkの戻り値がTureになる=FgがTureになる
わかりずらい・・・ですね・・
ここに一行を判定する条件を書けば良い ということです。
|
|