مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

شرطی کردن سیستم اموال

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

    • 2016/11/12
    • 20

    شرطی کردن سیستم اموال

    سلام دوستان عزیز
    بنده یه فایل اکسل دارم که میخوانم شماره اموال به صورت اتوماتیک کد گذاری کنم به صورتی که در ستون شماره اموال فرمول بدیم که تمام کد ها را بر اساس نوع دارایی کد بندی کنه
    به این صورت که مثلا ملزومات و انفورماتیک از 1 تا 1000 کد بندی بشه و لوازم اداری از 1001 تا 2000 به صورت اتوماتیک کدگذاری بشه.
  • alibobo

    • 2016/11/12
    • 20

    #2
    این فایل

    کامنت

    • rahi_feri

      • 2014/08/08
      • 524
      • 94.67

      #3
      نوشته اصلی توسط alibobo
      این فایل
      کدوم فایل؟!
      [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

        #4
        سلام
        راه ساده :
        سورت کنید براساس لوازم و بنویسید اونوقت در ستون دیگر اگر انفورماتیک بود اولیو 1 بده وگرنه قبلیو به علاوه 1 کنه! اگر لوازم اداری بود اولیو 1001 بده وگرنه قبلیو به علاوه 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]

        کامنت

        • alibobo

          • 2016/11/12
          • 20

          #5
          این فایل
          فایل های پیوست شده

          کامنت

          • alibobo

            • 2016/11/12
            • 20

            #6
            دوست عزیز می دونم از این طریق میشه ولی می خوام فرمول باشه و به مرور با به لیست اضاف میشه و نمیشه هر مرتبه فایل را سورت کنم

            کامنت

            چند لحظه..