在你的文件里边添加一个activex control -> Microsoft Web Browser 然后运行下边的代码看看 Sub test() Dim i As Integer Dim aFields As Object Set aFields = ActiveSheet.WebBrowser1.Document.GetElementsByTagName("Input") For i = 1 To aFields.Length - 1 Cells(i, 1) = aFields(i).Value Next End Sub Sub WebGoto() ActiveSheet.WebBrowser1.Navigate "baidu.com" End Sub
今天想到的 ,mode判断数据区域有没有重复的数字(这个用处不知道大不大)。 =IF(ISNA(MODE(a1:a5)),"无","有") 对文本无效 第二个是关于VBA worksheet的change事件的 一般判断不在那几列操作 就退出sub 以前是取得target的column(列标) 比如 target不在b,c,d,e列就退出程序 我以前的做法是 icol=target.column if icol =2 or icol=3 or icol=4 or icol=5 then 如果是多列就一直判断 今天看了下like的用法。。 变换下 if icol like "[!2-5]" then exit sub