نامگذاری محدوده ها

**khakzad** · 2014/11/15, 12:23

سلام
دوست عزیز، مراحل زیر رو طی کنید:
ستون رو فیلتر کنید
بعد از فیلتر کردن مثلا روی 1، محدوده رو انتخاب کنید و Ctrl+G رو بزنید. از special گزینه visible cells only را بزنید. بعد نام محدوده را وارد کنید.
اینطوری محدوده گسسته رو می تونید نام گذاری کنید

**پیام** · 2014/11/15, 12:46

نوشته اصلی توسط khakzad

سلام
دوست عزیز، مراحل زیر رو طی کنید:
ستون رو فیلتر کنید
بعد از فیلتر کردن مثلا روی 1، محدوده رو انتخاب کنید و Ctrl+G رو بزنید. از special گزینه visible cells only را بزنید. بعد نام محدوده را وارد کنید.
اینطوری محدوده گسسته رو می تونید نام گذاری کنید

از پاسخ شما بسیار سپاسگذارم.

**پیام** · 2014/11/15, 12:50

این کار با ماکرو به چه صورتی انجام میشه. یعنی یک محدوده داشته باشیم که به شکل وارد شده در فایل باشه ولی برای هرکس تعداد عدد یک متغیر باشه و بخواهیم با ماکرو این کار نامگذاری به صورت اتوماتیک با وارد کردن اعداد انجام بشه. روش کار چطوره؟ ممنون میشم.

**khakzad** · 2014/11/15, 13:56

دوست عزیز
کد رو م یذارم
این در ستون A هرجا 1 ببینه، میبره داخل نامa_1

برای اینکه گسترش بدید باید کد رو متتوجه بشید.
پس سوالی داشتید در خدمتم

کد:

Sub name()
For Each c In Range("A1:A20")
    If c.Value = 1 Then
    m = c.Address & "," & m
    End If
Next
    m = Left(m, Len(m) - 1)
    Range(m).Select
    Selection.name = "a_1"
End Sub

**khakzad** · 2014/11/15, 13:58

اگر در این ایونت بنویسید. بعد از دبل کلیک کد اجرا میشه:

کد:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

For Each c In Range("A1:A30")
    If c.Value = 1 Then
    m = c.Address & "," & m
    End If
Next
    m = Left(m, Len(m) - 1)
    Range(m).Select
    Selection.name = "a_1"

End Sub