特定のセルを選択するマクロ

質問

B列にTRUEとFALSEのいずれかの文字列が入力されています。
そのうち、一番上にあるTRUEを選択したいのですが、マクロの記述の
方法がわかりません。
教えていただけるとありがたいです。
よろしくお願いいたします。

回答No.2

mshr1962 · ベストアンサー

一例ですが...
SUB MACRO()
For Each BB In Range("B:B")
BB.Select
IF BB.Value =True Then Exit For
Next BB
End Sub

回答No.5

imogasi

>TRUEとFALSEのいずれかの文字列が入力されています
もちろんＢ１セルに文字列「ＴＲＵＥ」を（４文字）入れることは可能です。しかし普通こういうケースは珍しいと思う。
一方、値としてのＴＲＵＥ、ＦＡＬＳＥは文字列ではない。
セルにＴＲＵＥ、ＦＡＬＳＥと入れると論理値のＴＲＵＥ、ＦＡＬＳＥに自動的に論理値に変えられてしまいます。
TRUE　=TRUE()
TRUE TRUE４文字
TRUE　'TRUE(先頭に'つけて）
TRYE =(2>1)
ーー
検索そのものは
Ｆｉｎｄで探す。
総なめで初出を探す。
Ｍａｔｃｈ関数を使う。初出１つだけ探せる。
=MATCH(TRUE,$A$1:$A410,0)
（ＶＢＡでもこの関数がWorksheetFunctionをつけて使える）
で出来るが、
上記前半をしっかり抑えておくこと。

回答No.4

izmlz

Findメソッドを使ったマクロです。

Sub test()
Dim Rng As Range
Dim FindCell As Range

Set Rng = Columns("B:B")
Set FindCell = Rng.Find(What:="TRUE", After:=Rng(1), Lookat:=xlWhole)

FindCell.Select

Set Rng = Nothing
Set FindCell = Nothing
End Sub

参考URL：

http://www2.odn.ne.jp/excel/waza/macro.html

回答No.3

okormazd

ANo.1
です。

セルを選択したいのね。
Sub test()

r = 1
lg = Cells(r, 2) 'B1選択
While lg <> "True"
r = r + 1
lg = Cells(r, 2)
Wend
Cells(r, 2). Select
End Sub

回答No.1

okormazd

Sub test()

r = 1
lg = Cells(r, 2) 'B1選択
While lg <> "True"
r = r + 1
lg = Cells(r, 2)
Wend
MsgBox r

End Sub