5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

757 :複乳:2011/07/25(月) 15:08:10.74
>>756
Sub Macro3()
Dim a, b
'最終行判定
For k = 65536 To 1 Step -1
If Cells(k, 1) <> "" Then
a = k
Exit For
End If
Next
'hiddenでカウント
For i = 1 To a
If Not (Rows(i).Hidden) Then
b = b + 1
End If
Next
MsgBox b
End Sub
一行目がタイトルなら、b=b-1とかサイコ゜につける

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)