دفترچه چک

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ماریا
    • 2011/11/19
    • 4

    دفترچه چک

    من میخوام یه دفترچه چک طراحی کنم که اگه تو اون خونه رنگی داشتم اون خونه رو محاسبه نکنه تا زمانی که موعد سر رسید چک میشه
    اگه کمک کنید ممنون میشم
    اینم ادرس ایمیلم :h.maria.2530@yahoo..com
  • Amirsayyafi

    • 2011/06/25
    • 277

    #2
    RE: دفترچه چک

    شما میتونید برعکس کار کنید. یعنی تا موقعی که تاریخ سر رسید چک نرسیده سلول به رنگ مثلا قرمز، در تاریخ سررسید به رنگ زرد و بعد از تاریخ سررسید به رنگ سبز باشه. و به تناسب هر رنگ عملیات خاص خودش انجام بگیره.

    نظرتون چیه؟ تاریخ رو هم از تاریخ کامپیوتر میخونه.

    این نیز بگذرد.

    کامنت

    • ماریا
      • 2011/11/19
      • 4

      #3
      RE: دفترچه چک

      شرمنده من خود فرمول رو میخوام که با شرط یا vb انجام میشه

      کامنت

      • Javid Mokhtari
        مدير تالار ويژوال بيسيك

        • 2012/01/16
        • 1213

        #4
        RE: دفترچه چک

        نوشته اصلی توسط ماریا
        من میخوام یه دفترچه چک طراحی کنم که اگه تو اون خونه رنگی داشتم اون خونه رو محاسبه نکنه تا زمانی که موعد سر رسید چک میشه
        اگه کمک کنید ممنون میشم
        اینم ادرس ایمیلم :h.maria.2530@yahoo..com
        با سلام.
        چيشو حساب نكنه...؟
        جمع مبلغ ها رو ... يا جزء گزارشات روزانتون حساب نكنه ... يا ....
        فرم نمونه لطفاً ... ./.
        دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
        بیش از 60 جلسه آموزش ویدئویی رایگان

        شرکت در دوره:

        https://javidsoft.ir/courses/


        کامنت

        • shamsololama

          • 2010/02/15
          • 940

          #5
          RE: دفترچه چک

          با درود فراوان

          اگر سئوال رو توضیح بیشتری داده بودین و یا اینکه مثالی رو و نمونه فایل در اینجا قرار میدادی بهتر میشد جواب داد .

          ولی بصورت کلی می توانی از کد زیر استفاده کنید در این کد سلهای که به رنگ قرمز هستند را جمع نمی زنه

          Sub jam()

          Dim c As Range
          Dim m As Integer
          For Each c In Range("A1:A100")

          If c.Interior.Color = vbRed Then

          Else
          m = m + c

          End If

          Next
          MsgBox "sum cells " & m
          End Sub



          نمونه فایل :
          [attachment=1035]
          فایل های پیوست شده
          ---------------------------------------------------------------------------------------------------
          بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم (دکتر شریعتی)
          shamsololama@yahoo.com
          09177733411

          کامنت

          Working...