Macro đặt đúng "cột" mới được chạy (1 người xem)

[nokiano258vn]

Chủ đề này tôi đã được trả lời nhưng theo cách của các bác là thêm Range("CotDauIeu").Select (của SA_DQ) là được nhưng cách này chỉ được khi phải đầy đủ cả dòng và cột trong khi yêu cầu của tôi là chỉ đặt đúng cột thôi, còn dòng thì tùy ý. Mong các bác chỉ thêm

 

[anhtuan1066]

Tự dưng bạn nói "bâng quơ" thế kia thì chả hiểu bạn đang nói đến vấn đề gì nữa... Đưa file dử liệu lên và nói rõ hơn 1 chút dc ko?
Có lẽ vấn đề này bạn dc sự trợ giúp của bác SA_DQ.. giờ có lẽ chỉ có bác là biết bạn đang nói cái gì thôi!.. Hi... hi...
ANH TUÂN

 

[nokiano258vn]

Sub A_Tao_bang()
Range("b1").Select
Selection.RowHeight = 30
End Sub
Như code này của bác SA_DQ cho tôi thì macro chỉ chạy được ở B1, nhưng tôi muốn macro chạy được ở tất cả các dòng trong cột B (chỉ được chạy ở cột đã chỉ định). Tôi đã thử thay Range("B").Select nhưng không đựoc.

 

[SoiBien]

Bạn tham khảo

If not Intersect(range("B:B"),Activecell) Is Nothing then
'Your code here...
End If

 

[nokiano258vn]

Bạn tham khảo

If not Intersect(range("B:B"),Activecell) Is Nothing then
'Your code here...
End If

Được rồi bác ạ, em cảm ơn bác nhiều lắm

 

[anhtuan1066]

Sẳn đây xin hỏi 1 câu: Hôm trước Soibien cũng làm 1 code cho tôi, có cái Intersect này.. nhưng tôi chưa hiểu lắm nó là cái gì?
Đồng ý là "nhắm mắt" áp dụng đại cũng xong, nhưng có thể cho tôi biết nó nghĩa là gì dc ko? (Dịch tiếng Anh chử này thì lại càng ko hiểu)... Hic.. hic..
ANH TUẤN

 

[nvson]

Cú pháp của hàm Intersect như sau:

Function Intersect(Arg1 As Range, Arg2 As Range, [Arg3], [Arg4], [Arg5], [Arg6], [Arg7], [Arg8], [Arg9], [Arg10], [Arg11], [Arg12], [Arg13], [Arg14], [Arg15], [Arg16], [Arg17], [Arg18], [Arg19], [Arg20], [Arg21], [Arg22], [Arg23], [Arg24], [Arg25], [Arg26], [Arg27], [Arg28], [Arg29], [Arg30]) As Range

Kết quả của hàm Intersect sẽ trả về phần giao của các vùng (Range).
Tham khảo thêm hàm Union (cú pháp tương tự).
Ví dụ:

Option Explicit
Public Sub Intersect_Ex()
    Dim rngData As Range
    Set rngData = Intersect(Range("B4:D11"), Range("C2:H9"))
    MsgBox rngData.Address
End Sub

 

[nokiano258vn]

Theo như tôi hiểu thì đây là điểm giao nhau nhưng thường là giao nhau giữa hàng và cột, còn ở đây là....????

 

[anhtuan1066]

Theo như trong file của bạn thì ta đang xét giao giữa vùng B:B với ActiveCell... vậy nếu ActiveCell nằm trong vùng B:B thì mới có kết quả, ngược lại thì ko...
Cái sự giao này ko phải như bạn nghĩ là giao giữa hàng và cột đâu... (Tôi nhớ hồi lớp 10 đã từng học)... Chính là phần chung giữa 2 vùng