none
請問VBA變數的變數如何宣告呢 RRS feed

  • 問題

  • 請問VBA變數的變數如何宣告呢
    目前有177個ActiveX控制項的Checkbox
    小弟我想用變數的變數判斷值
    請教各位高手,有人知道嗎?
    試了很久一直都不行

     

    Code Snippet
    1 '*******************************Filter Module Defect Code************************
    2 Module_Defect_Code = ""
    3 Module_Defect_Code_Count = Application.WorksheetFunction.CountA(Sheets("Module_Defect_Code").Range("A:A"))
    4 For h = 1 To Module_Defect_Code_Count - 2
    5 ************************問題行如下*****************
    6 If Sheets("Module_Defect_Code").CheckBox & h Then
    7 ************************問題行結束*****************
    8 Module_Defect_Code = Module_Defect_Code & ",'" & Sheets("Module_Defect_Code").Cells(h + 1, 7).Value & "'"
    9
    10 End If
    11 Next h

     

     


    2009年1月12日 上午 08:23

解答

  • 你的物件名 Sheets("Module_Defect_Code").CheckBox & h 替換如下:

     

    a. 表單控制項 (注意值並非 0 / 1 或是 False / True):

    Sheets("Module_Defect_Code").Shapes("Check Box " & i).ControlFormat.Value

     

    b. ActiveX 控制項:

    Sheets("Module_Defect_Code").OLEObjects("CheckBox" & i).Object.Value

    2009年1月14日 上午 09:33