VBA代码实现excel表格输入内容自动调整行高、列宽

Posted onAuthorcnliutz

  1. 打开excel表
  2. 右键点击表标签名，如：“sheet1”，弹出菜单，点击查看代码
  3. 代码编辑窗口 点击图中蓝色部分
  4. 点击worksheet，创建子程序，Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  5. 复制代码 (手动输入代码，有代码提示)这段 VBA 代码是在 Excel 中的工作表事件中使用的。让我为你解释一下：
    ​
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ‘这是一个名为 `Worksheet_SelectionChange` 的私有子程序。当用户在工作表中选择一个单元格或一组单元
    ‘格时，Excel 会自动调用此子程序。`Target` 参数表示新选定的区域。
    ​
    Worksheets(“Sheet1”).Columns(“A:E”).AutoFit
    ‘这一行代码会自动调整工作表 “Sheet1” 中 A 到 E 列的列宽，以适应内容的宽度。
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    End Sub
    ‘这两行代码会自动调整’整个工作表的列宽和行高，使其适应内容。
    ‘总之，这段代码的作用是在用户选择单元格时自动调整列宽和行高，以确保内容能够完整显示。🙂
    ​
  6. 效果自己试试吧