Thay đổi đối tượng của code VBA

[DungMD]

HIện tại tôi có code này

"
Option Explicit

Private WithEvents AI As BSAdvancedInput 'Class in addtoool'

Private Sub AI_OnGetValue(ByVal Target As Object, ByVal ArrayValues As Variant)
Dim i As Long, Sh As Worksheet, TenfilePDF As String
Set Sh = Target.Parent
For i = LBound(ArrayValues, 1) To UBound(ArrayValues, 1)

Target.Value = ArrayValues(i, 0)
TenfilePDF = "D:\PDF\" & ArrayValues(i, 0) & ".PDF"
Sh.ExportAsFixedFormat xlTypePDF, TenfilePDF
Next i

End Sub

Tuy nhiên khi áp dụng thì tất cả các sheet đều bị ảnh hưởng, tôi muốn chỉ áp dụng cho 1 sheet tên là " ABC" thì cần thay đổi gì ạ. Tôi xin cảm ơn !

 

[snow25]

HIện tại tôi có code này

Tuy nhiên khi áp dụng thì tất cả các sheet đều bị ảnh hưởng, tôi muốn chỉ áp dụng cho 1 sheet tên là " ABC" thì cần thay đổi gì ạ. Tôi xin cảm ơn !

Đưa thêm cái code chạy sub lên nữa.Cái mà gọi cái Sub AI_OnGetValue

 

[truongvu317]

HIện tại tôi có code này

Tuy nhiên khi áp dụng thì tất cả các sheet đều bị ảnh hưởng, tôi muốn chỉ áp dụng cho 1 sheet tên là " ABC" thì cần thay đổi gì ạ. Tôi xin cảm ơn !

Set Sh = Target.Parent
if sh.name<>"ABC" then exit sub

 

[DungMD]

Set Sh = Target.Parent
if sh.name<>"ABC

Cảm ơn bạn rất nhiều

" then exit su