Question

Excel vba怎么弄一个文本框,和一个函数相连?

If Dir([J1], 16) <> Empty Then Kill [J1]

现在J1是这个内容.
我怎么在当前sheet里做一个

在里面输入F:\快盘\pc.txt
替代J1单元格呢?

请大家一步步的跟我说说,我这是第二天学习vba,你说的太快,我就不懂了..
谢谢大家!





Answer 1

按ALT+F11打开VBE编辑器，新建一个模块，粘贴如下代码：

Sub a()
If Sheet1.wbk.Text <> "" And Dir(Sheet1.wbk.Text, vbDirectory) <> Empty Then Kill Sheet1.wbk.Text '假设文本框在sheet1表，请根据实际情况更改
End Sub

在设计模式下，点选文本框，右键点选属性，将名称改为：wbk。用窗体工具栏（注意不是控件工具栏）上的按钮拖出一个按钮指定a宏即可。