随笔分类 -  Excel_VB

摘要：1.关闭要解密的excel文件，新建一个excel文件2.打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图所示3.将代码复制到这个模块中，代码如下：Private Sub VBAPassword() '你要解保护的Excel文件路径Filename = Applicat... 阅读全文

摘要：Const TR_LEVEL_MARK = "+"Const TR_COL_INDEX = "A"Const TR_COL_LEVEL = "E"Const TR_COL_NAME = "C"Const TR_COL_COUNT = "D"Const TR_COL_TREE_START = "F"C... 阅读全文

摘要：Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j% ChDir ThisWorkbook.Path Filename = Application.GetO... 阅读全文

摘要：Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j%, txtpath As String Dim txtname As Variant C... 阅读全文

摘要：在excel的使用过程中，会用到一些自定义函数，可以使用宏轻松的实现这些功能，问题是必须使用“启用宏的excel”，这样用户每次打开时都要启用宏。现用以按背景色计划为例，解决以上问题：1.新建一个空白的excel,按alt+F11,打开VB界面，点击“插入”---“模块”---录入以下代码：//这个方法是计算相同颜色的单元格个数Function CountColor(col As Range, countrange As Range) As Integer Dim icell As Range Application.Volatile For Each icell In co... 阅读全文