Nhờ Anh Chị giúp Em tạo sự kiện change của 1 cell (1 người xem)

[ndhmoney686]

Em có một Sub LocDanhSachMatHang ()
Hiện tại Em tạo botton để bấm chạy Sub ở trên. Do file của Em chỉ sử dụng 1 ô chọn các tiêu chí lọc. Em đang hình dung có thể dùng sự kiện change cho 1 cell (nếu Cell đó thay đổi thì sẽ chạy Sub LocDanhSachMatHang (). Anh Chị và các Bạn giúp Em nhé. Cám ơn Anh Chị và các Bạn!

Private Sub Worksheet_Change(ByVal Target As Range)
Nếu ô C1 có sự thay đổi. Thì chạy Sub LocDanhSachMatHang ()
End If
End Sub

 

[khuongvietphong]

Em có một Sub LocDanhSachMatHang ()
Hiện tại Em tạo botton để bấm chạy Sub ở trên. Do file của Em chỉ sử dụng 1 ô chọn các tiêu chí lọc. Em đang hình dung có thể dùng sự kiện change cho 1 cell (nếu Cell đó thay đổi thì sẽ chạy Sub LocDanhSachMatHang (). Anh Chị và các Bạn giúp Em nhé. Cám ơn Anh Chị và các Bạn!

Private Sub Worksheet_Change(ByVal Target As Range)
Nếu ô C1 có sự thay đổi. Thì chạy Sub LocDanhSachMatHang ()
End If
End Sub

 if range("C1").address = target.address then ...

 

[giangleloi]

Em có một Sub LocDanhSachMatHang ()
Hiện tại Em tạo botton để bấm chạy Sub ở trên. Do file của Em chỉ sử dụng 1 ô chọn các tiêu chí lọc. Em đang hình dung có thể dùng sự kiện change cho 1 cell (nếu Cell đó thay đổi thì sẽ chạy Sub LocDanhSachMatHang (). Anh Chị và các Bạn giúp Em nhé. Cám ơn Anh Chị và các Bạn!

Private Sub Worksheet_Change(ByVal Target As Range)
IF Target.Address = "$C$1" Then LocDanhSachMatHang
End Sub

 

[mhung12005]

Em có một Sub LocDanhSachMatHang ()
Hiện tại Em tạo botton để bấm chạy Sub ở trên. Do file của Em chỉ sử dụng 1 ô chọn các tiêu chí lọc. Em đang hình dung có thể dùng sự kiện change cho 1 cell (nếu Cell đó thay đổi thì sẽ chạy Sub LocDanhSachMatHang (). Anh Chị và các Bạn giúp Em nhé. Cám ơn Anh Chị và các Bạn!

Private Sub Worksheet_Change(ByVal Target As Range)
Nếu ô C1 có sự thay đổi. Thì chạy Sub LocDanhSachMatHang ()
End If
End Sub

Bạn làm như sau:

[COLOR=#007700][FONT=monospace][I]Private [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Sub Worksheet_Change[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]ByVal Target [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
[/I][/FONT][/COLOR]If Target.Address = "$C$1" Then
[COLOR=#0000BB][FONT=monospace][I]  LocDanhSachMatHang [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End Sub  [/I][/FONT][/COLOR]

 

[ndhmoney686]

Cám ơn A/C! Em thử các cách của A/C ở trên code chạy tốt.

Sự kiện Worksheet_Change... kết quả thay đổi khi nhập số vào ô C1, hoặc nháy đúp vào ô C1 -> Thì code cho kết quả.

Em có một cái button bấm vào để nó tăng hoặc giảm số ở ô C1. A/C giúp Em thêm Em cách sử dụng sự kiện gì nữa. Để khi bấm vào cái button (cho ô C1 tăng lên hoặc giảm 1 số) thì code cũng sẽ chạy ra kết quả.

 

[giaiphap]

Cám ơn A/C! Em thử các cách của A/C ở trên code chạy tốt.

Sự kiện Worksheet_Change... kết quả thay đổi khi nhập số vào ô C1, hoặc nháy đúp vào ô C1 -> Thì code cho kết quả.

Em có một cái button bấm vào để nó tăng hoặc giảm số ở ô C1. A/C giúp Em thêm Em cách sử dụng sự kiện gì nữa. Để khi bấm vào cái button (cho ô C1 tăng lên hoặc giảm 1 số) thì code cũng sẽ chạy ra kết quả.

Khi bạn nháy vào Button thì giá trị C1 thay đổi nghĩa là sự kiện Worksheet_Change sẽ diễn ra, tức là code trên sẽ tự động chạy thôi mà.

 

[ndhmoney686]

Khi bạn nháy vào Button thì giá trị C1 thay đổi nghĩa là sự kiện Worksheet_Change sẽ diễn ra, tức là code trên sẽ tự động chạy thôi mà.

Mình bấm thử rồi, nó không chạy code. Chỉ khi nháy đúp vào hoặc gõ trực tiếp vào ô C1 thì nó mới chạy code.

 

[giaiphap]

Mình bấm thử rồi, nó không chạy code. Chỉ khi nháy đúp vào hoặc gõ trực tiếp vào ô C1 thì nó mới chạy code.

Bạn up file lên đây mình xem thử cho.

 

[langtuchungtinh360]

Cám ơn A/C! Em thử các cách của A/C ở trên code chạy tốt.

Sự kiện Worksheet_Change... kết quả thay đổi khi nhập số vào ô C1, hoặc nháy đúp vào ô C1 -> Thì code cho kết quả.

Em có một cái button bấm vào để nó tăng hoặc giảm số ở ô C1. A/C giúp Em thêm Em cách sử dụng sự kiện gì nữa. Để khi bấm vào cái button (cho ô C1 tăng lên hoặc giảm 1 số) thì code cũng sẽ chạy ra kết quả.

nhấn chuột phải vào chọn Assign Macro...... chọn Locdanhsachmathang

 

[giangleloi]

Worksheet_Change cho 1 Cells chỉ thay đổi khi ta thực sự dùng chuột click vào đó thay đổi, hoặc F2 -> enter. Chứ Giá trị (Value) trong cells đó thay đối thông qua 1 công cụ như Combox hay Spin Button thì nó vẫn không có tác dụng nha...

Khi bạn nháy vào Button thì giá trị C1 thay đổi nghĩa là sự kiện Worksheet_Change sẽ diễn ra, tức là code trên sẽ tự động chạy thôi mà.

1 trong 2 "chàng" đã có sự nhầm lẫn không hề nhẹ. Kaka.

 

[doveandrose]

1 trong 2 "chàng" đã có sự nhầm lẫn không hề nhẹ. Kaka.

quá hay , 2 mệnh đề của 2 bạn trẻ này mâu thuẫn nhau , như thế phải có 1 người sai

 

[ndhmoney686]

Mình gửi file đính kèm các bạn xem giúp mình nhé

 

[giaiphap]

Mình gửi file đính kèm các bạn xem giúp mình nhé

Vậy mình nhằm rồi, cứ tưởng sẽ xảy ra sự kiện Change nào ngờ
Vậy bạn cập nhật lại giá trị cho ô C1 là xong ngay.

 

[ndhmoney686]

Vậy mình nhằm rồi, cứ tưởng sẽ xảy ra sự kiện Change nào ngờ
Vậy bạn cập nhật lại giá trị cho ô C1 là xong ngay.

hehe... Ok rồi bạn ơi. Thank bạn và các A/C đã giúp đỡ!

Sub Spinner60_Change()  Range("C1").Value = Range("C1").Value
End Sub