本ページには広告が含まれています。
セルに太字を取得または設定します。
- 構文
- Boolean = Font.Bold
- Font.Bold = Boolean
- 引数
- 戻り値
使い方
セルA1を太字にする。
Excel.Range("A1").Font.Bold = TRUEセルA1の太字を解除する。
Excel.Range("A1").Font.Bold = FALSE5文字毎に太字にする。
WITH Excel.Range("A1")
.Value = "abcdefghijklmnopqrstuvwxyz"
FOR i = 1 TO .Characters.Count
IF i MOD 5 = 0 THEN .Characters(i, 1).Font.Bold = TRUE
NEXT
ENDWITHプログラム実行例
人口の上位3位取得
上位3位まで赤文字にする。
使ったファイルのダウンロードは下記リンクからできます。
[download "/example/510/都道府県別人口.xlsx"]DIM Excel = ExcelBoot("都道府県別人口.xlsx")
CONST xlDown = -4121
CONST xlTop10Top = 1
WITH Excel
.Range("A:E").EntireColumn.AutoFit
FOR col = 3 TO 5
DIM Top10 = .Range(.Cells(2, col), .Cells(48, col)).FormatConditions.AddTop10
WITH Top10
.Rank = 3
.TopBottom = xlTop10Top
.Font.Color = 255
.Font.Bold = TRUE
ENDWITH
NEXT
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻り値】
// <a href="https://uwsc.jp/com/excel/" >Excel オブジェクト</a>
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND結果
使用関数
関連記事
- Font.FontStyle プロパティ (Excel)
- フォントのスタイルを設定します。
- Font オブジェクト
- フォント属性（フォント名、フォント サイズ、色など）の全体を表します。
- Font.Name プロパティ (Excel)
- フォント名を取得または設定します。
- Font.Subscript プロパティ (Excel)
- 下付き文字を取得または設定します。
- Font.Superscript プロパティ (Excel)
- 上付き文字を取得または設定します。
- BALLOON関数 (スクリプト関数)
- メッセージを吹出しに表示します。
- XLSHEET関数 (スクリプト関数)
- Excelシートを追加・削除する。
- PageSetup オブジェクト
- Excel のシートの印刷設定を表すオブジェクトです。シートの用紙サイズ、余白、方向、印刷タイトルなど、印刷に関連する設定を管理するのに使用されます。
- Application オブジェクト
- Excel全体を表すオブジェクトです。Excel全体に対しての操作、設定変更をしたい場合に使います。
- Border オブジェクト
- 上下左右一つひとつの罫線を表します。