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

ÅÜ°Ê°}¦C©T©w°}¦C¤£¬O¥Hdim©Mredim°Ï¥÷?

²³æªº»¡
°ÊºA°}¦C¬O¤£½T©w¤¸¯À­Ó¼Æ
ÀRºA°}¦C¬O¤¸¯À­Ó¼Æ©T©w
©Ò¥H¤£½×°}¦C³QDim©ÎRedim¦¨¬°¤@­Ó½T©w¤j¤pªº°}¦C´NºÙ¬°ÀRºA°}¦C
¦p:Dim ar(10)©ÎRedim ar(x)
¥¼«ü©w¤j¤pDim ar()
ªí¥ÜÁÙ¨Sµ¹¦¹°}¦C³W½d¤j¤p
©Ò¥H­n¦ARedim  ar(1)
­nª`·Nªº¬OPreserveÃöÁä¦r¡A¬O¬°¤F­n«O¯d­ì°}¦C¥H¦³¤¸¯À
©Ò¥ÎªºÃöÁä¦r¡A¦]¬°·í°}¦C³Q­«·s«Å§i¤j¤p®É
­Y¨S¥[PreserveÃöÁä¦r¡A¨º»ò­ì°}¦C±N³Q²MªÅ
­nª¾¹D§ó¸Ô²Óªº°}¦C¥Îªk½Ð¬ÝVBA»¡©ú
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# rick4615

¨ä¹ê§A¦b¤u§@ªí¤º³o¨Ç¸ê®Æ´N¤w¸g¥iµø¬°¤@­Ó¤Gºû°}¦C
§A­nŪ¨ú³o¨Ç¸ê®Æªº¥Î³B¬O¬Æ»ò?
°}¦CªºÆ[©À¤¤¡A­nª¾¹D©Ò¿×°ÊºA°}¦C¡A¬Oµ{§Ç°õ¦æ¤¤°}¦Cªº¤j¤p·|§ïÅÜ
¦ÓÀRºA°}¦C¬O°}¦C¤j¤p¬O©T©wªº
©Ò¥Hµ{§Ç°õ¦æ¤¤§A©Ò­n§ì¨úªºªí®æ¸ê®Æ¡A¥L¬O¤@­Ó©T©w¤j¤p°}¦C
§A¦pªG­n¨ú¬YÄæ¸ê®Æ§@¬°°}¦C¡A¤]¥u­n±N¸ÓÄæ¸ê®Æª½±µÅª¨ú
½Ð±N§Aªº¥Øªº»¡©ú²M·¡¡A¨Ã¤W¶ÇÀÉ®×»¡©ú
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# rick4615

¹ê¦b¤£²M·¡§Aªº»Ý¨D¬°¦ó?
¬O¨Ì¾Ú¤Ä¿ïÄæ¦ì·s¼W¨ì²M³æ¤º®e¶Ü?
  1. Sub Add_Check() '·s¼WCheckBox
  2. With Sheet1
  3.    For Each a In .Range(.[A3], .[A3].End(xlToRight))
  4.        With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=a.Left, Top:=.[A10].Top, Width:=a.Width, Height:=20)
  5.        .Object.Caption = a
  6.        End With
  7.    Next
  8. End With
  9. End Sub
  10. Sub Add_ComboList() '¨Ì¿ï¨úÄæ¦ì¡A·s¼W¤U©Ô²M³æ¤º®e
  11. Dim Ct As OLEObject, Ay()
  12. With Sheet1
  13. For Each Ct In .OLEObjects
  14.    If Ct.progID = "Forms.CheckBox.1" Then 'ª«¥ó¬°CheckBox
  15.       If Ct.Object.Value = True Then 'CheckBox³Q¤Ä¿ï
  16.         Set a = .Rows(3).Find(Ct.Object.Caption, lookat:=xlWhole) '§ä¨ìÄæ¦ì
  17.          ar = Application.Transpose(.Range(a, a.End(xlDown))) 'Äæ¦ì¦V¤UŪ¤J°}¦C
  18.          ReDim Preserve Ay(s) 'ÂX¥R°}¦C¤j¤p
  19.          Ay(s) = ar
  20.          s = s + 1
  21.        End If
  22.     End If
  23. Next
  24. With .ComboBox1
  25. .Clear '²M°£²M³æ
  26. .List = Application.Transpose(Ay) '±N°}¦C¼g¤J²M³æ
  27. .ColumnCount = s '²M³æÅã¥ÜÄæ¦ì¼Æ¶q
  28. .Width = 80 * s 'ª«¥ó¼e«×
  29. End With
  30. End With
  31. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD