在excel中的一列中输入某个数，那么行高能否自动设置为这个数？比如我输入20，行高自动调整为20？

发布网友 发布时间：2022-05-06 09:30

我来回答

共4个回答

热心网友 时间：2023-10-08 23:42

用VBA可以解决，假设根据第1列各行数据来确定行高。以下代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h
h = Target.Row
With Target.EntireRow
.RowHeight = Cells(h, 1)
End With
End Sub

热心网友 时间：2023-10-08 23:42

代码已修改
自动调行高就需要用VBA了。按alt+F11，把下面的代码写到相应的工作表中

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 8 Then
If Target.Value > 0 And Target.Value < 10 Then
Target.RowHeight = Target.Value * [a4].Height + (Target.Value - 1) * [a3].Height
End If
End If
End Sub

热心网友 时间：2023-10-08 23:43

' 任意一个单元格输入数字后，相应行行高设定为该数值的vba 代码（批量改变时，最右边的有效）：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strVal As String
For Each c In Target
strVal = c.Value
If IsNumeric(strVal) Then
Rows(c.Row).RowHeight = strVal
End If
Next
End Sub
' 特定列变化时才改变行高的vba代码（这里为第一列）：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strVal As String
For Each c In Target
strVal = Cells(c.Row, 1)
If IsNumeric(strVal) Then
Rows(c.Row).RowHeight = strVal
End If
Next
End Sub
' 代码写入方法：右击工作表名（如Sheet1）,选择查看代码，把上面的其中一个代码拷进去，保存就行了

热心网友 时间：2023-10-08 23:44

没这么先进