پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: مقایسه

  1. #1


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

    sohrabahmadi به Yahoo ارسال پیام

    مقایسه

    با سلام به اساتید ودوستان گرامی.درفایل نمونه ای که ضمیمه شده میخوام یه فرمولی باشه که اگر شماره ای از ستون 1 (با رنگ زرد مشخص شده ) در ستون 5 نباشه و یا بالعکس در ستون 9 نمایش داده بشه.البته خودم با استفاده از حلقه تونستم به یه راه حلی برسم ولی خیلی طولانی و کند ودر بعضی مواقع هم جواب نداد.ممنون دوستان میشم اگه راهنماییم کنن. با تشکر
    http://persiandrive.com/202899
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: مقایسه

    با درود فراوان

    Sub Macro1()

    Sheet17.Range("i1:i1000") = ""
    Dim c As Range
    For Each c In Sheet17.Range("A1:A1000")
    If Application.WorksheetFunction.CountIf(Sheet17.Rang e("e1:e1000"), c) = 0 Then
    Sheet17.Range("i1").Offset(Application.WorksheetFu nction.CountA(Sheet17.Range("i1:i1000")) + 1) = c

    End If
    Next
    '///////////////////////////
    For Each c In Sheet17.Range("e1:e1000")
    If Application.WorksheetFunction.CountIf(Sheet17.Rang e("a1:a1000"), c) = 0 Then
    Sheet17.Range("i1").Offset(Application.WorksheetFu nction.CountA(Sheet17.Range("i1:i1000")) + 1) = c

    End If
    Next


    فایل:
    [attachment=1088]

    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm 1.xlsm اطلاعات (28.5 کیلو بایت, 8 نمایش)

  4. #3


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

    sohrabahmadi به Yahoo ارسال پیام

    RE: مقایسه

    ممنون از استاد عزیز مثل همیشه عالی و راهگشا.


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

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

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

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

  1. مقایسه دو فایل
    توسط Amin_D در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 03 _ 04 _ 2013, 01:30
  2. کمک درمورد یک مقایسه
    توسط hamalous در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 12 _ 10 _ 2012, 17:10
  3. مقایسه گروهی دو لیست در اکسل
    توسط mehdi_hidden در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 13
    آخرين نوشته: 19 _ 04 _ 2012, 08:03
  4. مقایسه 2 فایل مختلف
    توسط ~M*E*H*D*I~ در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 19
    آخرين نوشته: 04 _ 04 _ 2012, 16:28
  5. مقایسه لیست
    توسط dcdonya در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 28 _ 02 _ 2012, 20:23

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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