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

combobox ¦p¦ó¼W¥[´M§ä¤U¤@µ§ªº¥\¯à

combobox ¦p¦ó¼W¥[´M§ä¤U¤@µ§ªº¥\¯à

¤p©fªì¾Çvba¡A¤Wºô·j´M¤F¤@¨Ç°ª¤âªºµ{¦¡¡A¼g¤F¤@­Ó¬d¸ßªºcombobox
¦ý§Ú·Q¼W¥[¤@¨ÇÃþ¦üctrl+Fªº¥\¯à
(1)        ¤ñ¦p¬d¸ß©m¡¨ªL¡¨ªº¡A°²³]¦³5­Ó¡A¥i¤£¥i¥H«öEnter¡Acust.Text¤Înum.Text·|¦Û°ÊÅã¥Ü¤U¤@µ§ªº¸ê®Æ
(2)        °²³]¿é¤JªºÃöÁä¦r§ä¤£¨ì²Å¦Xªº¡A¦bnum.textÅã¥Ü¡§¬dµL¦¹¤H¡¨¡A©Î¬O°µ¤@­Ómsqbos
(3)        ¦]¬d´M¨ì½s¸¹¬O­n¶ñ¤J¸ê®Æªí¤¤ªº¡A¥Ø«eªº§@ªk¬O¬d¨ì½s¸¹¡A­n¥ýµ²§ôcombobox¡A´å¼Ð¤~¯à¦^¨ì¸ê®Æªí¤¤key¤J½s¸¹¤Î¸ê®Æ¡A¥i§_¤£­nµ²§ôcombobox¡A´å¼Ð´N¥i¥Hª½±µ¦^¨ì¸ê®Æªí¤¤key½s¸¹

Private Sub commandbutton1_click()
  numsearch.Show
  
End Sub

Private Sub cust_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Sheets("½s¸¹").Select
    Cells.Find(what:=cust.Text).Activate
  cust.Text = ActiveCell.Offset(0, 0).Range("a1").Text
  num.Text = ActiveCell.Offset(0, 0).Range("b1").Text
  Sheets("¸ê®Æªí").Select
End Sub

Private Sub exit1_Click()
  End
End Sub

Private Sub reentry_Click()
  cust.Text = ""
  num.Text = ""
End Sub

¥i§_¤W¶Ç¤@¤UEXCELÀÉ? ³o¼Ë·|¤ñ¸û®e©ö²z¸Ñ²{¦³³]©w...

¥t¤@¤è­±,¦pªG·Qªí³æÅã¥Ü®É¦P®É¥i¥H¾Þ§@­¶­±,
¥i¥H³]©w¤@¤U³o­Óshowmodalªºªí³æÄݩʬ°false
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÁÂÁÂkimbal¤j¤jªº«ü¾É
§Ú¤w§ï¦n³]©w¤Fshowmodalªºªí³æÄݩʬ°false,¥i¥H¥Î­C~~¦n¶}¤ß®@!!
¥»¥H¬°ÁÙ­n¥[¦h½ÆÂøªºµ{¦¡¡A­ì¨Ó¥u¬O¤@­Ó¤p¤pÄݩʪº§ó§ï´N¦n¤F¡Ö¡Ä¡Õ
²{±NÀɮתþ¤W¡A¥ýÁÂÁ¤F
¨ä¹êÁÙ¦³¥t¤@­Ó°ÝÃD¡A´N¬O§Ú¤£ª¾¦p¦óÅý¥¦¥h¬d´M¢ÐÄ檺½s¸¹¡A©Ò¥H¥u¦n¦h¥[¢ÒÄæ½s¸¹¡A­n«ç»ò§ï©O¡H
¥Ó½Ðªí.rar (16.61 KB)

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD