用Vba寫的一個(gè)模擬K線功能，大家可以參考一下：　[金字塔]

最終效果：

此主題相關(guān)圖片如下：模擬k線：.jpg

源文件下載：

http://www.weistock.com/bbs/UploadFile/2010-4/20104215214327834.rar

安裝及使用說明：

1，下載文件，并解壓。

2，首先，按Shift+W打開“管理面板”，在下方的選項(xiàng)卡選擇“高級(jí)”，這是，你能看到，金字塔VBA的管理窗口，在“框架”欄目上點(diǎn)擊右鍵，選擇“導(dǎo)入”，然后根據(jù)提示，導(dǎo)入：下載并解壓后的文件中的，框架文件，即：UserFrome6.Fme；在“窗體”欄目上點(diǎn)擊右鍵，選擇“導(dǎo)入”，然后根據(jù)提示導(dǎo)入：下載并解壓后的文件中的，窗體文件，即：UserForm2.frm。

3，在“模塊”欄目上，隨便打開一個(gè)文件，添加以下代碼：

Sub xMnkx()

UserForm2.Show()

End Sub

4，按功能鍵的快捷鍵“6”，調(diào)用框架，然后按ALT+F8，調(diào)用宏，在宏名中輸入：xMnkx，即可。。。

 代碼如下：

'----------------------------------------------------------------------------
'窗體載入時(shí)，設(shè)置窗體屬性
Sub UserForm2_Load()
'指定一個(gè)自定義的圖標(biāo)
userForm2.SetTitileIcon("MyFile\Icon\yinwu.ICO")
userForm2.SetDefaultTabOrder()
End Sub
'設(shè)置控件屬性
UserForm2_TextBox1.TabIndex=0
UserForm2_TextBox2.TabIndex=1
UserForm2_TextBox3.TabIndex=2
UserForm2_TextBox4.TabIndex=3
UserForm2_CommandButton1.TabIndex=4
UserForm2_CommandButton2.TabIndex=5
UserForm2_CommandButton3.TabIndex=6
'窗口打開時(shí)、默認(rèn)焦點(diǎn)位置
UserForm2_TextBox1.SetFocus

'----------------------------------------------------------------------------
'插入K線
Sub UserForm2_CommandButton1_Click()
'驗(yàn)證TextBox中的數(shù)據(jù)
IF UserForm2_TextBox1.Text="" Or Not IsNumeric(UserForm2_TextBox1.Text) Then
MsgBox "請(qǐng)輸入正確的 |開盤價(jià)| 數(shù)值。。。"
UserForm2_TextBox1.SetFocus
Exit Sub
End If
'對(duì)用戶輸入的內(nèi)容進(jìn)行驗(yàn)證，防止輸入非法數(shù)據(jù)
IF UserForm2_TextBox2.Text="" Or Not IsNumeric(UserForm2_TextBox2.Text) Then
MsgBox "請(qǐng)輸入正確的 |最高價(jià)| 數(shù)值。。。"
UserForm2_TextBox2.SetFocus
Exit Sub
End If
'對(duì)用戶輸入的內(nèi)容進(jìn)行驗(yàn)證，防止輸入非法數(shù)據(jù)
IF UserForm2_TextBox3.Text="" Or Not IsNumeric(UserForm2_TextBox3.Text) Then
MsgBox "請(qǐng)輸入正確的 |最低價(jià)| 數(shù)值。。。"
UserForm2_TextBox3.SetFocus
Exit Sub
End If

'對(duì)用戶輸入的內(nèi)容進(jìn)行驗(yàn)證，防止輸入非法數(shù)據(jù)
IF UserForm2_TextBox4.Text="" Or Not IsNumeric(UserForm2_TextBox4.Text) Then
MsgBox "請(qǐng)輸入正確的 |收盤價(jià)| 數(shù)值。。。"
UserForm2_TextBox4.SetFocus
Exit Sub
End If
'獲得框架中的歷史數(shù)據(jù)
Set Grid_6=UserFrame6.GetGridByName("Main")
Set HistoryData_6=Grid_6.GetHistoryData()
HistoryData_6.InsertAt(HistoryData_6.Count)
'開盤價(jià)
HistoryData_6.Open(HistoryData_6.Count-1)=Cint(UserForm2_TextBox1.Text)
'最高價(jià)
HistoryData_6.High(HistoryData_6.Count-1)=Cint(UserForm2_TextBox2.Text)
'收盤價(jià)
HistoryData_6.Low(HistoryData_6.Count-1)=Cint(UserForm2_TextBox3.Text)
'最低價(jià)
HistoryData_6.Close(HistoryData_6.Count-1)=Cint(UserForm2_TextBox4.Text)
'重新計(jì)算框架內(nèi)的所有公式數(shù)據(jù)、刷新框架
UserFrame6.ReCalcAllGridFromula()
UserFrame6.Refresh()
End Sub
'----------------------------------------------------------------------------
'刪除K線
Sub UserForm2_CommandButton2_Click()
Set Grid_6=UserFrame6.GetGridByName("Main")
Set HistoryData_6=Grid_6.GetHistoryData()
HistoryData_6.RemoveAt(HistoryData_6.Count)
'重新計(jì)算框架內(nèi)的所有公式數(shù)據(jù)、刷新框架
UserFrame6.ReCalcAllGridFromula()
UserFrame6.Refresh()
End Sub
'關(guān)閉窗口
Sub UserForm2_CommandButton3_Click()
UserForm2.EndForm
End Sub