小白学习vba应该怎么开始 _小白

HPageBreaks
HPageBreaks 对象是 Excel VBA 中代表水平分页线（即横向页面分割线）集合的对象。在 Excel 的页面设置中，我们可以指定打印时是否需要自动插入水平分页，当打印内容超过一页时，会自动在某个水平位置插入一条分页线，以便将内容分为多页进行打印。HPageBreaks 对象就是用来表示这些分页线的集合对象，它包含了所有工作表中的水平分页线。利用 HPageBreaks 对象，我们可以对水平分页线进行增加、删除、移动等操作。另外，HPageBreaks 对象还具有 Count 属性，可以返回水平分页线的数量，方便我们对打印内容进行动态控制。
以下是一个简单的 Excel VBA 代码示例，演示如何使用 HPageBreaks 对象：
Sub Add_Horizontal_Page_Break() Dim hb As HPageBreak ' 获取当前活动工作表的 HPageBreaks 对象 Set hb = ActiveSheet.HPageBreaks.Add(Before:=Range("C5")) ' 在第 5 行之前添加一条水平分页线 ' 如果指定 Before 参数，则会把分页线插入该单元格的上方End Sub在上面的代码中，我们使用了 ActiveSheet.HPageBreaks 来获取当前活动工作表的 HPageBreaks 对象。然后，通过调用 Add 方法并传入 Before 参数，我们在 C5 单元格的上方添加了一条水平分页线，并将返回的 HPageBreak 对象存储在变量 hb 中。如果想删除 HPageBreak 对象，我们可以使用 Delete 方法，例如 hb.Delete 。
HScrollBar
HScrollBar 对象代表 Excel 应用程序中的水平滚动条控件。水平滚动条通常显示在 Excel 工作表底部，它使得用户可以在不改变工作表缩放比例的情况下，通过拖动滑块或点击滚动条两端的箭头来水平滚动工作表内容。HScrollBar 对象可以通过 VBA 代码进行访问和操作，我们可以使用它的各种属性和方法来实现自定义的滚动条功能。
HScrollBar 对象提供了一些常用的属性，如 Value 属性（表示当前滑块的位置）、Minimum 属性和 Maximum 属性（分别表示滑块的最小值和最大值）等。此外，它还具有 Change 和 Scroll 事件（分别在滑块的值发生改变和用户滚动滚动条时触发），可以帮助我们实现更加个性化的滚动条功能。通过 HScrollBar 对象，用户可以方便地浏览 Excel 工作表中的超出页面大小的部分，从而获得更好的可视化体验。
以下是 HScrollBar 对象的几个常用属性及其实例代码说明：
1、Value 属性：返回或设置当前水平滚动条的位置，取值范围为最小值和最大值之间的整数。例如：
Private Sub ScrollBar1_Change() MsgBox "当前位置为：" & ScrollBar1.ValueEnd Sub2、Min 属性：返回或设置水平滚动条的最小值。例如：
Private Sub UserForm_Initialize() With ScrollBar1 .Min = 0 .Max = 100 .SmallChange = 10 .LargeChange = 20 .Value = http://www.baifabohui.com/smjk/0 End WithEnd Sub3、Max 属性：返回或设置水平滚动条的最大值。例如：
Private Sub UserForm_Initialize() With ScrollBar1 .Min = 0 .Max = 100 .SmallChange = 10 .LargeChange = 20 .Value = http://www.baifabohui.com/smjk/0 End WithEnd Sub4、SmallChange 属性：返回或设置每次单击“减小”或“增大”按钮时滑块移动的大小。例如：
Private Sub UserForm_Initialize() With ScrollBar1 .Min = 0 .Max = 100 .SmallChange = 10 .LargeChange = 20 .Value = http://www.baifabohui.com/smjk/0 End WithEnd Sub5、LargeChange 属性：返回或设置用户在滑块轨道上单击的滑块移动的大小。例如：
Private Sub UserForm_Initialize() With ScrollBar1 .Min = 0 .Max = 100 .SmallChange = 10 .LargeChange = 20 .Value = http://www.baifabohui.com/smjk/0 End WithEnd Sub假设你有一份销售数据的 Excel 表格，需要设置横向分页以便打印，同时还想通过水平滚动条来浏览数据。
首先，你需要使用 HPageBreaks 对象来设置横向分页。具体操作如下：
打开 Excel 文件，在菜单栏上点击“开发工具” 。
选择要操作的工作表，右键选择“插入”-“模块” ，创建一个新的 VBA 模块。
在模块中编写代码，例如：
Sub SetPageBreaks() ActiveSheet.ResetAllPageBreaks ActiveSheet.HPageBreaks.Add Before:=Range("B2") ActiveSheet.HPageBreaks.Add Before:=Range("E2") ActiveSheet.PageSetup.PrintArea = Range("A1:M45").AddressEnd Sub这个代码会把当前工作表的横向页面分割线设置在 B2 和 E2 单元格之前，同时还设置了打印区域为 A1 到 M45 的单元格区域。
【小白学习vba应该怎么开始】接下来，可以使用 HScrollBar 对象来增加水平滚动条的功能。具体操作如下：
在窗口上方的下拉框中选择“Worksheet”，然后在右边的下拉框中选择“Change”事件。
在代码窗口中输入以下代码：
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then ActiveWindow.ScrollColumn = Target.Column End IfEnd Sub这段代码会监控工作表的改变，并在用户选择第一行某一列时，自动将滚动条设置到该列。完成以上操作后，你可以保存并关闭 VBA 编辑器，回到 Excel 工作表。此时，在打印预览模式下，你可以通过滚动条来浏览数据，同时也能正确地显示横向分页线，方便进行打印。

文章插图