- ©«¤l
- 80
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 108
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-3-6
- ³Ì«áµn¿ý
- 2012-8-23
|
¦^´_ 2# GBKEE
µ{¦¡½X "Forms.Checkbox.1"¤w¬O¤j¼g¦ýÁÙ¬OµLªk²M°£ì¥ýªº±±¨î¶µ¡A½Ð¤j¤jÀ°§Ú¬Ý¬Ý¡I
Private Sub CommandButton1_Click()
Dim x As Integer
Dim xxx As String
Dim yyy As String
Dim OB As OLEObject
x = UserForm1.ComboBox1.Value
Range("G1").Value = x
For i = 10 To 200
xxx = i
Range("A" & xxx).Value = ("")
Range("B" & xxx).Value = ("")
Range("C" & xxx).Value = ("")
Next
ActiveSheet.Range("A10:F200").Borders.LineStyle = XILinestyleNone
For j = 1 To x
yyy = 9 + j
Range("C" & yyy).Value = j
Next
ActiveSheet.Range("A10:F" & yyy).Borders.LineStyle = xlContinuous
'ActiveSheet.Range("A10:F" & yyy).Borders(xlEdgeBottom).Weight = xlThick
'ActiveSheet.Range("A10:F" & yyy).Borders(xlEdgeRight).Weight = xlThick
For Each OB In ActiveSheet.OLEObjects
If OB.progID = "Forms.Checkbox.1" Then OB.Delete
Next
n = 1
For Each a In Range("C:C").SpecialCells(xlCellTypeConstants)
For k = 1 To 3
Select Case k
Case "1"
MyStr = n & "¥\¯à©Ê»Ý¨D"
Case "2"
MyStr = n & "·P©x©Ê»Ý¨D"
Case "3"
MyStr = n & "ÁôÂéʻݨD"
End Select
With a.Offset(, k)
Set OB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Checkbox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
OB.Object.Caption = MyStr
OB.Object.GroupName = n
End With
Next
n = n + 1
Next
End Sub |
-
-
¬¡¶Ã¯1.rar
(137.47 KB)
|