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

[µo°Ý] ½Ð°Ý¤@­Ó­«Âе{¦¡½X¨Ï¥Î¤Wªº°ÝÃD

[µo°Ý] ½Ð°Ý¤@­Ó­«Âе{¦¡½X¨Ï¥Î¤Wªº°ÝÃD

¤£ª¾¹D¸Ó«ç»ò¤U¼ÐÃD{:3_60:} ¡Asorry

ª¬ªp¬O³o¼Ë

§Ú³]­p¤F¤@­Óªí³æ¡A¤W­±¦³10­Ótextbox±±¨î¶µ
¥t¥~ÁÙ¦³¤@­Ólabel¡A°µ¬°²Î­p³o10­ÓtextboxªºÁ`©M
µM«á§Ú·Q·í¥ô¤@­Ótextboxªº­È§ïÅÜ®É
labelªº¤º®e³£¯à§Y®É§ó·s
¥Ø«eª¾¹D¥i¥H¥Îtextbox_change³B²z
°ÝÃD¬O
Ãø¹D10­Ó textboxªºchange¨Æ¥ó³£­n¼g¤W¬Û¦Pªºµ{¦¡½X¶Ü¡H

³Â·Ð¤F¡AÁÂÁÂ~~~

¦^´_ 11# register313

§Ñ¤F«Øtextbox¤F¡K¤£¦n·N«ä
¹B§@¥¿±`¡A«D±`·PÁ¡I¡I

¤S¾Ç¨ì¤F·s©Û:victory:

TOP

¦^´_ 10# mygod0403

     §ä¤£¨ì«ü©wªºª«¥ó
=>¦³¨S¦³¦bªí³æ¤W«Ø¥ß
10­ÓTextBox: ¦WºÙ¤À§O¬°TextBox1~ TextBox10   
1­ÓLabel1:   ¦WºÙ¬°Label1

¦³°ÝÃD½Ð¤W¶ÇexcelÀÉ®×

TOP

¦^´_ 2# register313
¤£¦n·N«ä¡K
°õ¦æ¨ì col.add myc ¦C
¥X²{¡u§ä¤£¨ì«ü©wªºª«¥ó¡v¿ù»~°T®§
ÁÂÁÂ~~~

TOP

¥»©«³Ì«á¥Ñ icestormer ©ó 2012-5-12 22:26 ½s¿è

¦^´_ 8# oobird


¦³´X­Ó°ÝÃD¦pªGoobird ©Î¦³°ª¤â·|  ³Â·Ð±Ð¤@¤U, ·PÁÂ
³o­ÓÀɬO §Ú§âoobird ¤j´£¨Ñªº,¤@Ãä²z¸Ñ»yªk¤@Ãä§ïªº,¦ý¤]²£¥Í¤F´X­Ó°ÝÃD
¥ýªþ¤WÀÉ®× ·L½Õ«ö¶s½m²ß.rar (9.48 KB)
²Ä¤@­Ó°ÝÃD:
Private Sub Workbook_Open()
   Dim ctl As Shape
   For Each ctl In Sheet1.Shapes
       If ctl.Type = 8Then  
          ctl.OnAction = "Btn_Click" <<¦¹¦æ¸ò¨Ï¥Î  call Btn_click ¦³¤°»ò§Ú¬Ý¤£¥X¨Óªº®t§O¶Ü?(°õ¦æ°_¨Ó³£¬O¤@¼Ë©O)
         End If
   Next ctl
End Sub
²Ä¤G­Ó°ÝÃD:
Sub Btn_Click()

    «ö¶s¦W = Application.Caller
    n = Val(Right(Application.Caller, 1))<<application.caller ¹ê»Ú§@¥ÎÁÙ¬O¤£À´ ¤£ª¾¯à¤£¯à±Ð¤@¤U
    ªø«× = Len(Application.Caller)
   
With Cells(4, n)
   
  If Left(«ö¶s¦W, 1) = "·L" Then
        
         If Cells(1, n).Value = 1 Then <<¦¹¦æ ­ì¥»¬O·Q±Ä¥Îª½±µ¨ú [·L½Õ«ö¶s]ªº­È ¦ý³£¥¢±Ñ(§Ú¥u·|¨Ï¥Î spinebutton.value ¦ý¤S¨Sªk¥Î.) ¥u¦n§â¥¦ªº­È³sµ²¦b ¤u§@ªí¤WªºÀx¦s®æ¤W
   
               .Value = "§A«ö¤F:" & «ö¶s¦W & "³Ì¤j­È"
               .Characters(5, ªø«×).Font.ColorIndex = 3
               .Characters(6 + ªø«×, 1).Font.ColorIndex = 3
         Else
                .Value = "§A«ö¤F:" & «ö¶s¦W & "³Ì¤p­È"
                .Characters(5, ªø«×).Font.ColorIndex = 3
                .Characters(6 + ªø«×, 1).Font.ColorIndex = 8
         End If
              
   Else
   
          .Value = "§A«ö¤F" & «ö¶s¦W
         
          .Characters(3 + ªø«×, 1).Font.ColorIndex = 3
     
   End If

TOP

¥»©«³Ì«á¥Ñ oobird ©ó 2012-5-12 16:49 ½s¿è

spinebutton »P·L½Õ«ö¶s¬O¤£¤@¼ËªºªF¦è¡C
¹Ï¤@¹Ï¤G¬Oªí³æ¤u¨ãªº·L½Õ«ö¶s¡A©Ò¥H¦³³o­Ó¿ï¶µ
¤U­±ªº¬O±±¨î¤u¨ãªºspinebutton ¡A¤£¯à²V¬°¤@½Í
¥H¤U¬O¥Îªí³æ¤u¨ã°µªº¨Ò¤l SpinButton½m²ß2.rar (9.16 KB)

TOP

¥»©«³Ì«á¥Ñ icestormer ©ó 2012-5-12 13:32 ½s¿è

¦^´_ 6# oobird

SpinButton½m²ß.rar (12.01 KB)
¹ï¤£°_ ²{¦bªþ¤WÀÉ®×
Àɮפ¤ ¦³5­Óspinebutton
§@¥Î:¥Ñ1¨ì5 ¤À§O ¹ïA5¨ìE5 ³£¬O¬Û¦P§@¥Î¥u¬OÄæ§O¤£¦P,¨ä¥¦µ{¦¡½X§¹¥þ¤@¼Ë

¥t¥~ ¦³¤@­Ó©_©Çªº°ÝÃD. ¦p¤U¹Ï(4­Ó¹Ï)
²Ä¤@¤Î²Ä¤G±i¹Ï ³£¦³«ü©w¥¨¶° ¤Î±±¨î


===============================================================
¦ý²Ä¤T¤Î²Ä¥|±i¹ÏÓý¨S¦³.. ¤£ºÞ«ç§Ë³£§ä¤£¨ì
²Ä¤T¤Î²Ä¥|±i´N¬O¦bÌrÀɤWªºspinebutton  ,½Ð°Ý­n«ç§â«ü©w¥¨¶°¤Î±±¨î§Ë¥X¨Ó?(§Ú¬O¥Îexcel2003)


================================================================
¥Ñ©ó¬Ý¤£À´ ¤U¤è³oºØ»yªk,¦pªG·Q­n§ËÀ´,½Ð°Ý¬O­n¥h¨º¸Ì¾Ç²ß©Î¬O¦³¤°»ò¦nªº¾Ç²ß®Ñ¥i¥H¶R©O?µo²{®Ñ©±¤¤¦³ÃöVBAªº®Ñ«Ü¤Ö(¥Ø«e¶Rªº4¥» ¤]³£¨S¦³¤¶²Ð¨ì³o³¡¥÷)
1:excel vba ¥\¯à¯Á¤Þ¦¡°Ñ¦Ò¤â¥U
2:excel ¶W¹Ï¸Ñ VBA °ò¦Á¿®y
3:  .............................. ¹Ð¥ÎÁ¿®y
4:¿ì¤½«Ç´£ª@®Ä²v¥²³ÆEXCEL VBA §Þªk256©Û
---------------------------------------------------------------------------------------------------------------------------------------------------
Public WithEvents txb As MSForms.TextBox
Dim txbs(11 To 49) As txb
Dim col As New Collection

TOP

¤£¦n·N«ä¡A¨S¦³¤å¥ó¸Ó«ç»òÀ°§A§ï¡H

TOP

¤j¦P¤p²§¡A¦ý¤£¯à§¹¥þ®M¥Î¡C
oobird µoªí©ó 2012-5-12 10:15



   ¨º­n«ç§ï©O? ¯à¤£¯à±Ð¤@¤U §Ú¤]¦³¬Û¦Pªº°ÝÃD ¥u¬O¦b¤u§@ªí¤W¦Ó¤w(®t¦b§Úªº¬O¥ÎSpinButton)   ÁÂÁ§A¤F

TOP

¤j¦P¤p²§¡A¦ý¤£¯à§¹¥þ®M¥Î¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD