Macro đặt đúng "cột" mới được chạy

Liên hệ QC

nokiano258vn

Thành viên lười biếng
Tham gia
28/8/07
Bài viết
268
Được thích
276
Nghề nghiệp
Bồi thường giải phóng mặt bằng
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òngcộ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
 
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
 
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.
 
Bạn tham khảo
PHP:
If not Intersect(range("B:B"),Activecell) Is Nothing then
'Your code here...
End If
 
SoiBien đã viết:
Bạn tham khảo
PHP:
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
 
Lần chỉnh sửa cuối:
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
 
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ụ:
Mã:
Option Explicit
Public Sub Intersect_Ex()
    Dim rngData As Range
    Set rngData = Intersect(Range("B4:D11"), Range("C2:H9"))
    MsgBox rngData.Address
End Sub
 
Lần chỉnh sửa cuối:
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à....????
 
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
 
Web KT
Back
Top Bottom