求教大佬：VBA能自动缩放选定区域不？

gxggxy103

excel中，可否用VBA代码的方式，指定缩放选定区域？如果可以的话，又如何按指定顺序依次缩放？

ykcbf1100

是的，VBA可以缩放指定区域，能调整行高和列宽。

gxggxy103

ykcbf1100 发表于 2024-3-23 21:44
是的，VBA可以缩放指定区域，能调整行高和列宽。

大佬可否给个样例代码？鞠躬致谢！！！

ykcbf1100

gxggxy103 发表于 2024-3-23 21:46
大佬可否给个样例代码？鞠躬致谢！！！

供参考。。。

1. Sub AutoScaleSelection()
   
2.     ' 指定要缩放的选定区域
   
3.     Dim rng As Range
   
4.     Set rng = Selection
   
5.    
   
6.     ' 调整选定区域的大小
   
7.     rng.EntireRow.RowHeight = 15 ' 调整行高
   
8.     rng.EntireColumn.ColumnWidth = 12 ' 调整列宽
   
9. End Sub
   

复制代码

gxggxy103

ykcbf1100 发表于 2024-3-23 21:50
供参考。。。

老大没能理解我的意思。我的意思是对选定区域进行缩放。就像excel视图里的“缩放”按钮一样的效果。

prome3

7楼正解。

是我理解错了1楼的意思。

再说一遍，7楼正解！

ykcbf1100

gxggxy103 发表于 2024-3-23 22:32
老大没能理解我的意思。我的意思是对选定区域进行缩放。就像excel视图里的“缩放”按钮一样的效果。

那没有。你整一个？

perfect131

gxggxy103 发表于 2024-3-23 22:32
老大没能理解我的意思。我的意思是对选定区域进行缩放。就像excel视图里的“缩放”按钮一样的效果。

可以实现，录制宏试试

q490525427

觉得还没右下角来的直接,