Excel VBA質問箱 IV

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

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


11227 / 13644 ツリー ←次へ | 前へ→

【17329】IROCたすけてあーうまくいかない 柴犬 04/8/27(金) 0:44 質問[未読]
【17331】Re:IROCたすけてあーうまくいかない IROC 04/8/27(金) 8:46 回答[未読]

【17329】IROCたすけてあーうまくいかない
質問  柴犬  - 04/8/27(金) 0:44 -

引用なし
パスワード
   こんばん”ワン”
またまたお世話にして下さい
先日の質問ですが、今私はFormで顧客リスト作ってまして
1つのFormで名前、住所等含む6項目をのShhet1へ入力、検索まで作って見ましたが
Sheet2へただいま(打合内容)を同じように作ってます検索コードとして半角カタカナで
FormTOP欄のTextBox1へ(シバミズケンタロウ)と名前情報を汎用してます。

Sheet2へのトップ欄は横一列に名前コードが並んでいて打合管理番号を縦に作ろうと思いますそこでここから作りたいのはCommandButtonとSpin+Labeを1つ増設し検索コード(TextBox1)で列を探しSpinの番号で行(RowNo)というふうにしたいのです
今頭が縺れて機能しませんたすけて

【17331】Re:IROCたすけてあーうまくいかない
回答  IROC  - 04/8/27(金) 8:46 -

引用なし
パスワード
   >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 '行番号

11227 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free