- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
¦^´_ 12# luhpro
·PÁ¦U¦ì¤j¤j~
§ÚPO¤@¤U°ÝÃD~¤w¥[¤J±z´£¨Ñªº¸ê°T
Private Sub CommandButton1_Click()
'¸ê®Æ«ØÀÉ
Y = (Year(TextBoxM))
M = (Month(TextBoxM))
D = (Day(TextBoxM))
N1 = TextBoxN1
N2 = TextBoxN2
N3 = Round(N1 / N2)
For i = (M + 1) To (M + N2)
If i > 12 Then
Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & (i - 12) & "/" & D), "¤À´Á¥I´Ú", N3, TextBox1, TextBox2)
Else
Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & i & "/" & D), "¤À´Á¥I´Ú", N3, TextBox1, TextBox2)
End If
Next
Unload Me
End Sub
µLªk°õ¦æ |
|