پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

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

  1. #1


    آخرین بازدید
    2014/07/04
    تاریخ عضویت
    February 2014
    محل سکونت
    بجنورد - مشهد
    نوشته ها
    38
    امتیاز
    33
    سپاس
    28
    سپاس شده
    23 در 14 پست
    تعیین سطح نشده است

    confused چطور در صورتیکه دو ستون مقدار تکراری داشته باشند با 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
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,222
    امتیاز
    2665
    سپاس
    1,411
    سپاس شده
    2,121 در 671 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط امیر رضا نمایش پست ها
    چطور در صورتیکه دو ستون مقدار تکراری داشته باشند با 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
    با سلام.
    روش راحت تر و بهتر از وی بی وجود دارد.ولی اگر فقط روش وی بی مد نظر شماست به روش وی بی انجام دهیم.
    فايل هاي پيوست شده فايل هاي پيوست شده
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/





اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 5
    آخرين نوشته: 2015/01/22, 00:23
  2. درصورتیکه نتیجه تابع vlookup=false باشه
    توسط mohsen_persia در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2014/09/11, 20:57
  3. ایجاد جدول در اکسس به صورت اتوماتیک
    توسط ~M*E*H*D*I~ در انجمن برنامه نویسی در اکسس
    پاسخ ها: 0
    آخرين نوشته: 2014/03/05, 20:39
  4. update داده های مرتب شده یک ستون بصورت اتوماتیک
    توسط feri-2011 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/01/23, 20:02
  5. ذخیره اطلاعات به صورت اتوماتیک در اکسل 2007
    توسط sh_amar در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 7
    آخرين نوشته: 2010/11/14, 11:24

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

جستجوبامقادیرمشخص در اکسس

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد