[已解决]填充序号VBA代码求修正

安全网

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.Name <> "sheet1" Then
Me.Name = "sheet1"
End If
    If Target.Column = 8 And Target.Row > 7 And Target.Row < [背板小计].Row Then
    End If
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2015-7-8 09:45

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.       If Target.Column = 1 And Target.Row >= 3 Then
   
3.         For i = 3 To [a65536].End(3).Row - 1
   
4.             Cells(i, 1) = i - 2
   
5.         Next
   
6.       End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

pengyx

第一个if 工作表改名，第二个if 没一点意义。整个代码没有填充序号。最好上附件并说明要求，否则没人能帮你

安全网

附件已经上传，请大侠帮忙看下

grf1973

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.       If Target.Column = 1 And Target.Row >= 3 Then
   
3.         For i = 3 To [a65536].End(3).Row - 1
   
4.             Cells(i, 1) = i - 2
   
5.         Next
   
6.       End If
   
7. End Sub
   

复制代码

安全网

如果删除其中单行的单元格能不能自动排序了

安全网

填充序号

grf1973

删除后A列任意单元格点一下，重新排序。

安全网

比如删除第7行后就自动排序，不用去点击A列任何单元格。

安全网

能不能像这样设置A1-A7单元格的数值录入必须是12位，且数据的最后一位必须是Z或者Y才可以录入成功