فرم فروش

[sma4727134]

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

1. مبالغ فروش و خرید در text box موقع ورود داده بصورت سه رقم سه رقم جدا شده و مشخص گردد.
2.موقع ذخیره اطلاعات بر اساس سال عملکرد ؛ اطلاعات در جدول همان سال ذخیره گردد.
3. نمی خوام برای هر سال شیت های جداگانه طراحی شود.
با تشکر

[iranweld]

با سلام

فایل پیوست را ملاحظه نمایید.

برای راحتی در ذخیره دیتا و گزارشگیری بعدی ساختار جدول خود را مانند فایل پیوست تغییر دهید

Private Sub UserForm_Initialize()

Dim cell, rng

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

Set rng = Sheet1.Range("h2:h" & z1)

For Each cell In rng

ComboBox1.AddItem cell

Next

End Sub


Private Sub CommandButton1_Click()

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


Sheet1.Cells(z1, 1) = ComboBox1

For i = 1 To 4

Sheet1.Cells(z1, i + 1) = Me.Controls("Textbox" & i)

Next

For i = 1 To 4

Me.Controls("Textbox" & i) = ""

Next



End Sub

Private Sub TextBox3_Change()

TextBox3 = Format(TextBox3, "#,##")

End Sub

Private Sub TextBox4_Change()

TextBox4 = Format(TextBox4, "#,##")

End Sub