標題: 二個控制項問題 想請問. [打印本頁]

---

作者: icestormer    時間: 2012-5-11 15:40     標題: 二個控制項問題 想請問.

本帖最後由 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    時間: 2012-5-16 11:32

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

回復 1# icestormer


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

---

作者: kimbal    時間: 2012-5-16 14:00

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

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

1. Private Sub SpinButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     If KeyCode = vbKeyTab Then
   
3.         TextBox1.Activate
   
4.     End If
   
5. End Sub
   
6. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
7.     If KeyCode = vbKeyTab Then
   
8.         SpinButton1.Activate
   
9.     End If
   
10. End Sub
    

複製代碼

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)