Thay đổi kich thước của comment

[chucuoi92]

mình có đoạn code sau:

 If Sheet4.Cells(j, k + 1) < 0 And Sheet4.Cells(j, k - 1) > 0 Then
        Sheet4.Cells(j, k + 1).AddComment
        Sheet4.Cells(j, k + 1).Comment.Text Text:=" Over buget:" & Format(Sheet4.Cells(j, k + 1) / Sheet4.Cells(j, k - 1), "0.00%")
       End If

Muốn sửa lại KT của comment nhưng không được!
Ai có thể giúp mình cho thêm vào code trên để coment tự động điểu chính KT không?!!!

 

[ndu96081631]

mình có đoạn code sau:

 If Sheet4.Cells(j, k + 1) < 0 And Sheet4.Cells(j, k - 1) > 0 Then
        Sheet4.Cells(j, k + 1).AddComment
        Sheet4.Cells(j, k + 1).Comment.Text Text:=" Over buget:" & Format(Sheet4.Cells(j, k + 1) / Sheet4.Cells(j, k - 1), "0.00%")
       End If

muốn sửa lại KT của comment nhưng không được!
Ai có thể giúp mình cho thêm vào code trên để coment tự động điểu chính KT không?

Thay đổi ở chổ màu đỏ dưới đây:

With Sheet4.Cells(j, k + 1)
  If .Value < 0 And .Offset(, -1).Value > 0 Then
    .ClearComments
    .AddComment
    .Comment.Text " Over buget:" & Format(.Value / .Offset(, -1).Value, "0.00%")
    With .Comment.Shape
      [COLOR=#ff0000].Width = 200[/COLOR]
      [COLOR=#ff0000].Height = 200[/COLOR]
    End With
  End If
End With

Muốn bao nhiêu, tự điền vào

 

[chucuoi92]

Thay đổi ở chổ màu đỏ dưới đây:

With Sheet4.Cells(j, k + 1)
  If .Value < 0 And .Offset(, -1).Value > 0 Then
    .ClearComments
    .AddComment
    .Comment.Text " Over buget:" & Format(.Value / .Offset(, -1).Value, "0.00%")
    With .Comment.Shape
      [COLOR=#ff0000].Width = 200[/COLOR]
      [COLOR=#ff0000].Height = 200[/COLOR]
    End With
  End If
End With

Muốn bao nhiêu, tự điền vào

Anh NDU ơi!
cái IF.value... này làm sao mà code đưa cả comment vào khi: ".Offset(, -1).Value < 0 và ="".

 

[chucuoi92]

OK!
được rồi anh ạ!
Em chỉ lấy đoạn:
With .Comment.Shape .Width = 200 .Height = 200
End With
Cám ơn anh!

 

[ndu96081631]

Anh NDU ơi!
cái IF.value... này làm sao mà code đưa cả comment vào khi ".Offset(, -1).Value < 0 và ="".

Tôi nhầm
Chổ này có Offset(, -1) thì sửa thành Offset(, -2) nhé