VBA最大列のセルの長さを確認

Question

ある範囲内のすべてのセルの長さが25文字以下になっているかどうかをチェックするVBAコードを書き込もうとしました。例えば

細胞のいずれかが25個の以上の文字を持っている場合は、セルの名前を持つメッセージボックスがポップアップする必要があります。..

範囲= A1：A10

セルA3場合、 27文字がありますmsgboxが "Cell A3"というポップアップを表示する必要があります

皆さんからお手伝いできますか？

Answer 1

これは事実上あなたが求めているものです。それは非常に単純なループです。しかし代わりに一つだけMsgBoxを持つ25

Sub TestCellLengths() 
    Dim c As Range 

    For Each c In Range("A1:A10") 
     If Len(c) > 25 Then MsgBox "Cell " & c.Address(RowAbsolute:=False, ColumnAbsolute:=False) 
    Next c 
End Sub 

私が推薦する上での値の多くが付いている大規模なデータセットでお使いの画面を苦しめるだろうあなたがこれまでに試してみました何

Sub TestCellLengths() 
    Dim c As Range 
    Dim Msg As String 

    For Each c In Range("A1:A10") 
     If Len(c) > 25 Then Msg = Msg & vbTab & c.Address(RowAbsolute:=False, ColumnAbsolute:=False) & vbNewLine 
    Next c 

    If Len(Msg) > 0 Then MsgBox "Cells:" & vbNewLine & Msg 
End Sub