Tự động chạy macro khi thay đổi giá trị Cell

[salam]

Tự động chạy macro khi thay đổi giá trị Cell làm thế nào nhờ các bác chỉ giúp em với. Em có 1 macro "Doi" em muốn tại ô VD: ô C1 ở Sheet1 thay đổi giá trị thì Macro "Doi" tự chạy. Cám ớn các Bác Trước.

 

[quanluu]

Tks bạn đã giúp. Sao mình làm với lệnh for nó không chạy. Mình viết sửa lại như thế không bt có đúng không
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 0 To 10
If Target.Address = "$H$" & i Then
Macroname = "NhapMG_B" & i
Call Macroname
End If
End Sub
Bạn xem file có gì giúp mình với nha.
Bạn cho mình xin cái mail với

Mình đã test lại, và thấy ko dùng đc cách 2 bạn ah. Bạn dùng theo cách 1 đi bạn.
If Target.Address = "$H$3" Then Call NhapMG_B3
If Target.Address = "$H$4" Then Call NhapMG_B4
If Target.Address = "$H$5" Then Call NhapMG_B5

mà nếu các macro có thể gọp vào thì bạn nên gộp, chứ mỗi cell gọi 1 sub là hơi kì. Bạn nên lập topic nêu nhu cầu của bạn để mng giúp 1 cách dễ dàng nhất

 

[Thoa Phùng]

Dear Các anh chị!
Em cũng đang gặp 1 vấn đề gần giống như thế này.
Nhờ các anh chị giúp đỡ ạ.
em có 1 sản phẩm có 10 chi tiết phải đo, mỗi chi tiết em phải đo lại 2 lần, bây giờ em muốn code : Nếu đo chưa đủ 3 lần thì không được phép đổi kích thước khác thì phải code thế nào ạ.

 

[haungoc]

trên là nêu các trường hợp ta trực tiếp thây đổi giá trị trong ô, nhưng nếu giá trị trong ô thay đổi theo đường link dẫn thì ta làm thế nào mọi người nhỉ

 

[HieuCD]

trên là nêu các trường hợp ta trực tiếp thây đổi giá trị trong ô, nhưng nếu giá trị trong ô thay đổi theo đường link dẫn thì ta làm thế nào mọi người nhỉ

Làm tương tự nha

 

[haungoc]

ĐÂY BẠN XEM GIÚP NẾU NHẬP GIÁ TRỊ TRỰC TIẾP VÀO C1 THÌ MARCO CHẠY NHƯNG GIẢ SỬ Ô C1=A1 THÌ KHI THAY ĐỔI A1 SẼ LÀM GIÁ TRỊ C1 THAY ĐỔI THEO NHƯNG MARCO KO CHẠY

 

[phulien1902]

ĐÂY BẠN XEM GIÚP NẾU NHẬP GIÁ TRỊ TRỰC TIẾP VÀO C1 THÌ MARCO CHẠY NHƯNG GIẢ SỬ Ô C1=A1 THÌ KHI THAY ĐỔI A1 SẼ LÀM GIÁ TRỊ C1 THAY ĐỔI THEO NHƯNG MARCO KO CHẠY

Mấu chốt nằm ở chỗ này:

 If Target.Address = "$C$1" Then

 

[haungoc]

Mấu chốt nằm ở chỗ này:

 If Target.Address = "$C$1" Then

VẬY GIỜ VIẾT CODE THẾ NÀO ĐỂ GIÁ TRỊ C1 THAY ĐỔI THEO LINK CHỨ KO CẦN PHẢI KÍCH CHUỘT TRỰC TIẾP Ô A1 VÀO Ô C1

 

[HieuCD]

ĐÂY BẠN XEM GIÚP NẾU NHẬP GIÁ TRỊ TRỰC TIẾP VÀO C1 THÌ MARCO CHẠY NHƯNG GIẢ SỬ Ô C1=A1 THÌ KHI THAY ĐỔI A1 SẼ LÀM GIÁ TRỊ C1 THAY ĐỔI THEO NHƯNG MARCO KO CHẠY

Có 3 vấn đề cần lưu ý
- Đọc lại nội qui https://www.giaiphapexcel.com/diendan/help/terms/
- Nên nhấn trả lời vào bài viết
- Đưa công thức thực để khỏi mất thời gian nhiều bên

 

[haungoc]

Mấu chốt nằm ở chỗ này:

 If Target.Address = "$C$1" Then

tại mình thấy như trên chỉ khi kích chuột vào ô C1 và điền giá trị thay đổi trong C1 thì mới chạy, vậy giờ làm chỉ cần giá trị C1 thay đổi ko cần kích vào ô C1 mà marco vẫn chạy

 

[AnhThu-1976]

tại mình thấy như trên chỉ khi kích chuột vào ô C1 và điền giá trị thay đổi trong C1 thì mới chạy, vậy giờ làm chỉ cần giá trị C1 thay đổi ko cần kích vào ô C1 mà marco vẫn chạy

Kiểu này thử coi

If Target.Address <> "$C$1" Then

 

[haungoc]

Kiểu này thử coi

If Target.Address <> "$C$1" Then

cám ơn bạn mình làm đã được

 

[nguyenkhoiffc]

Cụ thể là cái Hello này:

Sub CHAO()
   MsgBox "Hello Salam"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$C$1" Then
       Call CHAO
   End If
End Sub

Làm đại hỏng biết có đúng yêu cầu ko? Hi.. hi..
ANH TUẤN

Bạn xem giúp code sau sai chỗ nào ah

Sub app_vlookup()
Dim search()
search = Application.Vlookup(Sheets("Sheet1").Range("F4"), Sheets("LIST CARRIERS-VENDORS").Range("A2:H165"), 6, False)

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sheet1").Select
If Target.Address = "$F$4" Then
Call app_vlookup
End If
End Sub

Thanks bạn nhiều

 

[Maika8008]

Bạn xem giúp code sau sai chỗ nào ah

Sub app_vlookup()
Dim search()
search = Application.Vlookup(Sheets("Sheet1").Range("F4"), Sheets("LIST CARRIERS-VENDORS").Range("A2:H165"), 6, False)

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sheet1").Select
If Target.Address = "$F$4" Then
Call app_vlookup
End If
End Sub

Thanks bạn nhiều

Bạn mở chủ đề mới đi. Bài gần nhất cách đây gần 2 năm rồi. Nhiều thành viên của chủ đề này lâu rồi không vào diễn đàn.