六月, 2017 | ExcelOffice【微信公众号：水星Excel】

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.Worksheets("Sheet1")
    Dim oSort As Sort
    Dim iRow As Long
    With oWK
        iRow = .Range("a65536").End(xlUp).Row
    End With
    Set oSort = oWK.Sort
    With oSort
        '删除原来的排序字段
        .SortFields.Clear
        '添加新的排序字段,第一个关键字
        .SortFields.Add Key:=oWK.Range("a1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortTextAsNumbers
         '添加新的排序字段,第二个关键字
        .SortFields.Add Key:=oWK.Range("b1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        '设置排序的单元格区域
        .SetRange oWK.Range("a1:b" & iRow)
        '设置排序的方法
        .SortMethod = xlPinYin
        '设置排序的方向
        .Orientation = xlSortColumns
        '设置是否包含列标题
        .Header = xlYes
        '开始排序
        .Apply
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

Sub QQ1722187970()

Dim oWK As Worksheet

Set oWK = Excel.Worksheets("Sheet1")

Dim oSort As Sort

Dim iRow As Long

With oWK

iRow = .Range("a65536").End(xlUp).Row

End With

Set oSort = oWK.Sort

With oSort

'删除原来的排序字段

.SortFields.Clear

'添加新的排序字段,第一个关键字

.SortFields.Add Key:=oWK.Range("a1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortTextAsNumbers

'添加新的排序字段,第二个关键字

.SortFields.Add Key:=oWK.Range("b1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

'设置排序的单元格区域

.SetRange oWK.Range("a1:b" & iRow)

'设置排序的方法

.SortMethod = xlPinYin

'设置排序的方向

.Orientation = xlSortColumns

'设置是否包含列标题

.Header = xlYes

'开始排序

.Apply

End With

End Sub

在vba中调用excel的排序功能[……]

阅读全文>>>

如何在vba中使用IRibbonUI对象？

2017年6月18日作者：水星Excel

2,050 次浏览暂无评论

当我们在vba中定义一个变量为对象时，需要将具体的某个对象实例赋值给这个变量才能正常使用。

如下代码所示，oWK变量被定义为工作表对象，然后用set语句将第一个工作表赋值给这个变量，这个变量才具有使用价[……]

阅读全文>>>

如何在自定义功能区时添加编辑框（editBox）的控件？

2017年6月18日作者：水星Excel

736 次浏览暂无评论

如下图所示

editBox1

在自定义功能区时，可以通过如下自定义功能区XML代码添加类似VBA中标签+文本框的控件。

<customUI  xmlns="http://schemas.microsoft.com/office/2009/07/customui"  >
	<ribbon >
		<tabs >
<tab idMso="TabDeveloper" visible="false" >
</tab>
			<tab 
				id="Tab1"
				label="自定义选项卡">
<group 
					id="Group1"
					label="自定义组">
				
<editBox id="editBox1" label="请输入内容：" 
/>
				</group >

							</tab >
		</tabs >
	</ribbon >
</customUI >

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

<tabs >

</tab>

<tab

id="Tab1"

label="自定义选项卡">

<group

id="Group1"

label="自定义组">

<editBox id="editBox1" label="请输入内容："

/>

</group >

</tab >

</tabs >

</ribbon >

</customUI >

[……]

阅读全文>>>

如何用vba访问操作vba工程对象VBProject？

如何在word文档添加第X页，共X页并且会自动更新的页码？

如何用vba给vbe内置菜单命令栏添加自定义命令？

如何用vba获取vbe编辑环境中的各个内置菜单命令栏的名称？

如何在vba中使用WithEvents关键字？

如何用vba把excel文件发布转化为pdf格式文件？

如何在vba中调用选择性粘贴的功能？

如何在vba中调用excel的排序功能？

如何在vba中使用IRibbonUI对象？

如何在自定义功能区时添加编辑框（editBox）的控件？

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号