[µo°Ý] inputbox

linsurvey2005

§Ú­nÂI¿ïÀx¦s®æ¶i¦æ§Ú¸ê®ÆªºÂ\©ñ¦ì¸m(¥Î·Æ¹«ÂI¿ï)
¥i¬O³£¤£¯à¦³°Ê§@
½Ð°Ý³o¬O­þÃä¥X¿ù

    Dim Message, Title, Default, MyValue
      Message = "ÂI¿ï§¹²¦½Ð«ö½T©w"
      Title = "ÂI¿ï¸ê®Æ¦s©ñ¦ì¸m"
      Default = "A1"
    MyValue = Application.InputBox(Message, Title, Default, Type:=8)
       R = ActiveCell.Row
       C = ActiveCell.Column
            Cells(R, C).Value = "E ­È"
            Cells(R, C + 1).Value = "N ­È"
            Cells(R, C + 2).Value = "EL ­È"
            Cells(R, C + 3).Value = "ÄÝ©Ê"
            R = R + 1

linsurvey2005

³q¤F³q¤F~·PÁ GBKEE ªº«ü¾É¥H¤U¬°­×¥¿¦¨ªG
¤£ª¾¹D³o¼Ë¤l¬O§_³q¶¶ ©Î¬O¦³§ó²«Kªº¤èªk
¯u¬O·PÁÂ~µÎªA^^
Dim Message, Title, Default, MyValue
    On Error Resume Next
    Message = "ÂI¿ï§¹²¦½Ð«ö½T©w"
    Title = "ÂI¿ï¸ê®Æ¦s©ñ¦ì¸m"
    Default = "A1"
    Set MyValue = Application.InputBox(Message, Title, Default, Type:=8)
            If Err Then
          Err.Clear
    Exit Sub
   End If
    Const Rn = 3
     DoEvents
     R = MyValue.Row
     C = MyValue.Column
   
            Cells(R, C).Value = "ÂI½s"
            Cells(R, C + 1).Value = "E ­È"
            Cells(R, C + 2).Value = "N ­È"
            Cells(R, C + 3).Value = "EL ­È"
            Cells(R, C + 4).Value = "ÄÝ©Ê"
            R = R + 1

linsurvey2005

·PÁÂ"GBKEE"»¡©ú
DoEvents ¤£¬O¥Î¨Ó¼È°±µ{¦¡ªº°Ê§@¹À?
§Ú¬O·QÄË¥X¤@¨Ç®É¶¡µ¹¹q¸£¶}±ÒAuto CADµ{¦¡
¨ü¯q¨}¦h ¯uªº«ÜµÎªA^^