- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 9# leehom - Sub worksheet_change(ByVal Target As Range)
- If Target.Address = "$B$2" Then
- Application.EnableEvents = False
- Cells(2, Target.Column - 1) = 1
- i = Application.InputBox("How many numbers you want to add?", "Prompt", , , , , , 1) - 1
- For j = Target.Row + 1 To Target.Row + i
- Cells(j, Target.Column) = Left(Cells(j - 1, Target.Column), 5) & Right(Cells(j - 1, Target.Column), 7) + 1
- Cells(j, Target.Column - 1) = Cells(j, Target.Column - 1).Row - 1
- Next
- Application.EnableEvents = True
- End If
- End Sub
½Æ»s¥N½X |
|