本文介绍了一段VBA代码，该代码用于获取Excel中所有自定义序列，并以消息框的形式展示出来。此外，还检查了特定序列（例如xxxxx）是否存在。
Sub Macro1()
Dim customlist As String, i As Long
customlist = "全部自定义序列" & vbCrLf & String(30, "-") & vbCrLf
For i = 1 To Application.CustomListCount
customlist = customlist & "【" & Format(i, "00") & "】" & Join(Application.GetCustomListContents(i), ",") & vbCrLf
Next
MsgBox customlist & vbCrLf & String(30, "-") & vbCrLf & "序列（xxxxx）有没有？-->" & IIf(InStr(customlist, "xxxxx") > 0, "有！", "没有！")
End Sub
Dim customlist As String, i As Long
customlist = "全部自定义序列" & vbCrLf & String(30, "-") & vbCrLf
For i = 1 To Application.CustomListCount
customlist = customlist & "【" & Format(i, "00") & "】" & Join(Application.GetCustomListContents(i), ",") & vbCrLf
Next
MsgBox customlist & vbCrLf & String(30, "-") & vbCrLf & "序列（xxxxx）有没有？-->" & IIf(InStr(customlist, "xxxxx") > 0, "有！", "没有！")
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
