Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3314|回复: 5

初学VBA,求按颜色排序,详细要求请看图。

[复制链接]
发表于 2019-12-17 22:19 | 显示全部楼层 |阅读模式
2学分
UC截图20191204235845.png UC截图20191205000234.png UC截图20191205000647.png
多列颜色排序.rar (23.94 KB, 下载次数: 16)

最佳答案

查看完整内容

Sub test() Dim i, j Sheets(1).Select i = Range("a65536").End(xlUp).Row For j = Cells(1, "B").Column To Cells(1, "AF").Column px Range(Cells(2, j), Cells(i, j)) Next End Sub Sub px(rng As Range) Dim sor As Sort Dim sfs As SortFields Set sor = rng.Parent.Sort Set sfs = sor.SortFields sfs.Clear sfs.Add Key:=rng, SortOn:=xlSortOnCel ...
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-12-17 22:19 | 显示全部楼层
本帖最后由 爱疯 于 2019-12-18 09:24 编辑

Sub test()
    Dim i, j
    Sheets(1).Select
    i = Range("a65536").End(xlUp).Row
    For j = Cells(1, "B").Column To Cells(1, "AF").Column
        px Range(Cells(2, j), Cells(i, j))
    Next
End Sub


Sub px(rng As Range)
    Dim sor As Sort
    Dim sfs As SortFields
    Set sor = rng.Parent.Sort
    Set sfs = sor.SortFields
    sfs.Clear
    sfs.Add Key:=rng, SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
    With sor
        .SetRange rng
        .Header = xlNo
        .Apply
    End With
End Sub

评分

参与人数 1学分 +2 收起 理由
心云德乐 + 2 我和小伙伴都惊呆了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-18 12:49 | 显示全部楼层
本帖最后由 心云德乐 于 2019-12-18 12:53 编辑
爱疯 发表于 2019-12-17 22:19
Sub test()
    Dim i, j
    Sheets(1).Select

您大牛了,好像VBA神域景界里您就是齐天大圣,请问“爱疯”高手,要参加论坛里的“初级VBA班”过程怎样走?谢谢!
回复

使用道具 举报

发表于 2019-12-18 14:49 | 显示全部楼层
修改录制宏改的。
微信扫首页左上的二维码,或关注公众号"Excel精英培训",可找到学习班信息
回复

使用道具 举报

 楼主| 发表于 2019-12-20 20:29 | 显示全部楼层
爱疯 发表于 2019-12-18 14:49
修改录制宏改的。
微信扫首页左上的二维码,或关注公众号"Excel精英培训",可找到学习班信息

请问高手,px Range(Cells(2, j), Cells(i, j))里的px是指什么?百度找不到。
UC截图20191220201040.png
回复

使用道具 举报

发表于 2019-12-20 22:27 | 显示全部楼层
px只是一个过程名,是自定义的,也可以取成test2。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:46 , Processed in 1.064316 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表