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

[µo°Ý] CheckBox ¤Î optionbutton ÂI¿ï¿ï¶µ«á ¥i§_³]­p±a¥Xtextbox ¿é¤J¸ê®Æ

CheckBox ¤Î optionbutton ¤¤¿ï¶µ ¥i§_³]­p¦¨ ¨Ó·½¨úexcelªí®æ¬YÄæ¦ì

½Ð±Ð¦U¦ì CheckBox ¤Î  optionbutton ¤¤¿ï¶µ ¥i§_³]­p¦¨ ¨Ó·½¨úexcelªí®æ¬YÄæ¦ì,¦pªþ¥ó»¡©ú
Àµ½Ð½Ñ¦ìÀ°¦£ ÁÂÁÂ!

test0725.rar (24.25 KB)

max

TOP

¦^´_ 1# user999
  1. Option Explicit
  2. Private Sub UserForm_Initialize()
  3.     Dim LeftPos As Integer, TopPos As Integer, NewHeight As Integer, NewWidth As Integer, Rng As Range, H As Integer, i As Integer
  4.     Dim NewOptionButton As MSForms.Control
  5.     H = 1
  6.     NewHeight = 15
  7.     With Sheet1
  8.         With .Columns(1)
  9.             Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
  10.             ComboBox1.List = Rng.Value
  11.         End With
  12.         With .Columns(2)
  13.             Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
  14.             NewWidth = (Frame2.Width - (Rng.Count * H)) / Rng.Count
  15.             TopPos = (Frame2.Height - NewHeight) / 2
  16.             For i = 1 To Rng.Count
  17.                 LeftPos = 1 * H + (i - 1) * NewWidth
  18.                 Set NewOptionButton = _
  19.                 Frame2.Controls.Add("forms.OptionButton.1")
  20.                 With NewOptionButton
  21.                     .Width = NewWidth
  22.                     .Caption = Rng.Cells(i)
  23.                     .Height = NewHeight
  24.                     .Left = LeftPos
  25.                     .Top = TopPos
  26.                     .AutoSize = True
  27.                 End With
  28.             Next
  29.         End With
  30.         With .Columns(3)
  31.             Set Rng = Sheet1.Range(.Cells(2), .Cells(2).End(xlDown))
  32.             NewWidth = (Frame3.Width - (Rng.Count * H)) / Rng.Count
  33.             TopPos = (Frame3.Height - NewHeight) / 2
  34.             For i = 1 To Rng.Count
  35.                 LeftPos = 1 * H + (i - 1) * NewWidth
  36.                 Set NewOptionButton = _
  37.                 Frame3.Controls.Add("forms.CheckBox.1")
  38.                 With NewOptionButton
  39.                     .Width = NewWidth
  40.                     .Caption = Rng.Cells(i)
  41.                     .Height = NewHeight
  42.                     .Left = LeftPos
  43.                     .Top = TopPos
  44.                     .AutoSize = True
  45.                 End With
  46.             Next
  47.         End With
  48.     End With
  49. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ¬Ý¨ì±zªº¦^µª,²ª½­nµh­ú¬y®÷,¤u§@¤Wªº²~ÀV,¦b¦¹³£¯àì±o¸Ñ¨M,³o¨à¯u¬O¦n,ÁÂÁ±z,
¤]·PÁ¤j®a,­n«ç¼Ë¹³±z­Ì¤@¥b±j,¨C¦¸¦h³Â·Ð¤j®a,¯u·P®¦!
max

TOP

¦^´_ 2# GBKEE


    ¦A½Ð±Ð¤@¤U   
           §Ñ¤F´£¨ìªþ¥ó¤¤¥t¤@°ÝÃD´N¬O,
1.©ÒÂI¿ïªº­È­n±a¦^excel¤u§@ªí¤¤,¬Ý¤Fµ{¦¡½X,§Ú¤£ª¾±q¦ó°µ°_,
2.°²³]­ìµ{¦¡¤w¦³forms.OptionButton.1....n  ¨º¦p¦óFrame2.Controls.Add("forms.OptionButton.")¦p¦ó§P©w©ñ¦b³Ì«á,
  ¦P°ÝÃDFrame3.Controls.Add("forms.CheckBox.1")\
ÁÂÁ±z­ÌªºÀ°§U
max

TOP

¦^´_ 2# GBKEE


    ¥t¤@°ÝÃD optionbutton ¤Î checkbox ¤º®e¤@¦h°_¨Ó,
¦bfram2,,fram3¤¤,©Ò¦³ªºoption¶È¤@¦æ·|Åã¥Ü(À£ÁY·|¬Ý¤£¨ì,)
¦p¦óÅý¥¦´«¦æ
¤Îfram¯à¦Û°ÊÁY©ñ©Î¬O³]option checkbox ¦U³Ì¤jª½­Ó¼Æ30,(¤£¥i¯àµL,­­­¶­±¤]µLªk§e²{)
³Â·Ð¤j®a¤F
max

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-7-26 17:44 ½s¿è

¦^´_ 5# user999
¥t¤@°ÝÃD optionbutton ¤Î checkbox ¤º®e¤@¦h°_¨Ó,¦bfram2,,fram3¤¤,©Ò¦³ªºoption¶È¤@¦æ·|Åã¥Ü(À£ÁY·|¬Ý¤£¨ì,)¦p¦óÅý¥¦´«¦æ
¦pªG¦h¨ìFrame2 ©Î Frame3 ´«¦æ«áÁÙ¬O®e¤£¤U¥h¸Ó¦p¦ó³B¸m?
©Ò¥H«Øij§A¦b Frame2 ¥ÎComboBox ±±¨î¶µ  ³æ¿ï , Frame3 ¥ÎListBox ±±¨î¶µ ¥i½Æ¿ï

TOP

¦^´_ 5# user999

¸Õ¸Õ¬Ýªþ¥ó¬O§_²Å¦X?

°ÊºA·s¼W.rar (30.18 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh


    «D±`·PÁ¤j®a,³o­Ó¯uªº¦n¥Î,¤]¬Ý¨ì§Ú¨S¾Ç¹LclassÃþ§O,¬Ý¨Ó­n¦n¦n¬ã¨s¤@¯ë,ÁÂÁ¤j®a©Ô§Ú¤@§â,³o¨àªº¨C­Ó¥DÃD³£¦³Ä_,¦]¬°¦³¤Ó¦h¼ö¤ßªº°ª¤â¦b¦¹À°¦£,ÁÂÁ±z­Ì!
max

TOP

[µo°Ý] CheckBox ¤Î optionbutton ÂI¿ï¿ï¶µ«á ¥i§_³]­p±a¥Xtextbox ¿é¤J¸ê®Æ

½Ð±Ð¦U¦ì¥ý¶i:
CheckBox ¤Î optionbutton ÂI¿ï¿ï¶µ«á ¥i§_³]­p±a¥Xtextbox ¿é¤J¸ê®Æ
¦pªþ¥ó

ÁÂÁ¤j®a

°ÊºA·s¼WB.rar (130.8 KB)

max

¦^´_ 1# user999
Ãþ¦üªº «¬ºA °Ñ¦Ò°Ñ¦Ò

TEST.rar (20.66 KB)

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD