With

語句可以對某個物件執行一系列的語句，而不用重複指出物件的名稱，可以簡化程式碼。With後面應該是一個具體的物件而不是一個物件集合，比如下面示例中的With Range（“A2：G8”）是正確的，如果寫成With Range就是錯誤的，With裡面的屬性或方法語句必須以英文句點（。）開頭，這個英文句點（。）就代表前面With Range（“A2：G8”）中的物件Range（“A2：G8”），

當程式一旦進入

With

塊，

由With指定的物件

就不能改變。因此不能用一個

With

語句來設定多個不同的物件。

可以將一個

With

塊放在另一個之中，而產生巢狀的

With

語句。但是，由於外層

With

塊成員會在內層的

With

塊中被遮蔽住，所以必須在內層的

With

塊中，使用完整的物件引用來指出在外層的

With

塊中的物件成員。如下面示例中，在With語句中使用range（“A2”）。Borders（xlDiagonalUp）。LineStyle = True來設定With指定的物件以外的物件

Sub 設定邊框和字型（）

With Range（“A2：G8”）

‘注：下面的xlNone 和flase是一樣的，都是不顯示的意思

。Borders（xlDiagonalDown）。LineStyle = false ’不顯示右斜線，所選區域的每一個單元格

range（“A2”）。Borders（xlDiagonalUp）。LineStyle = True ‘設定A2單元格顯示左斜線

。Borders（xlEdgeLeft）。LineStyle = True ’設定顯示左邊線，如果選擇的區域包括多行多列單元格，只對最左邊一列單元格的左邊線有效

。Borders（xlEdgeTop）。LineStyle = True ‘設定顯示上邊線，如果選擇的區域包括多行多列單元格，只對最上面一行單元格的上邊線有效

。Borders（xlEdgeBottom）。LineStyle = True ’設定顯示下邊線，如果選擇的區域包括多行多列單元格，只對最下面一行單元格的下邊線有效

。Borders（xlEdgeRight）。LineStyle = True ‘設定顯示右邊線，如果選擇的區域包括多行多列單元格，只對最右邊一列單元格的右邊線有效

。Borders（xlInsideVertical）。LineStyle = xlNone ’不顯示中間豎線，選擇區域中間所有豎線，不包含最左邊和最右邊，單個單元格不存在中間豎線

。Borders（xlInsideHorizontal）。LineStyle = xlNone ‘不顯示中間橫線，’中間橫線，選擇區域中間所有橫線，不包含最上邊和最下邊，單個單元格不存在中間橫線

。Borders。LineStyle = 1 ‘設定邊框線條樣式 xlContinuous 或數值 1 實線。xlDash 或數值 -4115 虛線。xlDashDot 或數值 4 點劃相間線。xlDashDotDot 或數值 5 劃線後跟兩個點。xlDot 或數值 -4118 點式線。xlDouble 或數值 -4119 雙線。xlLineStyleNone 或數值 -4142 無線條。xlSlantDashDot 或數值 13 傾斜的劃線。

With 。Font ’字型相關

。Color = RGB（255， 0， 0） ‘字型顏色

。Bold = True ’設定為粗體

。Italic=true ‘設定為斜體

。Size = 12 ’設定字型大小

。Name = “黑體” ‘設定字型為黑體

End With

。Interior。ColorIndex=6 ’設定選擇區域單元格內部背景色，使用顏色索引值設定方法，也可以使用上面設定字型顏色的方法使用RGB方法設定顏色。

End With

附：ColorIndex預設顏色編號值

如果需要使用其它顏色可以使用Color=rgb（0，0，0）的方法設定，RGB裡的三組數字代表光學三原色紅綠藍，數值範圍0-255

可以透過調色盤獲取自己想要的顏色的RGB值，在單元格上點右鍵》“設定單元格格式”，在彈出的視窗中選“填充”，在新的彈出視窗中選“自定義”然後選擇自己想要的顏色，底下就會顯示RGB對應的顏色值。