|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
下面代码是你修改行高和列宽后,回变回原来的。
- Dim arr()
- Dim LastSelection As String
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim sAddress As String, RowCnt%, ColCnt%
- sAddress = Target.Address(0, 0)
- If LastSelection <> "" Then
- For i = 1 To UBound(arr)
- If LastSelection = "R" Then Rows(arr(i, 1)).RowHeight = arr(i, 2)
- If LastSelection = "C" Then Columns(arr(i, 1)).ColumnWidth = arr(i, 2)
- Next
- End If
- If Target.EntireRow.Address = Target.Address Then
- LastSelection = "R"
- RowCnt = Target.Rows.Count
- ReDim arr(1 To RowCnt, 1 To 2)
- For i = 1 To UBound(arr)
- With Target.Resize(1).Offset(i - 1)
- arr(i, 1) = .Row
- arr(i, 2) = .RowHeight
- End With
- Next
- End If
-
- If Target.EntireColumn.Address = Target.Address Then
- LastSelection = "C"
- RowCnt = Target.Columns.Count
- ReDim arr(1 To RowCnt, 1 To 2)
- For i = 1 To UBound(arr)
- With Target.Resize(1).Offset(, i - 1)
- arr(i, 1) = .Column
- arr(i, 2) = .ColumnWidth
- End With
- Next
- End If
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|