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

**m_d6712** · 2010/05/26, 18:33

RE: درخواست کمک

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

کد:

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

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

**mrexcel** · 2010/05/27, 17:37

RE: درخواست کمک

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

**shamsololama** · 2010/05/30, 14:55

RE: درخواست کمک

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

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

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

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

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

موفق باشد

[img][/img]

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

موجودی انبار2.xls (28.5 کیلو بایت, مشاهدات 51)

**m_d6712** · 2010/05/30, 17:19

RE: درخواست کمک

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

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

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

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

**shamsololama** · 2010/05/30, 18:51

RE: درخواست کمک

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

**shamsololama** · 2010/06/07, 15:33

RE: درخواست کمک

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

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

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

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

**shamsololama** · 2010/06/10, 13:54

RE: درخواست کمک

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

**ARIAARVIN** · 2010/07/08, 19:37

RE: درخواست کمک

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

**mrexcel** · 2010/07/09, 07:10

RE: درخواست کمک

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