Tạo Control tự động

[Ngoc Tam]

Cho mình xin đoạn code viết hàm tự động phát sinh một control.
Ví dụ:
Mình gõ số 4 vào ô A1 thì sẽ xuất hiện 4 button trên sheet đó tại vị trí B1-> B4.
Thanks.

 

[PMXD]

Cho mình xin đoạn code viết hàm tự động phát sinh một control.
Ví dụ:
Mình gõ số 4 vào ô A1 thì sẽ xuất hiện 4 button trên sheet đó tại vị trí B1-> B4.
Thanks.

Bạn thử chạy cái module này nhé



Sub AddBuuton()

Dim i As Long
'======XOA CAC BUTTON DANG CO
For i = 1 To ActiveSheet.Buttons.Count
ActiveSheet.Buttons(1).Delete
Next i

'======TAO CAC BUTTON tuy thuoc con so dua vao trong o A1
For i = 1 To CLng(Val(ActiveSheet.Cells(1, 1)))
ActiveSheet.Buttons.Add(47.25, 0.75, 48.75, 11.25).Select
Selection.ShapeRange.Left = ActiveSheet.Cells(i, 2).Left
Selection.ShapeRange.Top = ActiveSheet.Cells(i, 2).Top
Selection.ShapeRange.Width = ActiveSheet.Cells(i, 2).Width
Selection.ShapeRange.Height = ActiveSheet.Cells(i, 2).Height
Next i

End Sub


Chúc bạn thành công

 

[ndu96081631]

Bạn thử chạy cái module này nhé



Sub AddBuuton()

Dim i As Long
'======XOA CAC BUTTON DANG CO
For i = 1 To ActiveSheet.Buttons.Count
ActiveSheet.Buttons(1).Delete
Next i

'======TAO CAC BUTTON tuy thuoc con so dua vao trong o A1
For i = 1 To CLng(Val(ActiveSheet.Cells(1, 1)))
ActiveSheet.Buttons.Add(47.25, 0.75, 48.75, 11.25).Select
Selection.ShapeRange.Left = ActiveSheet.Cells(i, 2).Left
Selection.ShapeRange.Top = ActiveSheet.Cells(i, 2).Top
Selection.ShapeRange.Width = ActiveSheet.Cells(i, 2).Width
Selection.ShapeRange.Height = ActiveSheet.Cells(i, 2).Height
Next i

End Sub
Chúc bạn thành công

Mình nghĩ đoạn code đầu không cần phải For ---> Vầy là được rồi:
ActiveSheet.DrawingObjects.Delete