- 帖子
- 66
- 主題
- 16
- 精華
- 0
- 積分
- 99
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-8-12
- 最後登錄
- 2023-10-26
|
回復 4# Hsieh
Hsieh大大，您好：
今天休假，下午起來看到您的回覆，真是太驚奇了，
已經測試過確實可以執行，其中感到最特別的程式碼：- For Each Ob In Me.Shapes
- If Not Ob.Name Like "ComboBox*" Then Ob.Delete
- Next
測試Ob.Name得到ComboBox1.ComboBox2.TextBox........
所以，意思是除了ComboBox外的物件都刪除；- k = Int((Day(i) + w - 2) / 7)
因表格第一個欄位是星期一(vbMonday，也就是2)，
Int：傳回數值的整數部份，
藉以計算該日期的儲存格位置是否該往下移動一列，- With Me.Shapes.AddLabel(msoTextOrientationHorizontal, A.Left, A.Top, 10, 72)
- .TextFrame.AutoSize = True
- .TextFrame.Characters.Caption = Day(i)
- End With
只能說您實在是太厲害了！小弟實在太敬佩了！
希望以後還請您多多指教！ |
|
發表於 2014-5-25 18:50
| 
