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

Excel Vba inputbox ¨Ì§Ç±a¤JBÄæÀx¦s®æ, ·Ð½Ð¤j®v«üÂI°g¬z!?

Excel Vba inputbox ¨Ì§Ç±a¤JBÄæÀx¦s®æ, ·Ð½Ð¤j®v«üÂI°g¬z!?

¦pªþ¹Ï, §Ú¯à°÷±N¿é¤Jªº­È(¦r¦ê)¨Ì§Ç±a¤JBÄæ¦ì¤¤¶Ü?¨ÒB9>B10>B11

Private Sub sheet1_Click()

imputbox("½Ð¿é¤JProject name¡G")

Sub end

¿Ã¹õºI¹Ï 2015-09-17 22.35.01.png
2015-9-18 15:29

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

ÁÂÁ­ã¤j, ±z«ü¾É§Úªº¤è¦¡¥i¥H¦¨¥\¹B¦æ!!!!:) :)

TOP

¦^´_ 7# EddieLiang


¡ã¡ã§Ú¯à°÷±N¿é¤Jªº­È(¦r¦ê)¨Ì§Ç±a¤JBÄæ¦ì¤¤¶Ü?
±N inputbox ¿é¤J­È¶ñ¤J¢ÐÄæ°Ú¡I¡I¡I

¤j¤jªº°ÝÃD¯«Às¨£­º¤£¨£§À¡A«¥ºN¤£²M¡A¥ú¬ÝÀɤºµ{¦¡½X¤]¤£À´¡I¡I¡I

ÁÙ¦³¡A¼gµ{¦¡½X®É¡A¡eÅܼơf¾¨¶q¤£­n¨Ï¥ÎVBA¤º«Øªº¡eÄÝ©Ê¡D¤èªk¡f¡A
¨Ò¦p¡GVALUE,CLEAR,COUNT¡A®e©ö³y¦¨¤£¥i¹w®Æªº¿ù»~¡I

TOP

BOSS.zip (47.61 KB) ¦^´_ 6# ­ã´£³¡ªL

«D±`·PÁ­ã¤jªº«ü¾É,
¤£¾å±o¬O¤£¾A¤pªº»â®©¤O¤Ó®t,¦pªGT¬°inputboxªºÅܼÆ
1.§Ú¨S¿ìªkµ²¦X§Ú²{¦³ªºcodeª½±µ§âAcoustic Engineer (Pearl)·j´Mªº­È§ï¦¨inputboxªºTªºÅܼƶÜ?
2.Cells(Rows.Count, "B").End(xlUp)(2) ¸Ó¦Cªºcode§Ú¦³ÂI¤£²z¸Ñ¬°¦ó¦p¦¹¼¶¼g?

TOP

¦^´_ 5# EddieLiang
  1. Sub ¿é¤JB()
  2. Dim xR As Range, T
  3. Set xR = Cells(Rows.Count, "B").End(xlUp)(2) ¡@'¢ÐÄæ³Ì«á¤@µ§ªº¤U¤@ªÅ¥Õ®æ
  4. If xR.Row < 9 Then Set xR = [B9]  ¡@'­Y¦¹®æ¦C¸¹¤p¤_¢¸¡A«h±q¢Ð¢¸¶}©l
  5. Do
  6. ¡@¡@T = InputBox("½Ð¿é¤JProject name¡G")
  7. ¡@¡@If StrPtr(T) = 0 Then Exit Sub  ¡@'«ö¡e¨ú®ø¡fµ²§ô
  8. ¡@¡@If T <> "" Then xR = T:  Set xR = xR(2, 1)  ¡@'¶ñ¤J¤å¦r¡A¦A©w¦ì¤U¤@­Ó¡e«Ý¿é¤J¡f®æ
  9. Loop
  10. End Sub
½Æ»s¥N½X
¡@
°£¤F¬Ý®Ñ¡AVBE¤º«Ø»¡©úÀɤ]¬O«D±`¦nªº¾Ç²ßºÞ¹D¡A¿é¤JÃöÁä¦r§Y¥i§ä¨ì¬ÛÃö¸ê®Æ¤Î½d¨Ò¡A

TOP

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

­ã¤j¤pªº¦³ºa©¯Åý±z¸Ñµª¯uªº·P®¦¨ì¤­Åé§ë¦a¤F, ¹ï©óVBÅÞ¿èÁÙ¤£¤Ó¼ô±xªº§Ú¤S­n¦bªÀ·|¤W¥Í¦s¥u¦n¶R¥»®Ñ¦Û¾Ç­Ýª¦¤å!!!!

B9¬°²Ä¤@®æ¶ñ¤JªºÄæ¦ì, «á­±¨Ì§Ç±a¤JB10 B11 B12ªºÄæ¦ì, ­ì¦³ªº¸ê®Æ»Ý­n«O¯d !
°²³]B9 B10 B11¦³¸ê®Æªº¸Ü´N©¹B12±a¤J!

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-9-21 11:26 ½s¿è

