在整个工作簿的列中查找值并将其添加到文本框中

我已经创build了这个用户窗体。

我想要完成的是，我希望这个文本框（蓝色圆圈）填充从工作簿中取得的数字。 这个数字将在列A：A中获得，如果这个数字是1我想用户窗体文本框显示2（总是添加+1）。

我有我写的以下代码：

TextBoxLopnummer.Value = Sheets("Energi").Range("MAX(A:A)+1").Value 

但是会出现一个错误，显示“运行时错误1004”

Answer 1

这：范围（“MAX（A：A）+1”）不会给你在范围内的最大值。 尝试这个：

 TextBoxLopnummer.Value = WorksheetFunction.Max(Sheets("Energi").Range("A:A")) + 1 

Answer 2

解决问题的办法是：

 Dim ws As Worksheet, currentmax As Integer currentmax = 0 For Each ws In Worksheets currentmax = Application.WorksheetFunction.Max(currentmax, ws.Columns("A:A")) Next ws TextBoxLopnummer.Value = Format(currentmax + 1, "0000") 'or if you need 4 digits formatting