Excel VBA質問箱 IV

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

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


52022 / 76732 ←次へ | 前へ→

【29558】Re:追記
発言  G  - 05/10/7(金) 15:51 -

引用なし
パスワード
   ちくたくさん>レスありがとうございます。
引用ですみませんが、返信します。


▼ちくたく さん:
>こんにちは。
>
>すいません、ちょっと目的が見えにくかったので。
>確認のためですが、下のようなことをしたいのでしょうか?
>
>Sub test()
>  Dim yourName As String, pData As String
>  Dim allName As Variant, allPData As Variant
>  Dim i As Integer, j As Long
>  
>  yourName = InputBox("人命を入力してください。")
>  pData = InputBox("個人情報を入力してください。")
  ’→検索対象のデータは入力では無く、別sheetに既に一覧
    として在るものから入力をしようとしています。


>  allName = Rows(1)
>  allPData = Columns(1)
>  
>  For i = 1 To UBound(allName, 2)
>    If allName(1, i) = yourName Then Exit For
>  Next i

>  For j = 1 To UBound(allPData, 1)
>    If allPData(j, 1) = pData Then Exit For
>  Next j
>  
>  Cells(j, i).Value = "そこに値が入力される。"
>  
>End Sub
→なるほど、検索列、行の先頭をRowsやcolumnsで格納して(たとえば6列目、6行目スタートだと【Row(6)】【columns(6)】と記述すればOKですね?

それで検索対象の文字列が入った変数と、列、行の文字列とつき合わせて一致しなければForでまわして、一致すればForを抜けて、cellsへ値を入力すればいいんですか。

とても参考になります。ありがとうございました。

後、不明な点がもう1点あるのですが

Cells(j, i).Value = "そこに値が入力される。"

この文の【そこに値が入力される。】の部分なんですが
また別の表を検索してデータを入れようと思っているのですが
可能でしょうか?

【データを取り出す表】

ユーザ名 個人情報

ユーザ名 個人情報1
     個人情報2
       ・
       ・
     個人情報100
(スペース)(スペース)
ユーザ名2 個人情報1
       ・
       ・
     個人情報100 
0 hits

【29548】エクセル表の検索ができません・・・。 G 05/10/7(金) 12:52 質問
【29549】Re:エクセル表の検索ができません・・・。 ちくたく 05/10/7(金) 13:03 発言
【29551】Re:エクセル表の検索ができません・・・。 ponpon 05/10/7(金) 13:05 発言
【29553】Re:エクセル表の検索ができません・・・。 G 05/10/7(金) 13:26 質問
【29555】追記 G 05/10/7(金) 13:53 質問
【29556】Re:追記 ちくたく 05/10/7(金) 14:25 発言
【29558】Re:追記 G 05/10/7(金) 15:51 発言
【29559】Re:追記 ちくたく 05/10/7(金) 16:22 回答
【29679】Re:追記 G 05/10/11(火) 17:45 お礼

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