- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 4# luhpro
«e½ú!
ÁÂÁÂ!!¤p§Ìקï¦p¤U
Sub AA()
Dim Z As Range
On Error Resume Next
[A1:C1] = ""
ag:
Set Z = Application.InputBox("½Ð¿ï¨ú¸ê®Æ", " ¨Ó·½¼Æ¾Ú", Type:=8)
If Z <= 0 Then GoTo ag
N = Z.Row
[$D$1] = "=" & Z & "-" & N
[D1].Select
End Sub |
|