owen06

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. 
   
3. Public analyopt As Integer
   
4. Sub main()
   
5. 
   
6.     frmselect.Show
   
7.     Select Case analyopt
   
8.         Case 1
   
9.             chart1.Select
   
10.             Application.Calculation = xlAutomatic
    
11.         Case 2
    
12.             chart2.Select
    
13.             Application.Calculation = xlAutomatic
    
14.         Case 3
    
15.             chart3.Select
    
16.             Application.Calculation = xlAutomatic
    
17.     End Select
    
18.         
    
19. End Sub

½Æ»s¥N½X

owen06

¦^´_ 4# clayton0403


    ¤£ª¾¹D³o¼Ë¬O§_¬°§A·Q­nªº¸Ñµª¡H

1. Option Explicit
   
2. 
   
3. Public analyopt As Integer
   
4. Sub main()
   
5. Dim ANS As Integer
   
6. Dim OHLCrange As Range
   
7.   frmselect.Show
   
8.     Select Case analyopt
   
9.         Case 1
   
10.             ANS = 1
    
11.         Case 2
    
12.             ANS = 2
    
13.         Case 3
    
14.             ANS = 3
    
15.     End Select
    
16.     Set OHLCrange = Sheets(ANS & "HISTDATA").Range("A2:E" & Sheets(ANS & "HISTDATA").[E65536].End(3).Row)
    
17.     Charts(ANS).Select
    
18.     With Charts(ANS)
    
19.         .Visible = True
    
20.         .Activate
    
21.         .SetSourceData OHLCrange
    
22.         .Deselect
    
23.     End With
    
24.       
    
25. End Sub

½Æ»s¥N½X