چطور در صورتیکه دو ستون مقدار تکراری داشته باشند با vba مشخص کنیم ؟

[امیر رضا]

چطور در صورتیکه دو ستون مقدار تکراری داشته باشند با vba مشخص کنیم و رنگ اونو عوض کنیم ؟ دقیقا همین رو توسط ماکرو ذخیره می کنم و توی vba قرار میدم توی ویزارد خوب کار میکنه ولی دقیقا زمانیکه کلیک روی فرمی که همین کدها رو گزاشتیم قاطی میکنه

اصل هدف من اینه که با کلیک روی یک باتن مقدار های تکراری در دو ستون رنگی بشن و در آفست 4 ستون اول در صورت تکراری بودن(یا رنگی بودن) یه چیزی بنویسه

اینم کد آفتم کا اینم کار نمیکنه

  
    Dim c As Range
    For Each c In Range("b3:b200")
    If c.Borders.Color = &HFFFF& Then
    c.Offset(0, 4).Value = "ÓæÎʐíÑí ä˜ÑÏå ÇÓÊ"
    End If
    Next

[Javid Mokhtari]

چطور در صورتیکه دو ستون مقدار تکراری داشته باشند با vba مشخص کنیم و رنگ اونو عوض کنیم ؟ دقیقا همین رو توسط ماکرو ذخیره می کنم و توی vba قرار میدم توی ویزارد خوب کار میکنه ولی دقیقا زمانیکه کلیک روی فرمی که همین کدها رو گزاشتیم قاطی میکنه

اصل هدف من اینه که با کلیک روی یک باتن مقدار های تکراری در دو ستون رنگی بشن و در آفست 4 ستون اول در صورت تکراری بودن(یا رنگی بودن) یه چیزی بنویسه

اینم کد آفتم کا اینم کار نمیکنه

  
    Dim c As Range
    For Each c In Range("b3:b200")
    If c.Borders.Color = &HFFFF& Then
    c.Offset(0, 4).Value = "ÓæÎʐíÑí ä˜ÑÏå ÇÓÊ"
    End If
    Next

با سلام.
روش راحت تر و بهتر از وی بی وجود دارد.ولی اگر فقط روش وی بی مد نظر شماست به روش وی بی انجام دهیم.