[µo°Ý] ¨D¦U¦ìÀ°À°¤p§Ì[Ãö©ó§ó·sªÑ²¼¹Ïohlcchart]

clayton0403

¥»¤H¦b«Ø¥ß¤@­Ó¤ñ¸û²³æªº¹Ïªºexcel
excel¸Ì­±¤w¸g¦³¤Fuser form¡C
¤p§Ì·N©À¬O: ¦³¤@­Óªí¦³¿ï¶µ1,2,3
¿ï¾Ü«á«öok¡AµM«á·|¦Û°ÊÂà¨ì¬ÛÃöªÑ²¼¹Ïªº¨º¤@­¶
¹Ïªí¥ç·|®Ú¾Ú¨ä¸ê®Æ®w§ó·s
¥»¤H¨Dsub create 1/2/3 chart()¤§¶¡ªº code
©ÎªÌ¦³¤j¤j¯à°÷«ü¥X§ÚVBA¸Ì­±ªº¿ù³B
VBA¥çÀH¤åªþ¤W¡I¤£³Ó·P¿E¡I

Option Explicit

Public analyopt As Integer
Sub main()

    frmselect.Show
    Select Case analyopt
        Case 1
            Call create1chart
        Case 2
            Call create2chart
        Case 3
            Call create3chart
    End Select
        
End Sub
Sub create1chart()
   
End Sub
Sub create2chart()

End Sub
Sub create3chart()

End Sub

vba.rar (36.02 KB)

¤U¸ü¦¸¼Æ: 9

2014-11-18 02:08

clayton0403

¦³¤H¥i¥HÀ°À°¦£¶Ü?ÁÂÁ³á!

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

clayton0403

¦^´_ 3# owen06


    ¥ýÁÂÁ§A..¦pªG§Ú·Q­n§ó·s¥L¦Ó¤£¬O¿ï¾Ü¥¦©O?
§Ú³o¼Ë¤l¤ñ¸û½ÆÂø¥h¥´ªº¸Ü¡A¸Ó¦p¦óset data source¸òseriouscollection?

1. Option Explicit
   
2. 
   
3. Public analyopt As Integer
   
4. Sub main()
   
5. 
   
6.     frmselect.Show
   
7.     Select Case analyopt
   
8.         Case 1
   
9.             Call Histdata1
   
10.         Case 2
    
11.             Call Histdata2
    
12.         Case 3
    
13.             Call Histdata3
    
14.     End Select
    
15.         
    
16. End Sub
    
17. Sub Histdata1()
    
18.     Dim OHLCrange1 As Range
    
19.     Dim DateRange1 As Range
    
20.    
    
21.     With ws1
    
22.         .Visible = True
    
23.         .Activate
    
24.    
    
25.             Set OHLCrange1 = .Range("A2, E25")
    
26.     End With
    
27.    
    
28.     Call create1chart(OHLCrange1, DateRange1)
    
29.    
    
30. End Sub
    
31. Sub create1chart(OHLCrange1 As Range, DataRange1 As Range)
    
32. 
    
33.     With chart1
    
34.         .Visible = True
    
35.         .Activate
    
36.         .SetSourceData OHLCrange1
    
37.         .Deselect
    
38.         
    
39.     End With
    
40. 
    
41. End Sub
    
42. Sub Histdata2()
    
43.     Dim OHLCrange2 As Range
    
44.     Dim DateRange2 As Range
    
45.    
    
46.     With ws2
    
47.         .Visible = True
    
48.         .Activate
    
49.    
    
50.             Set OHLCrange2 = .Range("A2, E47")
    
51.             Set DateRange2 = .Range("A2, A47")
    
52.     End With
    
53.    
    
54.     Call create1chart(OHLCrange1, DateRange1)
    
55.    
    
56. End Sub
    
57. Sub create2chart()
    
58. 
    
59. End Sub
    
60. Sub Histdata3()
    
61. 
    
62.    
    
63. End Sub
    
64. 
    
65. Sub create3chart()
    
66. 
    
67. 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

clayton0403

¦^´_ 5# owen06


    ¶W·P®¦!!!ÁÂÁ¤j¤jªºÀ°¦£!!!!!!!{:3_48:}