- 日時： 2012/05/29 09:06
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：網掛けパターン,エクセル,セルの背景色,塗りつぶし,カラーインデックス *
***********************************************************************************
'===================================================================================================
'投 稿 日：2012.05.05
'投 稿 者：VBレスキュー(花ちゃん)
'タイトル：VB2010 から Excel のセルの背景色を設定
'========1=========2=========3=========4=========5=========6=========7=========8=========9=========0
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Call ExcelOpen("", "") '新規ファイルをオープンして、Excel を起動
'========================== セルの背景色を設定 ===============================
'-------------------- マクロの記録を取った場合 ----------------------------
'ActiveCell.FormulaR1C1 = "あいうえお"
'Range("B2").Select()
'With Selection.Interior
' .Pattern = xlSolid
' .PatternColorIndex = xlAutomatic
' .Color = 65535
' .TintAndShade = 0
' .PatternTintAndShade = 0
'End With
'--------------------------------------------------------------------------
'Excel の定数を調べるには、>>2 の５．Excel の定数を調べるには の項をご覧下さい。
Dim xlRange As Excel.Range
xlRange = xlSheet.Range("B2")
xlRange.Value = "あいうえお" '仮データの表示
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
Dim xlInterior As Excel.Interior
xlInterior = xlRange.Interior
With xlInterior
'塗りつぶしのパターンと色を表す、xlPattern クラスの定数を設定
'検索キーワード [MSDN XlPattern 列挙型] http://tinyurl.com/7bwazhr
.Pattern = Excel.XlPattern.xlPatternSolid
'塗りつぶしのパターンと色を現在のカラー パレットのインデックス番号または定数で設定
'XlColorIndex クラスの xlColorIndexAutomatic または xlColorIndexNone です
.PatternColorIndex = Excel.Constants.xlAutomatic
'塗りつぶし等のカラーを設定下記のどの方法でも可
'.Color = 65535 '明るい黄色
'.Color = QBColor(14) '明るい黄色
.Color = RGB(255, 255, 0) '明るい黄色
'.Color = Color.Yellow '明るい黄色
' カラーインデックス値の一覧表
' http://hanatyan.sakura.ne.jp/samplepic/excel-1-1.gif
'.ColorIndex = 6 '明るい黄色
'.ColorIndex = Excel.XlColorIndex.xlColorIndexNone 'セルの色(内部色)を標準にする
'色を明るく、または暗くする単精度浮動小数点型 (-1 〜 + 1 の範囲の Single) の値を設定
.TintAndShade = 0
'網掛けパターンに濃淡を設定(TintAndShade と同様の設定値)塗りつぶしの場合は無視される
'.PatternTintAndShade = 0
End With
MRComObject(xlInterior)
MRComObject(xlRange)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'=============================================================================
'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False) 'False の場合保存しないで終了
'Excel.EXE がタスクマネージャに残っていないか調査(実使用時は必要なし)
Call ProcessCheck()
End Sub
|
VB2010からExcelのセルの背景色を設定(VB.NET)