当前位置: 代码迷 >> Office >> 请教怎样使用VBS或者VBA来实现冻结窗格
  详细解决方案

请教怎样使用VBS或者VBA来实现冻结窗格

热度:1459   发布时间:2016-05-05 05:54:29.0
请问怎样使用VBS或者VBA来实现冻结窗格?
我现在希望做以下三个操作:

1.第一行设置冻结窗格
2.所有单元格都设置成显示全部内容,就是如果一格里面东西很长的话,这一格就相应变长,让内容全部看得见.
3.在实现第2点的基础上,所有的单元格都设置成自动换行,就是说如果一个单元格高度足够,而内容又很长,能够自动换行显示,而不是把单元格拖得很长.

请问怎样通过vbscript调用excel.application中的方法来实现呢?或者用VBA来实现?

------解决方案--------------------
一下是通过宏录制实现的

    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    
    With Cells
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
  相关解决方案