Xin giúp đỡ về câu lệnh Worksheet_Change (1 người xem)

[kbw1]

Xin chào các bạn!
Mình đang mắc ở sự kiện Worksheet_Change trong sheet.
Nếu muốn 1 ô trong 1 sheet thay đổi thì sự kiện diễn ra.
Cái này mình dùng câu lệnh

if target.Address=$địa chỉ ô trong sheet$ then...

Nhưng giờ mình muốn 1 ô ở sheet 1 thay đổi thì sự kiện diễn ra ở sheet 2.

Có cách nào làm được điều này không ạ?
Mong các bạn giúp đỡ!

 

[giangleloi]

Xin chào các bạn!
Mình đang mắc ở sự kiện Worksheet_Change trong sheet.
Nếu muốn 1 ô trong 1 sheet thay đổi thì sự kiện diễn ra.
Cái này mình dùng câu lệnh

if target.Address=$địa chỉ ô trong sheet$ then...

Nhưng giờ mình muốn 1 ô ở sheet 1 thay đổi thì sự kiện diễn ra ở sheet 2.

Có cách nào làm được điều này không ạ?
Mong các bạn giúp đỡ!

Đại loại như thế này. Thay đổi tại ô A1 tại Sheet1 sẽ có kết quả ở Sheet2:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheet2.[A1] = "kbw1"
End Sub

 

[quanluu]

Xin chào các bạn!
Mình đang mắc ở sự kiện Worksheet_Change trong sheet.
Nếu muốn 1 ô trong 1 sheet thay đổi thì sự kiện diễn ra.
Cái này mình dùng câu lệnh

if target.Address=$địa chỉ ô trong sheet$ then...

Nhưng giờ mình muốn 1 ô ở sheet 1 thay đổi thì sự kiện diễn ra ở sheet 2.

Có cách nào làm được điều này không ạ?
Mong các bạn giúp đỡ!

Sự kiện diễn ra ở sheet2 như thế nào? cái này hoàn toàn làm dc bạn nhé.

 

[kbw1]

Đại loại như thế này. Thay đổi tại ô A1 tại Sheet1 sẽ có kết quả ở Sheet2:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheet2.[A1] = "kbw1"
End Sub

Cảm ơn bạn.
Vì ở sheet 1 của mình có câu lệnh If Target.Address = "$A$1" Then marco (1 marco) rồi bạn ạ.
GIờ mình cần A1 tại sheet 1 thay đổi thì thực thi marco 2 bên sheet 2.
Không biết làm như vậy phải thêm câu lệnh như thế nào ạ?

 

[kbw1]

Sự kiện diễn ra ở sheet2 như thế nào? cái này hoàn toàn làm dc bạn nhé.

Mình có ghi 2 marco.
Marco1 dùng sự kiện này ở sheet 1 rồi.
Giờ muốn vẫn ô đấy ở sheet 1 thay đổi thì dùng marco 2 ở sheet 2.
Không biết có được không bạn?

 

[giangleloi]

Cảm ơn bạn.
Vì ở sheet 1 của mình có câu lệnh If Target.Address = "$A$1" Then marco (1 marco) rồi bạn ạ.
GIờ mình cần A1 tại sheet 1 thay đổi thì thực thi marco 2 bên sheet 2.
Không biết làm như vậy phải thêm câu lệnh như thế nào ạ?

Bạn cho nó chạy đồng thời 2 macro luôn, 1 cái chạy sheet1, 1 cái chạy sheet 2, cụ thể thì bạn đưa file lên chứ hiểu ý bạn nhưng diễn đạt có thể bạn sẽ không hiểu.

 

[kbw1]

Bạn cho nó chạy đồng thời 2 macro luôn, 1 cái chạy sheet1, 1 cái chạy sheet 2, cụ thể thì bạn đưa file lên chứ hiểu ý bạn nhưng diễn đạt có thể bạn sẽ không hiểu.

Đúng rồi bạn.
Ý mình là vậy.
Khi 1 ô thay đổi thì 2 marco thực hiện cùng lúc luôn.

 

[nghiaphuc]

Mình có ghi 2 marco.
Marco1 dùng sự kiện này ở sheet 1 rồi.
Giờ muốn vẫn ô đấy ở sheet 1 thay đổi thì dùng marco 2 ở sheet 2.
Không biết có được không bạn?

