سوال در مورد فرم و خروجی گرفتن از آن

[mahmood320]

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

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

با درود
چون با فرمت تکست ذخیره میشن شاید. نمونه فایل رو بزارین تا چک بشه . یا میتونین یه چند خط کد بنویسیم که در هر صورت اصلاحشون کنه مثلا ببین اگر ستون A هستش این کمک میکنه

Sub Txt_to_No()
  On Error Resume Next
     Range("A:A").Select
    Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
    

End Sub

[mahmood320]

ممنون از جوابتون ولی کار نکرد فایل رو ضمیمه کردم

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

[mahmood320]

درود بر شما دوست عزیز ..تونستم با کدتون یه کارایی بکنم ..اما چطور میشه اینکارو برای همه سطره و ستونهای یک شیت انجام داد

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

ba drod sharmande bazam to daneshgaham keyboard farsi nadaram. akhe azize dele man mikham codato check konam bebinam chera adadat txt zakhire mishe vba ro ham pass gozashti mashti.kho man chejori ro filet kar konam .khone ham nisam betonam fileto ghoflesho baz konam . pass niaz daram

[mahmood320]

سلام مجدد...رمزشو که همون اول دادم 85130 ..بازم ممنون ..کدتو برا چند ستون نیاز د داشتم که استفاده کردم ولی اکه کدی بنویسی که همه سطرها و ستونارو با هم عددی ذخیره کنه عالی میشه
..بازم ممنون.................راستی چطوری میشه کاری کرد که نشه تو یک تکست باکس با اعمال شرطی تایپ کردن ممکن نباشه ...نمیخوام تکس باکسو هیدن کنم ..فقط میخوام غیر قابل تایپ بشه

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

با درود
یه شرطی بگو تا برات بگم . اما در حالت کلی تو ایونت Change تکست باکس شرطت رو میزاری و همونجا میگی اگر مثلا بزرگتر از 10 بود خای نشون بده یا هرچی. و اما رمز 85130 برای محیط ویژوال بیسیکتون کار نمیکنه عزیزم

[alisabet]

در مورد این فایل( پیوست پست شماره3) دو تا سوال دارم که خواهشمندم اساتید گرامی پاسخ دهند.

1- هنگام اجرای یوزرفرم تمام پنجره اکسل مخفی میشود . چگونه ؟

2- vba progect هم مخفی است . چگونه ؟

[mokaram]

سوال 1 : برای عدم نمایش هنگام ران شده فایل از کد زیر استفاده شده :

Private Sub Workbook_Open()
Application.Workbooks.Application.Visible = False
UserForm1.Show
End Sub 

سوال دوم : پسور گذاشته شده .با راست کلیک روی vba project و انتخاب گزینه propereties تب protection

[mahmood320]

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

[mokaram]

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

از کد زیر استفاده کنید

Private Sub TextBox1_Change()
If TextBox1.Text = "2" Then
    TextBox2.Enabled = False
    TextBox3.Enabled = False
ElseIf TextBox1.Text = "" Or TextBox1.Text <> "2" Then
    TextBox2.Enabled = True
    TextBox3.Enabled = True
End If
End Sub 

[mahmood320]

یک دنیا ممنونم.....

[mahmood320]

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

[mokaram]

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

Private Sub TextBox1_Change()
If TextBox1.Text <> "" Then
    TextBox2.BackColor = vbRed
ElseIf TextBox1.Text = "" Then
    TextBox2.BackColor = vbWhite
End If
End Sub 

[mahmood320]

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