Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58924 / 76732

←次へ　｜　前へ→


	【22527】Re:列数を取得したいとき

MMX - 05/2/23(水) 14:06 -


	引用なし

	パスワード

>「文字列のはいっている列の数」です。
>シートには、A1,B1,C1・・・・N1まで文字列が入っています。

横ヤリですいません(^^;
こんなのはいかがでしょうか？

'-----------------------------------------------------------
Sub AAA()
MsgBox "値のある列数は " & XXX & " 列あります"
End Sub
'-----------------------------------------------------------
Function XXX() As Integer
'-
Dim Ce As Integer 'Columnの最終端
Dim Ct As Integer '値のある列をカウント
'-
Ce = Range("IV1").End(xlToLeft).Column '列の最終端取得
Ct = 0
'-
Dim X As Integer '値の調査を行う列のcolumn
'-
For X = 1 To Ce '開始位置X=1は任意に
　　If 1 <= Len(Cells(1, X).Value) Then '※値が必ず１行目にあると想定して　Cells(1, X).value に
　　　 Ct = Ct + 1　'値の長さが１以上あればＣｔに＋１
　　End If
Next
'-
XXX = Ct 'Sub AAAに結果を変えす
'-
End Function
'-----------------------------------------------------------

2 hits

▼

【22516】列数を取得したいとき わだあつと 05/2/23(水) 11:22