リストボックスから値取得時のエラー

質問

いつも助けていただきありがとうございます。
現在、ユーザーフォームを利用し一覧から検索し検索し、希望する事業所、氏名を、double clickで2ページ目に表示し、選択した様式に事業所名（A2）、氏名（B2)、作成日（A3)へを貼り付けたいとかんがえています。

一覧から事業所検索までは上手くいくのですが、事業所名、氏名、作成日を2ページ目に表示の際、型が一致しませんとでてエラーが出てしまう状態です。色々と検索、見直しなどしたのですがどうしても修正が聞かないので皆さんの知識をお借りしたいと思い質問させていただきます。
皆さんよろしくお願いします。
※2ページ目表示でエラーがでて先に進めていないので、選択様式へ希望するCellへの書き出しについてはまだコードは作成していません。
Cellへの書き出しは問題なく出来ると思うのですが、希望する様式を選択する際のコードのアドバイスなども一緒に教えていただければ嬉しいです。
よろしくお願いします。
Private Sub 検索ボタン_Click()

'検索を実行します。部分一致検索。
Dim lastrow As Long
Dim myData, myData2()
Dim i As Long, cn As Long

'検索対象がない場合の警告
If 氏名検索テキストボックス.Text = "" Then
MsgBox "検索対象を入力してください。"
Exit Sub
End If

'検索するデータを配列　myData　に格納。
With Worksheets("名簿一覧")
myData = .Range(.Cells(1, 4), .Cells(Rows.Count, 1).End(xlUp)).Value
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
End With

'配列　myData の中で検索で一致したデータを配列　myData2　に格納。
ReDim myData2(1 To lastrow, 1 To 4)
For i = LBound(myData) To UBound(myData)
If myData(i, 2) Like "*" & 氏名検索テキストボックス.Value & "*" Then
cn = cn + 1
myData2(cn, 1) = myData(i, 2)
myData2(cn, 2) = myData(i, 3)
myData2(cn, 3) = myData(i, 4)

End If
Next i

'検索で一致したデータをリストボックスに表示。
With 検索表示リストボックス
.ColumnCount = 4
.ColumnWidths = "70;70;70"
.List = myData2

If .List(0, 1) = "" Then
MsgBox "該当者がいません"
End If
End With

End Sub

'ダブルクリックでセルを選択
Private Sub 検索表示リストボックス_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

With Worksheets("名簿一覧")
.Range(.Cells(検索表示リストボックス.List(検索表示リストボックス.ListIndex, 0) + 1, 1), .Cells(検索表示リストボックス.List(検索表示リストボックス.ListIndex, 0) + 1, 4)).Select
End With

'選択したリストのデータ参照
Dim 行番号 As Integer
行番号 = ActiveCell.Row
作成日ラベル.Caption = Format(Date, "yyyymmdd")
氏名.Text = Cells(行番号, 2)
会社名.Text = Cells(行番号, 3)

MultiPage1.Value = 1

End Sub

回答No.3

kkkkkm · ベストアンサー

No.1の蛇足的追加です。

あと、気になる感じがしたので

直接リストボックスから代入すればなくなる部分だと思いますが

Dim lastrow As Long
ですので
Dim 行番号 As Integer

これもLongにしておかないとlastrowの値がIntegerを超えていて選択したものの位置がIntegerを超えた場合、オーバーフローになると思います。

また
行番号 = ActiveCell.Row
ですが、Active〇〇としているために動作がおかしくなっているパターンをたまに見かけますので、Active〇〇(ActiveSheetなど)はできるだけ避けた方がいいと思われます。

コードを簡単にすると
.Range(略).Select
行番号 = ActiveCell.Row
というパターンだと思いますが
直接
行番号 = .Range(略).Row
としていたほうがコードの改編などでSelectと行番号代入の間にActiveCellが他に移るようなことになったとしても行番号は意図した値を保てます。

お礼

返信遅くなりすみません。
回答ありがとうございます。
リストボックスから直接とればよかったんですよね
以前、教えてもらったコードを再利用して作成していたので、リストボックスから直接ということを頭から抜けていました・・・
そのほかいろいろとアドバイスいただきありがとうございます。もっともっと勉強が頑張りたいと思います。

回答No.2

kon555

コード面の回答は既についているので、ちょっと違う角度からのアドバイスです。

　質問文の内容からすると自分ないし自部署程度で使う業務ツールのように思えますが、特に強い理由がないなら、入力画面としてユーザーフォームを作るより、入力用のシートを作り、その内容を転記する形の方が簡単ですよ。
　正直なところ、Excel業務の自動化や簡略化というツールを作る上でユーザーフォームには見栄え以上のメリットはなく、後々のメンテナンスや改造などを考えるとシートを活用した方が便利です。

　課題として取り組むならいいのですが、実務としてならば、ユーザーフォームにしろその他の動作にしろ『本当にこれは必要か？』『多少妥協したら簡単に実装できないか？』という部分は考えておいた方がいいですよ。

お礼

返信遅くなりすみません。
いろいろとアドバイスありがとうございます。
何気にユーザーフォームにこだわっていましたが、よく考えるとシートでも十分ですよね。
今後、作成する際は考えて作成したいと思います。
ありがとうございました。

回答No.1

kkkkkm

> .Range(.Cells(検索表示リストボックス.List(検索表示リストボックス.ListIndex, 0) + 1, 1), .Cells(検索表示リストボックス.List(検索表示リストボックス.ListIndex, 0) + 1, 4)).Select

検索表示リストボックス.List(検索表示リストボックス.ListIndex, 0)
は選択された値を返します。
A山さんを選択したら返るのは「A山」ですので

.Range(.Cells("A山" + 1, 1), .Cells("A山" + 1, 4)).Select

としたことになりますから、「型が一致しません」となります。

エラーが出た場合、変数や返値のあるプロパティなどの値を
MsgBox
や
Debug.Print
で確認してみてもいいかもしれません。

検索表示リストボックス.ListIndex
とすれば位置が数値で返りますが、リストでの位置ですのでセル位置にはあいません。

シートからとらなくても、直接

氏名.Text = 検索表示リストボックス.List(検索表示リストボックス.ListIndex, 0)
会社名.Text = 検索表示リストボックス.List(検索表示リストボックス.ListIndex, 1)

でいいのではないでしょうか。

また、最初の方にある

myData = .Range(.Cells(1, 4), .Cells(Rows.Count, 1).End(xlUp)).Value
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row

ですが、myDataはデータのある最終行までのデータを格納しておけばいいと思いますので

lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
myData = .Range(.Cells(1, 4), .Cells(lastrow, 1)).Value

でいいような気もします。