|
▼ichinose さん:
ichinoseさんのアドバイスを参考に以下でやってみました
上手くいきました。
Private Sub myTxt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call Syori_FromTextBox(Txt)
End Sub
何を考えていたのだか・・・・ 恥ずかしいです(汗
おかげさまで、食事ができます。ありがとうございました。
>>************************************************************
>>標準モジュール
>>Public Sub Syori_FromTextBox(objTextBox As MSForms.TextBox)
>> objTextBox.Text = "OK"
>>End Sub
>このコードは、本来はまだ問題点があります(モジュール間の結合度が強すぎる)
同じプロジェクト内で別のUserFormでコマンドボタンコントロールを配列化していますが、そのEvent処理を別のクラスモジュールでやらせてます。
そのへんを統合することができる・・の問題でしょうか。
とにかく、今回の回答で大変たすかりました。本当にありがとうございました。
|
|