مرتب ساری

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

    • 2016/10/17
    • 7

    [حل شده] مرتب ساری


    سلام
    من قبلا یه سوال
    اینجا
    پرسیده بودم که شما لطف کردید جوابش دادید اون موقع هنوز اکسلشو درست نکرده بودم
    دارم اکسلشو کامل میکنم که به این مشکل ارور 91 در جایگذاری فرمول شما در اکسل خودم خوردم ممنون میشم بررسی کنید
    در حال کامل شدن.xlsx
    نمیدونم چرا ماژول روی این فایل اکسل سیو نمیشه به خاطر همین روی فایل txt قرار دادم فایلشو ، میخوام توی شیت عمده فروشا و نسیه این عملیات انجام بشهNew Text Document.txt
    ممنون

    Last edited by alimomtad; 2016/12/13, 10:07.
  • 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]

    کامنت

    • alimomtad

      • 2016/10/17
      • 7

      #3
      درود
      فایل قرار دادم
      نتونستم اپلود کنم توی اینجا قرار دادم
      ممنون

      کامنت

      • rahi_feri

        • 2014/08/08
        • 524
        • 94.67

        #4
        سلام برای اپلود در انجمن چون فایل ها با این پسوند رو نمیخونه اول زیپشون کنید (فشرده سازی)
        [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]

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67

          #5
          سلام
          این کد براساس یه عبارت خاص جستجو می کنه و مقادیر زیرینشو میاره پس در کد که دنبال "نوع صرف شده" می گرده در صورتی که در شیت های شما همچین عنوانی نیست اصلا عنوان ها با هم تطابق نداره !
          همچنین فایل شما بسیار آشفتست و من هشدار داده بودم که باید در ورود داده ها دقت کنید!
          در طراحی جدول بازنگری کنید!
          با سپاس
          [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]

          کامنت

          چند لحظه..