ＶＢでエクセルのセルのバックカラーをつけるには？

質問

お世話になります
表題のように、ＶＢを実行して、エケセルのあるセルに
色（赤）をつけたいのですが
どうしたらいいか、アプローチを教えてください

ちなみに下記のようなＶＢは実行して
からくりが理解でしました
------------------------------------------
Function Excel_SelectSel_Export1()
Dim Xls As Object
Set Xls = GetObject("c:\vba\実践VBA.xls")
Xls.Application.Windows(1).Visible = True
'ワークシートをアクティブにする
Xls.Application.worksheets("sheet1").Activate
'エクスポート先セルをRow(行)とColumn(列)の形式で指定する
Xls.Application.Goto "r3c2"
'セルに値をエクスポートする
Xls.Application.activecell.Value = "★彡☆彡"
Xls.Application.Goto "r4c2"
Xls.Application.activecell.Value = "☆彡★彡"
Xls.Application.Quit 'Excelを閉じる
Set Xls = Nothing
Debug.Print "Completed!!"
End Function

回答No.1

zap35 · ベストアンサー

Xls.Application.activecell.Interior.ColorIndex = 3
で良いと思います。

EXCELを開いて「ツール」→「マクロ」→「新しいマクロの記録」を選択して背景色をつける操作を行えば、マクロが作成されます。

VBAとVBで違いはありますが、そのマクロを参考にすれば大体解決するのではないでしょうか。お試しください

お礼

ありがとうございます
助かりました
なんと、お礼をいったら言いか
わからないくらいです

回答No.2

Wendy02

こんばんは。

ここは、MS Office のカテゴリですから、VBの質問でしたら、カテゴリ違いだとは思います。

前と同じような質問をされて、内容は重複しているとは思いますが、今回は、実際に、VB6 で通してみました。本に載っているとかおっしゃっていますが、ブックのオブジェクトを取って、そこから、Application を引き出すというのは、私は見たことがないコードです。

Private Sub Command1_Click()
　Call Excel_SelectSel_Export1
End Sub

Private Sub Excel_SelectSel_Export1()
'今回は、あらかじめ参照参照設定しました。

Dim XlApp As Excel.Application
Dim Xls As Excel.Workbook
Dim Xlsh As Excel.Worksheet

On Error GoTo Quit
Set XlApp = New Excel.Application
'ファイル名
Set Xls = GetObject("c:\vba\実践VBA.xls")
Set Xlsh = Xls.Worksheets("Sheet1")

　Xls.Windows(1).Visible = True

　XlApp.Goto Xlsh.Range("B3")
　Xlsh.Range("B3").Value = "★彡☆彡"
　Xlsh.Range("B4").Value = "☆彡★彡"
　Xlsh.Range("B3:B4").Interior.ColorIndex = 3
　Xls.Save
　 Xls.Application.Quit
Quit:
Set Xlsh = Nothing
Set Xls = Nothing
Set XlApp = Nothing
If Err() = 0 Then
　Debug.Print "Completed!!"
End If
End Sub

お礼

回答ありがつございました
試してみます