定義變量

Question

下面的代碼是在我的函數的開始使用時，我接收到「用戶類型沒有定義」錯誤。我只是定義一個包含數字的單元格作爲變量，以減少稍後在我的代碼中輸入的數量。我很困惑，我的變量類型是沒什麼特別的，只是一個老好人數..

Sub PECcalc() 

Dim pu238 As [Worksheets("PEC Conversion").Cells(4, 6).Value] 
Dim pu241 As [Worksheets("PEC Conversion").Cells(5, 6).Value] 
Dim am241 As [Worksheets("PEC Conversion").Cells(6, 6).Value] 
Dim pu238PEC As [Worksheets("PEC Conversion").Cells(2, 2).Value] 
Dim pu239PEC As [Worksheets("PEC Conversion").Cells(3, 2).Value] 
Dim pu240PEC As [Worksheets("PEC Conversion").Cells(4, 2).Value] 
Dim pu241PEC As [Worksheets("PEC Conversion").Cells(5, 2).Value] 
Dim am241PEC As [Worksheets("PEC Conversion").Cells(6, 2).Value] 
Dim np237PEC As [Worksheets("PEC Conversion").Cells(7, 2).Value] 
Dim u328PEC As [Worksheets("PEC Conversion").Cells(8, 2).Value] 
Dim u235PEC As [Worksheets("PEC Conversion").Cells(9, 2).Value] 

Answer 1

Sub PECcalc() 

    Dim pu238 As Double 
    pu238 = Worksheets("PEC Conversion").Cells(4, 6).Value 

    Dim pu241 As Double 
    pu241 = Worksheets("PEC Conversion").Cells(5, 6).Value 

    Dim am241 As Double 
    am241 = Worksheets("PEC Conversion").Cells(6, 6).Value 

    Dim pu238PEC As Double 
    pu238PEC = Worksheets("PEC Conversion").Cells(2, 2).Value 

    Dim pu239PEC As Double 
    pu239PEC = Worksheets("PEC Conversion").Cells(3, 2).Value 

    Dim pu240PEC As Double 
    pu240PEC = Worksheets("PEC Conversion").Cells(4, 2).Value 

    Dim pu241PEC As Double 
    pu241PEC = Worksheets("PEC Conversion").Cells(5, 2).Value 

    Dim am241PEC As Double 
    am241PEC = Worksheets("PEC Conversion").Cells(6, 2).Value 

    Dim np237PEC As Double 
    np237PEC = Worksheets("PEC Conversion").Cells(7, 2).Value 

    Dim u328PEC As Double 
    u328PEC = Worksheets("PEC Conversion").Cells(8, 2).Value 

    Dim u235PEC As Double 
    u235PEC = Worksheets("PEC Conversion").Cells(9, 2).Value 
    '...etc 

或其他風格：

Sub PECcalc() 

    Dim pu238 As Double 
    Dim pu241 As Double 
    Dim am241 As Double 
    Dim pu238PEC As Double 
    Dim pu239PEC As Double 
    Dim pu240PEC As Double 
    Dim pu241PEC As Double 
    Dim am241PEC As Double 
    Dim np237PEC As Double 
    Dim u328PEC As Double 
    Dim u235PEC As Double 

    pu238 = Worksheets("PEC Conversion").Cells(4, 6).Value 
    pu241 = Worksheets("PEC Conversion").Cells(5, 6).Value 
    am241 = Worksheets("PEC Conversion").Cells(6, 6).Value 
    pu238PEC = Worksheets("PEC Conversion").Cells(2, 2).Value 
    pu239PEC = Worksheets("PEC Conversion").Cells(3, 2).Value 
    pu240PEC = Worksheets("PEC Conversion").Cells(4, 2).Value 
    pu241PEC = Worksheets("PEC Conversion").Cells(5, 2).Value 
    am241PEC = Worksheets("PEC Conversion").Cells(6, 2).Value 
    np237PEC = Worksheets("PEC Conversion").Cells(7, 2).Value 
    u328PEC = Worksheets("PEC Conversion").Cells(8, 2).Value 
    u235PEC = Worksheets("PEC Conversion").Cells(9, 2).Value 
    '...etc