|
ちくたくさん>レスありがとうございます。
引用ですみませんが、返信します。
▼ちくたく さん:
>こんにちは。
>
>すいません、ちょっと目的が見えにくかったので。
>確認のためですが、下のようなことをしたいのでしょうか?
>
>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
|
|