如何扩展合并单元格的范围，而使用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

回答

相关问题