(多字段分类汇总-类数据透视表格式的汇总-加载宏.docVIP

实例21：多字段分类汇总－类数据透视表格式的汇总－加载宏/dispbbs.asp?boardid=2replyid=570898id=195189page=1skin=0Star=3 Private Sub UserForm_Initialize()??? UserForm6.Hide??? With Sheets(UserForm6.ComboBox_DataShName.Value)??????? arr = .Range(.Cells(1, 1), .Cells(1, .[iv1].End(xlToLeft).Column))??? End With??? arr = Application.Index(arr, 1, 0)??? ListBox_Column.List = arr??? ComboBox_Row.List = arr??? ComboBox_field.List = arr??? ComboBox_Mode.AddItem 求和??? ComboBox_Mode.AddItem 计数End Sub Private Sub CommandButton1_Click()??? Dim sql$??? UserForm7.Hide??? Set cnn = CreateObject(ADODB.connection)??? cnn