تغییر رنگ محتویات سلول

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

    • 2012/07/09
    • 9

    تغییر رنگ محتویات سلول

    با سلام
    دوستان من در یک برگه یک سری اطلاعات عددی درون سلول ها دارم میخوام اعدادی که مثلا بزرگتر از 15 باشند رنگ اعدادشون قرمز بشه
    ممنون که راهنمایی می کنید
  • Nima

    • 2011/07/22
    • 385

    #2
    دوست عزیز برای اینکار باید از کاندیشنال فرمتینگ استفاده کنید یه سرچ تو سایت بکنید مطالب فراوانی راجع بهش میتونید پیدا کنید
    [CENTER][COLOR=#ff0000]************************************[/COLOR]
    No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
    [COLOR=#ff0000]************************************[/COLOR]

    [/CENTER]

    کامنت

    • HAMDER

      • 2012/07/09
      • 9

      #3
      ممنون از پاسخ شما دوست عزیر با این روش تقریبا بلد بودم ولی چون بعد از این کار میخواستم یه کار دیگه با اطلاعات تغییر رنگ داده شده بکنم و مثلا همگی اون اعداد را مساوی 20 بکنه گفتم شاید روش دیگری باشه که هر دو مورد را انجام بدم

      کامنت

      • Nima

        • 2011/07/22
        • 385

        #4
        منظورتون واضح نیست برای کار دومتون میتونید از یک فرمول استفاده کنید مثالا
        کد:
        =if(a1>15,20,a1)
        [CENTER][COLOR=#ff0000]************************************[/COLOR]
        No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
        [COLOR=#ff0000]************************************[/COLOR]

        [/CENTER]

        کامنت

        • HAMDER

          • 2012/07/09
          • 9

          #5
          ممنون ولی مورد من برای تغییر اعداد یک سلول نیست بلکه یک برگه که ستون و ردیف های زیادی داره که می خوام همون سلولها که مقدارشون بیشتر از 15 هست عددشون تغییر کنه و 20 بشوند

          کامنت

          • Nima

            • 2011/07/22
            • 385

            #6
            اگه میخوتید از وی بی ای استفاده کنید

            کد:
            Sub DEL()
                For Each cell In Sheets(1).Cells
                    If cell.Value > 15 Then cell.Value = 20
                Next cell
            End Sub
            [CENTER][COLOR=#ff0000]************************************[/COLOR]
            No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
            [COLOR=#ff0000]************************************[/COLOR]

            [/CENTER]

            کامنت

            چند لحظه..