|
>Sheet2へのトップ欄は横一列に名前コードが並んでいて
>打合管理番号を縦に作ろうと思います
>そこでここから作りたいのはCommandButtonとSpin+Labeを
>1つ増設し検索コード(TextBox1)で列を探しSpinの番号で行(RowNo)
>というふうにしたいのです
検索対象のセル範囲と、データの種類(セルの値)は、どのようなものですか?
データの重複の有無なども分かりませんし、
具体的に何が分からないのでしょうか?
重複がなければ、一般的なのは、TextBox1の文字で、
A列をFindメソッドで検索し、
見つかったセルの横のセル値を取得とか
見つかったセルの行番号取得とかです。
dim r as range
dim KeyWord as string
KeyWord = textbox1.text
set r = worksheets("Sheet2").Range("A:A").Find(KeyWord, LookIn:=xlValues, LookAt:=xlWhole)
if r is nothing then
msgbox "見つかりません"
exit sub
end if
label1.caption = r.offset(0,1).Value 'B列の値をラベルに
msgbox r.row '行番号
|
|