大师帮帮忙，帮写个用鼠标点单元格后，数字会递增的宏公式，谢谢了！

微风小雨

在指定的列，如A列，用鼠标点下A1，A1单元格显1，然后鼠标在任意单元格点，如在A10再点，A10单元格显2。以次类推，再在别的单元格点就出现3。也就是通过鼠标点单元格实现数字递增。

wodewan

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Static i As Long
   
3. If Target.Column = 1 And Target.Count = 1 Then
   
4. i = i + 1
   
5. Target.Value = i
   
6. End If
   
7. End Sub

复制代码

微风小雨

wodewan 发表于 2019-9-8 22:54

非常感谢大师，是我想要的。试用后发现个小问题，列如点到13、14，当我把14删掉再点时，只有15了，14不见了，能不能13后面只能跟14.还有就是我点一串数字后删除完再从新点，不会从1开始，只会继续删除前的数字继续递增。要是删完又会从1开始就完美了！

微风小雨

wodewan 发表于 2019-9-8 22:54

大师您好！感谢你百忙之中为我解惑。想再麻烦你帮改下，就是当Ａ列清空时，再在Ａ1点下一定是1，而且后面有点错单元格需重新点时，所生成的数字一定要跟着上一个数字。例如：Ａ１是1，接下来我点Ａ5,显2.现在发现2应该是点在Ａ４单元格的，我把Ａ５单元格的数删了，重新在Ａ４上点，要求Ａ４上显2.谢谢了！

wodewan

微风小雨 发表于 2019-9-9 21:42
大师您好！感谢你百忙之中为我解惑。想再麻烦你帮改下，就是当Ａ列清空时，再在Ａ1点下一定是1，而且后面 ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static i As Long
If Target.Column = 1 And Target.Count = 1 Then
i = Application.WorksheetFunction.Max([A1].EntireColumn)
Target.Value = i + 1
End If
End Sub

一把小刀闯天下

Option Explicit

Dim cnt, flag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
  If flag Then flag = False: Exit Sub
  If Target.Columns.Count + Target.Rows.Count > 2 Then Exit Sub
  If cnt > 0 Then cnt = cnt - 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 And Target.Rows.Count = Rows.Count Then cnt = 0: Exit Sub
  If Target.Columns.Count + Target.Rows.Count > 2 Then Exit Sub
  cnt = cnt + 1: flag = True
  Target.Value = cnt
End Sub

微风小雨

wodewan 发表于 2019-9-9 22:00
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static i As Long
If Target.Column = ...

谢谢！真是太感谢了！

微风小雨

一把小刀闯天下 发表于 2019-9-9 22:10
Option Explicit

Dim cnt, flag As Boolean

非常感谢你的回贴，谢谢！

微风小雨

wodewan 发表于 2019-9-9 22:00
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static i As Long
If Target.Column = ...

大师您好！能不能再帮个忙你写的公式简单实用。当A列A3不为空值时（A3以下单元格是空值），B列从B3开始显1、2、3、4、5、6、7、、、、、、这时，要是A列A6也不为空值时，数字变化为，由B6开始显1、2、3、4、5、6、7、、、、、、（B3到B5显1、2、3），就是只要A列有新的单元格不为空值时，B列相对应单元格就重新由1排序，原来排好的不变。谢了！

微风小雨

一把小刀闯天下 发表于 2019-9-9 22:10
Option Explicit

Dim cnt, flag As Boolean

大师，谢谢您帮忙编写公式并回复，谢谢了！