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

[µo°Ý] ½Ð±Ðvba ªºªí³æ±±¨î¶µ, ¥Î"¤U©Ô¦¡¤è¶ô" . ¦p¦ó«Ø¥ß²M³æ

[µo°Ý] ½Ð±Ðvba ªºªí³æ±±¨î¶µ, ¥Î"¤U©Ô¦¡¤è¶ô" . ¦p¦ó«Ø¥ß²M³æ

1.¦bvba ªºªí³æ±±¨î¶µ, ¥Î"¤U©Ô¦¡¤è¶ô"  . ¦p¦ó«Ø¥ß²M³æ





¢±¡C¦Ó¥t¨Ì¤U©Ô¦¡¤è¦¡ªº¿ï¾Ü¡A¡@¨Ì§Ç¿é¤J¨ì²Ä¢±­Ó¤u§@­¶¡A




¥H¤W¦A½Ð±Ð¦U¦ì¥ý¶i¡C

¤è«K±N±z©Ò­nªº°T®§ §Ë¦¨¤@­Ó½d¨ÒÀÉ(+»¡©ú)¶Ü???

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-12 20:06 ½s¿è

¦^´_ 1# melvinhsu1105
  1. Sub ¨î­q²M³æªº¤º®e()
  2.     '¤U©Ô²M³æ¬OÄÝShapeª«¥ó
  3.     With Sheets("SHEET1").Shapes(1)  '¦p¤U©Ô²M³æ¬OShapesªº²Ä¤@­ÓItem
  4.         '.ControlFormat.ListFillRange = "SHEET1!A1:A9"  '¤U©Ô²M³æ¤º®eªº½d³ò
  5.         .ControlFormat.ListFillRange = "TEST"      '¤u§@ªí½d³òªº©w¸q¦WºÙ ¤]¥i¥H
  6.     End With
  7. End Sub
½Æ»s¥N½X
¨Ì§Ç¿é¤J¨ì²Ä¢±­Ó¤u§@­¶ªºµ{¦¡½X
  1. Sub ¤U©Ô²M³æ1__Click()  ' ¤U©Ô²M³æ«ü©wªº¥¨¶°
  2.     With Sheets("SHEET1").Shapes(1).ControlFormat
  3.         Sheets("SHEET2").Cells(Rows.Count, "A").End(xlUp).Offset(1) = .List(.ListIndex)
  4.     End With
  5. End Sub
½Æ»s¥N½X

TOP

ªí³æ±±¨î¶µ?
test.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD