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

[µo°Ý] Ãö©óMultiPageªºPage1©MPage2ªºOptionButton~¿ï¨ú®É~¬O§_¥i¥H¤£­«½Æ

[µo°Ý] Ãö©óMultiPageªºPage1©MPage2ªºOptionButton~¿ï¨ú®É~¬O§_¥i¥H¤£­«½Æ

MultiPage¤¤¦³Page1©MPage2¡A¨C­ÓPage¦U©ñ¤@­ÓOptionButton¤À§O¬OOptionButton1©MOptionButton2

·í§Ú¿ï¨úPage1ªºOptionButton1¥H«á~¦A¥h¿ï¨úPage2ªºOptionButton2~¦A¦^¨ìPage1¬ÝOptionButton1«o¨S¦³±N¿ï¨ú¨ú®ø~¬°¤°»ò©O?

¦^´_ 1# av8d
³o¨S¿ùªº.
MultiPageªºPage1©MPage2¡A¥¦ªºOptionButton¬O­Ó¦Û¸s²Õ¿W¥ßªº,¨S¦³ÃöÁp

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-10-30 15:30 ½s¿è

¦^´_ 1# av8d


    GBKEE ¤j¤j»¡ªº¨S¿ù..

¥¿±`±¡ªp¤U
­¶¼Æ                                            Caption(Name)                                                   Caption(Name)
page(1)                     OptionButton1(OptionButton1)                     OptionButton2(OptionButton2)
page(2)                      OptionButton1(OptionButton3)                     OptionButton2(OptionButton4)

¸Õ¸Õ¬Ý µ{¦¡¹B¦æ®É¡A¥t³] OptionButton 1 ©M 2 ¡A·|Åܦ¨
­¶¼Æ                                            Caption(Name)                                                   Caption(Name)
page(1)                     OptionButton1(OptionButton1)                     OptionButton2(OptionButton2)
page(2)                      OptionButton1(OptionButton1)                     OptionButton2(OptionButton2)

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-10-30 16:43 ½s¿è

¦^´_ 2# GBKEE

¦pªG
Page1¦³OptionButton1~30
Page2¦³OptionButton31~60

°²¦p§Ú¥ý¿ï¨ú¤FPage1ªºOptionButton5
µM«á¦A¿ï¨úPage2ªºªºOptionButton45
¦¹®É¦p¦óÅýPage1ªºOptionButton5®ø¥¢? ·PÁ¦U¦ì¤j¤j!

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-10-30 16:45 ½s¿è

optionbutton®Ö¿ï ª©¥»999.rar (21.57 KB)
°Ñ¦Ò¬Ý¬Ý§a
±N ftame ¬ÛÃö°Ñ¼Æ §ï¦¨ multipage  ¬ÛÃö°Ñ¼Æ´N¥i¥H¤F

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 4# av8d
ªí³æµ{¦¡½X
  1. Option Explicit
  2. Private Sub MultiPage1_Change()
  3.     Dim p As MSForms.Page, C As Object
  4.     For Each p In MultiPage1.Pages
  5.         If p.Name <> MultiPage1.SelectedItem.Name Then
  6.             For Each C In p.Controls
  7.                 If C.Name Like "OptionButton*" Then C.Value = False
  8.             Next
  9.         End If
  10.      Next
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE


    ¾Ç²ß¤F~¦n¥Î+1

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD