nhận biết vùng chọn bằng chuột

[nhatthuc147]

mình dùng VBA, mình viết code có dùng set rng = selection
và set mang = selection, mình muốn hỏi là mình viết như vậy thì làm sao máy tính có thế nào máy tính hiểu là mình có 2 vùng chọn bằng chuột.
ví dụ mình muốn cho ô(1,3) của vùng chọ rng = 1, vùng mang = 0.
các anh giúp dùm nha.xin cảm ơn.

 

[phamduylong]

Để biết số vùng đang chọn:
sovung = Selection.Areas.Count

 

[voda]

Bạn có thể dùng lệnh sau:
-Set rng = Selection.Areas(1)
-Set mang = Selection.Areas(2)

 

[nhatthuc147]

mình không phải muốn đếm số vùng mà muốn làm việc trên các vùng như ví dụ trên, các bạn có thể chỉ mình cách khác không?

 

[phamduylong]

mình không phải muốn đếm số vùng mà muốn làm việc trên các vùng như ví dụ trên, các bạn có thể chỉ mình cách khác không?

Dim rng As Range
Set rng = Selection
rng.FormulaArray = 1

rng.FormulaArray = 1 sẽ ghi số 1 vào tất cả các ô trong rmg.
Không biết có đúng ý bạn không ?

 

[SoiBien]

mình dùng VBA, mình viết code có dùng set rng = selection
và set mang = selection, mình muốn hỏi là mình viết như vậy thì làm sao máy tính có thế nào máy tính hiểu là mình có 2 vùng chọn bằng chuột.
ví dụ mình muốn cho ô(1,3) của vùng chọ rng = 1, vùng mang = 0.
các anh giúp dùm nha.xin cảm ơn.

bạn dùng thế này:

[INDENT]rng.cells(1,3) = 1
mang.cells(1,3) = 0
[/INDENT]

 

[voda]

Bạn chọn 2 vùng bằng chuột, rồi cho chạy code sau, sẽ có kết quả:

Sub chonvung()
Dim rng As Range, mang As Range
Set rng = Selection.Areas(1)
Set mang = Selection.Areas(2)
rng.Cells(1, 3) = 1
mang.Cells(1, 3) = 0
End Sub