楼主:
yyingx (bless)
2016-09-02 16:03:26软件:excel
版本:2007
请问宏的表单控件能否显示运行代码的时间点
当我运行按钮1，就会显示运行的时间点，在表单控制中显示。
http://files.c.excelhome.net/forum/201609/02/155554j2nyjja62jzzy7ar.png
楼主:
yyingx (bless)
2016-09-02 16:45:00呜呜，打不开youtube
作者: soyoso (我是耀宗) 2016-09-02 18:21:00
楼主:
yyingx (bless)
2016-09-02 18:24:00第一次接触这个，能否直接给个宏截图，非常感谢！
作者: soyoso (我是耀宗) 2016-09-02 18:28:00
回文搜寻一下就有
楼主:
yyingx (bless)
2016-09-02 18:31:00古人云，授人以鱼，不如授人以渔，我也知道要自己动手一个基础薄弱了写，再一个大陆的百度很渣。
作者: soyoso (我是耀宗) 2016-09-02 18:58:00
或是以shapes.drawingobject.caption写法worksheet.shapes(name或index).oleformat.....=format()worksheet有可以是activesheet、sheets(name或index)或工作表1..等方式
楼主:
yyingx (bless)
2016-09-02 22:23:00如果有两个shapes,就要判断么,<>shapes("A"),就是这样思路吗，但是不知道定位到shapes(2)上
作者: soyoso (我是耀宗) 2016-09-02 22:26:00
在vba内可直接用format，不用引用worksheetfunction内的text原po要定位到两个shape的其中一个吗？
楼主:
yyingx (bless)
2016-09-02 22:36:00原P0运行"按钮1",系统时间就生成这另外一个shape上Shapes(2).DrawingObject.Caption =Format(Now(), "yyyy-mm-dd hh:mm:ss:")现在我不知道另外一个shapes的name或者index
作者: soyoso (我是耀宗) 2016-09-02 22:43:00
name显示于名称方块内
楼主:
yyingx (bless)
2016-09-02 22:45:00但是另外一个shapes是要显示系统时间的，这个怎么抓
作者: soyoso (我是耀宗) 2016-09-02 22:53:00
原po有二个按钮，一个执行宏，另一个显示系统时间，这是否有误解呢？
楼主:
yyingx (bless)
2016-09-02 22:55:00没有，最后的效果图就是您demo那样
作者: soyoso (我是耀宗) 2016-09-02 22:56:00
shapes(指定要显示系统时间表单按钮的name)name显示于名称方块内
楼主:
yyingx (bless)
2016-09-02 23:00:00这个name是按钮2---->系统时间，这个是变量呀"按钮2"----->"2016-09-02 23:00"
作者: soyoso (我是耀宗) 2016-09-02 23:05:00
变量的是caption而并非要原po改name的值，是以name去指去该shape
楼主:
yyingx (bless)
2016-09-02 23:10:00还是不太明白，我现在就定位另一个表单按钮，然后K入时间改抓文本框了，但感觉好繁琐Sheets("未结订单").Shapes("按钮2_Click").DrawingObject.Caption =Format(Now(), "yyyy-mm-dd hh:mm:ss")终于搞定，谢谢SO大耐心指点
楼主:
yyingx (bless)
2016-09-03 18:57:00还想追问一下，Button 2是属于shapes的name还是index?
作者: soyoso (我是耀宗) 2016-09-03 20:46:00
应为shape's name抱歉，回文内的index应更正为index number才为正确因index为shape's name或是index number
楼主:
yyingx (bless)
2016-09-03 20:58:00假如shapes有表单控件，图片，文本框，这个index NO.如何找
作者: soyoso (我是耀宗) 2016-09-03 21:13:00
可以宏从选取中的按钮，回传index值或以回文写到的shape集合循环，加上判断回传要的index值