کدینگ حسابداری با vba

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

    • 2015/12/22
    • 118
    • 54.00

    [حل شده] کدینگ حسابداری با vba

    با سلام خدمت اساتید

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



    با تشکر از اساتید
    فایل های پیوست شده
    هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت
  • ناصر خان خان

    • 2015/12/22
    • 118
    • 54.00

    #2
    الوووووووو کسی نیست
    هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

    کامنت

    • M_ExceL

      • 2018/04/23
      • 677

      #3
      نوشته اصلی توسط ناصر خان خان
      با سلام خدمت اساتید

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



      با تشکر از اساتید
      سلام،
      لطفا بفرمایید که ComboBox4 باید ComboBox3 وابسته باشد؟
      همچنین سوال بعدی ایا ComboBox5 باید ComboBox4 وابسته باشد؟
      اون سه گروهی که درست کردید داخل شیت های گروه کل و معین مشخصه ولی در مورد وابستگی گروه تفصیلی بنده متوجه نشدم گروه وابسته به اون کجا قرار دارد؟
      اگر می تونید لطفا گروه بندی ها رو داخل یک شیت مشخص بیارید، کد نویسیش با ما.
      [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
      [/CENTER]

      کامنت

      • ناصر خان خان

        • 2015/12/22
        • 118
        • 54.00

        #4
        این یک شیت کاملا از کدینگ حسابداری
        کلا 4 تا کومبو داریم که یه هم وابسطه هستند. کومبو باکس 5 حذف میشه. چون کلا با همون 4 تا کلشون به هم وابسطه میشن. تا کومبوباکس 3 وابسطه گیشون معلومه چهارمیه نمیشه

        امیدوارم گویا باشه. بازم بهتون زحمت دادیم. اینطور که پیداست خدا به دادت برسه

        ممنونم
        فایل های پیوست شده
        هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

        کامنت

        • ناصر خان خان

          • 2015/12/22
          • 118
          • 54.00

          #5
          نوشته اصلی توسط ناصر خان خان
          این یک شیت کاملا از کدینگ حسابداری
          کلا 4 تا کومبو داریم که یه هم وابسطه هستند. کومبو باکس 5 حذف میشه. چون کلا با همون 4 تا کلشون به هم وابسطه میشن. تا کومبوباکس 3 وابسطه گیشون معلومه چهارمیه نمیشه

          امیدوارم گویا باشه. بازم بهتون زحمت دادیم. اینطور که پیداست خدا به دادت برسه

          ممنونم
          اینم فایل شیت تفضیلی. وضع اینترنت اینقدر بد که یک شیتش و تنونستم بفرستم
          فایل های پیوست شده
          هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

          کامنت

          • M_ExceL

            • 2018/04/23
            • 677

            #6
            نوشته اصلی توسط ناصر خان خان
            اینم فایل شیت تفضیلی. وضع اینترنت اینقدر بد که یک شیتش و تنونستم بفرستم
            ببینید اگر بصورت فایل زیر مد نظرتون هست، کد رو کاملش کنم.
            شیت جدیدی هم اضافه شده است.
            فایل های پیوست شده
            [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
            [/CENTER]

            کامنت

            • ناصر خان خان

              • 2015/12/22
              • 118
              • 54.00

              #7
              نوشته اصلی توسط M_ExceL
              ببینید اگر بصورت فایل زیر مد نظرتون هست، کد رو کاملش کنم.
              شیت جدیدی هم اضافه شده است.
              بله همینه. واقعا متشکرم بابت درک این موضوع و وقتی که بابتش گذاشتید.
              هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

              کامنت

              • M_ExceL

                • 2018/04/23
                • 677

                #8
                نوشته اصلی توسط ناصر خان خان
                بله همینه. واقعا متشکرم بابت درک این موضوع و وقتی که بابتش گذاشتید.
                سلام، خواهش میکنم
                کد ها کامل گردید، اکنون اگر ردیف جدیدی هم در شیت "list" اضافه کنید لیست ها بطور خودکار به روز می گردند.
                شیت "list" رو هم می تونید هاید کنید.
                بفرمایید :
                فایل های پیوست شده
                [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
                [/CENTER]

                کامنت

                • ناصر خان خان

                  • 2015/12/22
                  • 118
                  • 54.00

                  #9
                  نوشته اصلی توسط M_ExceL
                  سلام، خواهش میکنم
                  کد ها کامل گردید، اکنون اگر ردیف جدیدی هم در شیت "list" اضافه کنید لیست ها بطور خودکار به روز می گردند.
                  شیت "list" رو هم می تونید هاید کنید.
                  بفرمایید :
                  استاد واقعا ممنونم

                  فقط یک چیز. وآن اینکه دکمه ثبت هیچ عملی رو انجام نمیده. دکمه ثبت داخل شیت دیتا عمل میکنه نمونه از قبل هست.
                  یعنی بعد از پر شدن فیلدهای کومبو باکسها، آنها داخل شیت دیتا بر حسب ترتیب که مشاهده میشود کپی میشود.
                  فقط همین

                  در کل از اون چیزی که توسرم بود بهتر شده. مرسی
                  هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

                  کامنت

                  • M_ExceL

                    • 2018/04/23
                    • 677

                    #10
                    نوشته اصلی توسط ناصر خان خان
                    استاد واقعا ممنونم

                    فقط یک چیز. وآن اینکه دکمه ثبت هیچ عملی رو انجام نمیده. دکمه ثبت داخل شیت دیتا عمل میکنه نمونه از قبل هست.
                    یعنی بعد از پر شدن فیلدهای کومبو باکسها، آنها داخل شیت دیتا بر حسب ترتیب که مشاهده میشود کپی میشود.
                    فقط همین

                    در کل از اون چیزی که توسرم بود بهتر شده. مرسی
                    سلام،
                    ابتدا تمام فرمول ها ی موجود در ستون های شرح کل، شرح معین و شرح تفصیلی شیت "data" رو پاک کنید، چون دیگر نیازی به اون ها ندارید.
                    سپس از کد زیر جهت عملکرد CommandButton1 استفاده کنید :
                    کد:
                    Private Sub CommandButton1_Click()
                    Dim lrcol(1 To 19)
                    Dim col(1 To 19)
                    For i = 1 To 19
                    lrcol(i) = Cells(Rows.Count, i + 1).End(3).Row
                    col(i) = WorksheetFunction.CountA(Range(Cells(6, i + 1), Cells(lrcol(i), i + 1)))
                    Next i
                    maxcol = WorksheetFunction.Max(col()) + 6
                    Cells(maxcol, 6) = ComboBox2.Text
                    Cells(maxcol, 8) = ComboBox3.Text
                    Cells(maxcol, 10) = ComboBox4.Text
                    End Sub
                    [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
                    [/CENTER]

                    کامنت

                    • ناصر خان خان

                      • 2015/12/22
                      • 118
                      • 54.00

                      #11
                      حل استاد گرامی

                      متشکرم
                      هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

                      کامنت

                      چند لحظه..