- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-11-27
- 最後登錄
- 2020-9-8
|
本帖最後由 GBKEE 於 2011-11-27 16:47 編輯
我有一個ＥＸＣＥＬ檔，列印是可以用選擇日期來列印所需的報表
但。。同事已離職。。
我功力不夠，能否幫看一下。。要如何修改及其意義如Cells(3, 10)啥意思。？。。
Private Sub click_取消_Click()
UserForm1.Hide
End Sub
Private Sub click_確定_Click()
Dim D55 As Integer
Dim D11 As Integer
Dim D21 As Integer
D11 = (ComboBox2.Value - ComboBox1.Value)
For D21 = 0 To D11
Worksheets("日報表").Cells(3, 10).Value = (D21 + ComboBox1.Value)
ActiveWindow.SelectedSheets.PrintOut COPIES:=1, COLLATE:=True
Next D21
UserForm1.Hide
End Sub
Private Sub ComboBox1_Change()
Dim D44 As Object
SETD44 = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub |
|
發表於 2011-11-27 16:45
| 
