| |
▼のら さん：
>これだと
>Sheet1.Cells(5, MaxCol + 1) = WorksheetFunction.CountIf(Range(Sheet1.Cells(5, MaxCol - 1),Sheet1.Cells(5,MaxCol - 10)), "欠")
>がエラーになりました。
>
>Sheet1.Cells(5, MaxCol + 1) = WorksheetFunction.CountIf(Range("Sheet1.Cells(5, MaxCol - 1),Sheet1.Cells(5,MaxCol - 10)"), "欠")
>でもエラーが出ました。
>
>Rangeの部分をRange("A5:AZ5")のようにするとカウントしてくれます。
>
>日簿が増えていくため，Range()の部分が変数になるので
>Cells()で表せないかと苦慮しています。
>
>セル範囲の設定Range()をCells()を使ってあらわすにはどうすればよいのでしょうか？
いちばん最初の構文↓
> Sheet1.Cells(5, MaxCol + 1) = WorksheetFunction.CountIf( _
> Range(Sheet1.Cells(5, MaxCol - 1), Sheet1.Cells(5, MaxCol - 10)), "欠")
は、
どういうエラーになるのでしょう？
こちらでは とくにエラーにはなりませんが。
Cells()を使うなら、Resizeプロパティと合わせて、こうですかね？
Sheet1.Cells(5, MaxCol + 1).Value = WorksheetFunction.CountIf( _
Sheet1.Cells(5, MaxCol - 10).Resize(, 10), "欠")
|
|
kanabun
- 14/7/27(日) 12:48 -
