タイトル : 変数名を使ってオブジェクト名の指定を変更 投稿日 : 2006/07/17(Mon) 20:20 投稿者 : MOKO
ExcelVBAからVB2005にソフトを作り替えようとしております。 フォーム上にあるテキストボックスのオブジェクト名の指定を変数名を使って可変させたいと思っております。 計算内容は、各商品の数量と金額の合計を出すだけです。 下記、プログラムはVBAの時に使っていたモノです。 これをVB2005で似たように動作させたいのですがうまく出来ません。 各テキストボックスは、下図の様に表になっております。 ans_A1、kazu_A1、kingaku_A1 ans_A2、kazu_A2、kingaku_A2 ans_B1、kazu_B1、kingaku_B1 ans_B2、kazu_B2、kingaku_B2 最後の_A1の部分のみを変更して、コマンドボタンごとにセットした値を使ってテキストボックスのオブジェクト名を可変するにようにしたいのですがうまくいきません。 ご教授の程宜しく御願いします。 Option Explicit Dim my_set As String Dim my_ans As String Dim my_kazu As String Dim my_kingaku As String Private Sub CommandButton1_Click() my_set = "_A1" Call code End Sub Private Sub CommandButton2_Click() my_set = "_B1" Call code End Sub Private Sub code() '合計=数量×金額 の計算 Me.Controls("my_ans" & my_set).Value = Me.Controls("my_kazu" & my_set).Value * Me.Controls("my_kingaku" & my_set).Value End Sub |