高级筛选

yangqianming

我录制了一个高级筛选的代码，想给筛选出来的数据添加边框设置字体字号，
想不到办法，请老师们给看看怎么实现，谢谢！

高级筛选.rar (23.65 KB, 下载次数: 7)

2024-6-6 20:24 上传

点击文件名下载附件

Again123456

function test(){
        let rng = Range('a3:d12')
        rng.Borders.LineStyle=xlContinuous
        rng.Borders.Weight=xlThin
        rng.Borders.Color = 0xff0000
        rng.BorderAround(xlContinuous,xlMedium,3)
        rng.Interior.ColorIndex=20
        rng.Font.Size=10
        rng.Font.Color= 0x0000ff
        rng.Rows(1).Font.Bold =true
}

Again123456

yangqianming

Again123456 发表于 2024-6-6 20:50

如果输入条件变了就不对了，例如把玉米粒改成大米

yangqianming

Again123456 发表于 2024-6-6 20:50

我关键是不能获取筛选出来的数据的区域，麻烦了！

Again123456

yangqianming 发表于 2024-6-6 22:09
如果输入条件变了就不对了，例如把玉米粒改成大米

rng = Range("a1:d"+Cells(Rows.count,1).End(xlUp).Row)啊，我给你一个设置的示例，如何捕捉rng还不简单么？

yangqianming

Again123456 发表于 2024-6-6 22:20
rng = Range("a1:d"+Cells(Rows.count,1).End(xlUp).Row)啊，我给你一个设置的示例，如何捕捉rng还不简单 ...

我想歪了，只想着从筛选数据中去找数据的区域了，谢谢帮助！

goldowl2011

感谢分享，方法学习了
。