二個控制項問題想請問.

本帖最後由 icestormer 於 2012-5-11 17:11 編輯

無意中找到這個控制項 ,請問的是這個是類似進度條嗎? 能不能給一個實際例子要如何讓它會出現進度條的狀態呢?

另外在工作表上的這個控制項有沒有像在表單上的控制項都會有TABINDEX 之類的??

想問第三個問題, 利用下方陣列把資料寫入 ,當我其它巨集想要使用這個陣列時要怎拿過來使用呢?
因該陣列可以讓其它十多個巨集使用但這個陣列內容幾乎不會變又不想讓巨集每執行一次,就執行該陣列
才想說改成在一開workbook時就做一次就好了 ,不知能不能這樣做呢,還是一定要巨集需要時就要執行一次?

Private Sub workbook_open()
   dim i as integer
   static mydata()
i = 0
ReDim mydata([k3].Value)

For Each x In Range(Cells(5, 1), Cells(5, 1).End(xlToRight))
      mydata(i) = x.Value
      i = i + 1
Next
end sub

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2012-5-16 11:32 | 只看該作者

本帖最後由 hugh0620 於 2012-5-16 11:33 編輯

回復 1# icestormer

先回覆第三個問題~
你是寫在Private Sub Workbook_Open()中
可以插入一個模組~ 將程式碼放在裡面~ 若其他巨集有須要執行該程式~
就在該巨集指定這個程式碼就可以~

學習才能提升自己

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

3^#

發表於 2012-5-16 14:00 | 只看該作者

回覆第2個問題
沒有自帶的"tab order", 但可以通過event來選下一個目標位置.

例如spinbutton1 tab後跳到 textbox1
textbox1 tab後跳回 spinbutton1

Private Sub SpinButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
TextBox1.Activate
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
SpinButton1.Activate
End If
End Sub

複製代碼

參考:http://www.ozgrid.com/forum/showthread.php?t=47454

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP