- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
補VBA- Private Sub CommandButton1_Click()
- Dim Mdays
- Dim i As Integer
-
- '陽曆每月有幾天
- Mdays = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
-
- [C2].Resize(3, 31) = ""
- [C6].Resize(2, 31) = ""
-
- '3月1日的前一天, 即為2月的最後一天, 也是2月的天數
- '這也是 Excel 判別陽曆y年是否為閏年的另一方法
- Mdays(2) = Day(DateSerial([N1], 3, 1) - 1)
-
- [C6] = [C5]
-
- For i = 1 To Mdays([Q1])
- Cells(2, i + 2) = [N1] & "/" & [Q1] & "/" & i
- Cells(3, i + 2) = i
- Cells(4, i + 2) = Weekday(Cells(2, i + 2), vbMonday)
-
- '輸入累計公式
- If i <> Mdays([Q1]) Then
- Cells(6, i + 3) = "=RC[-1]+R[-1]C"
- End If
-
- '計算中間每週生產量
- If Cells(4, i + 2) = 7 And i + 2 - 6 > 1 Then
- Cells(7, i + 2) = "=SUM(R[-2]C[-6]:R[-2]C)"
-
- '計算第一週生產量
- ElseIf Cells(4, i + 2) = 7 Then
- Cells(7, i + 2) = "=SUM(R[-2]C[" & [C4] - 7 & "]:R[-2]C)"
- End If
- Next
-
- '計算最後一週生產量
- If Cells(4, Mdays([Q1]) + 2) < 7 Then
- Cells(7, Mdays([Q1]) + 2) = "=SUM(R[-2]C[-" & Cells(4, Mdays([Q1]) + 2) - 1 & "]:R[-2]C)"
- End If
- End Sub
|
|
發表於 2014-4-18 16:35
| 
