すべてのカテゴリ » インターネット・パソコン » 技術・プログラミング

質問

終了

エクセルの質問です。
A列のセルのデータが入っているところだけ、そのセルの一番最後の1文字だけ色を赤に変えたいです。
簡単にやる方法はあるでしょうか？

説明がわかりにくいかもしれませんが、よろしくお願いします。

  • 質問者：マクロ初心者
  • 質問日時：2010-01-17 18:36:51
  • 0

回答してくれたみんなへのお礼

どうもありがとうございました。
データが大量（10,000件くらい）だったのでマクロでのやり方を教えて欲しかったのですが、それを質問にきちんと書くべきだったかもしれませんね。
次からは気をつけます。

ベスト回答

マクロを組んでみたので、試してみて下さい。

Sub SetColor()
Dim maxRow As Long
Dim cellValue As String

Application.ScreenUpdating = False
With ActiveSheet
' 最終行を取得
maxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
' 1行目から最終行までループ
For i = 1 To maxRow
' セルの値を取得
cellValue = .Cells(i, 1).Value
' 値がある場合のみ処理
If (Len(cellValue) > 0) Then
' 一番最後の文字だけ赤にする
.Cells(i, 1).Characters(Len(cellValue), 1).Font.ColorIndex = 3
End If
Next
End With
Application.ScreenUpdating = True
End Sub

  • 回答者：匿名希望 (質問から5時間後)
  • 1
この回答の満足度
　　
とても参考になり、非常に満足しました。回答ありがとうございました。
お礼コメント

大量のデータが一瞬で処理できました。
大変助かりました。
ありがとうございました。

並び替え：

回答

キーボードマクロ(Excelでは普通のマクロ)で、その操作を繰り返す。

A列だけ(全部でも可能だが修正が面倒)をHTMLで保存して、エディタなどで色の修正をした後そのファイルを読み込む。元のデータにペースト。

  • 回答者：匿名希望 (質問から2時間後)
  • 1
この回答の満足度
　　
参考になり、満足しました。回答ありがとうございました。

回答

文字が入力されているセルをクリックして選択してから、
上の方にある数式バーの中にある色を変えたい文字をドラッグして
色変えを押せば変えられます。

もっと簡単な方法があるのかも知れませんが、
私はこうやって変えています。

  • 回答者：これでいいのかな (質問から35分後)
  • 0
この回答の満足度
　　
参考になり、満足しました。回答ありがとうございました。

回答

そのセルの最後の一文字をクリックアンドドラッグで黒く反転させて、ツールバーで文字の色を変えればOK。

この回答の満足度
　　
参考になり、満足しました。回答ありがとうございました。

関連する質問・相談

Sooda!からのお知らせ

一覧を見る