前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VBA技巧:将工作表中文本框里的数字转化为日期格式并输入到工作表单元格

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

作者头像
fanjy
发布2024-05-22 15:17:19
870
发布2024-05-22 15:17:19
举报
文章被收录于专栏:完美Excel完美Excel

标签:VBA,ActiveX控件

如下图1所示,工作表中有一个名为“TextBox1”的文本框,要将其中输入的数字放置到工作表单元格B8中并转换成日期格式。

图1

可以使用下面的代码:

代码语言:javascript
复制
Worksheets("Sheet3").Cells(8, 2) = Format(Worksheets("Sheet3").OLEObjects("TextBox1").Object.Value, "yyyy-mm-dd")

或者:

代码语言:javascript
复制
With Worksheets("Sheet3")
  .Cells(8, 2) = Format(.OLEObjects("TextBox1").Object.Value, "yyyy-mm-dd")
End With

反之,如果要想工作表中的文本框显示单元格中的日期,可使用下面的代码:

代码语言:javascript
复制
With Worksheets("Sheet3")
  .OLEObjects("TextBox1").Object.Value = Format(.Cells(8, 2), "yyyy-mm-dd")
End With

有点绕,不过可以试试看!在实际应用开发中,万一碰到这种情况,就可以有现成的代码参考了。看着有点简单,但主要是理解工作表中的ActiveX控件是如何进行引用的,文本框控件中的值是如何转换格式的,既可以熟悉ActiveX控件在VBA中的属性使用,也增加了处理类似情形的经验。

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2024-05-15,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 完美Excel 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档