状态栏显示单元格值？

Question

我几乎在所有宏中使用状态栏。如果正确实施，您可以查看代码所在的位置。

E.g

SysCmd(4, "Sorting...")

SysCmd(5)’Set status bar back to normal

问题 - 如何让状态栏显示单元格值？

E.g

SysCmd(4, "Sorting...") & xl.("Sheet1").Range("A1")

上面不起作用，但在Access VBA中有没有办法做到这一点？

Answer 1

当你使用4（acSysCmdSetStatus）作为SysCmd的第一个参数时，你只能包含一个额外的参数...所以总共有两个参数，而不是三个。

但是你可以将你提出的第二个和第三个参数组合成一个字符串，SysCmd将合作......

SysCmd acSysCmdSetStatus, "Sorting... " & xl.("Sheet1").Range("A1")

注意我假设您的单元格引用中xl xl.("Sheet1").Range("A1")是Excel工作簿对象。由于事实证明xl是一个应用程序对象，Sobigen的建议xl.activeworkbook.sheets("Sheet1").Range("A1")对我有意义。

但无论正确的单元格引用是什么，请将其与您想要在状态文本中显示的任何其他内容联系起来...并将整个字符串用作SysCmd的第二个参数