N=¹ï¸Ü®ØÂI¿ïªº¦C¼Æ

myleoyes

¦U¦ì«e½ú§A­Ì¦n!!   
         °ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 2# luhpro
«e½ú!ÁÂÁÂ!!N= Z.Row¤p§Ì¦³¸Õ¹L
         °ÝÃD¬OIf Z <= 0 The Exit Sub
         §ï¬°If Z <= 0 Then GoTo ag
         ·í¹ï¸Ü®Ø¿ï¾Ü¨ú®ø®É
        µ{¦¡·|¿ù»~424¤£ª¾¬°¦ó?
         ½Ð«e½ú¤£§[¦A½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 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