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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • saed.rasa

    • 2014/11/02
    • 1054

    [حل شده] ایجاد فرمت ارزیابی کیفی یا گذاشتن ستاره طلایی با وارد کردن عدد مشخص در یک سلول

    سلام

    چطور می توانم مثل عکس زیر درست کنم درسلول های A1:A5

    مثال : اگر در سلول A1 عدد 5 وارد شد در سلولA1 پنج تا ستاره طلایی که در کندیشنال فرمت هست قرار دهد

    توضیح اینکه از تابع Rept که به راحتی می تواند به تعداد عدد مورد نظر کاراکتر * را تکرار کند سوال من نیست و دگمه رادیویی تصویر زیر هم، همینطور

    ایا می توانید به من کمک کنید در این چالش؟

    متشکرم!
    فایل های پیوست شده
    [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
    اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
    [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
    [/FONT][/CENTER]
    [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
    فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
    [/FONT][/CENTER]
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام

    این کار رو راه میندازه
    فایل های پیوست شده
    Last edited by rahi_feri; 2019/05/19, 13:34.
    [B][SIZE=1]بخش امضاء :
    [/SIZE][/B][LEFT]
    [CODE]
    Sub Macro()
    ActiveCell = "IY" & Right(Application.Name, 5)
    With ActiveCell.Characters(Start:=2, Length:=1).Font
    .Name = "Webdings"
    .Color = 255
    End With
    End Sub
    [/CODE]
    [/LEFT]

    کامنت

    • saed.rasa

      • 2014/11/02
      • 1054

      #3
      سلام دوست عزیز

      از اینکه پاسخ دادید ممنونم، اما جواب اصلا این نبود


      خیلی ساده و روان مثال زیر:

      اگر در سلول a1 عدد 3 وارد شد 3 تا ستاره طلایی بیاره در سلول a1
      [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
      اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
      [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
      [/FONT][/CENTER]
      [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
      فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
      [/FONT][/CENTER]

      کامنت

      • rahi_feri

        • 2014/08/08
        • 524
        • 94.67

        #4
        سلام
        سوال خودتونو مرور کنید....
        در conditional آیکن ها فقط سه شرطی و سه حالتی هستند شما فرمودید 5 ستاره می خواهید که با کاندیشنال امکان پذیر نیست پس در 5 سلول باید 1 ستاره بیاریم
        موضوع دیگه اینکه چالش شما اینطوری حل میشه که عدد رو وارد کنید در یک سلول و در همون سلول کاندیشنال آیکن ستاره قرار بدید
        [B][SIZE=1]بخش امضاء :
        [/SIZE][/B][LEFT]
        [CODE]
        Sub Macro()
        ActiveCell = "IY" & Right(Application.Name, 5)
        With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "Webdings"
        .Color = 255
        End With
        End Sub
        [/CODE]
        [/LEFT]

        کامنت

        • saed.rasa

          • 2014/11/02
          • 1054

          #5
          سلام به دوستان

          بالاخره حل شد...

          اون چیزی که می خواستم!
          فایل های پیوست شده
          [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
          اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
          [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
          [/FONT][/CENTER]
          [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
          فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
          [/FONT][/CENTER]

          کامنت

          چند لحظه..