Chắc nó là thế này:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Macro1
Macro2
End If
End Sub[/GPECODE]
Hoặc bạn gộp 2 macro này lại với nhau luôn.

 

[kbw1]

Chắc nó là thế này:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Macro1
Macro2
End If
End Sub[/GPECODE]
Để mình thử ạ.

 

[kbw1]

Chắc nó là thế này:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Macro1
Macro2
End If
End Sub[/GPECODE]
Hoặc bạn gộp 2 macro này lại với nhau luôn.

Tuyệt vời luôn. Cảm ơn bạn rất nhiều.
Bạn cho mình hỏi câu End If nghĩa là gì được không bạn?

 

[nghiaphuc]

Tuyệt vời luôn. Cảm ơn bạn rất nhiều.
Bạn cho mình hỏi câu End If nghĩa là gì được không bạn?

Nếu trong câu lệnh If chỉ thực hiện 1 lệnh thì chỉ cần cấu trúc If <Điều kiện> Then <Câu lệnh>
Còn nếu trong câu lệnh If có thực hiện nhiều câu lệnh (dãy lệnh) thì sau dãy lệnh đó phải có từ khóa End If để biết rằng đã kết thúc câu lệnh If. Cú pháp lúc này là If <Điều kiện> Then <Dãy lệnh> End If

 

[kbw1]

Nếu trong câu lệnh If chỉ thực hiện 1 lệnh thì chỉ cần cấu trúc If <Điều kiện> Then <Câu lệnh>
Còn nếu trong câu lệnh If có thực hiện nhiều câu lệnh (dãy lệnh) thì sau dãy lệnh đó phải có từ khóa End If để biết rằng đã kết thúc câu lệnh If. Cú pháp lúc này là If <Điều kiện> Then <Dãy lệnh> End If

Cảm ơn bạn rất nhiều.
Bạn cho mình hỏi thêm câu ngoài lề về hàm textjoin.
Phiên bản excel nào của 2016 có hàm này vậy bạn?
Của mình không có hàm này, mà mình lại đang có nhu cầu dùng.
Cảm ơn bạn!

 

[nghiaphuc]

Cảm ơn bạn rất nhiều.
Bạn cho mình hỏi thêm câu ngoài lề về hàm textjoin.
Phiên bản excel nào của 2016 có hàm này vậy bạn?
Của mình không có hàm này, mà mình lại đang có nhu cầu dùng.
Cảm ơn bạn!

Cái này là lạc đề rồi, bạn hỏi tiếp bên topic kia nhé. Tôi chưa xài Office 2016 bao giờ nên cũng không biết đâu.

 

[haonlh]

Nếu trong câu lệnh If chỉ thực hiện 1 lệnh thì chỉ cần cấu trúc If <Điều kiện> Then <Câu lệnh>
Còn nếu trong câu lệnh If có thực hiện nhiều câu lệnh (dãy lệnh) thì sau dãy lệnh đó phải có từ khóa End If để biết rằng đã kết thúc câu lệnh If. Cú pháp lúc này là If <Điều kiện> Then <Dãy lệnh> End If

Vì đọc thấy cách bạn hỏi mà nói rõ thêm như sau

Không dùng End If
+ Nếu sau then có 1 lệnh thì bạn viết liền sau then và không dùng end if
+ Nếu sau then có nhiều lệnh như mẫu sau thì cũng không cần dùng end if

if đk then cl1 : cl2 : cl3 : c4 : _
cl5

(dấu _ để báo câu lệnh If còn dài đến dòng sau)

Phải dùng End If
+ Nếu sau then bạn xuống dòng thì dù viết 1 hay nhiều lệnh thì phải dùng end if.

 

[minhduongct]

Tuyệt vời luôn. Cảm ơn bạn rất nhiều.
Bạn cho mình hỏi câu End If nghĩa là gì được không bạn?

End if dùng để kết thúc mệnh đề if khi hết lệnh thực thi câu lệnh

 

[kbw1]

Các bạn cho mình hỏi thêm vấn đề này nữa ạ.
Nếu giờ mình có rất nhiều marco cần hoạt động 1 lúc.
TH1: Ví dụ khi thay đổi ô A1
thì MC1, MC2, MC3, MC4 cho đến MC8. (MC này có thể ở sheet 1, hoặc sheet 2 tức là sẽ ko cùng sheet ạ)
Thì mình phải dùng câu lệnh như thế nào ạ.
TH2: Không dùng sự kiện change ô nữa, mà mình muốn 1 marco tổng, rồi vẽ 1 cái nút bấm cho nó chạy ạ.
Mong các bạn giúp đỡ!
Xin cảm ơn!

 

