|
▼ほほえみ さん:
こんにちは。
出掛けてしまうので後の投稿は、夕方になります(問題があった場合)。
'=====================
Sub test()
Dim mes_mem() As String
Dim crng As Range
Dim cnt As Long
Dim rng As Range
Set rng = Range("b5", Cells(Rows.Count, "b").End(xlUp))
If rng.Row >= 5 Then
cnt = 0
For Each crng In rng
With crng
If Evaluate("lenb(" & .Address & ")") > 20 Then
ReDim Preserve mes_mem(1 To cnt + 1)
mes_mem(cnt + 1) = cnt + 1 & " : " & .Address & " = " & .Value
cnt = cnt + 1
End If
End With
Next
If cnt > 0 Then
MsgBox Join(mes_mem(), vbCrLf)
Else
MsgBox "no data"
End If
Erase mes_mem()
End If
End Sub
ただし、Msgboxは表示文字数に制限がありますから、
注意して下さい。
|
|