انجام محاسبات روی فرم و انتقال داده ها به شیت

[naser1357]

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

[Ali Parsaei]

سلام آقا ناصر،درست است که فرموده ايد: "این قسمت فرم فقط یک فرم از دهها فرم می باشد" و در اصل سوالتان را خلاصه کرده ايد.ولي انصافا" همين هم خيلي زياد است، به نظر من بهتر است جزء به جزء دقيقا" هر چيزي که به مشکل برمي خوريد را مطرح کنيد. اينجوري طبق تجربه من خيلي زودتر به جواب خواهيد رسيد. دوستان سايت کمتر راغب هستند براي سوالات بزرگ و طولاني وقت بگذارند، زيرا همان وقت را مي توانند صرف پاسخ دادن به سوالات کوچک چندين نفر نمايند (البته جسارت بنده را ببخشيد، اين صرفا" يک پيشنهاد از جانب من است).مثلا" مي توانيد اول بپرسيد که چگونه ليست قيمت اجناس را از صفحه به combobox منتقل کنم؟ (يعني نحوه تنظيم combobox جهت خواندن اطلاعات از صفحه).البته پاسخ خيلي از جوابها را مي توانيد از روي نمونه فايلهاي فراواني که در سايت هست پيدا کنيد، ضمن اينکه اگر فايل را تا اينجاي کار خودتان تنظيم نموده ايد قاعدتا" استخراج پاسخ سوالاتتان از بين نمونه هاي موجود در سايت خيلي نبايد مشکل باشد.ارادتمند - علي پارسا

[naser1357]

استاد اطلاعات ابتدا روي فرم ثبت مي شوند و سپس به شيت منتقل ميشوند
اگر چه زياده اما اگر دو سه مورد حل ميشدند بقيه را بهتر حل مي نمودم
1- چگونه هر كادر را به يك سلول انتقال بدم
2- نحوه محاسبات مثلا ضرب اعداد دو كادر روي فرم و گذاشتن نتيجه بصورت اتومات در كادر بعد چگونه خواهد بود؟

[abootorab]

استاد اطلاعات ابتدا روي فرم ثبت مي شوند و سپس به شيت منتقل ميشوند
اگر چه زياده اما اگر دو سه مورد حل ميشدند بقيه را بهتر حل مي نمودم
1- چگونه هر كادر را به يك سلول انتقال بدم
2- نحوه محاسبات مثلا ضرب اعداد دو كادر روي فرم و گذاشتن نتيجه بصورت اتومات در كادر بعد چگونه خواهد بود؟

با درود
جهت انتقال مقادیر درون تکست باکس به سلول مورد نظر از دستور زیر میتوانید استفاده کنید:
به عنوان مثال

Sheet3.Cells(2, 5) = UserForm1.TextBox1.Value 

برای اعمال محاسبات و تغییر آنی در تکست باکس دیگر نیز باید در Event تغییر تکست باکس مربوطه بصورت زیر بنویسید:
به عنوان مثال

Private Sub TextBox2_Change()
    UserForm1.TextBox3.Value = UserForm1.TextBox1.Value * UserForm1.TextBox2.Value
End Sub

Private Sub TextBox1_Change()
    UserForm1.TextBox3.Value = UserForm1.TextBox1.Value * UserForm1.TextBox2.Value
End Sub 

[naser1357]

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

[abootorab]

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

درود مجدد
دوست عزیز فایل نمونه رو ببینید، امیدوارم منظورتون همین باشه.

[naser1357]

سلام مجدد استاد
تا حدودي مشكل فرم حل شد
اما در ديگر ستون ها نياز به محاسباتي داريم كه اگر از طريق تابع و فرمول حساب كنيم چون بعد از ايجاد ركورد جديد سطر جديد ايجاد ميشود فرمول ها در ان ستون قرار نمي گيرند اگر ممكنه ماكرو همين چند ستون نيز براي زحمتش را بكسين
توضيحات بيشتر روي فايل دادم

[majid_mx4]

با سلام

دوست عزیز لطفا فایل ضمیمه را بررسی نمایید. ( توضیح دارد)

خلاصه : استفاده از فرمول واضافه شدن فرمول مناسب در صورت پر بودن خانه های تعریف شده ازطریق وبی

با تشکر میر

[naser1357]

سلام
استاد ارجمند ماکرو ضرب دو ستون و نمایش ج.اب ئر ستون دیگر را می گذارین؟ برای کل ستون
همچنین ماکروی تقسیم دو ستون