Tạo Marco (button) điền Name cho range chưa xác định

[kinhvan69]

Dear các cao thủ

lại xin nhờ các cao thủ chỉ giúp 1 ca khó như sau
Mô tả: chọn 1 vùng dữ liệu. bấm nút thì vùng dữ liệu đó được đặt tên "ABCD"
yêu cầu: tạo macro thực hiện mô tả trên với điều kiện vùng dữ liệu được chọn chưa biết trước.

tức là thao tác sẽ đơn thuần là: bôi đen 1 vùng nào đó. đặt tên vùng đó với name: ABCD
(thay vì phải làm bằng tay thì sẽ rất mất công T^T. ai giúp cháu với)
Thankssssssss

 

[kinhvan69]

Đã có giải pháp rồi. mò mò hồi cũng ra

Sub Macro2()
'
' Macro2
'
ActiveWorkbook.Names.Add Name:="ABCD", RefersToR1C1:=Selection
'
End Sub

 

[ChanhTQ@]

tiếp theo ta chỉnh chu macro thân iêu của bạn lại, như sau

Đã có giải pháp rồi. mò mò hồi cũng ra

Option Explicit
Sub gpeNameOffRange()
 Dim Name_ As String, Rng As Range
 Const XC As String = "GPE.COM Xin Chào Ban!"
 
 Name_ = InputBox("Hay Chon Ten Cho Vùng", XC)
 Set Rng = Application.InputBox("Hay Chon Vùng Càn Gán Ten:", XC, Type:=8)
    ActiveWorkbook.Names.Add Name:=Name_, RefersToR1C1:=Rng
End Sub

 

[kinhvan69]

hehe. đề bài của em đơn giản hơn nhiều bác ợ. Thanks bác nhé