Font.Boldボールド プロパティ

本ページには広告が含まれています。

セルに太字を取得または設定します。

構文
  1. Boolean = Font.Bold
  2. Font.Bold = Boolean
引数
戻り値

使い方

セルA1を太字にする。

UWSC
Excel.Range("A1").Font.Bold = TRUE

セルA1の太字を解除する。

UWSC
Excel.Range("A1").Font.Bold = FALSE

5文字毎に太字にする。

UWSC
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"]
UWSC
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
結果
.png
使用関数

関連記事

Font.FontStyle プロパティ (Excel)
フォントのスタイルを設定します。
Font オブジェクト
フォント属性(フォント名、フォント サイズ、色など)の全体を表します。
Font.Name プロパティ (Excel)
フォント名を取得または設定します。
Font.Subscript プロパティ (Excel)
下付き文字を取得または設定します。
Font.Superscript プロパティ (Excel)
上付き文字を取得または設定します。
BALLOON関数 (スクリプト関数)
メッセージを吹出しに表示します。
XLSHEET関数 (スクリプト関数)
Excelシートを追加・削除する。
PageSetup オブジェクト
Excel のシートの印刷設定を表すオブジェクトです。シートの用紙サイズ、余白、方向、印刷タイトルなど、印刷に関連する設定を管理するのに使用されます。
Application オブジェクト
Excel全体を表すオブジェクトです。Excel全体に対しての操作、設定変更をしたい場合に使います。
Border オブジェクト
上下左右一つひとつの罫線を表します。