|
▼kobasan さん:
大変有り難うございます。
Class1 クラスモジュールの
Private Sub MyCtrl_Click()
Dim i As Long
Dim myStr As String
With MyCtrl
For i = 0 To .ListCount - 1
If .Selected(i) Then myStr = myStr & .List(i, 0)
Next
End With
品名書込
End Sub
Private Sub MyCtrl_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Private Sub MyCtrl_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
にそれぞれ書き換え
"品名書込"は、Module1,Class1に書いても呼び出すことが出来なかったので、
With frm品名
If .txtH1 = Empty Then
.txtH1.Value = myStr
ElseIf .txtH2 = Empty Then
.txtH2.Value = myStr
ElseIf .txtH3 = Empty Then
.txtH3.Value = myStr
.cmdEnd.SetFocus
End If
End With
以上のコードを直接、"品名書込"のところに書き込んで、
思い通りの動作になりました。
お忙しいところ大変有り難うございました。
|
|