[befaint]

Các bạn cho mình hỏi thêm vấn đề này nữa ạ.
Nếu giờ mình có rất nhiều marco cần hoạt động 1 lúc.
TH1: Ví dụ khi thay đổi ô A1
thì MC1, MC2, MC3, MC4 cho đến MC8. (MC này có thể ở sheet 1, hoặc sheet 2 tức là sẽ ko cùng sheet ạ)
Thì mình phải dùng câu lệnh như thế nào ạ.
TH2: Không dùng sự kiện change ô nữa, mà mình muốn 1 marco tổng, rồi vẽ 1 cái nút bấm cho nó chạy ạ.
Mong các bạn giúp đỡ!
Xin cảm ơn!

TH1: Bạn viết các macro vào 1 module, với kiểu sub là (Sub hoặc Public Sub). Khi cần chạy ở đâu thì chỉ cần gọi nó.
Ví dụ:
Với module:

Sub MC1() '// Hoac viet la: Public sub MC1()
MsgBox "Chay macro 1"
End Sub

Sub MC2()
MsgBox "Chay macro 2"
End Sub

Sub MC3()
MsgBox "Chay macro 3"
End Sub

Với Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    MC1
    MC2
    MC3
End If
End Sub

TH2: Bạn viết 1 sub trong Module gọi các macro đã viết, rồi gán vào nút bấm của bạn.

Sub RunAll()
    MC1
    MC2
    MC3
End Sub

 

[kbw1]

TH1: Bạn viết các macro vào 1 module, với kiểu sub là (Sub hoặc Public Sub). Khi cần chạy ở đâu thì chỉ cần gọi nó.
Ví dụ:
Với module:

Sub MC1() '// Hoac viet la: Public sub MC1()
MsgBox "Chay macro 1"
End Sub

Sub MC2()
MsgBox "Chay macro 2"
End Sub

Sub MC3()
MsgBox "Chay macro 3"
End Sub

Với Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    MC1
    MC2
    MC3
End If
End Sub

TH2: Bạn viết 1 sub trong Module gọi các macro đã viết, rồi gán vào nút bấm của bạn.

Sub RunAll()
    MC1
    MC2
    MC3
End Sub

Cảm ơn bạn đã trả lời!
Mình thấy file của mình có 3 module. Có khi nào lỗi là do đây không bạn?
Mình chỉ cần copy các đoạn code của từng module về gộp lại 1 module rồi làm theo bạn là được đúng ko ạ?

 

[befaint]

Cảm ơn bạn đã trả lời!
Mình thấy file của mình có 3 module. Có khi nào lỗi là do đây không bạn?
Mình chỉ cần copy các đoạn code của từng module về gộp lại 1 module rồi làm theo bạn là được đúng ko ạ?

Bao nhiêu module cũng không phải là vấn đề. Nếu các macro là Sub hay Public Sub thì tại bất kỳ đâu cũng gọi nó được.
Nếu macro là Private Sub thì bạn chỉ gọi được nó trong module đó (hoặc trong worksheet đó nếu để trong worksheet, hoặc trong ThisWorkbook nếu macro đó để trong ThisWorkbook)
Bạn đọc tạm bài này:
http://www.giaiphapexcel.com/forum/...ải-thích-Code-có-Private-đứng-trước-Sub/page2

 

[kbw1]

Bao nhiêu module cũng không phải là vấn đề. Nếu các macro là Sub hay Public Sub thì tại bất kỳ đâu cũng gọi nó được.
Nếu macro là Private Sub thì bạn chỉ gọi được nó trong module đó (hoặc trong worksheet đó nếu để trong worksheet, hoặc trong ThisWorkbook nếu macro đó để trong ThisWorkbook)
Bạn đọc tạm bài này:
http://www.giaiphapexcel.com/forum/...ải-thích-Code-có-Private-đứng-trước-Sub/page2

Bạn ơi, mình bị lỗi này ạ.
Code của mình là Sub.
Mình gửi bạn đoạn Sub RunAll của mình.