自动适配activex组合框中其他工作表的行高

Question

首先，我不能在VBA编程，但我知道它是多么有用。其次，我的Excel版本是2010年的，但组织有365年。

我有一个项目是用来帮助一个自愿组织在英国遵守新的食品标签法。我有一个正在使用，但所有的行高都必须手动调整，如果不这样做，可能会有一些成分无法说明的风险。

主表称为视图，它用于在activeX组合框下拉列表中选择膳食选项，并通过VLOOKUP显示数据表中的成分列表。在"视图"工作表上还有用于运行一些打印宏的按钮。由于每个单元格的内容非常可变，我需要在每次选择后重置行高度，我在视图表上这样做:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("View").Select
Range("B3:B19").Select
Selection.Rows.AutoFit
End Sub

我还需要做的是重置行高度在其他链接表上的设置范围。链接到"查看"页的其他页称为"成分"(指定必须使用的成分)、"通知"(标题为A4的所有使用成分的通知)和"标签"(与"通知"相同的信息，但外卖食品标签一页6个)，可以从宏按钮打印。我在谷歌上搜索了一些建议的解决方案，包括这个:

使用VBA函数对不同工作表中引用的行进行自动适配

但不知什么原因，我不能让任何工作。是否有一种方法，我可以得到其他工作表上的行选择范围，以工作的组合框更改上的视图工作表，无论是通过修改上述代码或将私人订阅到其他工作表?我已经尝试使用视图代码的变体，但没有成功。

Answer 1

这是由于CDP1802的工作

Private Sub Worksheet_Change(ByVal Target As Range)
'To reset row heights on all printable sheets on selection in Combobox
Sheets("View").Rows("3:19").AutoFit
Sheets("Ingredients").Rows("5:22").AutoFit
Sheets("Notice").Rows("5:19").AutoFit
Sheets("Labels").Rows("1:39").AutoFit
End Sub