５倍速！メールマガジン
このメールマガジンの詳細はこちら
受講生の声
新着の講座投稿
新着の講座コメント
新着のノート投稿
投稿一覧へ新着のノートコメント
表示できる投稿はありません。
サイト運営者紹介
小川 慶一講師/教材/システム開発者紹介
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
レッスン-投稿一覧
井上 聡さんの投稿
(投稿ID: 1101)
Sub w05()
Dim ws As Worksheet
Dim cnt As Long
cnt = 2
For Each ws In Worksheets
If ws.Range("K" & Rows.Count).End(xlUp).Value < 0 Then
Worksheets("集計").Range("B" & cnt) = ws.Name’（A)
cnt = cnt + 1
End If
Next
End Sub
（A)にwsをworksheetにするとエラーになります。
ニックネームをつけると必ずニックネームを使用しないといけないのでしょうか。
ゲストさんのコメント
(コメントID: 2260)
エラーになった状態のプログラムをください。
読んだだけでは何をしたのか本当のところは分かりませんので。
たとえば、
ws.Name
のところを
worksheet
にしたのか？
worksheet.Name
にしたのか？
はたまた違う何かにしたのか？
分かりませんので。
よろしくお願いします。
>ニックネームについて
>Sub w05()
> Dim ws As Worksheet
> Dim cnt As Long
> cnt = 2
> For Each ws In Worksheets
> If ws.Range("K" & Rows.Count).End(xlUp).Value < 0 Then
> Worksheets("集計").Range("B" & cnt) = ws.Name’（A)
> cnt = cnt + 1
> End If
> Next
>
>End Sub
>（A)にwsをworksheetにするとエラーになります。
>ニックネームをつけると必ずニックネームを使用しないといけないのでしょうか。