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

**ناصر خان خان** · 2019/05/13, 22:42

الوووووووو کسی نیست

**M_ExceL** · 2019/05/14, 00:48

نوشته اصلی توسط ناصر خان خان

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

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

با تشکر از اساتید

سلام،
لطفا بفرمایید که ComboBox4 باید ComboBox3 وابسته باشد؟
همچنین سوال بعدی ایا ComboBox5 باید ComboBox4 وابسته باشد؟
اون سه گروهی که درست کردید داخل شیت های گروه کل و معین مشخصه ولی در مورد وابستگی گروه تفصیلی بنده متوجه نشدم گروه وابسته به اون کجا قرار دارد؟
اگر می تونید لطفا گروه بندی ها رو داخل یک شیت مشخص بیارید، کد نویسیش با ما.

**ناصر خان خان** · 2019/05/14, 01:13

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

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

ممنونم

فایل های پیوست شده

Book1-1.xlsx (34.3 کیلو بایت, مشاهدات 6)

**ناصر خان خان** · 2019/05/14, 01:42

نوشته اصلی توسط ناصر خان خان

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

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

ممنونم

اینم فایل شیت تفضیلی. وضع اینترنت اینقدر بد که یک شیتش و تنونستم بفرستم

فایل های پیوست شده

Book1-2.xlsx (42.9 کیلو بایت, مشاهدات 8)

**M_ExceL** · 2019/05/14, 02:23

نوشته اصلی توسط ناصر خان خان

اینم فایل شیت تفضیلی. وضع اینترنت اینقدر بد که یک شیتش و تنونستم بفرستم

ببینید اگر بصورت فایل زیر مد نظرتون هست، کد رو کاملش کنم.
شیت جدیدی هم اضافه شده است.

فایل های پیوست شده

حسابداری عمومی2.zip (286.0 کیلو بایت, مشاهدات 16)

**ناصر خان خان** · 2019/05/14, 13:58

نوشته اصلی توسط M_ExceL

ببینید اگر بصورت فایل زیر مد نظرتون هست، کد رو کاملش کنم.
شیت جدیدی هم اضافه شده است.

بله همینه. واقعا متشکرم بابت درک این موضوع و وقتی که بابتش گذاشتید.

**M_ExceL** · 2019/05/14, 19:08

نوشته اصلی توسط ناصر خان خان

بله همینه. واقعا متشکرم بابت درک این موضوع و وقتی که بابتش گذاشتید.

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

فایل های پیوست شده

حسابداری عمومی3.zip (296.0 کیلو بایت, مشاهدات 21)

**ناصر خان خان** · 2019/05/15, 02:07

نوشته اصلی توسط M_ExceL

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

استاد واقعا ممنونم

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

در کل از اون چیزی که توسرم بود بهتر شده. مرسی

**M_ExceL** · 2019/05/15, 19:40

نوشته اصلی توسط ناصر خان خان

استاد واقعا ممنونم

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

در کل از اون چیزی که توسرم بود بهتر شده. مرسی

سلام،
ابتدا تمام فرمول ها ی موجود در ستون های شرح کل، شرح معین و شرح تفصیلی شیت "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