Excel VBA質問箱 IV

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

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


37587 / 76732 ←次へ | 前へ→

【44308】Re:特定列の文字数確認
発言  ichinose  - 06/11/12(日) 20:01 -

引用なし
パスワード
   こんばんは。


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


>全角10(半角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を使うことが多いです。

0 hits

【44302】特定列の文字数確認 ほほえみ 06/11/12(日) 19:19 質問
【44306】Re:特定列の文字数確認 Mk 06/11/12(日) 19:35 発言
【44307】Re:特定列の文字数確認 Mk 06/11/12(日) 19:51 発言
【44325】Re:特定列の文字数確認 ほほえみ 06/11/13(月) 12:41 お礼
【44308】Re:特定列の文字数確認 ichinose 06/11/12(日) 20:01 発言
【44324】Re:特定列の文字数確認 ほほえみ 06/11/13(月) 12:39 質問
【44326】Re:特定列の文字数確認 ichinose 06/11/13(月) 13:02 発言
【44336】Re:特定列の文字数確認 ほほえみ 06/11/13(月) 16:20 質問
【44342】Re:特定列の文字数確認 ichinose 06/11/13(月) 17:16 発言
【44354】Re:特定列の文字数確認 ほほえみ 06/11/13(月) 20:52 質問
【44356】Re:特定列の文字数確認 ichinose 06/11/13(月) 22:00 発言
【44359】Re:特定列の文字数確認 ほほえみ 06/11/13(月) 23:23 お礼
【44310】Re:特定列の文字数確認 Kein 06/11/12(日) 21:10 回答
【44337】Re:特定列の文字数確認 ほほえみ 06/11/13(月) 16:21 お礼

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