gpt4 book ai didi

excel - 如果表列中没有数据则显示消息框的代码

转载 作者:行者123 更新时间:2023-12-03 03:50:26 25 4
gpt4 key购买 nike

我有一个带有 2 个组合框的用户表单。

两个组合框均由工作表中的表格填充。

这是我的代码。

Private Sub UserForm_Initialize()
Dim ws As Worksheet, tbl As ListObject, rng As Range

Set ws = Sheets("Summary of Accounts")
Set tbl = ws.ListObjects("groupheads")
Set rng = tbl.ListColumns(3).DataBodyRange

Me.cmb1.Clear
Me.cmb2.Clear

With cmb1
.AddItem "Debit"
.AddItem "Credit"
End With


"If rng = vbNullString Then"
MsgBox ("Please create the Group Head Account First")
Exit Sub

End If

End Sub

错误发生在引用的行处,因为对象变量未定义。我想要的是,如果表列中没有数据,则应该出现我在上面的代码中显示的消息框。

最佳答案

如果ListObject表的.DataBodyRange property第一行没有数据然后为其设置范围类型变量将不会产生任何结果。

If rng Is Nothing Then
MsgBox ("Please create the Group Head Account First")
Exit Sub
End If

是的,看起来那里有一个空行,但 .DataBodyRange 实际上什么都没有,直到它在其中一个单元格中获得至少一个值。

关于excel - 如果表列中没有数据则显示消息框的代码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36691153/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com