Excel VBA質問箱 IV

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

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


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

18957 / 76738

←次へ　｜　前へ→


	【63218】Re:セル内の文字数を出して検索し、行を別シートに移動したい

未熟者 - 09/10/16(金) 9:23 -


	引用なし

	パスワード

▲未熟者より追記：

着色までは出来たのですが、それを移動できません。

Sub 文字数で検索して着色移動()
　Dim c As Variant
　Dim StrMoji As Variant
　
　For Each c In Range("A1", Range("A65536").End(xlUp))
　　StrMoji = Len(c.Cells)
　　If StrMoji > 8 Then　　　　　　　　　　 '8文字以上なら
　　　c.Cells.Interior.ColorIndex = 35　　　'セルを若草（薄緑）色に着色
　　Else
　　　c.Cells.Interior.ColorIndex = xlNone
　　End If
　Next
End Sub

どなたか、チカラをお貸し願えませんか？。宜しくお願い致します。

0 hits

▼

【63213】セル内の文字数を出して検索し、行を別シートに移動したい 未熟者 09/10/15(木) 15:06