A 回答 (4件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんばんは。
最初に、どこかに(シリアル値の)日付はありませんか?
UsedRange は、あまりうまくありません。とんでもない場所に飛んでしまうことがあります。CurrentRegion なら分かりますが。しかし、やはり、それは、明示的に範囲を決めたほうがよいと思います。
なお、通常は、マクロではなくて、すべて計算で行います。私の作ったカレンダーで、六曜カレンダだけが、VBAを使っています。罫線をつけたり抜いたりするのは、条件付書式で行います。
このマクロは、週の曜日などが考慮されていませんから、週の数そのままでしか出ません。
lDate は、晦日(みそか)の日付データです。こうすると、晦日が何週目か出てきます。
cnt = Int((Day(lDate) - 1 + Weekday(lDate - Day(lDate))) / 7) + 1
この「+1」のところをひとつ増やせば、出ます。
晦日(lDate)の出し方 mDate は、その月の任意の日付です。
lDate = DateSerial(Year(mDate), Month(mDate) + 1, 1) - 1
これは、あくまでもサンプルで、マクロを読んで、場所の特定化などさせるようにしてください。最初に、何も書かれていないシートで試してみて、実際に当てはまるようにさせてください。
'標準モジュール
'-----------------------------------------------
Sub WeeksInMonthCount()
Dim mDate As Date
Dim lDate As Date
Dim cnt As Integer '週の数
'日付のあるセルにおきます。
'本来は、ActiveCell ではなく、特定のセルに決めておきます。
If IsDate(ActiveCell.Text) = False Then
MsgBox "日付のあるセルを置いてください。", vbInformation
Exit Sub
Else
mDate = CDate(ActiveCell.Text)
lDate = DateSerial(Year(mDate), Month(mDate) + 1, 1) - 1
End If
'週の数
cnt = Int((Day(lDate) - 1 + Weekday(lDate - Day(lDate))) / 7) + 1
Range("A1").CurrentRegion.Borders.LineStyle = xlNone
With Range("A1").Resize(cnt, 7)
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1 '黒
End With
End With
''Call PutInDate(mDate)
End Sub
Sub PutInDate(mDate As Date)
'日付を入れるマクロです。
Dim n As Integer
Dim m As Integer
n = 1
Range("A1").ClearContents
For i = DateSerial(Year(mDate), Month(mDate), 1) To DateSerial(Year(mDate), Month(mDate) + 1, 1) - 1
If Day(i) = 1 And Weekday(i) = 1 Then
m = Weekday(i)
ElseIf Weekday(i) = 1 Then
n = n + 1
m = Weekday(i)
Else
m = Weekday(i)
End If
Cells(n, m).Value = i
Next i
End Sub
No.2
- 回答日時:
色んなやり方がありえる。
一例Sub test01()
nen = 2007
tuki = 2
df = DateSerial(nen, tuki, 1) '月初日
wf = Weekday(df) + 1 '開始行がB列で+1
dl = DateSerial(nen, tuki + 1, 1) - 1 '月末日
nissu = Day(dl) '月日数
'--初期化
j = 4 '開始行は第4行
k = wf '開始列B列
Range("B4:H10").Clear '日付範囲クリア
'--
For i = 1 To nissu '月の末日までの日数字について
If Weekday(DateSerial(nen, tuki, i)) = 1 Then
j = j + 1 '次行へ
k = 2 'B列に位置づけ
End If
Cells(j, k) = i '日数字をセット
k = k + 1
Next i
'--罫線
Dim cl As Range
Range(Cells(4, "B"), Cells(j, 8)).Select
For Each cl In Selection
cl.Borders(xlEdgeLeft).LineStyle = xlContinuous
cl.Borders(xlEdgeTop).LineStyle = xlContinuous
cl.Borders(xlEdgeBottom).LineStyle = xlContinuous
cl.Borders(xlEdgeRight).LineStyle = xlContinuous
cl.Borders(xlEdgeLeft).LineStyle = xlContinuous
Next
End Sub
B4:H4に日ー土を入れる。
年、月はA1:B1などに入れる(上記では略)
B4:H10の書式は、数に設定
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2017 フィルタ昇順並びがA...
-
基準日以前のデータを範囲を指...
-
Excelで並び替え後にア行...
-
エクセル 複数行ある同一商品...
-
エクセルで行の高さ及び列幅の...
-
時間の重複チェック
-
オートフィルタ後のデータから...
-
【Excel VBA】指定した行の最大...
-
エクセル関数について
-
エクセル 抽出したデータを添...
-
Excelで入力した氏名をあいうえ...
-
急ぎ!色のついたセルを非表示...
-
VBA 複数行の検索及び抽出
-
エクセルで長い行を5行ごとに1...
-
DATEDIFでマイナス表示をさせたい
-
エクセルで文字が白くなる
-
特定の文字を含むシートだけマ...
-
エクセルで円グラフに引き出し...
-
エクセルで、時間 0:00を表示...
-
エクセルの主軸と第2軸の0を合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2017 フィルタ昇順並びがA...
-
基準日以前のデータを範囲を指...
-
エクセルで行の高さ及び列幅の...
-
オートフィルタ後のデータから...
-
Excelで並び替え後にア行...
-
急ぎ!色のついたセルを非表示...
-
エクセルの時刻のカウントが出...
-
【Excel VBA】指定した行の最大...
-
時間の重複チェック
-
エクセル関数について
-
プルダウンに【なし、平均、デ...
-
エクセル VBA 行間隔を飛ばした...
-
Excel 最小二乗法 二次関数
-
文字列を比較し、相違するフォ...
-
EXCEL 最終行のデータを他のセ...
-
EXCELで日付を比べ3か月以内の...
-
マクロで行の高さを設定したい
-
エクセル 複数行ある同一商品...
-
VBA 複数行の検索及び抽出
-
エクセル関数のSUMPRODUCTにつ...
おすすめ情報