填写序号，并可点击删除指定内容处

21111按时

老师们，有点难度，希望帮帮忙，学习碰到的问题

21111按时

老师们，多多指点学习

quqiyuan

这种需要vba，函数搞不定，，，

quqiyuan

写了个代码，仅供参考。。。

quqiyuan

附件。。。。

quqiyuan

代码如下。。。
   
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        s = [{"f5","f6","f7","g6","g7","h6","h7","i6","i7"}]
        Dim ss(1 To 30, 1 To 1)
        For i = 1 To 30
            ss(i, 1) = i
        Next
        For i = 1 To UBound(s)
            If Range(s(i)).Address = Target.Address Then
                If Target.Row = 6 Then
                    Cells(9, Target.Column).Resize(30).ClearContents
                ElseIf Target.Row = 5 Then
                    [f9:i38,k9:n38].ClearContents
                Else
                    Select Case Target.Column
                        Case 6
                            Set rng = Cells(8, "f").Resize(31, 9)
                            num = 2
                            Set rg = Cells(8, "f").Offset(, Target.Column - 1)
                            Call sort_1(rng, rg, num)
                            Cells(9, Target.Column).Resize(30) = ss
                        Case 7
                            Set rng = Cells(8, "f").Resize(31, 9)
                            num = 1
                            Set rg = Cells(8, "f").Offset(, Target.Column - 1)
                            Call sort_1(rng, rg, num)
                            Cells(9, Target.Column).Resize(30) = ss
                        Case 8
                            Set rng = Cells(8, "f").Resize(31, 9)
                            num = 2
                            Set rg = Cells(8, "f").Offset(, Target.Column - 1)
                            Call sort_1(rng, rg, num)
                            Cells(9, Target.Column).Resize(30) = ss
                        Case 9
                            Set rng = Cells(8, "f").Resize(31, 9)
                            num = 1
                            Set rg = Cells(8, "f").Offset(, Target.Column - 1)
                            Call sort_1(rng, rg, num)
                            Cells(9, Target.Column).Resize(30) = ss
                    End Select
                End If
                Exit For
            End If
        Next
    End If
End Sub
Sub test()
    Application.EnableEvents = True
End Sub
   
Sub sort_1(rng, rg, num)
    rng.Sort key1:=rg, _
            order1:=num, Header:=xlYes
End Sub
   
   

quqiyuan

可以精简一下，可以省掉部分代码

21111按时

quqiyuan 发表于 2024-11-8 18:56
可以精简一下，可以省掉部分代码

牛，我来看下

21111按时

21111按时 发表于 2024-11-8 19:17
牛，我来看下

测试了好久，脑壳疼，能力有限，麻烦老师根据实际表格生成公司，感恩

21111按时

21111按时 发表于 2024-11-8 20:08
测试了好久，脑壳疼，能力有限，麻烦老师根据实际表格生成公司，感恩

1：点击加数，和删除，就是对A排序加1-30，或删除，依次类推
2：点击上面删除，直接删除下面红色区域的