BEAGLE-HC 医薬品、医療機器の研究・開発 ポータルサイト
 現在位置 : HOME > ITの活用 プログラミング > Excel コードライブラリアン(セルの書式設定)
くすりのこと
 治療薬の最前線
データブック
 ヘルスケア市場
 データブック
 (売上ランキング)
ニュース
 企業ニュース
 (パイプラインニュース)
 (財務・決算ニュース)
 (M&Aニュース)
 メディアニュース
ITの活用
 バリデーション
 セキュリティ
 WORD文書の作成
 プログラミング
 (Word/VBA)
 (Excel/VBA)
 (Access/VBA)
 (SAS)
 (SQL)
イベント
 イベントカレンダ
製薬会社研究
 製薬会社
 製薬会社研究
 決算短信一覧
 
 
 
記述の規則 開始・終了処理 プログラム制御 ファイル操作
ワークブック・シート操作 セル・行・列の操作 セルの書式設定 関数
ウィンドウ操作 グラフ操作 データベースの操作 印刷
サンプルプログラム      
 
Page Index
●Fontオブジェクトの参照
●フォントの書体を変更する
●フォントのサイズを変更する
●フォントを太字や斜体にする
●文字に下線をつける
●セルの文字列の一部だけフォントを変更する
●文字色を変更する(ColorIndexプロパティ)
●文字色を変更する(Colorプロパティ)
●色のRGB値を返す関数(RGB関数)
●セルの塗りつぶしオブジェクトを取得する
●セルを塗りつぶす(ColorIndexプロパティ)
●セルを塗りつぶす(Colorプロパティ)
●パターンを使ってセルを塗りつぶす(Patternプロパティ)
●パターンを使ってセルを塗りつぶす(PatternColorIndexプロパティ)
●セルへ値を代入する
 
本章では、セルの書式設定に関するコードサンプルを例示しています。
 
Fontオブジェクトの参照 ↑ このページの最初へ
Font

<記述例>
Range("A1").Font
 
フォントの書体を変更する ↑ このページの最初へ
Font.Name = フォント名(文字列)

<記述例>
Range("A1").Font.Name = "MS 明朝"
フォントのサイズを変更する ↑ このページの最初へ
Font.Size = 設定値(整数)

<記述例>
Range("A1").Font.Size = 14
フォントを太字や斜体にする ↑ このページの最初へ
Bold = 設定値(論理値)

使用例
セル「A1」のフォントを太字にする
Worksheets("Sheet1").Range("A1").Font.Bold = True

プロパティ                      目的
-------------------------------------------
Italic                             斜体
Strikethrough                取り消し線
Subscript                     下付き文字
Superscript                   上付き文字
Shadow                         影付き

文字に下線をつける ↑ このページの最初へ
Underline = 線種(定数)

<記述例>
Range("A1").Font.Underline = xlUnderlineStyleSingle

定数                                                   線種
-------------------------------------------
xlUnderlineStyleNone                           下線なし
xlUnderlineStyleSingle                          直線
xlUnderlineStyleDouble                         二重線
xlUnderlineStyleSingleAccounting          直線(会計)
 xlUnderlineStyleDoubleAccounting       二重線(会計)
セルの文字列の一部だけフォントを変更する ↑ このページの最初へ
Characters(開始位置,文字数)

<記述例>
Range("A1").Characters(1, 2) .Font.Italic = True
文字色を変更する(ColorIndexプロパティ) ↑ このページの最初へ
ColorIndex = 色番号

<記述例>
Range("A1:B4").Font.ColorIndex = 6

色番号         色         色番号       色
-----------------------------------
1                 黒             7         マゼンタ
2                 白             8         シアン
3                 赤             9         茶
4        明るい緑           10         緑
5                 青           11         紺
6     明るい黄色           12         うぐいす
文字色を変更する(Colorプロパティ) ↑ このページの最初へ
Color = 設定値(16進数またはRGB関数の戻り値)

<記述例>
Range("A1").Font.Color = &HFFF
Range("A1").Font.Color = RGB(0, 255, 0)
色のRGB値を返す関数(RGB関数) ↑ このページの最初へ
RGB(Red, Green, Blue)

<記述例>
セル「A1」のフォントをサーモン色に設定する>
Worksheets("Sheet1").Range("A1").Font.Color = RGB(250, 80, 160)
セルの塗りつぶしオブジェクトを取得する ↑ このページの最初へ
Interior

<記述例>
Range("A1").Interior
セルを塗りつぶす(ColorIndexプロパティ) ↑ このページの最初へ
ColorIndex = 色番号

<記述例>
Range("A1").Interior.ColorIndex = 6
セルを塗りつぶす(Colorプロパティ) ↑ このページの最初へ
Color = 設定値(16進数またはRGB関数の戻り値)

<記述例>
Range("A1").Interior.Color = RGB(255, 255, 0)
パターンを使ってセルを塗りつぶす(Patternプロパティ) ↑ このページの最初へ
Pattern = 設定値(定数)

<記述例>
Range("A1").Interior.Pattern = xlChecker

<定数>
xlPatternAutomatic xlPatternChecker
xlPatternCrissCross xlPatternDown
xlPatternGray16 xlPatternGray25
xlPatternGray50 xlPatternGray75
xlPatternGray8 xlPatternGrid
xlPatternHorizontal xlPatternLightDown
xlPatternLightHorizontal xlPatternLightUp
xlPatternLightVertical xlPatternNone
xlPatternSemiGray75 xlPatternSolid
xlPatternUp xlPatternVertical
パターンを使ってセルを塗りつぶす(PatternColorIndexプロパティ) ↑ このページの最初へ
PatternColorIndex = 色番号

<記述例>
Range("A1").Interior.PatternColorIndex = 6

PatternColor = 設定値(16進数またはRGB関数の戻り値)

<記述例>
Range("A1").Interior.PatternColor = &HFF
Range("A1").Interior.PatternColor = RGB(255, 255, 0)
 
セルに値を代入する(Valueプロパティ ↑ このページの最初へ
Cells(1,1).Value=5
Cells(2,1).Value="abc"

↑ このページの最初へ

   ご意見・ご感想をお寄せください。 ‖ お問い合わせはこちらから ‖ このサイトについて           サイトマップ  ‖
  Copyright 2006 - 2013 uTRAM Corp. All Rights Reserved
 
PHARCIS(ヘルスケア最新情報提供)
Facebook for PHARCIS
ClinMark8
アクセスランキング
(2013年5月)

1位 企業ニュース
2位 売上ランキング
3位 メディアニュース
4位 製薬会社
5位 治療薬の最前線
6位 決算短信一覧
7位 データブック
8位 製薬会社研究
9位 イベントカレンダ
10位 パイプラインニュース