راهی هستش که در کامبوباکس ها و لیست باکس ها ، محتوایی به صورت پیش فرض نمایش داده بشه یا برای راهنمایی کردن افراد، مثلا عبارت کد ملی ۱۰ رقم می باشد!
-
-
سلام
دوست عزیز به پست زیر مراجعه کنید
متن راهنما در تکست باکس
Last edited by میثم مقدم نیا; 2023/03/02, 00:46.[HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR] -
سلام مجدد خدمت استاد گرامی:
در صورت امکان کد انتقال به اکسل رو نیز کمک کنیدکامنت
-
سلام یعنی ثبت کد ملی و تاریخ تولد در اکسلکامنت
-
سلام
از اونجای که شما فایل نمونه ندارید
کدی برایتان ارسال میکنم اطلاعات را در Sheet1 و سلول A و B ذخیره می کند؛ شما بنابر نیاز خود میتوانید آن ها را تغییر دهید.
برای کلید خود از کد زیر استفاده کنید
لازم به ذکر است که کد بالا برای یوزرفرم موجود در پست متن راهنما در تکست باکس نوشه شده استکد PHP:Private Sub ComButton1_Click()
num = Application.WorksheetFunction.CountA(Range("a:a")) + 1
Sheets("Sheet1").Cells(num, 1).Value = TextBox1.Value
Sheets("Sheet1").Cells(num, 2).Value = TextBox2.Value
MsgBox "اطلاعات با موفقيت ثبت شد", vbMsgBoxRight, "ثبت اطلاعات"
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
با تشکر میثم مقدم نیاLast edited by میثم مقدم نیا; 2023/03/03, 02:59.[HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]کامنت
-
سلام تشکر بابت محبتتون
اگر بخواهیم مشخصات زیر هم کپی بشه فرمولش چی میشه؟کامنت
-
سلام
برای این کار کد خود از مانند زیر اصلاح کنید
به همین سادگیکد PHP:Private Sub ComButton1_Click()
num = Application.WorksheetFunction.CountA(Range("a:a")) + 1
num2 = Application.WorksheetFunction.CountA(Range("a:a")) + 2
Sheets("Sheet1").Cells(num, 1).Value = TextBox1.Value
Sheets("Sheet1").Cells(num2, 2).Value = TextBox2.Value
MsgBox "اطلاعات با موفقيت ثبت شد", vbMsgBoxRight, "ثبت اطلاعات"
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
با تشکر میثم مقدم نیا[HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]کامنت
-
سلام
اصلاح کد
برای این کار کد خود از مانند زیر اصلاح کنید
کد PHP:Private Sub ComButton1_Click()
num = Application.WorksheetFunction.CountA(Range("a:a")) + 1
num2 = Application.WorksheetFunction.CountA(Range("a:a")) + 2
Sheets("Sheet1").Cells(num, 1).Value = TextBox1.Value
Sheets("Sheet1").Cells(num2, 1).Value = TextBox2.Value
MsgBox "اطلاعات با موفقيت ثبت شد", vbMsgBoxRight, "ثبت اطلاعات"
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
به همین سادگی
با تشکر میثم مقدم نیا[HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]کامنت
-
تشکر فراوان و سپاسکامنت
کامنت