- ©«¤l
- 127
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-1
- ³Ì«áµn¿ý
- 2017-5-20
|
¥»©«³Ì«á¥Ñ 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 |
|