Excel VBA質問箱 IV

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

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


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

12203 / 76734

←次へ　｜　前へ→


	【70057】Re:最大文字数をselect

kanabun - 11/10/12(水) 19:36 -


	引用なし

	パスワード

以下はあなたのコードとよく似ていますが、このばあいは最大文字数のセルをSelectすると思います。どこがどう違うか、調べてみてください。 Private Sub CommandButton1_Click() 　Dim myStLen As Long 　Dim i As Long, L As Long 　Dim LastRow As Long 　　With ActiveSheet.UsedRange 　　　For i = 1 To .Rows(.Rows.Count).Row 　　　　　L = Len(.Cells(i, 1).Value) 　　　　　If L > myStLen Then 　　　　　　　myStLen = L 　　　　　　　.Cells(i, 1).Select 　　　　　End If 　　　Next 　End With End Sub