软件:excel
版本:2007
请问宏的表单控件能否显示运行代码的时间点
当我运行按钮1，就会显示运行的时间点，在表单控制中显示。
http://files.c.excelhome.net/forum/201609/02/155554j2nyjja62jzzy7ar.png

设定于shapes.oleformat.object.caption时间格式调整可用format和nowhttps://youtu.be/LiVfL4dKuy0

呜呜，打不开youtube

http://imgur.com/a/hUqKE 同youtube为demo

第一次接触这个，能否直接给个宏截图，非常感谢！

回文搜寻一下就有

古人云，授人以鱼，不如授人以渔，我也知道要自己动手一个基础薄弱了写，再一个大陆的百度很渣。

或是以shapes.drawingobject.caption写法worksheet.shapes(name或index).oleformat.....=format()worksheet有可以是activesheet、sheets(name或index)或工作表1..等方式

如果有两个shapes,就要判断么,<>shapes("A"),就是这样思路吗，但是不知道定位到shapes(2)上

在vba内可直接用format，不用引用worksheetfunction内的text原po要定位到两个shape的其中一个吗？

原P0运行"按钮1",系统时间就生成这另外一个shape上Shapes(2).DrawingObject.Caption =Format(Now(), "yyyy-mm-dd hh:mm:ss:")现在我不知道另外一个shapes的name或者index

name显示于名称方块内

但是另外一个shapes是要显示系统时间的，这个怎么抓

原po有二个按钮，一个执行宏，另一个显示系统时间，这是否有误解呢？

没有，最后的效果图就是您demo那样

shapes(指定要显示系统时间表单按钮的name)name显示于名称方块内

这个name是按钮2---->系统时间，这个是变量呀"按钮2"----->"2016-09-02 23:00"

变量的是caption而并非要原po改name的值，是以name去指去该shape

还是不太明白，我现在就定位另一个表单按钮，然后K入时间改抓文本框了，但感觉好繁琐Sheets("未结订单").Shapes("按钮2_Click").DrawingObject.Caption =Format(Now(), "yyyy-mm-dd hh:mm:ss")终于搞定，谢谢SO大耐心指点

我也学到一招了0,0 我也要用这个时间点

还想追问一下，Button 2是属于shapes的name还是index?

应为shape's name抱歉，回文内的index应更正为index number才为正确因index为shape's name或是index number

假如shapes有表单控件，图片，文本框，这个index NO.如何找

可以宏从选取中的按钮，回传index值或以回文写到的shape集合循环，加上判断回传要的index值

录制宏也能帮你改按钮名称