ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel inputbox °j°é °ÝÃD

¦^´_ 1# v03586
  1. Sub ½Ð¿é¤J()
  2.     Dim x, y

  3.     x = InputBox("½Ð¿é¤J¦¬®ÆOP¤u¸¹ [ Please enter Operator ID ]", "½Ð¿é¤J¦¬®ÆOP¤u¸¹  [Please enter Operator ID ]", "")
  4.     If x = "" Then Exit Sub
  5.     Do
  6.         y = InputBox("½Ð¿é¤JMO, ¿é¤J§¹²¦½Ð«ö¨ú®øÁä [ Please enter MO ]", "½Ð¿é¤JMO [ Please enter MO ]", "")
  7.         If y = "" Then Exit Do
  8.         With Cells(Rows.Count, 1).End(xlUp)
  9.             .Cells(2, 1) = x
  10.             .Cells(2, 2) = y
  11.             .Cells(2, 3) = Now
  12.         End With
  13.     Loop

  14.     ActiveWorkbook.Save
  15. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD