表格active中的排列代码不生效

dickybora

各位大神麻烦帮忙看看下面两个问题，谢谢拉

第一个问题：执行代码后F列并没有按预计的排序，不知道是不是F列是公式的问题，还怎么写才能让他自动排序



第二个问题：我把排序的代码写道了worksheet的active事件中，但每次激活这个sheet也没有生效

醉眼看尘世

Sub soldtosort()
    Dim ws3 As Worksheet, rG As Range
    Set ws3 = ThisWorkbook.Sheets("SHIP-TO")
    Set rG = ws3.[a1].Resize(ws3.Cells(ws3.Rows.Count, "F").End(3).Row, 6)
    rG.Sort rG.Columns(6), xlAscending, , , , , , xlYes
End Sub

quqiyuan

Qs18

Sub qs()
With Sheet5
.Range("a1:f" & .Cells(Rows.Count, "f").End(xlUp).Row).Sort key1:=[f1], order1:=xlAscending, Header:=xlYes
End With
End Sub

Qs18

试试..............

Qs18

试试...........

dickybora

多谢，确实可以了，但如果我想把这个放到SHEET1的active里面怎么写呢？

dickybora

Qs18 发表于 2024-7-31 13:19
试试...........

多谢，确实可以了，但如果我想把这个放到SHEET1的active里面怎么写呢？

Qs18

dickybora 发表于 2024-7-31 13:52
多谢，确实可以了，但如果我想把这个放到SHEET1的active里面怎么写呢？

只改with语句表的名称就可以了

ykcbf1100

用这几句代替原来的那段代码：
    Set ws3 = ThisWorkbook.Sheets("SHIP-TO")
    Set Rng = ws3.Range("a2:F" & ws3.Cells(Rows.Count, "F").End(xlUp).Row - 1)
    Rng.Sort ws3.[f2], 1