نمایش نتایج: از شماره 1 تا 10 , از مجموع 10

موضوع: رنگ کردم سلول های حاوی فرمول

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2022/06/27
    تاریخ عضویت
    July 2010
    نوشته ها
    192
    امتیاز
    295
    سپاس
    107
    سپاس شده
    284 در 99 پست
    سطح اکسل
    75.00 %

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

    رنگ کردم سلول های حاوی فرمول

    سلام
    میخوام ماکرویی بنویسم که بتونه توی یک شیت سلول هایی که داخلشون فرمول هست را رنگی کنه .
    ممنون میشم جواب بدید
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    RE: رنگ کردم سلول های حاوی فرمول

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

    این یه نمونه ماکرو که این کار رو انجام میده

    قسمتی که می خواهید بررسی کند را بصورت A12000 نوشته ام که می توانید آن را تغییر دهید و یا کل شیت را در نظر بگیرید

    Sub Macro1()
    Dim c
    With Sheet1.Range("a12000")
    Set c = .Find("*", LookIn:=xlValues, LookAt:=xlPart)

    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    If Left(c.Formula, 1) = "=" Then
    'c.Select

    With c.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If

    End With
    End Sub

  3. #3


    آخرین بازدید
    2022/06/27
    تاریخ عضویت
    July 2010
    نوشته ها
    192
    امتیاز
    295
    سپاس
    107
    سپاس شده
    284 در 99 پست
    سطح اکسل
    75.00 %

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

    RE: رنگ کردم سلول های حاوی فرمول

    سلام
    ممنونم
    یک سوال دیگه
    میشه محدودیت ایجاد کرد مثلا فقط یک فرمول خاص که ما بهش میگیم را رنگی کنه
    یا مثلا فرمول جمع را قرمز و فرمول کانت را سبز که
    یا یک هم چین چیزی
    ممنونم از راهنمایی هاتون

  4. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    RE: رنگ کردم سلول های حاوی فرمول

    با درود فراوان
    بله میشه این کار رو انجام داد با کمی تغییر در کد قبلی شدنیه

    در این کد جدید همه فرومول ها رو زرد و فورمول های Sum رو آبی و فرمول های AVERAGE را قرمز می کنه که شما به هر صورت و تا هر چند تا فرمول های متفاوت رو می تونی به رنگ های متفاوت مشخص کنی


    Sub Macro1()
    Dim c
    With Sheet1.Range("a12000")
    Set c = .Find("*", LookIn:=xlValues, LookAt:=xlPart)

    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    If Left(c.Formula, 4) = "=SUM" Then
    With c.Interior
    .ColorIndex = 5
    .Pattern = xlSolid
    End With

    ElseIf Left(c.Formula, 8) = "=AVERAGE" Then

    With c.Interior
    .ColorIndex = 3
    .Pattern = xlSolid
    End With

    ElseIf Left(c.Formula, 1) = "=" Then

    With c.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If

    End With
    End Sub

  5. #5


    آخرین بازدید
    2022/06/27
    تاریخ عضویت
    July 2010
    نوشته ها
    192
    امتیاز
    295
    سپاس
    107
    سپاس شده
    284 در 99 پست
    سطح اکسل
    75.00 %

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

    RE: رنگ کردم سلول های حاوی فرمول

    با سلام و احترام
    مهندس این ماکرویی که فرستادید کار نکرد
    من یک روش دیگر انجام دادم و اون هم شناسایی فرمول ها با استفاده از .formula هست
    اگه میشه شما هم یک فایل نمونه اجرایی از این ماکروای که فرستادید بذارید
    ممنونم

  6. #6


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    RE: رنگ کردم سلول های حاوی فرمول

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

    دلیل کار نکردن ماکرو به این دلیل است که در پنج خط مانده به آخر ماکرد هنگام کپی کردن در سایت تغییر کرده و زمانی که به اکسل وارد می کنید آن را باید تصحیح کنید

    Set c = .FindNext© خط از کد c که در دایره قرار گرفته در واقع c بین دو پرانتز است که به این شکل در آمده (c) به این شکل باید باشد و آن را تصحیح کن مشکل اجرا ماکرو حل می شود

    در صورت نیاز یک میل برنید تا نمونه فایل را برایتان بفرستم چرا که امروز هرکاری کردم نتوانتسم فایل رو آپلود کنم

    shamsololama@yahoo.com

  7. #7


    آخرین بازدید
    2023/09/10
    تاریخ عضویت
    July 2010
    نوشته ها
    118
    امتیاز
    28
    سپاس
    90
    سپاس شده
    30 در 18 پست
    تعیین سطح نشده است

    RE: رنگ کردم سلول های حاوی فرمول

    این کد رو من نوشتم ولی وقتی اجرا میکنم هیچ اتفاقی نمیافته (اون قسمت c رو هم درست کردم) ولی هیچ اتفاقی نمیافته
    اگه ممکنه یه نمونه فایل بزارید
    بعد اینکه کلا این کد چه موقعی اجرا میشه؟ من تو کلید تعریف کردم ولی بعد از زدن کلید هیچ اتفاقی نمیافته حالا اگه توی یه module جدید تعریف کنم چه موقعی اجرا میشه؟(عین فرمول های عادی اکسل هر موقع توی صفحه تغییر ایجاد بشه این هم اجرا میشه یا نه حالت دیگری هست؟)
    با تشکر

  8. #8


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    RE: رنگ کردم سلول های حاوی فرمول

    نقل قول نوشته اصلی توسط master
    این کد رو من نوشتم ولی وقتی اجرا میکنم هیچ اتفاقی نمیافته (اون قسمت c رو هم درست کردم) ولی هیچ اتفاقی نمیافته
    اگه ممکنه یه نمونه فایل بزارید
    بعد اینکه کلا این کد چه موقعی اجرا میشه؟ من تو کلید تعریف کردم ولی بعد از زدن کلید هیچ اتفاقی نمیافته حالا اگه توی یه module جدید تعریف کنم چه موقعی اجرا میشه؟(عین فرمول های عادی اکسل هر موقع توی صفحه تغییر ایجاد بشه این هم اجرا میشه یا نه حالت دیگری هست؟)
    با تشکر
    با درود فراوان
    کدهای که می نویسیم بستگی داره آن را در چه اونتی می نویسیم (Event) مثلا اگر در اونت اوپن بوک بنویسید زمان باز شدن فایل این کد اجرا میش و اگر چنج سلکشن بنویسی زمانی که یک سلول را انتخاب میکنید این کد اجرا می شود و ... به همین تریتب در اونت های دیگر و اگر در ماژولی در یک ماکرو


    فایل نمونه:
    [attachment=1006]
    نوشته اید که با اجراری آن ماکرو کد اجرا خواهد شد
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. #9


    آخرین بازدید
    2023/09/10
    تاریخ عضویت
    July 2010
    نوشته ها
    118
    امتیاز
    28
    سپاس
    90
    سپاس شده
    30 در 18 پست
    تعیین سطح نشده است

    RE: رنگ کردم سلول های حاوی فرمول

    ضمن تشکر میخواستم بدونم کدوم اونت باعث میشه رفتار کد مثل توابع خود اکسل بشه یعنی هر موقعی که یه تابع ابدیت میشه این کد هم عمل کنه؟اگه اشتباه نکنم با هر تغییری توی هر سلولی کل توابع ابدیت میشه البته مطمئن نیستم درسته؟
    ایا جزوه یا PDFی وجود داره که همه اونت ها رو با توضیحاتش داخلش نوشته باشه؟(ترجیحا فارسی)
    یه وال دیگه هم دارم اونم اینکه الان این کد رو توی کجا وارد کنم؟الان وقتی محیط VBA رو میارم سه جا هست که میشه وارد کرد یکی نوشته Sheet یکی ThisWorkbook و یکی هم Module ها هستن اینا چر فرقی دارن؟ و میشه چند تا کد رو توی یه Module وارد کرد یا نه باید هر کدی رو توی یه Module نوشت؟(اگه هر دو تا میشه کدوم بهتر هست؟مزیتش چی هست؟)
    با تشکر

  10. #10


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    RE: رنگ کردم سلول های حاوی فرمول

    نقل قول نوشته اصلی توسط master
    ضمن تشکر میخواستم بدونم کدوم اونت باعث میشه رفتار کد مثل توابع خود اکسل بشه یعنی هر موقعی که یه تابع ابدیت میشه این کد هم عمل کنه؟اگه اشتباه نکنم با هر تغییری توی هر سلولی کل توابع ابدیت میشه البته مطمئن نیستم درسته؟
    ایا جزوه یا PDFی وجود داره که همه اونت ها رو با توضیحاتش داخلش نوشته باشه؟(ترجیحا فارسی)
    یه وال دیگه هم دارم اونم اینکه الان این کد رو توی کجا وارد کنم؟الان وقتی محیط VBA رو میارم سه جا هست که میشه وارد کرد یکی نوشته Sheet یکی ThisWorkbook و یکی هم Module ها هستن اینا چر فرقی دارن؟ و میشه چند تا کد رو توی یه Module وارد کرد یا نه باید هر کدی رو توی یه Module نوشت؟(اگه هر دو تا میشه کدوم بهتر هست؟مزیتش چی هست؟)
    با تشکر
    با درود فراوان
    برای اینکه هر موقع تابع های خود اکسل محاسبه میشن این کدی که نوشتی هم اجرا بشه تو این اونت بنویس

    Private Sub Worksheet_Calculate()

    End Sub

    2
    شما کدی که دارین رو تو هر سه تا می تونی بنویسی بستی گی داره که میخوای کی اون اون کدت اجرا بشه و اینکه یک کد رو وقتی یه جا ی می نویسی می تونی از چند جا اجراش کنی مثلا وقتی ماکرویی رو تو یک ماژول نوشتی به هرچند تا کلیدی که تو صفحه و تو هر شیتی از شیتها می تونی با اسین ماکرو وصلش کنی که اون کد رو اجرا کنه
    و اینکه تو هرکدوم میشه کدهای زیادی نوشت و اینکه مثلا بیایم چند تا ماژول درست کنیم و یا اینکه همش رو تو یک ماژول بنویسیم فرقی نمیکنه ولی برای اینکه بتونیم دسته بندیشون کنیم و برنامه نویسیمون ترتیب و نظرم بیشتری داشته باشه میتونی تو چند تا ماژول که نیاز داریم و هر کدوم به اسمی که نشون دهنده آن کارمون باشه تقسیم بندیشون کنیم



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

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

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

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

  1. نحوه جستجو با استفاده از تابع وی لوکاپ روی دو مقدار
    توسط shaneh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 16
    آخرين نوشته: 2016/02/04, 11:19

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

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

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

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

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