Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40344 / 76736 ←次へ | 前へ→

【41491】Re:期間を判定し、予定表をつくりたい
発言  ichinose  - 06/8/12(土) 4:13 -

引用なし
パスワード
   ▼りお さん:
おはようございます。
わかりました。

アクティブシートのA1〜I1に書き込むコードです。

尚、A2には月の書き込み開始セル列番号
 B2に書き込み開始月
 C2に書き込み終了月
を入れておきます。

例1

8月〜4月という月をセルE1を開始セルとしたい場合、

A2  5
B2  8
C2  4
と入力してmainを実行します。

例2

8月〜7月という月をセルF1を開始セルとしたい場合、

A2  6
B2  8
C2  7
と入力してmainを実行します。

例3

1月〜12月という月をセルF1を開始セルとしたい場合、

A2  6
B2  1
C2  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

尚、今から出かけてしまうので
問題があった場合は、投稿は15日以降になってしまいます。

確認してください。

0 hits

【41205】期間を判定し、予定表をつくりたい mori3 06/8/1(火) 20:01 質問
【41207】Re:期間を判定し、予定表をつくりたい ichinose 06/8/1(火) 20:22 発言
【41239】Re:期間を判定し、予定表をつくりたい mori3 06/8/2(水) 21:33 発言
【41240】Re:期間を判定し、予定表をつくりたい ichinose 06/8/2(水) 22:22 発言
【41336】Re:期間を判定し、予定表をつくりたい mori3 06/8/6(日) 17:25 お礼
【41454】Re:期間を判定し、予定表をつくりたい りお 06/8/10(木) 20:50 質問
【41464】Re:期間を判定し、予定表をつくりたい ichinose 06/8/11(金) 7:10 発言
【41489】Re:期間を判定し、予定表をつくりたい りお 06/8/12(土) 2:32 発言
【41491】Re:期間を判定し、予定表をつくりたい ichinose 06/8/12(土) 4:13 発言
【41597】Re:期間を判定し、予定表をつくりたい ichinose 06/8/15(火) 14:26 発言
【41598】Re:期間を判定し、予定表をつくりたい りお 06/8/15(火) 22:37 発言
【41599】Re:期間を判定し、予定表をつくりたい ichinose 06/8/16(水) 8:31 発言
【41709】Re:期間を判定し、予定表をつくりたい りお 06/8/21(月) 0:00 お礼

40344 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free