[حل شده] ساختن فرم پیشرفته اکسل

[felmajoon]

ساختن فرم پیشرفته اکسل

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

[iranweld]

با سلام


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

در قسمت تکست باکس اولی هر تاریخی را وارد نمایید جمع آن روز را به شما ارائه میدهد

Private Sub UserForm_Initialize()

Sum = 0

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

TextBox1 = J_TODAY()

For i = 1 To z1

If Sheet1.Range("A" & i) = J_TODAY() Then

Sum = Sum + Sheet1.Range("d" & i)

End If

Next

TextBox2 = Sum

End Sub 

[felmajoon]

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

[majid_mx4]

با سلام

لطفا فایل نمونه خودتان را ارسال نمایید و کمی توضیح روی آن بدهید تا به نتیجه مطلوب برسید .


با تشکر میر

[امين اسماعيلي]

با درود
فراوان خدمت تمامی عزیزان
یک سوال مدت زیادی ذهن منو درگیر خودش کرده. همه ما اینجاییم که مشکلات رو راهنمایی کنیم و بهم کمک کنیم. اینکه یه مشکل کلی بیایم جواب بدیم که راهش نیست. این همون قضیه ماهی میشه. طراحی فرم ها از ساده تا پبشرفته جزء محصولات سایت هست. بعضی مواقع واسه یه چیزایی یکمی هزینه کنیم بد نیست. خب بفرضم این سوال شمارو بچه های سایت زحمت کد نویسیشو کردن و طراحیم کردن. ایا شما به نحوه کد نویسیش، طراحیش و .... اشنا میشی. یعنی در اینده خودت این کار رو انجام میدی. این راهش نیست. عمرمو این ورو اون ور گذاشتم ندیدم کسی بیاد بگه یه فرم میخوام که این شکل باشه و .... اگر کسی هم مثلا یه فرم با همچین کارایی که شما گفتین بخواد انجام بده میاد پروژه اشو کوچک میکنه
میگه چطور فرم بسازم.
چجوری رنگ پس زمینه و قالب بندی دکمه ها و ..... رو تنطیم کنم. چجوری فراخوانیش کنم.
چجوری ارتباط بدم یه تکست باکسو به یه سل تو یه شیت
راه پیدا کردن ردیف خالی چحوریه که اطلاعات بره تو ردیف خالی و .....

وقتی پارت پارت شد . سوالاتشو بپرسه و تمرین کنه خودش.

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

موفق باشید و پیروز

[felmajoon]

ین فایل رو ببینید یه سوال دیگه هم داشتم.. نمیشه کاری کرد که شیت لیست هر 10 ثانیه یا کمتر یا بیشتر یا اصلا با زدن کلید ثبت اون شیت refresh بشه ؟
من خواستم این فایلی که فرسنادم برای شما رو از روش sort یکاری کنم فقط اسم حمید رو نشان بده اما گزینه sort هی باید بری بزنی تا مظالب جدید رو نشون بده
... و جواب شما دوسته عزیز
اگر اینجایی جواب به هم نوعات بدی و بهشون کمک کنی پس سعی کن همه جوره خدمت کن همین
من همه چی این فرم رو طراحی کردم فقط دوتا مشکل دارم که گوگل سرچ کردم این سایت اومد من هم سوال رو اینجا مطرح کردم .
هزینه واسه علم یاد گرفتن ما هم می کنیم .
الان که گفتین چشم نگاه می کنم ببینم اگه مطالبی که می خوام بدونم رو میشه از اونجا یاد گرفت حتما از سایت تهیه می کنم
ممنون که جواب میدین

[iranweld]

با سلام

برای رفرش شدن اتوماتیک تصویر پیوست را بررسی بفرمایید.

در کد Application.ontime عدد 10 نشانگر زمان رفرش شدن میباشد

Sub refresh()

    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
        "hamid"
        
        Application.OnTime (Now + TimeSerial(0, 0, 10)), "refresh"
End Sub 

[felmajoon]

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

[iranweld]

با سلام

بهترین حالت برای گزارشگیری اینکه تمامی دیتای شما در یک شیت ذخیره شود و با پیوت تیبل گزارشگیری نمایید

مشکل فرم شما برطرف شد و شیت Report برای گزارشگیری با پیوت تیبل ایجاد شد.

[felmajoon]

با سلام

بهترین حالت برای گزارشگیری اینکه تمامی دیتای شما در یک شیت ذخیره شود و با پیوت تیبل گزارشگیری نمایید

مشکل فرم شما برطرف شد و شیت Report برای گزارشگیری با پیوت تیبل ایجاد شد.

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

[iranweld]

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

لینک آموزش

[felmajoon]

خیلی ممنون دوسته عزیزم خیلی کمکم کردی و تقریبا ۹۰ درصد مششکلاتم حل شد
بعنوان آخرین سوال
من تو فایل پیوستی که در پستهای قبلی دادم ۳ تا textbox دارم می خواستم که بدونم چطودی میتونم
textbox1 : که برای اسم هستش فقط اسم دریافت کنه
textbox2 : که برای قیمت هستش فقط اعداد اونم بصورت ۳ تا ۰۰۰ مثال 24,000 تومان یا ریال دریافت کنه
و اخری هم فقط عدد دریافت کته
ممنون میشم در این مورد هم بهم کمک کنید
مرسی

[felmajoon]

دوستان این مشکل اخر رو کسی میدتونه کمک کنه حلش کنم ممنون میشم

[iranweld]

در فایل پیوست تکست باکس اول فقط حروف قابل درج شدن میباشد و در تکست باکس دوم فقط عدد

Private Sub TextBox1_Change()

If IsNumeric(Right(TextBox1, 1)) Then

TextBox1 = Left(TextBox1, Len(TextBox1) - 1)

End If

End Sub

Private Sub TextBox2_Change()

If Not IsNumeric(Right(TextBox2, 1)) Then

If Len(TextBox2) > 1 Then

TextBox2 = Left(TextBox2, Len(TextBox2) - 1)

Else

TextBox2 = ""

End If

End If

End Sub 

[felmajoon]

در فایل پیوست تکست باکس اول فقط حروف قابل درج شدن میباشد و در تکست باکس دوم فقط عدد

Private Sub TextBox1_Change()

If IsNumeric(Right(TextBox1, 1)) Then

TextBox1 = Left(TextBox1, Len(TextBox1) - 1)

End If

End Sub

Private Sub TextBox2_Change()

If Not IsNumeric(Right(TextBox2, 1)) Then

If Len(TextBox2) > 1 Then

TextBox2 = Left(TextBox2, Len(TextBox2) - 1)

Else

TextBox2 = ""

End If

End If

End Sub 

خیلی ممنون خیلی عالی دسته شما درد نکنه .......

2 تا موضوع هم دوست دارم در موردش بدونم اگر راهنمایی کنید کجا در موردش مطالعه کنم ممنون میشم ... چون هر چی نت سرچ کردم چیزیکه بدردم بخوره پیدا نکردم .

1. اینکه چطورش میتوتنم بصورت اتوماتیک تاریخ شمسی رو در یک تکست باکس نشون بده

2. اینکه چطور می تونم تکست باکسی که فقط عدد میگیره رو بصورت 000 اعشار که همون تومان یا ریال خودمون میشه رو روی تکست باکس اعمال کنم ..

میذونم سوال هام زیاد شده و من معذرت می خوام اما هر چی توی مباحثی که از سایت خریداری کردم و حتی توی گوگل چیزی پیدا نکردم .