­ã´£³¡ªL

¦pªG¥u¬O²³æ¬d¸ß, ¸ê®Æ¤]¤£¦h, ¥i¥Î¤½¦¡:
Sub ¥¨¶°1()
P$ = ThisWorkbook.Path & "\"
With Range("D2", Cells(Rows.Count, 1).End(xlUp)(2, 2))
     .Columns(1) = "=VLOOKUP(A2,'" & P & "[¸ê®Æ.xlsx]¤u§@ªí1'!A:D,2,)"
     .Columns(3) = "=VLOOKUP(A2,'" & P & "[¸ê®Æ.xlsx]¤u§@ªí1'!A:D,4,)"
     .Columns(2) = "=VLOOKUP(A2,'" & P & "[¤Ø¤o.xlsx]¤u§@ªí1'!A:D,2,)"
     .Value = .Value
     .Replace "#N/A", ""
End With
End Sub

­ã´£³¡ªL

¦^´_ 13# iceandy6150

¦~¸ê??? ¥i¯à¦³¦p¤U±¡§Î???
1¦~3¤ë5¤é
1¦~5¤ë
1¦~12¤é
5¤ë18¤é
3¤ë
29¤é

­ã´£³¡ªL

¦^´_ 13# iceandy6150

Private Sub CommandButton1_Click()
c$ = Replace(Replace(Range("A1"), "¦~", ":"), "¤ë", "")
If IsNumeric(c) Then c = "0:" & c
c = Application.Text(c, "[hh]¦~mm¤ë")
Range("B1") = c
End Sub

======================

­ã´£³¡ªL

¦^´_ 15# n7822123


Private Sub CommandButton2_Click()
d& = Evaluate("edate(" & CLng(Date) & ", 1)")
ym$ = Format(d, "emm") & "ÀÉ®×"
MsgBox ym
End Sub

­ã´£³¡ªL

¦^´_ 15# n7822123

Private Sub CommandButton2_Click()
d = CDate(Format(Now, "yyyy/m/1")) + 31
ym$ = Format(d, "emm") & "ÀÉ®×"
MsgBox ym
End Sub

­ã´£³¡ªL

¦A¨Ó¨âºØ¤èªk:
Private Sub CommandButton2_Click()
ym$ = Format(Date - Day(Date) + 32, "EMM") & "ÀÉ®×"
MsgBox ym
End Sub


Private Sub CommandButton2_Click()
ym$ = Format(DateAdd("m", 1, Date), "EMM") & "ÀÉ®×"
MsgBox ym
End Sub


===========================