如何擴展合併單元格的範圍，而使用VBScript

我想，讓他們從B＃，以J＃去延長細胞的合併。

例如，當前B3到G3被合併爲一個單元。我想把它擴展到B3到J3。

如何在VBScript中完成此操作？

2016-07-29 Dillydill123

我想你是指Visual Basic for Applications？ –

假設你的意思是VBA與vbscript，你可以做Range（「B3：J3」）。合併，或者你可以拋出一些變量和一個循環來覆蓋動態範圍。無論你需要什麼來完成。如果你真的想要VBS這樣的東西，那麼試試這個'ExcelWorksheet.Range（ExcelWorksheet.Cells（3,2），ExcelWorksheet.Cells（3,10））。合併' – Jason

不，我正在使用VBScript，我只是展示我想用Excel文件來完成的任務，以便更容易看到。你的回答幫助了傑森。你知道我將如何編輯整列的邊框嗎？ – Dillydill123

您應該將代碼寫入Excel VBE並將其轉換爲VBScript。您必須將任何Excel常量轉換爲其值，或者創建自己的常量來保存其值。你也不能在VBScript中使用命名參數。

範圍有一個BorderAround方法，它會在範圍內添加邊框。

Excel的VBA

範圍（「B3：J3」）BorderAround的LineStyle：= xlContinuous，重量：= xlMedium，ColorIndex：= xlColorIndexAutomatic

的VBScript

範圍（「B3：J3」）.BorderAround 1，-4138，-4105

示例VBScript

const xlContinuous = 1 
const xlMedium = -4138 
const xlColorIndexAutomatic = -4105 

Dim oExcel, xlWB, xlWS 
Set oExcel = WScript.CreateObject("Excel.Application") 
oExcel.Visible = True 

Set xlWB = oExcel.Workbooks.Add 
Set xlWS = xlWB.ActiveSheet 

xlWS.Range("B3:J3").Merge 

xlWS.Range("B3:J3").BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic 

Set xlWB = Nothing 
Set oExcel = Nothing

來源

2016-07-30 05:26:41

如何擴展合併單元格的範圍，而使用VBScript

回答

相關問題