关于EXCEL自动填充主序号和子序号，如何编写VBA

xiaotuding

希望达成的效果：

1、C列填入内容后，如果点击A列，则生成如1、2、3......的序号，同时该行字体加粗，单元格填充如图的颜色，D、E、F、G单元格禁止填写内容，D、E、F单元格去除左右两侧的边框线；如果点击B列，则根据A列序号生成子序号，序号格式为1.1、1.2、1.3......

2、所有A列的主序号如1、2、3......等创建为一个组，B列的每组子序号自动创建为一组，新增序号根据此原则自动归入相应的组内

3、上一行内容填写完整（G列除外）后，自动插入下一行带边框的单元格

4、每一行只能生成一种序号，要么是主序号，要么是子序号1.1、1.2、1.3......生成哪一类序号则根据点击的是A列或B列来判断

Project Plan.rar (25.72 KB, 下载次数: 73)

2018-8-5 17:36 上传

点击文件名下载附件

xiaotuding

谢谢您提醒，可以简化下需求，解决第1和3的问题就可以了，其它是我完美癖的吹毛求疵，太复杂就放弃吧。烦请群里各位高手帮帮我，谢谢啦

xiaotuding

重新简化了一下需求：

1、C列填入内容后，如果点击A列，则生成如1、2、3......的序号，同时该行字体加粗，D、E、F单元格去除左右两侧的边框线；如果点击B列，则根据A列序号生成相应的子序号，序号格式为1.1、1.2、1.3、......

2、上一行内容填写完后，自动插入下一行带边框的单元格

xiaotuding

自己再顶一下，烦请群里各位高能大侠相助，成分感谢

莫名v微笑

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. a = Application.count(Range("a:a"))
   
3. r = Target.Row
   
4. If Target.Column = 1 And Cells(Target.Row, 3) <> "" And Target = "" Then
   
5. Target = a + 1: Target.Font.Bold = True: Range(Cells(r, 1), Cells(r, 7)).Interior.ColorIndex = 40
   
6. End If
   
7. b = Cells(Target.Row, 1).End(xlUp).Row
   
8. If Target.Column = 2 And Cells(Target.Row, 3) <> "" And Target = "" And b <> 9 Then
   
9. c = Cells(b, 1): d = Target.Row - b: Target = c & "." & d
   
10. End If
    
11. e = Sheets(1).UsedRange.Rows.Count
    
12. If Cells(e, 2) <> "" And Cells(e, 3) <> "" And Cells(e, 4) <> "" And Cells(e, 5) <> "" And Cells(e, 6) <> "" Then
    
13. Range(Cells(e + 1, 1), Cells(e + 1, 7)).Borders.LineStyle = xlContinuous
    
14. Rows(e + 1).RowHeight = 20
    
15. End If
    
16. End Sub
    

复制代码

尝试写了个，你试试看。

一把小刀闯天下

xiaotuding 发表于 2018-8-7 15:20
自己再顶一下，烦请群里各位高能大侠相助，成分感谢

'单元格格式未设置，自己修改

Option Explicit

Dim rowpos As Long

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 And Target.Row > 10 Then
    rowpos = Target.Row
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i, t
  If Target.Column = 1 And rowpos > 10 Then
    If Len(Cells(rowpos, 3)) = 0 Then Exit Sub
    For i = rowpos - 1 To 10 Step -1
      If Len(Cells(i, 1)) > 0 And IsNumeric(Cells(i, 1)) Then
        Cells(rowpos, 1) = Cells(i, 1) + 1: Exit Sub
      End If
    Next
  End If
  If Target.Column = 2 And rowpos > 10 Then
    If Len(Cells(rowpos, 1)) Then Exit Sub
    If Len(Cells(rowpos, 3)) = 0 Or Len(Cells(rowpos, 2)) > 0 Then Exit Sub
    If Len(Cells(rowpos - 1, 2)) = 0 Then
      Cells(rowpos, 2) = Cells(rowpos - 1, 1) & "." & 1: Exit Sub
    End If
    For i = rowpos - 1 To 10 Step -1
      If InStr(Cells(i, 2), ".") Then
        t = Split(Cells(i, 2), ".")
        Cells(rowpos, 2) = t(0) & "." & Val(t(1)) + 1: Exit Sub
      End If
    Next
  End If
End Sub

xiaotuding

好的好的，谢谢两位的热心相助，小女子在此多谢，我先试一试

xiaotuding

回复一下测试情况，“莫名v微笑” 给到的代码经测试有问题，举例说明：

1、同一行单元格点击A列和B列，都会自动填充序号。而不能如表中所显示的，一行只生成一种序号。希望的效果是，如果点击A列则自动填充主序号，但之后如果又点击B列则会生成子序号，同时A列主序号自动清除。

2、A列填充了3、4、5、6....的序号，如果清除已填充的序号4，再重新点击A列，就无法再自动显示序号4，而是填充为序号5。

3、A列填充了3、4、5、6....的序号，如果删除序号4、5所在的整行单元格，序号6所在的单元格不会自动更新为序号4