| |
こんにちは。かみちゃん です。
>A1に入力されている"平成○○年○○月○○日"という日付を、B1に貼り付けます。
>このとき、日付が1日〜10日なら上旬、11日〜20日なら中旬、21日〜31日なら下旬と変更した形にします。
>
>例：平成21年1月24日→平成21年1月上旬
>
>普通のコピペはできるのですが、日付の条件がうまく出来ません。
以下のようなコードをシートモジュールに記述して試してみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ss As String
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
With Target
Select Case Day(.Value)
Case Is <= 10
ss = "上旬"
Case Is <= 20
ss = "中旬"
Case Is <= 31
ss = "下旬"
End Select
Application.EnableEvents = False
.Value = Format(.Value, "ggge年m月") & ss
Application.EnableEvents = True
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 09/1/24(土) 21:33 -
