Excel VBA 質問スレ Part68

Excel VBA 質問スレ Part68at TECH

Excel VBA 質問スレ Part68 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

650:デフォルトの名無しさん 
 20/10/24 13:18:00.47 Lxq4fMOo0.net
>>640 
その通り書けば楽です

651:デフォルトの名無しさん 
 20/10/24 13:35:27.35 hS/lv/UK0.net
エクセルがあるとは何ですか？

652:デフォルトの名無しさん 
 20/10/24 13:37:23.43 hS/lv/UK0.net
Excelファイルのことを単にExcelと呼ぶのも違和感がある。

653:デフォルトの名無しさん 
 20/10/24 13:45:51.01 9i+KquaLM.net
>>641 
同じ長さになることはありません 
説明不足ですみません

654:デフォルトの名無しさん 
 20/10/24 13:46:27.15 EYzilKe/0.net
何を条件にした楽なのか？

655:デフォルトの名無しさん 
 20/10/24 15:19:09.43 hS/lv/UK0.net
ファイル名のことなんてあとで考えればよい。 
まず手順を考えてください。 
ファイル名は重要ではありません。

656:デフォルトの名無しさん 
 20/10/24 15:29:59.50 VJA5Q+pD0.net
いつものあいつっぽい

657:デフォルトの名無しさん 
 20/10/24 15:59:31.92 h35l0z5Z0.net
シート"土曜日の小計"のＡ２から、祝日と会社の休業日以外の土曜日を書いていくマクロを考えています。 
（シートカレンダーのＡ列に日付、Ｂ列にＡ列の日付が祝日であれば"1"が入力してあり、Ｃ列に会社の休業日なら"１"が入力してあります） 
このマクロだと、「424 オブジェクトが必要です」になります。どう書けば良いですか？

Dim a As Long,r As Long 
a = 2 
For r = 1 To 365 
　If Weekday(DateAdd("d", r, Date)) = 7 And _ 
　　　Worksheet.Function.VLookup(DateAdd("d", r, Date), Sheets("カレンダー"), 2, False) <> 1 And _ 
　　　 Worksheet.Function.VLookup(DateAdd("d", r, Date), Sheets("カレンダー"), 3, False) <> 1 Then 
Sheets("土曜日の小計").Cells(a, 1) = DateAdd("d",r,Date) 
　　a = a + 1 
End If 
Next bc

次ページ