Excel VBA質問箱 IV

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

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


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

37587 / 76732

←次へ　｜　前へ→


	【44308】Re:特定列の文字数確認

ichinose - 06/11/12(日) 20:01 -


	引用なし

	パスワード

こんばんは。

>
>表の自動作成をを作っています。そこで
>Ｂ列の5行目から最終行までにおいて
>セルの文字数が全角１０(半角20）文字を超える場合
>そのデータとアドレスを抽出したく思います。

>全角１０(半角20）の文字数制限はどのようにすれば出来るでしょうか
セルのバイト数の求め方もいくつかありますが、

Sub test()
　　Dim crng As Range
　　Dim rng As Range
　　Set rng = Range("b5", Cells(Rows.Count, "b").End(xlUp))
　　If rng.Row >= 5 Then
　　　 For Each crng In rng
　　　　　With crng
　　　　　　 If Evaluate("lenb(" & .Address & ")") > 20 Then
　　　　　　　　MsgBox .Address & " = " & crng.Value & vbCrLf & _
　　　　　　　　　　　 "lenb(" & .Address & ")= " & Evaluate("lenb(" & .Address & ")")
　　　　　　　　End If
　　　　　　 End With
　　　　　Next
　　　 End If
End Sub

私は、ワークシート関数のLenbを使うことが多いです。

1 hits

▼

【44302】特定列の文字数確認 ほほえみ 06/11/12(日) 19:19