VBA技巧：将工作表中文本框里的数字转化为日期格式并输入到工作表单元格

完美Excel · 公众号 · Excel · 2024-05-16 05:30

学习Excel技术，关注微信公众号：excelperfect标签：VBA，ActiveX控件如下图1所示，工作表中有一个名为“TextBox1”的文本框，要将其中输入的数字放置到工作表单元格B8中并转换成日期格式。图1可以使用下面的代码：Worksheets("Sheet3").Cells(8, 2) = Format(Worksheets("Sheet3").OLEObjects("TextBox1").Object.Value, "yyyy-mm-dd")或者：With Worksheets("Sheet3") .Cells(8, 2) = Format(.OLEObjects("TextBox1").Object.Value, "yyyy-mm-dd")End With反之，如果要想工作表中的文本框显示单元格中的日期，可使用下面的代码：With Worksheets("Sheet3") .OLEObjects("TextBox1").Object.Value = Format(.Cells(8, 2), "yyyy-mm-dd")End With有点绕，不过可以试试看！在实际应用开发中，万一碰到这种情况，就可以有现成的代码参考了。看着有点简单，但主要是理解工作表中的ActiveX控件是如何进行引用的，文本框控 ………………………………

原文地址：访问原文地址
快照地址：访问文章快照

分享到微博