| |
▼りお さん：
おはようございます。
わかりました。
アクティブシートのＡ１〜Ｉ１に書き込むコードです。
尚、Ａ２には月の書き込み開始セル列番号
Ｂ２に書き込み開始月
Ｃ２に書き込み終了月
を入れておきます。
例1
８月〜４月という月をセルＥ１を開始セルとしたい場合、
Ａ２ 5
Ｂ２ 8
Ｃ２ 4
と入力してmainを実行します。
例2
８月〜７月という月をセルＦ１を開始セルとしたい場合、
Ａ２ 6
Ｂ２ 8
Ｃ２ 7
と入力してmainを実行します。
例3
1月〜12月という月をセルＦ１を開始セルとしたい場合、
Ａ２ 6
Ｂ２ 1
Ｃ２ 12
と入力してmainを実行します
標準モジュールに
'=============================================================
Sub main()
Dim st As Long
Dim stm As Long
Dim edm As Long
Dim idx As Long
Dim lim As Long
st = Range("a2")
stm = Range("b2").Value
edm = Range("c2").Value
idx = st
Dim myarray(1 To 9) As Variant
lim = UBound(myarray())
Do Until Month(DateSerial(Year(Date), stm, 1)) = edm Or idx = st + lim
myarray(IIf(idx Mod lim = 0, lim, idx Mod lim)) = DateSerial(Year(Date), stm, 1)
idx = idx + 1
stm = stm + 1
Loop
If Month(DateSerial(Year(Date), stm, 1)) = edm Then
myarray(IIf(idx Mod lim = 0, lim, idx Mod lim)) = DateSerial(Year(Date), stm, 1)
End If
With Range("a1:i1")
.Value = myarray()
.NumberFormatLocal = "m""月"""
End With
End Sub
尚、今から出かけてしまうので
問題があった場合は、投稿は１５日以降になってしまいます。
確認してください。
|
|
ichinose
- 06/8/12(土) 4:13 -
