| |
>Sheet2へのトップ欄は横一列に名前コードが並んでいて
>打合管理番号を縦に作ろうと思います
>そこでここから作りたいのはCommandButtonとSpin＋Labeを
>１つ増設し検索コード（TextBox1）で列を探しSpinの番号で行（RowNo）
>というふうにしたいのです
検索対象のセル範囲と、データの種類（セルの値）は、どのようなものですか？
データの重複の有無なども分かりませんし、
具体的に何が分からないのでしょうか？
重複がなければ、一般的なのは、TextBox1の文字で、
Ａ列を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 '行番号
|
|
IROC
- 04/8/27(金) 8:46 -
