Excel VBA質問箱 IV

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

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


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

65923 / 76734

←次へ　｜　前へ→


	【15378】Re:検索のプログラミング？

IROC - 04/6/22(火) 21:34 -


	引用なし

	パスワード

このコードをＦ８キーでステップ実行しながら、ローカルウィンドウで確認してみては如何でしょうか？そうすれば、各変数の変化が分かるので、ロジックを理解しやすいかと思います。しかしこのマクロはセルの値を元に結果を返すので、このマクロを使う意味のあるシートがあってこそ実行の意味が分かるのではないのでしょうか？ 58 を見つけると、 >　　MsgBox (k & "回目に検索") によりメッセージボックスが表示されます。　　 Sub Sample() Dim i As Long Dim j As Long Dim k As Long Dim m As Double i = 1 j = 7 k = 1 　　Do While (i <= j) 　　　　m = (i + j) / 2 　　　　　　　　　　If 58 > Cells(1, m).Value Then 　　　　　　　　i = m + 1 　　　　　　ElseIf 58 < Cells(1, m).Value Then 　　　　　　　　j = m - 1 　　　　　　Else 　　　　　　　　MsgBox (k & "回目に検索") 　　　　　　　　Exit Sub 　　　　　　End If 　　　　　　　　　　k = k + 1 　　Loop 　 End Sub