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

[µo°Ý] §PÂ_checkbox¬°true¤§«á±N¸ê®Æ¿ï¨ú

¦^´_ 10# rick4615
  1. Sub ex()
  2. Dim Sht As Worksheet
  3. Set Sht = ¤u§@ªí1
  4.    With Sht.OLEObjects("ListBox1").Object '²M³æ¤è¶ô
  5.       For i = 0 To .ListCount - 1 '²M³æ
  6.       MyList = .List(i)
  7.          With Sht.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
  8.               DisplayAsIcon:=False, Link:=False, Left:=0 + 93.5 * i, Top:=126, Width:=90, Height:=22.5)
  9.               .Object.Caption = MyList '¥H²M³æ¬°CheckBox¼ÐÃD
  10.          End With
  11.       Next
  12.     End With
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# Hsieh


    ¤F¸Ñ! ·PÁ±zªº¸Ñµª:) :)

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD