[µo°Ý] ®Ö¨ú¤è¶ô­«·s°t¸m¦ì¸m°ÝÃD

caichen3

½Ð±Ð¦U¦ì¤j¤j
»Ý¨D³¯­z¡Ð´¡¤J«ö¶s
¦p¦ó±N®Ö¨ú¤è¶ô©¹¤U²¾©O¡H¡H
¦pªG§ÚÂI¿ïB5¡A«ö¤U´¡¤J¡A¦p¦ó±N B5¥H¤U®Ö¨ú¤è¶ô©¹¤U²¾©O¡H
´¡¤Jµ{¦¡½X
Dim gyou As Integer
Dim xR As Range
Dim OB As OLEObject
Dim x As Integer
Dim k As Integer
Dim xxx As String
With ActiveSheet
If ActiveCell.Column = 2 Then
gyou = Selection.Row
Cells(gyou, "A").Resize(, 12).Insert xlDown
Cells(gyou, "A").Resize(, 12).Insert xlDown

Range("M1").Value = Range("M1").Value + 2
x = gyou
Range(Cells(x, 2), Cells(x + 1, 2)).MergeCells = True
Range(Cells(x, 4), Cells(x + 1, 6)).MergeCells = True
Set xR = .Cells(x, "C")
For k = 1 To 3
     Select Case k
        Case "1"
        MyStr = "¥\¯à©Ê»Ý¨D"
        Case "2"
        MyStr = "·P©x©Ê»Ý¨D"
        Case "3"
        MyStr = "ÁôÂûݨD"
     End Select
   
   With xR.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 = OB.TopLeftCell.Row
   End With
Next
End If
xxx = Range("M1").Value + 1
.Range("A1:L" & xxx).Borders.LineStyle = xlContinuous
.Range("A1:L" & xxx).Borders(xlEdgeRight).Weight = 4
.Range("A1:L" & xxx).Borders(xlEdgeBottom).Weight = 4
End With