Tự động chạy macro khi thay đổi giá trị Cell (1 người xem)

[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.

 

[anhtuan1066]

Thì:

Private Sub WorkSheet_Change(byVal Target as Range)
    If Target.Address = "$C$1" Then
    Code here
End Sub

Có thể chỉnh sửa đôi chút nếu muốn code chạy trên sheet khác...
ANH TUẤN

 

[anhtuan1066]

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

 

[salam]

Thì:

Private Sub WorkSheet_Change(byVal Target as Range)
    If Target.Address = "$C$1" Then
    Code here
End Sub

em thêm call hidesheet vào
ANH TUẤN

hidesheet là macro em đặt trong modul1. khi em thay đổi giá trị của C1 trong sheet1 thì không thấy chạy macro hidesheet bác ah. Nó bị lỗi chỗ nào vậy Bác.

 

[anhtuan1066]

Tôi làm thấy bình thường mà Salam

Sub HideSheet()
      Sheets("Sheet1").Visible = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$C$1" Then
        Call HideSheet
     End If
End Sub

Xem file thử
ANH TUẤN

 

[salam]

Em đưa file của bác làm em sửa chút ít, Bác xem cho nhé.

 

[anhtuan1066]

Ôi... thế thì ko cần Private Sub làm gì... Xóa luôn đi
Click phải chuột trên ComboBox, chọn Assign Macro, rồi chọn macro HideSheetlà xong...
ANH TUẤN

 

[salam]

Đúng là em củ chuối thật có thế mà cũng không biết, thử các thứ rồi mà cái assign macro của form thì lại không xét đến . Cám ơn Bác nhiều!

 

[DOSNET]

Thế nhưng trong VBA phải có câu lệnh nào phát hiện sự thay đổi giá trị của C1 chứ, bài bác Salam thì ok rồi nhưng lúc khác gặp phải tình huống này thì làm thế nào???

 

[dauminhhuy]

Chào các bạn, mình có một bài toán tìm giá trị của 1 ô, mình cần thay đổi giá trị của ô này từ giá trị 1 đến 100 một cách tự động, bạn nào có code không cho mình xin? xin cảm ơn các bạn nhé!

 

[nghiaphuc]

Chào các bạn, mình có một bài toán tìm giá trị của 1 ô, mình cần thay đổi giá trị của ô này từ giá trị 1 đến 100 một cách tự động, bạn nào có code không cho mình xin? xin cảm ơn các bạn nhé!

Nó là sao nhỉ? Có phải là thế này không?
[GPECODE=vb]Sub Test()
Dim i As Long
For i = 1 To 100
Sheets("Sheet1").[A1] = i
Next
End Sub[/GPECODE]
Thật tình thì tôi vẫn chưa hiểu mục đích của bạn là gì.

 

[Dao Xuan Thanh]

Thì:

Private Sub WorkSheet_Change(byVal Target as Range)
    If Target.Address = "$C$1" Then
    Code here
End Sub

Anh cho em hỏi ? giờ em muốn khi thay đổi giá trị cell trong 1 vùng ( C1:B10 ) và thì chỉnh code lai như thế nào ?

 

[pro8x]

Thì:

Private Sub WorkSheet_Change(byVal Target as Range)
    If Target.Address = "$C$1" Then
    Code here
End Sub

Anh cho em hỏi ? giờ em muốn khi thay đổi giá trị cell trong 1 vùng ( C1:B10 ) và thì chỉnh code lai như thế nào ?

Nếu k nhầm thì thế này

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("c1:b10"), Target) Is Nothing Then
       Call HideSheet
    End If
End Sub
    Code here
End Sub

 

[Dao Xuan Thanh]

Tks Pro8x , kq đúng như mong đợi

 

[nghiaphuc]

Thì:

Private Sub WorkSheet_Change(byVal Target as Range)
    If Target.Address = "$C$1" Then
    Code here
End Sub

Anh cho em hỏi ? giờ em muốn khi thay đổi giá trị cell trong 1 vùng ( C1:B10 ) và thì chỉnh code lai như thế nào ?

Cái vùng C1:B10 là cái vùng ra sao ta?! Có lẽ phải là B1:C10 chứ nhỉ.
Bạn sửa lại code như vầy:
[GPECODE=vb]Private Sub WorkSheet_Change(byVal Target as Range)
If Not Intersect(Target,[B1:C10]) Is Nothing Then
'Code here
End If
End Sub[/GPECODE]

 

[Dao Xuan Thanh]

Cái vùng C1:B10 là cái vùng ra sao ta?! Có lẽ phải là B1:C10 chứ nhỉ.
Tks bác Nghĩa , Tình hình là em ghi nhầm C1:B10 , vấn đề là code vẫn chạy tốt ,
Đoạn code của bác Nghĩa gọn, dễ hiểu , tks Hoàng Nghĩa Phúc ,

 

[kingon]

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

Anh cho e hỏi là bây giờ e muốn nếu giá trị thay đổi ở 1 ô nào đó thì chạy 1 macro nhất định được không?
Vd: giá trị Ô A1 thay đổi thì chạy macro tên "Macro1"
giá trị Ô A2 thay đổi thì chạy macro tên "Macro2" và nhiều ô khác
Tks nhiều

 

[kingon]

không có ae nào giúp đỡ sao

 

[quanluu]

Anh cho e hỏi là bây giờ e muốn nếu giá trị thay đổi ở 1 ô nào đó thì chạy 1 macro nhất định được không?
Vd: giá trị Ô A1 thay đổi thì chạy macro tên "Macro1"
giá trị Ô A2 thay đổi thì chạy macro tên "Macro2" và nhiều ô khác
Tks nhiều

ko biết bạn có nhiều macro ko? nếu ít thì làm thế này
If Target.Address = "$A$1" Then
Call macro1
End If
If Target.Address = "$A$2" Then
Call macro2
End If
If Target.Address = "$A$3" Then
Call macro3
End If
........

Nếu rất nhiều thì thử thế này xem (macro phả đc swaps xếp)
for i = 1 to xx (số lượng macro)
If Target.Address = "$A$" & i Then
Macroname = "macro" & i
Call Macroname
End If

 

[kingon]

ko biết bạn có nhiều macro ko? nếu ít thì làm thế này
If Target.Address = "$A$1" Then
Call macro1
End If
If Target.Address = "$A$2" Then
Call macro2
End If
If Target.Address = "$A$3" Then
Call macro3
End If
........

Nếu rất nhiều thì thử thế này xem (macro phả đc swaps xếp)
for i = 1 to xx (số lượng macro)
If Target.Address = "$A$" & i Then
Macroname = "macro" & i
Call Macroname
End If

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

 

[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.