Excel VBA 临时保存值

Posted 2023-05-07

【中文标题】Excel VBA 临时保存值

【英文标题】：Excel VBA temporarily save value

【发布时间】：2018-11-09 12:42:20

【问题描述】：

我正在编写一个小程序，它从带有种子的名称池中选择一个员工。所选员工的图像显示在用户框架中。

我希望程序将所选员工的姓名保留一整天。在这种情况下，即使我在 2 小时后重新启动程序，所选员工仍保持登录状态。第二天，程序会选择一个具有种子的新员工，该员工也整天保持选中状态。

我的问题是：如何将选定的员工保存一整天？

例子：

启动程序 -> 启动种子 -> 选定员工：Thomas -> 显示 Thomas 的图像

2 小时后：

启动程序 -> 选定员工：Thomas -> 仍然显示 Thomas 的图像

第二天：

启动程序 -> 启动种子 -> 选定员工：Christoph -> 显示 Christoph 的图像

如果您有任何想法或有用的答案，我将非常感谢！

【问题讨论】：

让你的种子基于截止日期。

这听起来很有趣！我会试试的。谢谢

@josephc 我确实试图找到一种方法将我的种子基于日期，但没有找到解决方案。种子与随机化和 rnd 函数的简单组合一起工作。你看到什么机会了吗？

发布你的尝试。

【参考方案1】：

我找到了一种方法，我只需将日期和当天的值保存在工作表上的某个单元格中。这就是我的代码的样子：

如果 MainSheet.Cells(1, 1) = 日期 那么 selectedemployee = MainSheet.Cells(1, 2) 其他 退出程序

MainSheet.Cells(1,1) = Date    'saves the date in Sheet
MainSheet.Cells(1,2) = selectedemployee    'saves todayValue in Sheet

如果结束