|
書き忘れましたが
コードは、UserFormのコードモジュールに記述して下さい
また、車体の番号が、数値ならコードの以下の部分を修正して下さい
「Private Function GetIDNoRow」の中で
Else
'車体番号を探索
' lngFound = DataSearch(vntID, rngScope, lngOver)
'車体番号のセル値が数値として入力されている場合は以下の様に変更
lngFound = DataSearch(CLng(vntID), rngScope, lngOver) '★数値の場合、上記をこの様にする
lngCount = rngScope.Rows.Count
End If
其れと
'セルの書式を文字列に設定
' .Offset(lngOver).NumberFormatLocal = "@" '★この行コメントアウト若しくは、削除
'車体番号を書き込み
.Offset(lngOver).Value = vntID
後、当方のテストをSheet3で行いましたので
「Private Sub UserForm_Initialize()」の中が以下の様に成っていますので
あきこさんが、出力するシートにシート名を変更して下さい
'Sheet2出力表のA1セルを基準とする(列見出し「商品ID」のセル位置)
' Set rngResult = Worksheets("Sheet1").Cells(2, "A")
Set rngResult = Worksheets("Sheet3").Cells(2, "A")
|
|