بروز رسانی یک شیت با استفاده از vba

[bokhi]

در اکسل چگونه کدی می توانیم بنویسیم که از یک شیت به عنوان مثال اطلاعات یک کالا با موجودی ( فروش یا خرید کالا) به طوری که در شیت موجودی اطلاعات اپدیت بشه
با خرید کالا موجودی در شیت دیگر اضافه شود با فروش موجودی کالا کم شود
از متخصصین محترم اکسل تمنا دارم به سوالم جواب بدهتد

باتشکر
bokhi

[m_d6712]

می تونی سه تا sheet درست کنی که یکی "خرید" ، یکی "فروش" و آخری "موجودی" باشد.
در sheet های خرید و فروش از رویداد Change استفاده کن:

Private Sub Worksheet_Change(ByVal Target As Range)
//statements
End Sub

در محل statements می تونید این طور عمل کنی:
// اینجا باید کدی رو بنویسی که Sheet موجودی رو تغییر میده!
// مثلا می تونی از تابع Find واسه پیدا کردن محصول مورد نظر استفاده کنی و با استفاده از Offset مقدار اونو با یک عمل جمع ساده بروز رسانی کنی.

[mrexcel]

استفاده از ابزار advance filter و ماكرو با هم نيز ميتواند گزارش فوق را توليد نمايد

[shamsololama]

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

ضمن عرض تشکر و سپاس از دوستان گرامی که در مورد این سئوال توضیح داده اند.
در مورد اینکه شما همیشه موجودی را به روز نگه داشته و در زمان فروش و خرید همچنان موجودی همزمان با خرید فروش کم و یا زیاد شده و همیشه آمار دقیق را به شما نشان دهد می توانید.
با استفاده از توابع این کار را انجام دهید :
تابع(Dsum) را در هر جایی که خواستید می توان نوشته و چه در همان شیت و یا یک شیت مخصوص آن را مورد استفاده قرار دهید.

و همچنین با کد نویسی نیز می توان عملیات فوق را انجام داد که یک روش آن دوست عزیزم با یوزر m_d6712 توضیح داده اند که البته در این روش چون در رویداد Worksheet_Change نوشته می شود با هر بار کلیک کردن و یا تایپ چیزی در آن صفحه اگر مربوط به خرید و یا فروش هم نباشد این کد اجرا شده که مقداری سرعت برنامه را پایین آورده و اگر اطلاعات صفحه و دیتای ما زیاد باشد زمان زیادی را خواهد بود

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

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


موفق باشد

http://img10.img98.com/out.php/i71025_1605160815801608158317401575160615761575158 5.jpg

[m_d6712]

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

و همچنین با کد نویسی نیز می توان عملیات فوق را انجام داد که یک روش آن دوست عزیزم با یوزر m_d6712 توضیح داده اند که البته در این روش چون در رویداد Worksheet_Change نوشته می شود با هر بار کلیک کردن و یا تایپ چیزی در آن صفحه اگر مربوط به خرید و یا فروش هم نباشد این کد اجرا شده که مقداری سرعت برنامه را پایین آورده و اگر اطلاعات صفحه و دیتای ما زیاد باشد زمان زیادی را خواهد بود


میتونیم با تغییراتی ایم event رو به event دلخواه تبدیل کرد که از بار و لود اضافی نیز جلوگیری کنیم!!!!!
مثلا یک شرط بزاریم که اگر تغییرات در محدوده مورد نظر نبود event اجرا نشود....

[shamsololama]

با درود فراوان
از m_d6712 از توضیح و توجه شما بسیار سپاسگزارم

[shamsololama]

با درود فراوان
در مورد فرمها برای ورود اطلاعات خرید و فروش یه فایل نمونه گذاشتم .
البته فایل اصلی آن چون حجم بالایی داشت خلاصه شده آن را گذاشتم به همین علت همه امکانات آن کار نمیکنه فقط فرمهای ورود اطلاعات و جستجوها را برات گذاشتم

پسورد برنامه :Exceliran

http://i.iimmgg.com/images/th/f4e37fa1be4662b31250a179a343a489.jpg (http://www.iimmgg.com/image/9e6ae63011c385a915100e65540466d1)


File #1: http://www.lon.ir/up/uploads/1276241882.zip


File #1: http://www.lon.ir/up/uploads/1276178274.rar

[shamsololama]

با درود فراوان
لینک های جدید گذاشتم با پسورد Exceliran می تونید

[ARIAARVIN]

سلام دوستان میخواستم عدد رو به حروف تبدیل کنم آیا امکان پذیره در اکسل ؟
ممنون از همکاری همتون

[mrexcel]

در قسمت دانلود سايت كدهاي ويژوال بيسيك اكسل اين امكان گذاشته شده است
http://exceliran.com/web/%d8%af%d8%a7%d9%86%d9%84%d9%88%d8%af/?did=36
شما ميتوانيد اين فايل را از انجا دانلود كنيد

[khakzad]

سلام
ای فایل ها که وتسه دانلود برنامه حسابداری هست،فعال نیستن.
ممنون میشم اگر درست کنید
مرسی

[ali.b]

فایل هاش کار نمیکنه یا ی چیز دیگه هست