ジャストアンサーのしくみ:
  • 専門家に質問
    知識豊富な専門家があらゆる質問にお答えするために常に待機しています。
  • 専門家が丁寧に対応
    E メールやサイト内オンラインメッセージなど、さまざまな手段で回答を通知。必要に応じてフォローアップの質問をすることもできます。
  • やり取り回数、制限なし
    専門家からの回答を確認し評価をすることで、支払うかどうかを決めます。
anueに今すぐ質問する
anue
anue, システムエンジニア
カテゴリ: Microsoft
満足したユーザー: 382
経験:  dasdasd
109059423
ここに Microsoft に関する質問を入力してください。
anueがオンラインで質問受付中

文字の色を変えるで困ってます アシスタント:

ユーザー評価:

文字の色を変えるで困ってます
アシスタント: ありがとうございます。上記の他に、マイクロソフトスペシャリストに事前に伝えておきたいことはありますか?
質問者様: ' 色付け0 Macro
Dim i As Integer, 最終行 As Integer
最終行 = Range("AG”).End(xlDown).Row
For i = 最終行 To 6
Range("SNP").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Next
End Sub

初めましてkuroと申します。よろしくお願いいたします。VBAでの文字色の変更でお間違いないでしょうか。

まず数値の抜けや誤字、余分な空白などは残っていませんでしょうか。

確認したところcolorプロパティーで設定をされているようですが、一度RGB関数でお作りしていただき、文字色が変更できるかお試しいただけないでしょうか。

文字色変更については下記のリンクも参照していただくわかりやすいかと思われるのでご確認くださいませ。

http://officetanaka.net/excel/vba/cell/cell04.htm

anueをはじめその他名のMicrosoftカテゴリの専門家が質問受付中
質問者: 返答済み 11 日 前.
Range("AG”).End(xlDown).Row にエラーが出ます

お返事が遅くなってしまい申し訳ございません。

Range("AG”).End(xlDown).Row にエラーが出るとのことですね。

恐らくなのですがRangeの部分が("AG")とつなげてしまっているのが原因でエラーを吐いてる可能性もありますので、Range("A:G")と書き換えてエラーが出ないかお試しいただけないでしょうか。

質問者: 返答済み 10 日 前.
26368;終行 = Cells(“M, i”).End(xlDown).Row
が上手くいきません

かしこまりました。それではまずどのような実行時エラーが出ているのかお伺いできますでしょうか。

例 実行時エラー”91”等

質問者: 返答済み 10 日 前.
20197;前のがまだ解決せず、m列のhighを赤に変えるSub 色付け()
'' 色付け0 Macro
Dim i As Integer, 最終行 As Integer
最終行 = Cells(“M,i”).End(xlDown).Row
For i = 最終行 To 6Range(“HIGH”).Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Next
End Sub
どうしても最終行でひつきります
質問者: 返答済み 9 日 前.
1個だけ色が付きましたが、iが反映されませんSub 色付け()Dim i As Integer
Dim 最終行 As Integer
最終行 = Cells(Rows.Count, 13).End(Direction:=xlUp).Selec
For i = 最終行 To 6
Dim HIGH As String
Range("M:M").Find("HIGH").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Next
End Sub

申し訳ございません。リモートサポートのご案内は私は出来ないのと、これ以上はこちらではご対応が難しいので、別の専門家の方にお任せいたしますので、オプトアウトさせていただきます。

質問者: 返答済み 7 日 前.
36933;いので断ります。又、月間契約はいたしません。引き落としはしないで下さい。

Microsoft についての関連する質問