Excel VBA質問箱 IV

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

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


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

52847 / 76732

←次へ　｜　前へ→


	【28713】Re:ループについて

小僧 - 05/9/13(火) 13:18 -


	引用なし

	パスワード

▼青さん：
こんにちは。

> 小僧さんの説明を聞いてIf　xxxxx Then ～文の理屈は分かりましたが、
>　一行ごと比較していき全行一致したときのみに"完全一致"とメッセージ
>　ボックスに表示するにはどういった処理にすれば良いのでしょうか？

[#28515] で処理の流れは提示させて頂いてるんですけどね…。

他に考えられる方法としては

Dim FlgA As Boolean
Dim FlgB As Long

どちらかを宣言して、ループの前に初期化。
(VBA では自動でされますが、初期化を意識する意味で記述してます。)

FlgA = False
FlgB = 0

If xxxxx Then
　　FlgA = True
　　FlgB = 1
　　Exit Do
End If

でフラグの値を見て判断する方法もあります。

(前の投稿でも書きましたが、Exit Do をする必要が出てくるので
プログラムの構造としてはお勧めできませんが…)

当方がコードを組むとすれば

Dim FLG As Boolean
FLG = False

DO Until FLG
　　不一致判定 → True の場合 FLG = True
　　終了判定　 → True の場合 FLG = True
Loop

と言う感じでしょうか…。

1 hits

▼

【28434】CSVファイル 青 05/9/6(火) 16:31