Tạo nhiều button trên Form có điều kiện

[NgoctrinhUSA]

Em có đoạn code tạo nhiều button theo điều kiện mỗi ô từ A1 đến A10 khác 0 nhưng khi chạy các button lại chồng lên nhau nhờ các anh chị sửa giúp ạ

 

[Hai Lúa Miền Tây]

Em có đoạn code tạo nhiều button theo điều kiện mỗi ô từ A1 đến A10 khác 0 nhưng khi chạy các button lại chồng lên nhau nhờ các anh chị sửa giúp ạ

Lấy vị trí ban đầu + chiều cao của nút = vị trí nút tiếp theo

Đưa code vào sự kiện mở form trong form nhé bạn.

Private Sub UserForm_Initialize()
    Dim intTop As Integer
    'TAO BUTTON NEU CAC GIA TRI TRONG A1:A10 KHAC 0
    Dim rng As Range
    Set rng = ActiveSheet.Range("A1:A10")
    Dim cel As Range
    For Each cel In rng.Cells
        If cel.Value <> 0 Then
            'Add Dynamic CommandButton and assign it to object 'CmdBtn'
            Set CmdBtn = UserForm1.Controls.Add("Forms.CommandButton.1")
            
            With CmdBtn
                'Assign CommandButton Name
                intTop = .Height + intTop
                .Caption = cel.Value '"Add Button"
                'CommandButton Position
                .Left = 12
                .top = intTop
                .Width = 84
            End With
        End If
    Next
End Sub

 

[NgoctrinhUSA]

Lấy vị trí ban đầu + chiều cao của nút = vị trí nút tiếp theo

Đưa code vào sự kiện mở form trong form nhé bạn.

Private Sub UserForm_Initialize()
    Dim intTop As Integer
    'TAO BUTTON NEU CAC GIA TRI TRONG A1:A10 KHAC 0
    Dim rng As Range
    Set rng = ActiveSheet.Range("A1:A10")
    Dim cel As Range
    For Each cel In rng.Cells
        If cel.Value <> 0 Then
            'Add Dynamic CommandButton and assign it to object 'CmdBtn'
            Set CmdBtn = UserForm1.Controls.Add("Forms.CommandButton.1")
           
            With CmdBtn
                'Assign CommandButton Name
                intTop = .Height + intTop
                .Caption = cel.Value '"Add Button"
                'CommandButton Position
                .Left = 12
                .top = intTop
                .Width = 84
            End With
        End If
    Next
End Sub

dạ em cám ơn anh nhiều ạ

 

[NgoctrinhUSA]

Lấy vị trí ban đầu + chiều cao của nút = vị trí nút tiếp theo

Đưa code vào sự kiện mở form trong form nhé bạn.

Private Sub UserForm_Initialize()
    Dim intTop As Integer
    'TAO BUTTON NEU CAC GIA TRI TRONG A1:A10 KHAC 0
    Dim rng As Range
    Set rng = ActiveSheet.Range("A1:A10")
    Dim cel As Range
    For Each cel In rng.Cells
        If cel.Value <> 0 Then
            'Add Dynamic CommandButton and assign it to object 'CmdBtn'
            Set CmdBtn = UserForm1.Controls.Add("Forms.CommandButton.1")
           
            With CmdBtn
                'Assign CommandButton Name
                intTop = .Height + intTop
                .Caption = cel.Value '"Add Button"
                'CommandButton Position
                .Left = 12
                .top = intTop
                .Width = 84
            End With
        End If
    Next
End Sub

dạ cho em hỏi thêm cách add macro cho từng buton không anh

 

[giaiphap]

dạ cho em hỏi thêm cách add macro cho từng buton không anh

Bạn xem thử cách làm của anh @Nguyễn Duy Tuân có đúng yêu cầu của bạn chưa.

 

[NgoctrinhUSA]

Bạn xem thử cách làm của anh @Nguyễn Duy Tuân có đúng yêu cầu của bạn chưa.

em cám ơn a và tác giả Nguyễn Duy Tuân