标签: vba

如何在Excel中使用正则表达式并利用Excel强大的网格设置进行数据操作？

• 单元格函数返回匹配的模式或替换字符串中的值.
• Sub循环遍历一列数据并提取匹配到相邻单元格.
• 需要什么设置？
• Excel的正则表达式的特殊字符是什么？

我的理解正则表达式是不理想的许多情况下(使用或不使用正则表达式？),因为Excel可以使用Left,Mid,Right,Instr类型相似的操作命令.

我听说过很多关于.Select在Excel VBA 中使用的可理解的憎恶,但我不确定如何避免使用它.我发现如果我能够使用变量而不是Select函数,我的代码将更加可重用.但是,ActiveCell如果不使用,我不确定如何引用事物(如等)Select.

我发现这篇关于范围的文章和这个例子关于不使用select的好处却找不到怎么样的东西？

我被要求更新一些Excel 2003宏,但VBA项目受密码保护,似乎缺少文档......没有人知道密码.

有没有办法删除或破解VBA项目的密码？

在Office(ALT+ F11)的VBA编辑器中,您如何评论或取消注释代码块？

Debug.Print输出消息在哪里？

VBA有字典结构吗？像键<>值数组？

如何从函数返回结果？

例如:

Public Function test() As Integer
    return 1
End Function

这给出了编译错误.

如何让这个函数返回一个整数？

我想在Excel 2010中使用vba循环遍历目录的文件.

在循环中,我将需要

• 文件名,和
• 文件格式化的日期.

我编写了以下代码,如果该文件夹没有超过50个文件,则工作正常,否则它是非常慢的(我需要它与> 10000文件的文件夹一起使用).这段代码唯一的问题是查找操作file.name需要花费很多时间.

代码有效,但waaaaaay太慢(每100个文件15秒):

Sub LoopThroughFiles()
   Dim MyObj As Object, MySource As Object, file As Variant
   Set MySource = MyObj.GetFolder("c:\testfolder\")
   For Each file In MySource.Files
      If InStr(file.name, "test") > 0 Then
         MsgBox "found"
         Exit Sub
      End If
   Next file
End Sub

问题解决了:

1. 我的问题已通过以下解决方案Dir以特定方式(15000个文件为20秒)和使用该命令检查时间戳来解决FileDateTime.
2. 考虑到下面的另一个答案,20秒减少到不到1秒.

我想找一个字符串是否包含","(逗号).除了阅读char-by-char之外,我们还有其他选择吗？

两者有什么区别.我一直认为VBA是VB的某种"残缺"版本,但是当有一天朋友问我时,我不知道实际的差异是什么.

另外,当您使用Excel时,是VB还是VBA？