Excel VBA質問箱 IV

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

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


58930 / 76738 ←次へ | 前へ→

【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 '※値が必ず1行目にあると想定して Cells(1, X).value に
    Ct = Ct + 1 '値の長さが1以上あればCtに+1
  End If
Next
'-
XXX = Ct 'Sub AAAに結果を変えす
'-
End Function
'-----------------------------------------------------------

0 hits

【22516】列数を取得したいとき わだあつと 05/2/23(水) 11:22 質問
【22518】Re:列数を取得したいとき G-Luck 05/2/23(水) 11:27 回答
【22523】Re:列数を取得したいとき わだあつと 05/2/23(水) 13:19 質問
【22524】Re:列数を取得したいとき IROC 05/2/23(水) 13:23 回答
【22525】Re:列数を取得したいとき G-Luck 05/2/23(水) 13:48 回答
【22526】Re:列数を取得したいとき わだあつと 05/2/23(水) 13:59 お礼
【22527】Re:列数を取得したいとき MMX 05/2/23(水) 14:06 発言
【22528】Re:列数を取得したいとき わだあつと 05/2/23(水) 14:13 お礼

58930 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free