标签 ‘ excel

【VBA】【Office宏】将数据按类分到不同 sheet

说明:
正好用到,翻了一下以前的收藏,发现有这么个 vba,正好拿来使用。Excel 365 for Mac 测试通过。
1. 先讲 sheet 第一列中的项目分类 排序;
2. 宏将 把分类中相同值的行数据复制到一个新的 sheet,sheet name 就是分类的名称;

CODE:

Function Rows_Split()
  Dim Rcount As Long, OldRow As Long
  Dim DataSheet As Worksheet
  Dim tSplit As String
  Dim Tx As String

  Set DataSheet = ActiveSheet
  Recount = ActiveSheet.Range("A65535").End(xlUp).Row + 1
  For Nx = 2 To Recount
      Tx = DataSheet.Cells(Nx, 1).Value  '第一栏为要分的类
      If Tx <> tSplit Then
         If OldRow <> 0 Then
            Debug.Print OldRow
            DataSheet.Rows(OldRow & ":" & Nx - 1).Copy Range("A2") '数据复制范围、
         End If

         If Tx <> vbNullString Then
            OldRow = Nx
            Worksheets.Add after:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = Tx
            tSplit = Tx
        DataSheet.Range("A1:K1").Copy Range("A1") '标题列位置
         End If
      End If
  Next
  Set DataSheet = Nothing
End Function
  • 【VBA】【Office宏】将数据按类分到不同 sheet已关闭评论

[Excel VBA] 破解Excel工作簿保护

同事工作簿保护密码忘记了,正好找到一个,亲测有效,Excel2007通过。记录一下,以备不时之需。

Sub 破解工作薄保护()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Unprotect
End Sub
  • [Excel VBA] 破解Excel工作簿保护已关闭评论

[Excel VBA]单元格更改后自动排序

项目正好用到,记录一下,excel 2007 测试通过。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        i = Selection.Row
        j = Selection.Column

        Range("A6").Select
        Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
        Cells(i, j).Select
    End If
End Sub
  • [Excel VBA]单元格更改后自动排序已关闭评论

Excel-vlookup 逆向查询公式

Vlookup 逆向查询

  • Excel-vlookup 逆向查询公式已关闭评论

VBA 隐含模块中的编译错误 解决办法

在Office 2003下面编的小程序,在office 2000下无法正常运行,提示:隐含模块中的编译错误:MainForm。程序无法运行,自动退出。调试发现,一些内置函数都会报相同错误,莫名啊。
  阅读全文

  • VBA 隐含模块中的编译错误 解决办法已关闭评论

return top