TextBoxにExcelの背景色を取得

質問

こんにちは、VB2008を使用しています。
TextBoxにExcel内の文字と、その文字が入っているセルの背景色を取得しようとしています。文字の取得は
TextBox1.Text　= sheet.Range("A1").Value
で出来るのですが、背景色の取得は
TextBox1.BackColor　=
の =　以降がわかりません。どなたか教えて頂けなしでしょうか？

回答No.7

yyr446 · ベストアンサー

よくしらべてみました。
それ用のVB2008にクラスが用意されてました。
TextBox1.BackColor　= ColorTranslator.FromWin32(sheet.Range("A1").Interior.Color)
です。

お礼

ありがとうございます、無事解決いたしました。何回も回答を頂き本当にありがとうございます。

回答No.6

yyr446

sheet.Range("A1").Interior.Colorもだめですね。
思ったより難しいですね。
これはRGBを10進数で返すだけですね。
まず16進素に直してRGB要素を分ける必要があります。
一方TextBox1.BackColor　=に指定する色は、
colorオブジェクトを継承して、RGBから自分で作る必要がありそうです。
Dim mycolor As Color
mycolor.G = g
.....

回答No.5

yyr446

No.4さんの書いているように”色値”でとらないと
単なる数値になってしまいます。
sheet.Range("A1").Interior.Color

補足

何度も申し訳ありません。
ExcelのＡ1を黄色にすると、TextBoxも黄色で表示したいのですが、
sheet.Range("A1").Interior.Color=RGB(0,255,0)とか
sheet.Range("A1").Interior.ColorIndex=6
にしてもエラーになってなってしまいます。

回答No.4

fujillin

確認していませんが…
　sheet.Range("A1").Interior.Color　とか
　sheet.Range("A1").Interior.ColorIndex
ではダメでしょうか？

前者はRGB関数による色値、後者はカラーテーブル上の番号

回答No.3

yyr446

補足
ColorIndexは1-51の整数値です。
何番が何色かわ、その人のカラーパレッドの順番だから
厳密には分からないようです。

回答No.2

noname#187541

こんにちは。

Range("A1").Interior.ColorIndex　でどうでしょうか。

ちなみにこのような書式に関することは、エクセルの「マクロの記録」を使用し、書式を設定するマクロを記録してみれば分かると思います。

回答No.1

yyr446

文字の色
sheet.Range("A1").Font.ColorIndex
セルの背景色
sheet.Range("A1").Interior.ColorIndex

補足

皆さん、早々に回答を頂きありがとうございます。
下記のようにしましたが、TextBox1の背景色が変わらず「指定されたキャストは有効ではありません。」とエラーが表示されてしまいます。
どこか間違いがあるのでしょうか？

'Form1を開くとexcelを取得
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles MyBase.Load

Dim excel As New Microsoft.Office.Interop.Excel.Application

Dim book As Microsoft.Office.Interop.Excel.Workbook

book = excel.Workbooks.Open("C:\test.xls")

Dim sheet As Microsoft.Office.Interop.Excel.Worksheet

sheet = CType(book.Worksheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)

'TextBox1にＡ1の文字を表示
TextBox1.Text = sheet.Range("A1").Value
ここまでは問題なく作動します。

'TextBox1にＡ1の背景色を表示
TextBox1.BackColor = sheet.Range("A1").Interior.ColorIndex()
ここでエラーになってしまいます。