[问题]TextBox名字在Function中如何用变量替代?

楼主: xc9500 (只需要20秒的疯狂勇气!)   2020-05-27 22:11:16
软件:Excel
版本: 2016
各位大大好!请问一下,在网络上找到一个可以限制输入TextBox为
日期的格式xxxx-xx-xx.而它是以public function的方式来呈现,
且里面的"表单名字"和"TextBox"输入框的名字都写死了!
想请问一下,"表单名"和"TextBox"在Function中,可以用变量来取代吗?
如连结中的附档,有1个开始日期,及1个结束日期的。在开始日期的TextBox,呼叫了
Function,因此可以实现功能。但结束日期,由于TextBox的名字不同,
所以无法使用Function.
因为想要做的表单,开始及结束日期的输入框有十几个,且每个的名字不同。
请帮忙看一下是否有较好的解决方式?还是每个框,就要产出一个function来对应呢?
谢谢
https://1drv.ms/x/s!Atz5-ybVJn3Xyh5SizcZApFLkkuf?e=EnldwM
作者: soyoso (我是耀宗)   2020-05-27 22:44:00
可不用每个textbox就要写一个function,设变量来接传递来的引数,可值、也可textbox(controls)…等
楼主: xc9500 (只需要20秒的疯狂勇气!)   2020-05-28 07:46:00
UserForm_Dateinput.Datestart.SelStart = Len(UserForm_DUserForm_Dateinput.Datestart.Text = Left((UserForm_Dat像这种前面是Userform开头的,该怎么用变量呈现呢?我把这2个完整的句子,贴在Excel中,请再帮忙解答一下谢谢
作者: soyoso (我是耀宗)   2020-05-28 08:06:00
function y_m_d_input() 括号内要设变量来接程序Dateend或Datestart触发事件传递来的引数,那引数的资料型态于回文有写到,那这个变量(control)的话,就可以用于变量.selstart或是变量.text
楼主: xc9500 (只需要20秒的疯狂勇气!)   2020-05-28 21:59:00
谢谢S大大的回复,我再试试.

Links booklink

Contact Us: admin [ a t ] ucptt.com