نحوه پیدا کردن کلمات تکراری در سلول

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

    • 2014/12/13
    • 78
    • 43.00

    پرسش نحوه پیدا کردن کلمات تکراری در سلول

    سلام
    در یک فایل اکسل با 140 هزار ردیف که توی یک ستون نام فروشنده نوشته شده میخوام نام فروشنده های تکراری را پیدا کنم
    از طریق conditional formatting فقط عین سلول مشابه رو پیدا میکنه
    من میخوام بیاد اگر کلمه ای تکراری در سلول هست فقط کلمه رو انتخاب کنه
    مثلا اگر توی ردیف 1 نوشته (فروشگاه لوازم یدکی محمد) و توی ردیف دوم نوشته (لوازم یدکی محمد) و در ردیف سوم نوشته (*لوازم یدکی محمد) کلمات مشترک بین 3 سلول (لوازم +یدکی +محمد ) توی هر سه تا سلول قرمز بشه
    چون تعداد دیتاهای ستون زیاده ونام گذاری ها یونیک نبوده و بر توسط کاربرهای مختلف انجام شده زمان زیادی میبره اگر بخوام دستی سرچ کنم یا بر اساس نام فیلتر کنم و یا چشمی نگاه کنم و احتمال خطا هم زیاد میشه .
  • rasools13

    • 2017/01/20
    • 360
    • 80.00

    #2
    سلام دو کار را میتوانید انجام دهید

    1- از طریق conditional formatting بجای انتخاب Dublicate Value گزینه Text that contains رو انتخاب کرده و مقدار آن را به یک سلول مثلا C2 وصل کنید.. و در این سلول قسمتی از نام را که در همه مشترک است را وارد کنید...
    .
    2. ابزار فیلتر را برای ستون نام ها فعال کنید و از منوی فیلتر همانند تصویر ذیل در قسمت search قسمتی از نام را که در همه مشترک است را وارد کنید.
    .
    [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
    [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
    [/CENTER]

    کامنت

    • yogishiip

      • 2014/12/13
      • 78
      • 43.00

      #3
      کد:
      چون تعداد دیتاهای ستون زیاده ونام گذاری ها یونیک نبوده و بر توسط  کاربرهای مختلف انجام شده زمان زیادی میبره اگر بخوام دستی سرچ کنم یا بر  اساس نام فیلتر کنم و یا چشمی نگاه کنم و احتمال خطا هم زیاد میشه .
      مشکلم اینجاست که بین اسامی وجه اشتراک خاصی نیس .
      14000 تافروشنده دارم هر کدوم تقریبا 10 تا فاکتور دادن شده 140 هزار ردیف
      مشکل اینجاست که همه یه اسم یونیک ذخیره نشدن و چون کاربر ها متفاوت بودن هر کدوم به یه اسمی ذخیره شدن مثل همون مثالی که گفتم .یکی نوشته فروشگاه پوشاک ثامن یکی نوشته فروشگاه ثامن یکی اولش ستاره زده یکی بین کلماتش 2 تا اسپیس زده و ....
      خلاصه اینکه کلمه مشترکی بین همه سلول ها نیست و هر چند تایی به صورت رندوم یک سری کلمه مشترک دارن .اگر کلمات مشترک همه قرمز بشه مشکلم حل میشه .

      کامنت

      • rahi_feri

        • 2014/08/08
        • 524
        • 94.67

        #4
        سلام
        یه نمونه قرار بدید......!
        و دستی چند تا رو نشون بدید روی فایل!
        [B][SIZE=1]بخش امضاء :
        [/SIZE][/B][LEFT]
        [CODE]
        Sub Macro()
        ActiveCell = "IY" & Right(Application.Name, 5)
        With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "Webdings"
        .Color = 255
        End With
        End Sub
        [/CODE]
        [/LEFT]

        کامنت

        • yogishiip

          • 2014/12/13
          • 78
          • 43.00

          #5
          میخوام جدول 1 تبدیل به جدول 2 بشه یا همچین چیزی !
          فایل های پیوست شده

          کامنت

          • rasools13

            • 2017/01/20
            • 360
            • 80.00

            #6
            با سلام
            فایل پیوست رو بررسی کنید.
            .
            از ماکروی ذیل می توانید استفاده کنید
            . در سلول مشخص شده در فایل پیوست کلمه مورد نظر خود را نوشته (مثلا ساختمانی امین) و بر روی دکمه کلیک کنید.. در ستون B این کلمه یا کلمات به رنگ قرمز مشخص خواهند شد.
            .
            فقط برای دستیابی به نتیجه درست تر.. کلمه مورد نظر را تایپ نکنید بلکه از ستون اصلی داده ها کلمه را کپی و در سلول مشخص شده پیست کنید.
            .
            کد:
            کد PHP:
            Sub ChColor()
                
            Dim SCharLenColorrowNum As Integer
                Dim Target
            Stxt As Variant
                Target 
            Cells(28).Value
                rowNum 
            Application.WorksheetFunction.CountA(Range("B2:B10"))
                For 
            1 To rowNum
                    With Sheets
            ("Sheet1").Cells(12)
                        
            Stxt = .Value
                        SChar 
            InStr(1StxtTargetvbTextCompare)
                        If 
            SChar <> 0 Then
                            LenColor 
            Len(Target)
                            .
            Characters(Start:=SCharLength:=LenColor).Font.Color RGB(25500)
                        
            End If
                    
            End With
                Next i
            End Sub 
            فایل های پیوست شده
            [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
            [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
            [/CENTER]

            کامنت

            • yogishiip

              • 2014/12/13
              • 78
              • 43.00

              #7
              مشکلم اینجاست که کلمه مشخصی وجود نداره .اگر قرار باشه بین 14 هزار فروشنده دنبال کلمات مشترک بگردم احتمالا بیناییم رو از دست میدم .. و یا اصلا میام با همون کلمات مشترک خیلی ساده فیلتر میکنم.
              میخوام خودش بگرده کلمات تکراری رو هایلایت کنه یا تغییر رنگ بده .
              Last edited by yogishiip; 2017/03/06, 00:10.

              کامنت

              • iranweld

                • 2015/03/29
                • 3341

                #8
                با سلام

                در فایل پیوست دو کلمه کلیدی را در سلول c1 و c2 تایپ کنید و سپس ماکرو فیلتر را اجرا کنید

                قبل از اجرا یکبار ماکرو تبدیل حروف عربی به فارسی را اجرا کنید تا تفاوتی بین "ی" با "ي" نباشد
                فایل های پیوست شده

                کامنت

                • rahi_feri

                  • 2014/08/08
                  • 524
                  • 94.67

                  #9
                  سلام
                  کار پیچیده ایه!
                  شاید این روش (فایل ضمیمه) کمی کمک کرد!
                  به هر حال کار کردن با متن چند درصدی خطا داره که باید بپذیرید! مگه این که علاوه بر روش های مختلق خودتون چشمی هم چک کنید که اون هم خدای نکرده نابینا میشید و راه درستی هم نیست!
                  این راه هم کمی صبر میخاد و سیستم خوب + فیلتر روی مقادیر تکرار یا منحصر به فرد!
                  فایل های پیوست شده
                  [B][SIZE=1]بخش امضاء :
                  [/SIZE][/B][LEFT]
                  [CODE]
                  Sub Macro()
                  ActiveCell = "IY" & Right(Application.Name, 5)
                  With ActiveCell.Characters(Start:=2, Length:=1).Font
                  .Name = "Webdings"
                  .Color = 255
                  End With
                  End Sub
                  [/CODE]
                  [/LEFT]

                  کامنت

                  • Skynet

                    • 2017/03/02
                    • 142

                    #10
                    با سلام و احترام
                    شاید این فایل چیزی نباشه که شما دنبالش بودید ولی بهرحال ممکنه براتون مفید باشه. با تایپ لحظه ای، هر سطری که حاوی اون حروف تایپ شده در سطر باشه فیلتر میکنه و نشون میده . نکات جالب :
                    1- نیازی به تایپ کلمه کامل جهت نمایش جستجو نیست و با شروع تایپ، جستجو بر اساس حرف به حرف آغاز شده و فیلتر انجام میشود.
                    2- اگر "ی" و "ک" عربی و فارسی در این فایل وجود داشته باشه با شروع تایپ تمام حرف های "ی" و "ک" عربی به فارسی تبدیل میشود و جستجو بدرستی و بصورت کامل و دقیق انجام خواهد شد.


                    قبل از فیلتر :

                    Click image for larger version

Name:	777.jpg
Views:	1
Size:	141.2 کیلو بایت
ID:	131911


                    بعد از تایپ کلمه امین و انجام فیلتر اتوماتیک و لحظه ای :

                    Click image for larger version

Name:	999.jpg
Views:	1
Size:	91.8 کیلو بایت
ID:	131913
                    فایل های پیوست شده
                    Last edited by Skynet; 2017/03/09, 01:12.

                    کامنت

                    • iranweld

                      • 2015/03/29
                      • 3341

                      #11
                      فایل حاوی ماکرو را بصورت زیپ شده ضمیمه کنید

                      کامنت

                      چند لحظه..