ニックネームについて 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にするとエラーになります。 ニックネームをつけると必ずニックネームを使用しないといけないのでしょうか。
>ニックネームについて >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: 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にするとエラーになります。
>ニックネームをつけると必ずニックネームを使用しないといけないのでしょうか。