Xác định vùng đang được chọn

[hoangdanh282vn]

Để xác định cell đang được chọn thì ta dùng : Activecell.select
vậy để xác định vùng đang được chọn thì ta làm thế nào.
Tương tự cho nhiều vùng được chọn cùng một lúc.
Cảm ơn

 

[cadafi]

Để xác định cell đang được chọn thì ta dùng : Activecell.select
vậy để xác định vùng đang được chọn thì ta làm thế nào.
Tương tự cho nhiều vùng được chọn cùng một lúc.

Mình chưa hiểu câu hỏi, tuy nhiên nếu xác định cell được chọn thì thiết nghĩ phải trả về địa chỉ cell đang được chọn mới đúng chứ.

Ví dụ: Activecell.address chẳng hạn.
Đã activeCell thì hiển nhiên là selected rồi mà!

Còn nếu như ý bạn là xác định vùng nào đó rồi chọn thì có thể dùng:

Range("...:..").select

Hoặc chọn nhiều vùng:

Union(Range("A1"),Range("C4"),......,range("F3:G5")).select

 

[Ng_Duy_Long]

Bạn thử code này xem
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
MsgBox Target.Address
End Sub

 

[salam]

Để xác định cell đang được chọn thì ta dùng : Activecell.select
vậy để xác định vùng đang được chọn thì ta làm thế nào.
Tương tự cho nhiều vùng được chọn cùng một lúc.
Cảm ơn

Bạn dùng đoạn code dưới thử xem:

Dim Rng As Range
Set Rng = Selection

 

[ndu96081631]

1 vùng hoặc nhiều vùng đều có thể dùng :
MsgBox "Dia chi vung chon la " & Selection.Address

 

[voda]

-Theo mình hiểu 2 phương thức activate và select khác nhau ở chỗ :
+ Có nhiều đối tượng được select cùng một lúc, trong đó chỉ có một đối tượng được activate.
+Một đối tượng được select chưa chắc là active.
+Một đối tượng active chắc chắn là được select.
-Vậy câu lệnh:Activecell.select có ổn không? Các bạn thử cho một ví dụ về câu lệnh này.

 

[hoangdanh282vn]

-Theo mình hiểu 2 phương thức activate và select khác nhau ở chỗ :
+ Có nhiều đối tượng được select cùng một lúc, trong đó chỉ có một đối tượng được activate.
+Một đối tượng được select chưa chắc là active.
+Một đối tượng active chắc chắn là được select.
-Vậy câu lệnh:Activecell.select có ổn không? Các bạn thử cho một ví dụ về câu lệnh này.

ý mình là thế này :
Viết một macro sử dụng phím tắt để copy ô được bôi đen :

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 17/06/2008 by IT Team
'
' Keyboard Shortcut: Ctrl+a
'
ActiveCell.Select
Selection.Copy
End Sub

viết macro 2 dùng để paste vào dữ liệu đã copy vào vùng được chọn :

Sub Macro2()
'
' Macro3 Macro
' Macro recorded 17/06/2008 by IT Team
'
' Keyboard Shortcut: Ctrl+b
Range("A2:A3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

mình muốn thay Range("A2:A3") bằng vùng đang được bôi đen như đối với macro 1 thì làm thế nào.
Cảm ơn các bạn

 

[cadafi]

ý mình là thế này :
Viết một macro sử dụng phím tắt để copy ô được bôi đen :

viết macro 2 dùng để paste vào dữ liệu đã copy vào vùng được chọn :

mình muốn thay Range("A2:A3") bằng vùng đang được bôi đen như đối với macro 1 thì làm thế nào.
Cảm ơn các bạn

Vậy bạn chỉ cần dùng selection.Copy là được.
Hoặc nếu đã chạy macro1 rồi. Thì bỏ luôn câu Range("A2:A3").Select trong macro2

 

[voda]

Theo mình, bạn có thể chỉnh lại như sau:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 17/06/2008 by IT Team
'
' Keyboard Shortcut: Ctrl+a
    Selection.Copy
End Sub

Sub Macro2()
'
' Macro3 Macro
' Macro recorded 17/06/2008 by IT Team
'
' Keyboard Shortcut: Ctrl+b
      ActiveSheet.Paste Destination:=Selection
      Application.CutCopyMode = False
End Sub