Excel VBA質問箱 IV

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

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


40240 / 76736 ←次へ | 前へ→

【41597】Re:期間を判定し、予定表をつくりたい
発言  ichinose  - 06/8/15(火) 14:26 -

引用なし
パスワード
   ▼りお さん:
こんにちは。

出かける直前にあせって投稿したので、訂正です。

>標準モジュールに
>'=============================================================
>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



'==============================================================
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 - 1
  edm = Range("c2").Value
  idx = st
  Dim myarray(1 To 9) As Variant
  lim = UBound(myarray())
  Do
   stm = stm + 1
   myarray(IIf(idx Mod lim = 0, lim, idx Mod lim)) = _
             DateSerial(Year(Date), stm, 1)
   idx = idx + 1
   Loop Until Month(DateSerial(Year(Date), stm, 1)) = edm _
          Or idx = st + lim
  With Range("a1:i1")
    .Value = myarray()
    .NumberFormatLocal = "m""月"""
    End With
End Sub

とすると、ちょっとだけすっきりしました。

コードの仕様は同じです。

確認してください。
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 お礼

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