Excel VBA質問箱 IV

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

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


37555 / 76732 ←次へ | 前へ→

【44342】Re:特定列の文字数確認
発言  ichinose  - 06/11/13(月) 17:16 -

引用なし
パスワード
   ▼ほほえみ さん:
こんばんは。

>一つ教えて頂きたいのですが
>下記の様に手を加えてみました。
>1、rows.countをA列のデータ数を基準にする
>2、別シートからsheet1にあるデータを動作させる
>
>しかし、別シートから実行すると反応がありません。
>何がいけないでしょうか
Sub test()
  Dim lastrow As Long
  Dim mes_mem() As String
  Dim crng As Range
  Dim cnt As Long
  Dim rng As Range
  With Worksheets("sheet1")
    lastrow = .Range("A65536").End(xlUp).Row
    Set rng = .Range(.Range("E11"), .Cells(lastrow, "E"))
    End With
  If rng.Row >= 5 Then
    cnt = 0
    For Each crng In rng
     With crng
       If Evaluate("lenb(" & .Address(, , , True) & ")") > 20 Then
'                   ポイントは↑ここ
'別シートのセルを参照するときは、セルに入力する数式でも aaa!a1 というように
'シート名を含んだ参照が必要ですよね!! それと同じです。 
        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


確認してみてください。

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 お礼

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