- 帖子
- 80
- 主題
- 27
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-3-6
- 最後登錄
- 2012-8-23
|
3#
發表於 2012-4-24 14:14
| 只看該作者
回復 2# GBKEE
程式碼 "Forms.Checkbox.1"已是大寫但還是無法清除原先的控制項，請大大幫我看看！
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 & "功能性需求"
Case "2"
MyStr = n & "感官性需求"
Case "3"
MyStr = n & "隱藏性需求"
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)
|
發表於 2012-4-20 13:28
| 
