2011年04月03日
カテゴリ： エクセル
Sub カレンダー作成()
Dim 日数 As Long
Dim 日付 As Variant
Dim 月 As Integer, 年 As Integer
Dim 入力セル As Range
Range("a5").Select
日付 = Application.InputBox _
("yyyy/m 形式の年月を半角で入力してください" & Chr(10) _
& " 例）2004年の2月 → 2004/2")
Exit Sub
End If
月 = Month(日付)
年 = Year(日付)
Range("c2").Value = DateSerial(年, 月, 1) '設定した年月の表示
Range("A5:A19,a20:a35").Select '開始位置の設定
Selection.ClearContents
日数 = 0
For Each 入力セル In Selection
入力セル.Formula = "=$c$2+" & 日数 '日付の位置
日数 = 日数 + 1
Next
End Sub
Dim 日数 As Long
Dim 日付 As Variant
Dim 月 As Integer, 年 As Integer
Dim 入力セル As Range
Range("a5").Select
日付 = Application.InputBox _
("yyyy/m 形式の年月を半角で入力してください" & Chr(10) _
& " 例）2004年の2月 → 2004/2")
Exit Sub
End If
月 = Month(日付)
年 = Year(日付)
Range("c2").Value = DateSerial(年, 月, 1) '設定した年月の表示
Range("A5:A19,a20:a35").Select '開始位置の設定
Selection.ClearContents
日数 = 0
For Each 入力セル In Selection
入力セル.Formula = "=$c$2+" & 日数 '日付の位置
日数 = 日数 + 1
Next
End Sub
お気に入りの記事を「いいね！」で応援しよう
[エクセル] カテゴリの最新記事
-
農林業センサス フローチャート 2015年01月15日 コメント(1)
-
エクセル 文字列の分割 2013年07月26日
-
農薬及び肥料の計算 2012年07月24日
【毎日開催】
15記事にいいね！で1ポイント
PR
キーワードサーチ
▼キーワード検索
カレンダー
nobu5267
センサー使って農業用機械の自動化を作っています。ほかにも溶接機を使っていろいろと道具を作ります。
フリーページ
コメント新着
© Rakuten Group, Inc.
