[µo°Ý] ¦p¦ó¥ß§Y§ó·scombobox¸ê®Æ

xgit0072

¦U¦ì¤j¤j¡A§Ú·Q½Ð°Ý¤@¤U¡A­n«ç»ò¼Ë¥i¥H§Y®É§ó·scombobox¤ºªº¸ê®Æ¡A¤£¥Î­«·s°õ¦æmacro¤~¬Ýªº¨ì·s¼WªºÄæ¦ì????

§Ú§Æ±æ§ÚÂI¤F·s¼W«ö¶s«á¡A¿é¤J§Ú­n·s¼Wªº¿ï¶µ¡AµM«áª½±µ«ö¤U©Ô¦¡¿ï³æ´N¥i¥H¬Ýªº¨ì§Ú­è·s¼Wªº¤º®e¡A¤£»Ý­n§âµøµ¡Ãö±¼­«·s¦A°õ¦æ¡K

=====³o­Ó¬OÂI·s¼W«ö¶s===========

1. Private Sub CommandButton2_Click()
   
2.     board_add = InputBox("¿é¤J­n·s¼Wªºª©¸¹")
   
3.                         
   
4.     ThisWorkbook.Worksheets("sheet2").Range("b2").End(xlDown).Offset(1, 0).Select
   
5.     ActiveCell.Value = board_add
   
6. End Sub

½Æ»s¥N½X

============³o¬Ocomboboxªº¤º®e========

1. Private Sub UserForm_Initialize()
   
2. With Application.Names.Add _
   
3.          ("tmp", ThisWorkbook.Worksheets("sheet2").Range("b2", Range("b2").End(xlDown)))
   
4.          board_sel = .RefersTo
   
5.          .Delete
   
6.     End With
   
7. With board
   
8.         .RowSource = board_sel
   
9.         .SetFocus
   
10.     End With

½Æ»s¥N½X