- ©«¤l
- 7
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- Win XP
- ³nÅ骩¥»
- SP3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-8-29
- ³Ì«áµn¿ý
- 2012-10-31
|
[µo°Ý] ¦p¦ó¥ß§Y§ó·scombobox¸ê®Æ
¦U¦ì¤j¤j¡A§Ú·Q½Ð°Ý¤@¤U¡An«ç»ò¼Ë¥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===========- Private Sub CommandButton2_Click()
- board_add = InputBox("¿é¤Jn·s¼Wªºª©¸¹")
-
- ThisWorkbook.Worksheets("sheet2").Range("b2").End(xlDown).Offset(1, 0).Select
- ActiveCell.Value = board_add
- End Sub
½Æ»s¥N½X ============³o¬Ocomboboxªº¤º®e========- Private Sub UserForm_Initialize()
- With Application.Names.Add _
- ("tmp", ThisWorkbook.Worksheets("sheet2").Range("b2", Range("b2").End(xlDown)))
- board_sel = .RefersTo
- .Delete
- End With
- With board
- .RowSource = board_sel
- .SetFocus
- End With
½Æ»s¥N½X |
|