With Sheet6.OLEObjects.Add
(ClassType:="Forms.Checkbox.1", Left:=Cells(i, 1).Left, Top:=Cells(i, 1).Top, Height:=12, Width:=12)
.Name = ckname
End With
(ClassType:="Forms.Checkbox.1", Left:=Cells(i, 1).Left, Top:=Cells(i, 1).Top, Height:=12, Width:=12)
.Name = ckname
End With
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货