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

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

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

¦]¤u§@¤W¤@­Ó¤p°ÝÃD·Q¼g¦¨ µ{¦¡¥hRUN
¦p¹Ï©Ò¥Ü

¥Ø«e§Ú¼gªºµ{¦¡½X¥u¯à³æµ§¿é¤J¡AµM«á¨C¿é¤J§¹¤@µ§·|¦Û°Ê¦sÀÉ
§Ú·Q§ï¼g¦¨²Ä¤@¦¸ÂI¿ï¸õ¥X¨Óªºinputbox ¥u¿é¤J¤u¸¹
¦A¨Ó¶}©l¸õ¦^°é ¿é¤JMO
ª½¨ì§Ú«ö¨ú®ø¥L´N§â§Ú¦^°é¿é¤J¤¤ªº°T®§¦Û°Ê±a¥X¨Ó¡A¤u¸¹³¡¤À¯à¦Û°Ê¶ñ¤W¶Ü?

µ{¦¡½X°Ñ¦Ò  ½Ð°Ý¦p¦ó­×§ï¦¨§Ú¹Ï»¡ªº¨º¼Ë©O?
  1. Sub ½Ð¿é¤J()


  2.     x = InputBox("½Ð¿é¤J¦¬®ÆOP¤u¸¹ [ Please enter Operator ID ]", "½Ð¿é¤J¦¬®ÆOP¤u¸¹  [Please enter Operator ID ]", "")
  3.     y = InputBox("½Ð¿é¤JMO, ¿é¤J§¹²¦½Ð«ö¨ú®øÁä [ Please enter MO ]", "½Ð¿é¤JMO [ Please enter MO ]", "")


  4.     Dim c1 As Integer
  5.     c1 = 2
  6.     While Cells(c1, 2) <> ""
  7.         c1 = c1 + 1
  8.     Wend
  9.     Cells(c1, 1) = x
  10.     Cells(c1, 2) = y
  11.     Cells(c1, 3) = Now()


  12.     ActiveWorkbook.Save

  13. End Sub
½Æ»s¥N½X
Q&A.png
2015-9-18 07:41

¦^´_ 2# stillfish00


    ÁÂÁ¤j¤jªº«ü±Ð¡Iµ{¦¡½XOK :D   ·PÁ¸ѨM§Ú¤@­Ó¤j°ÝÃD~

TOP

¦^´_ 4# Joforn


    ·PÁ¤j¤jªº¤À·Q~¦ý¥L°j°éÁÙ¬O·|¥X²{¿é¤J¤u¸¹¡A§Ú²z·Qªº³]­p¬OÅý§Úªº¾Þ§@­û¡A¿é¤J¤u¸¹²Ä¤@¦¸´N¦n¡A¨ä¥L´N¨ê±ø½X¡A³o¼Ë¹ï¾Þ§@­ì¨Ó»¡ ¤ñ¸û¤£¥Î¤@ª½¿é¤J¤u¸¹¡A­°§C§@·~®Éªº¥¢»~²v¡A¦ýÁÙ¬O·PÁ±zªº¤À¨É¡AÅý§Ú¤]¨£ÃѨ줣¦Pªºµ{¦¡»yªk­ò!!!  :D

TOP

¦^´_ 5# ­ã´£³¡ªL


    ·PÁªO¤jªºµ{¦¡½X¡I¦³¹³¨¾§bªº¥\¯àÁÙ¤£¿à­C!!!!¨S¦³¨ú®ø´N¦b«Ý©R Æg :)

TOP

¦^´_ 5# ­ã´£³¡ªL


    ½Ð°Ý¤@¤Uª©¤j¡A¦pªG§Ú­n¥[¤@¦æ¸ê®Æ¦Û°Ê¤T­Ó¤ë¦Û°Ê§R°£¥i¥H¶Ü¡H
¸ê®Æªí¤W¦A¿é¤J®Éªº®É¶¡©¹«á§PÂ_¤T­Ó¤ë

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD