Application.ActiveSheetアクティブシート プロパティ

アクティブシートを表すWorksheet オブジェクトを返します。

構文
Worksheet = Application.ActiveSheet
引数
戻り値
Worksheet オブジェクト

Application オブジェクトを返すメソッド・プロパティ

Application.ActiveSheet プロパティ
Microsoft Excelアプリケーションを表すApplication オブジェクトを返します。
Borders.Application プロパティ
Borders オブジェクトが属するApplication オブジェクトを返します。

プログラム実行例

ソート

人口の多い順にソートします。

使用したファイルをダウンロードできます。

ダウンロードボタン
UWSC
使用関数
解説

アクティブシート名を取得する

UWSC
CONST xlDown = -4121
CONST xlSortOnValues = 0
CONST xlDescending = 2
CONST xlSortNormal = 0
CONST xlYes = 1
CONST xlGuess = 0
CONST xlTopToBottom = 1
CONST xlPinYin = 1

DIM Excel = ExcelBoot("D:\Documents\都道府県別人口.xlsx")

WITH Excel.ActiveSheet
	WITH .Sort
		WITH .SortFields
			.Clear
			.Add(Excel.Range("C2").End(xlDown), xlSortOnValues, xlDescending, xlSortNormal)
		ENDWITH
		.SetRange(Excel.Range("A1").CurrentRegion)
		.Header = xlYes
		.MatchCase = FALSE
		.Orientation = xlTopToBottom
		.SortMethod = xlPinYin
		.Apply		
	ENDWITH
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
使用関数

気象庁のホームページから一月分の気温を取得しExcelでグラフを作成

UWSC
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

DIM Worksheet = Excel.Application.ActiveSheet
PRINT Worksheet.Name

Excel.Application.DisplayAlerts = FALSE
Excel.Quit
結果
使用関数

&[ページ番号] ページ*

フッターの中央部に&[ページ番号] ページを表示します。

UWSC
CONST xlUp = -4162
CONST xlLineMarkers = 65

DIM year = 2020
DIM month = 8

DIM IE = IEBoot()
IE.Navigate("https://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=14&block_no=47412&year=" + year + "&month=" + month + "&day=&view=p1")
BusyWait(IE)

DIM array[-1][-1]
DIM element = IE.document.getElementById("tablefix1")
getTableData(element, array)

IE.Quit

DIM Excel = XLOPEN()
DIM SheetName = Excel.ActiveSheet.Name

XLSETDATA(Excel, array, "A1")

DIM row = Excel.Cells(Excel.Rows.Count, 1).End(xlUp).Row
DIM Charts = Excel.Charts.Add

WITH Charts
	.ChartType = xlLineMarkers
	.SeriesCollection.NewSeries
	.HasTitle = TRUE
	.ChartTitle.Text = "札幌 " + year + "年" + month + "月気温"

	WITH .FullSeriesCollection(1)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$H$5:$H$35"
		WITH .Format
			.Fill.ForeColor.RGB = 255
			.Line.ForeColor.RGB = 255
		ENDWITH
	ENDWITH

	WITH .FullSeriesCollection(2)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$I$5:$I$35"
		WITH .Format
			.Fill.ForeColor.RGB = 16711680
			.Line.ForeColor.RGB = 16711680
		ENDWITH
	ENDWITH
ENDWITH

//////////////////////////////////////////////////
// 【引数】
//   array : 要素を追加する配列(参照引数) 
//   values : 追加する要素をvalue1から指定 
// 【戻り値】
//   処理後の配列の要素の数 
//////////////////////////////////////////////////
FUNCTION arrayPush(var array[], value1 = EMPTY, value2 = EMPTY, value3 = EMPTY, value4 = EMPTY, value5 = EMPTY, value6 = EMPTY, value7 = EMPTY, value8 = EMPTY, value9 = EMPTY, value10 = EMPTY, value11 = EMPTY, value12 = EMPTY, value13 = EMPTY, value14 = EMPTY, value15 = EMPTY, value16 = EMPTY)
    DIM i = 1
    WHILE EVAL("value" + i) <> EMPTY
	  DIM res = RESIZE(array, UBound(array) + 1)
	  array[res] = EVAL("value" + i)
	  i = i + 1
	WEND
	RESULT = LENGTH(array)
FEND

//////////////////////////////////////////////////
// 【引数】
//   needle : 検索する値 
//   haystack : 配列 
// 【戻り値】
//   needleが見つかった場合に配列のキー 
//////////////////////////////////////////////////
FUNCTION arraySearch(needle, haystack[])
	DIM i = 0
	FOR item IN haystack
		IFB item = needle THEN
			RESULT = i
			EXIT
		ENDIF
		i = i + 1
	NEXT
FEND

//////////////////////////////////////////////////
// 【引数】
//   IE : IEオブジェクト 
// 【戻り値】
//   
//////////////////////////////////////////////////
PROCEDURE BusyWait(Var IE)
	SLEEP(0.500)
	DIM t = GETTIME()
	TRY
		REPEAT
			DIM tm = GETTIME() - t
			FUKIDASI("BusyWait:" + tm)
			SLEEP(0.010)
			IF tm >= 60 THEN BREAK
		UNTIL !IE.Busy AND IE.readyState = 4
	EXCEPT
		IE = getIEObj(-1)
		PRINT IE.document.URL + " のIEオブジェクトを取得しました。"
		BusyWait(IE)
	ENDTRY
	FUKIDASI()
FEND

//////////////////////////////////////////////////
// 【引数】
//   文字列 or 数値 : 取得したい<a href="https://uwsc.jp/com/ie/" >InternetExplorer オブジェクト</a>のタイトル・URLもしくは数値を指定 
//   完全一致フラグ : (TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得) 
// 【戻り値】
//   条件に一致する<a href="https://uwsc.jp/com/ie" >InternetExplorer</a> 
//////////////////////////////////////////////////
FUNCTION getIEObj(str, flg = FALSE)
	DIM Shell = CREATEOLEOBJ("Shell.Application")
	DIM ShellWindows = Shell.Windows
	DIM IE[-1]
	FOR i = 0 TO ShellWindows.Count - 1
		TRY
			IFB ShellWindows.Item(i).Name = "Internet Explorer" THEN
				arrayPush(IE, ShellWindows.Item(i))
			ENDIF
		EXCEPT
		ENDTRY
	NEXT
	SELECT CHKNUM(str)
		CASE TRUE
			IFB str = 0 THEN
				RESULT = LENGTH(IE)
			ELSE
				IF str < 0 THEN str = str + LENGTH(IE) + 1
				TRY
					RESULT = IE[str-1]
				EXCEPT
					RESULT = ERR_VALUE
				ENDTRY
			ENDIF
		CASE FALSE
			DIM pattern = IIF(flg, "^" + str + "$", str)
			DIM titleList = SLICE(IE)
			FOR i = 0 TO UBound(titleList)
				titleList[i] = titleList[i].Document.title
			NEXT
			DIM urlList = SLICE(IE)
			FOR i = 0 TO UBound(urlList)
				urlList[i] = urlList[i].Document.URL
			NEXT
			DIM num = ERR_VALUE
			SELECT TRUE
				CASE pregGrep(pattern, titleList) <> FALSE;	num = arraySearch(pregGrep(pattern, titleList)[0], titleList)
				CASE pregGrep(pattern, urlList) <> FALSE;		num = arraySearch(pregGrep(pattern, urlList)[0], urlList)
			SELEND
			TRY
				RESULT = IE[num]
			EXCEPT
				RESULT = ERR_VALUE
			ENDTRY
	SELEND
FEND

//////////////////////////////////////////////////
// 【引数】
//   table : tableエレメント 
//   arr : 取得したデータを格納する配列(参照引数) 
// 【戻り値】
//   
//////////////////////////////////////////////////
PROCEDURE getTableData(table, Var arr[][])
	rowMax = table.rows.length - 1
	colMax = 0
	FOR row = 0 TO table.rows.length - 1
		IFB table.rows(row).cells.length - 1 > colMax THEN
			colMax = table.rows(row).cells.length - 1
		ENDIF
	NEXT
	DIM arr[rowMax][colMax]
	FOR row = 0 TO table.rows.length - 1
		FOR col = 0 TO table.rows(row).cells.length - 1
			n = 0
			WHILE arr[row][col + n] <> ""
				n = n + 1
			WEND
			arr[row][col + n] = table.rows(row).cells(col).innerText
			IFB table.rows(row).cells(col).rowSpan > 1 AND table.rows(row).cells(col).colSpan > 1 THEN
				rmax = table.rows(row).cells(col).rowSpan - 1
				cmax = table.rows(row).cells(col).colSpan - 1
				FOR r = 1 TO rmax
					FOR c = 1 TO cmax
						arr[row + r][col + c] = "←"
					NEXT
				NEXT
			ENDIF
			IFB table.rows(row).cells(col).rowSpan > 1 THEN
				n = table.rows(row).cells(col).rowSpan - 1
				WHILE n
					arr[row + n][col] = "↑"
					n = n - 1
				WEND
			ENDIF
			IFB table.rows(row).cells(col).colSpan > 1 THEN
				n = table.rows(row).cells(col).colSpan - 1
				WHILE n
					arr[row][col + n] = "←"
					n = n - 1
				WEND
			ENDIF
		NEXT
	NEXT
FEND

//////////////////////////////////////////////////
// 【引数】
//   InPrivate : InPrivateブラウズ・モードを有効にするときはTRUEを指定 
// 【戻り値】
//   InternetExplorerオブジェクト 
//////////////////////////////////////////////////
FUNCTION IEBoot(InPrivate = FALSE)
	DIM IE
	SELECT InPrivate
		CASE TRUE
			DOSCMD("start iexplore -private")
			GETID("InPrivate - Internet Explorer - [InPrivate]", "IEFrame", -1)
			IE = GETACTIVEOLEOBJ("InternetExplorer.Application","InPrivate - Internet Explorer - [InPrivate]")
		CASE FALSE
			TRY
				IE = CREATEOLEOBJ("InternetExplorer.Application")
				IE.Visible = TRUE
			EXCEPT
				EXEC("C:\Program Files\Internet Explorer\iexplore.exe")
				GETID("Internet Explorer", "IEFrame", -1)
				TRY
					IE = GETACTIVEOLEOBJ("InternetExplorer.Application")	
				EXCEPT
					IE = getIEObj(-1)
				ENDTRY
			ENDTRY
	SELEND
	RESULT = IE
FEND

//////////////////////////////////////////////////
// 【引数】
//   expr : 評価する式 
//   truepart : 評価した式がTrueのときに返す値 
//   falsepart : 評価した式がFalseのときに返す値 
// 【戻り値】
//   truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき 
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
	IFB EVAL(expr) THEN
		RESULT = truepart
	ELSE
		RESULT = falsepart
	ENDIF
FEND

//////////////////////////////////////////////////
// 【引数】
//   pattern : 検索するパターンを表す文字列 
//   array : 検索される配列 
// 【戻り値】
//   
//////////////////////////////////////////////////
FUNCTION pregGrep(pattern, array[], flags = 0)
	DIM res[-1]
	FOR item IN array
		IF reTest(item, pattern) THEN arrayPush(res, item)
	NEXT
	RESULT = SLICE(res)
FEND

//////////////////////////////////////////////////
// 【引数】
//   str : 正規表現による検索の対象となる文字列 
//   Pattern : 正規表現で使用するパターンを設定 
//   IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse 
//   Global : 文字列全体を検索する場合はTrue、しない場合はFalse 
// 【戻り値】
//   正規表現にマッチするかどうか 
//////////////////////////////////////////////////
FUNCTION reTest(str, Pattern, IgnoreCase = TRUE, Global = TRUE)
	DIM re = CREATEOLEOBJ("VBScript.RegExp")
	re.Pattern = Pattern
	re.IgnoreCase = IgnoreCase
	re.Global = Global
	RESULT = re.Test(str)
FEND

//////////////////////////////////////////////////
// 【引数】
//   inputs : 繰り返す文字列 
//   multiplier : inputsを繰り返す回数 
// 【戻り値】
//   inputsをmultiplier回を繰り返した文字列を返します 
//////////////////////////////////////////////////
FUNCTION strRepeat(inputs, multiplier)
	DIM res = ""
	FOR n = 1 TO multiplier
		res = res + inputs
	NEXT
	RESULT = res
FEND

//////////////////////////////////////////////////
// 【引数】
//   arrayname : 上限値を求める配列の名前 
//   dimension : 返す次元を示す整数 
// 【戻り値】
//   配列の上限値 
//////////////////////////////////////////////////
FUNCTION UBound(arrayname[], dimension = 1)
	RESULT = EVAL("RESIZE(arrayname" + strRepeat("[0]", dimension - 1) + ")")
FEND
結果
使用関数

&[ページ番号] / &[総ページ数] ページ*

フッターの中央部に&[ページ] / &[総ページ数] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[シート名]*

フッターの中央部に&[シート名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P / &N ページ"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

<機種名> 社外秘、&[日付]、&[ページ番号] ページ*

フッターの左側に 社外秘、中央部に&[日付]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&A"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[ファイル名]*

フッターの中央部に&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

HASHTBL INFO

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

DIM filename = FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")
FID = FOPEN(filename, F_READ OR F_WRITE)
FPUT(FID, DOSCMD("systeminfo /FO CSV"))
FCLOSE(FID)

FID = FOPEN(filename, F_READ OR F_WRITE)
FOR col = 0 TO 33
	INFO[FGET(FID, 1, col)] = FGET(FID, 2, col)
NEXT
FCLOSE(FID)

FSO.DeleteFile(filename)

WITH PageSetup
	.LeftFooter = INFO["登録されている組織"] + " 社外秘"
	.CenterFooter = "&D"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[パス]&[ファイル名]*

フッターの中央部に&[パス]&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&F"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[シート名]、Page &[ページ番号]*

フッターの中央部に&[シート名]、右側にPage &[ページ番号] を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&Z&F"
	.RightFooter = ""
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[シート名]、<機種名> 社外秘、&[ページ番号] ページ*

フッターの左側に&[シート名]、中央部に 社外秘、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&A"
	.RightFooter = "Page &P"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[ファイル名]、&[ページ番号] ページ*

フッターの中央部に&[ファイル名]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

HASHTBL INFO

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

DIM filename = FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")
FID = FOPEN(filename, F_READ OR F_WRITE)
FPUT(FID, DOSCMD("systeminfo /FO CSV"))
FCLOSE(FID)

FID = FOPEN(filename, F_READ OR F_WRITE)
FOR col = 0 TO 33
	INFO[FGET(FID, 1, col)] = FGET(FID, 2, col)
NEXT
FCLOSE(FID)

FSO.DeleteFile(filename)

WITH PageSetup
	.LeftFooter = "&A"
	.CenterFooter = INFO["登録されている組織"] + " 社外秘"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[パス]&[ファイル名]、&[ページ番号] ページ*

フッターの中央部に&[パス]&[ファイル名]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&F"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[ページ番号] ページ、&[シート名]*

フッターの中央部に&[ページ番号] ページ、右側に&[シート名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&Z&F"
	.RightFooter = "&P ページ"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[ページ番号] ページ、&[ファイル名]*

フッターの中央部に&[ページ番号] ページ、右側に&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&A"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[ページ番号] ページ、&[ファイル名]*

フッターの中央部に&[ページ番号] ページ、右側に&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&F"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[ページ番号] ページ、&[パス]&[ファイル名]*

フッターの中央部に&[ページ番号] ページ、右側に&[パス]&[ファイル名]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&F"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

<ユーザー名>、&[ページ番号] ページ、&[日付]*

フッターの左側に、中央部に&[ページ番号] ページ、右側に&[日付]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = ""
	.CenterFooter = "&P ページ"
	.RightFooter = "&Z&F"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

作成者 : <ユーザー名> &[日付]、&[ページ番号] ページ*

フッターの左側に作成者 : 、中央部に&[日付]、右側に&[ページ番号] ページを表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

WITH PageSetup
	.LeftFooter = "akita"
	.CenterFooter = "&P ページ"
	.RightFooter = "&D"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

&[ページ番号]*

フッターの中央部に&[ページ番号]を表示します。

UWSC
DIM Application = Excel.Application
DIM Worksheet = Application.ActiveSheet
DIM PageSetup = Worksheet.PageSetup

HASHTBL INFO

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

DIM filename = FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")
FID = FOPEN(filename, F_READ OR F_WRITE)
FPUT(FID, DOSCMD("systeminfo /FO CSV"))
FCLOSE(FID)

FID = FOPEN(filename, F_READ OR F_WRITE)
FOR col = 0 TO 33
	INFO[FGET(FID, 1, col)] = FGET(FID, 2, col)
NEXT
FCLOSE(FID)

FSO.DeleteFile(filename)

WITH PageSetup
	.LeftFooter = "作成者 : " + INFO["登録されている所有者"]
	.CenterFooter = "&P ページ"
	.RightFooter = "&D"
ENDWITH

PRINT Worksheet.PrintPreview
結果
使用関数

この記事は役に立ちましたか?

はい
いいえ
ご協力ありがとうございます。

関連記事

XLSHEET関数 (スクリプト関数)
Excelシートを追加・削除する。
Sheets オブジェクト
指定されたブックまたは作業中のブックにあるすべてのシートのコレクションです。
Sheets.Add メソッド (Excel)
新しいワークシート・グラフ・またはマクロ シートを作成します。新しいワークシートがアクティブ シートになります。
Sheets.Delete メソッド (Excel)
シートを削除します。
Sheets.Move メソッド (Excel)
シートをブック内の他の場所に移動します。
Sheets.Item プロパティ (Excel)
シートコレクションから単一のシートを返します。
PageSetup オブジェクト
Excel のシートの印刷設定を表すオブジェクトです。シートの用紙サイズ、余白、方向、印刷タイトルなど、印刷に関連する設定を管理するのに使用されます。
Application オブジェクト
Excel全体を表すオブジェクトです。Excel全体に対しての操作、設定変更をしたい場合に使います。
Border オブジェクト
上下左右一つひとつの罫線を表します。
Borders オブジェクト
RangeオブジェクトまたはStyleオブジェクトの4つの罫線を表す、4つのBorderオブジェクトのコレクションです。