[حل شده] Validation در VBA و چند تا سوال در مورد TEXTBOX

[a.dal65]

سلام
دوستان دیروز من از روی نمونه یه فایل ( لینک دانلود )، برای خودم یه فرم در excel درست کردم
حالا چند تا سوال برام پیش اومده ممنون میشم راهنمایی کنید.
سوال هامو توی عکس ها گذاشتم.
یه مشکل اساسی داره که وقتی فایل رو میبندم خیلی طول میکشه تا بسته بشه . نمیدونمم چرااااااا
یه سوال دیگه میشه وقتی من اظلاعاتی رو وارد و ثبت کردم ، همون اطلاعاتی که ثبت شده رو توی شیت print بیاره
یه سوال دیگه :
چطوری توی TEXTBOX از سمت راست اطلاعات وارد بشه (فارسی)

[generalsamad]

با سلام
واسه قسمت آخر سوالتون میتونید روی textbox مورد نظر کلیک کرده و در properties آن TextAlign رو روی Right قرار دهید

[a.dal65]

برای validate اعداد این رو پیدا کردم

Private Sub Mablagh_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0 ' this prevents the non-numeric data from showing up in the TextBox
        MsgBox "You can only enter numbers"
    End If
End Sub

[a.dal65]

یه سری از مشکلاتم رو حل کردم
الان فقط میخوام textbox مبلغ سه رقم سه رقم جدا بشه
که تو اینترنت این لینک رو پیدا کردم ولی نتوستم توی فایل م پیاده کنم
لینک 1
لینک 2
و تمام فیلد ها پر شده باشن (null نباشه)
لینک

[Ali Parsaei]

سلام،
براي سه رقم سه رقم جدا کردن از اين کد استفاده کنيد: يعني در رويداد CHANGE تکست بکس بايد کد نوشته شود

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub 

[a.dal65]

ممنون میشم یه نگاه بهش بندازی
من نتونستم جواب بگیرم ازش
این هم یه نمونه از Fill all field هم پیدا کردم هر کی تونست کمک کنه

'VALIDATE USER ENTRY
    If (ComboBox1.Value = "" Or TextBox2.Value = "" _
    Or ComboBox5.Value = "" Or ComboBox6.Value = "" _
    Or ComboBox7.Value = "" Or ComboBox8.Value = "" _
    Or ComboBox9.Value = "" Or ComboBox10.Value = "" _
    Or ComboBox11.Value = "") Then
   
    MsgBox "All fields must be completed before" & _
            " you can begin.", vbCritical, _
            "Title"
  
    Exit Sub
    End If

[generalsamad]

با سلام
کد مربوط به مبلغ رو به این صورت تغییر بدید

Mablagh.Text = Format(Mablagh.Text, "#,###")