¦^´_ 3# EddieLiang


¢°¡Dª¾ÃÑ+¡A§ïª©§ï±o­±¥Ø¥þ«D¡A°¸º¸¬Ý¤@¤U¡I
¢±¡D¦Ü¤_¡e¶}¯Z±Â½Ò¡f¡H¥i¯à¨S¤G¤Ñ©ÛµP´N­n©î¤U¨Ó¡]¥uÀ´EXCELªº¤d¤À¤§¤@¤£¨ì¡^
¢²¡D±q¡e¢Ð¢¸¡f¶ñ¤J¡H¨C¦¸³£­«·s¦b³o®æ©¹¤U¶ñ¡A­ì¦³ªº¸ê®Æ«ç¿ì¡HÁÙ¬O¨C¦¸¢Ð¢¸¥H¤U³£¬OªÅ¥Õ¡A¥u¬Oµ¥¿é¤J¡H
¡@¡@¥i¥H¦A²M·¡´y­z»Ý¨D¶Ü¡H

¥t¡D­Y·Q¹ï¬Y¼Ó¼hµoªí¹ïÀ³·N¨£¡A½Ð«ö¸Ó¼Ó¼h¥ª¤U¤èªº¡e¦^´_¡f¡I

TOP

­ã¤j§Ú²×©óµ¥¨ì±zªº¦^ÂФF, §Ú¦bª¾ÃÑ®a¤@ª½¦b´Á«Ý±zªº¦^ÂÐ, ¤]«D·PÁ±z¯à©âªÅ¦^µª!!!!!!!!
¤pªº¦í¦b®ç¶é¤£¾å±o±z¬O§_¦³¶}¯Z±Â½Ò¤§Ãþªº½Òµ{?
¦³­ÓºÃ´b,  ¤£¾å±o¯à§_©w¸q±a¤JªºÄæ¦ì¥ÑB9¶}©l©O?

TOP

¢°¡D¡e¥¼¿é¤J¤å¦r¡f¡A«O«ù«Ý¿é¤Jª¬ºA
¢±¡D«ö¡eEnter¡f©Î¡e½T©w¡f¡A¿é¥X¦Ü¢ÐÄ橳¤U
¢²¡D«ö¡e¨ú®ø¡fµ²§ô
  1. Sub ¿é¤JB()
  2. Dim xR As Range, T
  3. Set xR = Cells(Rows.Count, 2).End(xlUp)(2)¡@'©w¦ì¡e«Ý¶ñ¤J¡fÀx¦s®æ
  4. ¡@
  5. Do: T = InputBox("½Ð¿é¤JProject name¡G")
  6. ¡@¡@If StrPtr(T) = 0 Then Exit Sub  '«ö¡e¨ú®ø¡fµ²§ô
  7. ¡@¡@If T <> "" Then xR = T:  Set xR = xR(2, 1)¡@'¶ñ¤J¤å¦r¡A¦A©w¦ì¤U¤@­Ó¡e«Ý¿é¤J¡f®æ
  8. Loop
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD