یوال در مورد حذف شماره تلفن تکراری

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • reza1881

    • 2014/11/16
    • 24

    یوال در مورد حذف شماره تلفن تکراری

    سلام خدمت دوستان گرامی
    من یه سوال در مورد شماره تلفن داشتم. ما یک سری شماره موبایل توی یک ستون داریم که هر روز به این شماره ها اضافه میشه ، حالا توی یک ستون دیگه یک سری شماره موبایل داریم که به نوعی بلک لیست هستند و نباید توی شماره های جدیدی که توی ستون اول اضافه میشن ، اضافه بشن . راه اول اینه که از طریق پیدا کردن هر شماره بصورت دستی ، از لیست حذف کنیم که با توجه به زیاد بودن شماره های بلک لیست اینکار کمی سخت میشه . می خواستم بدونم راهی هست که کل شماره ها بصورت یکجا بررسی بشن و اگر جزو لیست سیاه بودن ، بصورت خودکار حذف و یا مشخص بشن ؟
    ممنون
    -
    فایل مورد نظر رو هم میزارم -----» برگه همکار شهرستان
    آدرس فایل :
    ok
  • ordouei

    • 2013/05/01
    • 68
    • 45.00

    #2
    نوشته اصلی توسط reza1881
    سلام خدمت دوستان گرامی
    من یه سوال در مورد شماره تلفن داشتم. ما یک سری شماره موبایل توی یک ستون داریم که هر روز به این شماره ها اضافه میشه ، حالا توی یک ستون دیگه یک سری شماره موبایل داریم که به نوعی بلک لیست هستند و نباید توی شماره های جدیدی که توی ستون اول اضافه میشن ، اضافه بشن . راه اول اینه که از طریق پیدا کردن هر شماره بصورت دستی ، از لیست حذف کنیم که با توجه به زیاد بودن شماره های بلک لیست اینکار کمی سخت میشه . می خواستم بدونم راهی هست که کل شماره ها بصورت یکجا بررسی بشن و اگر جزو لیست سیاه بودن ، بصورت خودکار حذف و یا مشخص بشن ؟
    ممنون
    -
    فایل مورد نظر رو هم میزارم -----» برگه همکار شهرستان
    آدرس فایل :
    ok
    کد PHP:
    Sub saeed()''******************************'excel.saeed@gmail.com'*****************************'    Range("A:A,D:D").Select    Range("D1").Activate    Selection.FormatConditions.AddUniqueValues    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority    Selection.FormatConditions(1).DupeUnique = xlDuplicate    With Selection.FormatConditions(1).Font        .Color = -16383844        .TintAndShade = 0    End With    With Selection.FormatConditions(1).Interior        .PatternColorIndex = xlAutomatic        .Color = 13551615        .TintAndShade = 0    End With    Selection.FormatConditions(1).StopIfTrue = False    Range("h1").SelectEnd Sub 

    ازاین کد جهت شناسایی شماره های مشابه استفاده نمایید

    کامنت

    • ordouei

      • 2013/05/01
      • 68
      • 45.00

      #3
      نمونه فایل
      فایل های پیوست شده

      کامنت

      • iranweld

        • 2015/03/29
        • 3341

        #4
        با سلام

        مراحل تصویر پیوست را دنبال کنید در صورت وارد شدن شماره تکراری با رنگی شدن سلول مشخص میگردد
        فایل های پیوست شده
        Last edited by iranweld; 2015/11/26, 12:08.

        کامنت

        چند لحظه..