麻辣家族討論版版 - Powered by Discuz! Board

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

Option Explicit
Public analyopt As Integer
Sub main()
frmselect.Show
Select Case analyopt
Case 1
chart1.Select
Application.Calculation = xlAutomatic
Case 2
chart2.Select
Application.Calculation = xlAutomatic
Case 3
chart3.Select
Application.Calculation = xlAutomatic
End Select
End Sub

複製代碼

Option Explicit
Public analyopt As Integer
Sub main()
frmselect.Show
Select Case analyopt
Case 1
Call Histdata1
Case 2
Call Histdata2
Case 3
Call Histdata3
End Select
End Sub
Sub Histdata1()
Dim OHLCrange1 As Range
Dim DateRange1 As Range
With ws1
.Visible = True
.Activate
Set OHLCrange1 = .Range("A2, E25")
End With
Call create1chart(OHLCrange1, DateRange1)
End Sub
Sub create1chart(OHLCrange1 As Range, DataRange1 As Range)
With chart1
.Visible = True
.Activate
.SetSourceData OHLCrange1
.Deselect
End With
End Sub
Sub Histdata2()
Dim OHLCrange2 As Range
Dim DateRange2 As Range
With ws2
.Visible = True
.Activate
Set OHLCrange2 = .Range("A2, E47")
Set DateRange2 = .Range("A2, A47")
End With
Call create1chart(OHLCrange1, DateRange1)
End Sub
Sub create2chart()
End Sub
Sub Histdata3()
End Sub
Sub create3chart()
End Sub

複製代碼

Option Explicit
Public analyopt As Integer
Sub main()
Dim ANS As Integer
Dim OHLCrange As Range
frmselect.Show
Select Case analyopt
Case 1
ANS = 1
Case 2
ANS = 2
Case 3
ANS = 3
End Select
Set OHLCrange = Sheets(ANS & "HISTDATA").Range("A2:E" & Sheets(ANS & "HISTDATA").[E65536].End(3).Row)
Charts(ANS).Select
With Charts(ANS)
.Visible = True
.Activate
.SetSourceData OHLCrange
.Deselect
End With
End Sub

複製代碼