Nhờ cập nhật giá trị tự động vào textbox ?

[huhumalu]

Gửi anh em diễn đàn.
Mình có 1 file như đính kèm ở dưới, mình muốn mỗi khi mình thay đổi giá trị ở 2 ô màu xanh thì giá trị kích thước trong hình sẽ thay đổi theo.
Nhờ mọi người giúp đỡ ! Cảm ơn !

 

[hungpecc1]

Gửi anh em diễn đàn.
Mình có 1 file như đính kèm ở dưới, mình muốn mỗi khi mình thay đổi giá trị ở 2 ô màu xanh thì giá trị kích thước trong hình sẽ thay đổi theo.
Nhờ mọi người giúp đỡ ! Cảm ơn !

Record Macro là có code ngay mà !:

Sub Macro1(Value, Name$)
Dim shapeRange As shapeRange
    Set shapeRange = ActiveSheet.Shapes.Range(Name)
    shapeRange.TextFrame.Characters.Text = Value
End Sub

code trong sheet!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$10" Then
        Module1.Macro1 Target, "h"
    ElseIf Target.Address = "$C$11" Then
        Module1.Macro1 Target, "b"
    End If
End Sub

 

[huhumalu]

Cảm ơn anh hungpecc1 đã giúp đỡ. Anh gửi lại giúp em file đính kèm nhé.

 

[hungpecc1]

Cảm ơn anh hungpecc1 đã giúp đỡ. Anh gửi lại giúp em file đính kèm nhé.

không cần file đính kèm , bạn copy code vào là được mà !

 

[huhumalu]

Ồ, cảm ơn anh hungpecc1 nhiều nhé.