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

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

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

¦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

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD