سورت با تابع large و درج خودکار نام در مقابل آن

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

    • 2016/01/06
    • 23
    • 45.00

    [حل شده] سورت با تابع large و درج خودکار نام در مقابل آن

    با سلام و تشکر
    فایل پیوست شده رو چک کنید و لطفاااااااااااااااا اگر کسی میتونه کمکم کنه زودتر پاسخ بده برنامه رو باید ارائه بدم زودتر
    در این فایل جدولی در بالا قرار داره که میزان تعمیرات میبایست هر ماه ثبت بشه، و در جدول پایین از بیشترین تعداد تا کمترین سورت بشه تا اینجا مشکلی نیست الان میخوام مطابق این اعداد سورت شده در جدول پایین نام دستگاه مقابل ان نیز ثبت بشه
    ولی چطوری؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
    فایل های پیوست شده
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام
    متوجه سوال نشدم!؟!
    [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]

    کامنت

    • Ali Parsaei
      مدير تالارتوابع اکسل

      • 2013/11/18
      • 1522
      • 71.67

      #3
      سلام،
      يک راه دم دستي اين است که با استفاده از يک ستون کمکي و شماره رديف ها يک شماره يکتا ايجاد کنيد و سپس تابع large را بر حسب آن شماره يکتا بنويسيد.
      فايل پيوست را ببينيد:
      فایل های پیوست شده
      [SIGPIC][/SIGPIC]

      کامنت

      • rahi_feri

        • 2014/08/08
        • 524
        • 94.67

        #4
        سلام
        با سلام و تشکر این فایل درسته ولی من اگه مثلا یه یک دریگه اضافه کنم error میده در صورتی که ممکنه جدول من کلا تغییر کنه و لیست اعداد ثابت نباشه!
        لطفا فایل رو چک کنید..... من راهنمایی میخوامیکه چطور پس از ورود خودکار اعداد بالا به ترتیب در جدول پایین، نام دستگاه مقابل اون نیز ثبت بشه؟
        من ایرادی در فایل ارسال در پست قبل نمیبینم! لطفا دقیق تر ایراد و خطا رو توضیح دهید!

        تغییراتی در این فایل لحاظ شد!
        چک کنید....!
        فایل های پیوست شده
        [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]

        کامنت

        چند لحظه..