ورود و ذخیره سازی و ویرایش اطلاعات در شیت

[iransim]

سلام بر دوستان و استادان گرامی
لطفا فایل ضمیمه را ببینید و در مورد موارد ذیل راهنمائی بفرمائید .( قبلا از زحمات و لطف دوستان ممنونم )

1 - چگونه پس از ورود اطلاعات در فرم طراحی شده ( شیت Form ) با کلیک به روی دکمه های ( ثبت - ویرایش و حذف ) این عملیاتها رو انجام بدم ؟
در ضمن میخوام اطلاعات پس از کلیک بروی دکمه ( ثبت ) در شیت List ذخیره شود ولی عملیات ویراش و حذف روی همین فرم اول ( شیت Form ) انجام شود .

2- چگونه عملیات جستجو را روی فرم طراحی انجام بدم ( متن و عدد ) ؟

3- چگونه وقتی فایل رو باز میکنم شیت form فعال باشه و ابجکتهای روی اون غیر قابل ویرایش باشه ؟

بازم ممنونم

[iranweld]

با سلام

برای ذخیره دیتای ورودی از کدهای ذیل استفاده کنید

Sub TEST()

z1 = Sheets("List").Cells(Sheets("List").Rows.Count, "b").End(xlUp).Row + 1

Sheets("List").Cells(z1, 2) = Range("d5")
Sheets("List").Cells(z1, 3) = Range("d7")
Sheets("List").Cells(z1, 4) = Range("d9")
Sheets("List").Cells(z1, 5) = Range("d11")
Sheets("List").Cells(z1, 6) = Range("d13")
Sheets("List").Cells(z1, 7) = Range("d15")

Sheets("List").Cells(z1, 8) = Range("i5")
Sheets("List").Cells(z1, 9) = Range("i7")
Sheets("List").Cells(z1, 10) = Range("i9")
Sheets("List").Cells(z1, 11) = Range("i11")
Sheets("List").Cells(z1, 12) = Range("i13")
Sheets("List").Cells(z1, 13) = Range("i15")
Sheets("List").Cells(z1, 14) = Range("i17")

MsgBox "ثبت شد"

End Sub 

[iranweld]

برای باز شدن شیت form در هنگام باز شدن فایل از کدهای ذیل در قسمت کدنویسی thisworkbook استفاده کنید

[iransim]

با سلام

برای ذخیره دیتای ورودی از کدهای ذیل استفاده کنید

Sub TEST()

z1 = Sheets("List").Cells(Sheets("List").Rows.Count, "b").End(xlUp).Row + 1

Sheets("List").Cells(z1, 2) = Range("d5")
Sheets("List").Cells(z1, 3) = Range("d7")
Sheets("List").Cells(z1, 4) = Range("d9")
Sheets("List").Cells(z1, 5) = Range("d11")
Sheets("List").Cells(z1, 6) = Range("d13")
Sheets("List").Cells(z1, 7) = Range("d15")

Sheets("List").Cells(z1, 8) = Range("i5")
Sheets("List").Cells(z1, 9) = Range("i7")
Sheets("List").Cells(z1, 10) = Range("i9")
Sheets("List").Cells(z1, 11) = Range("i11")
Sheets("List").Cells(z1, 12) = Range("i13")
Sheets("List").Cells(z1, 13) = Range("i15")
Sheets("List").Cells(z1, 14) = Range("i17")

MsgBox "ثبت شد"

End Sub 

سلام دوست عزیز و ممنون از راهنمائی شما
فقط این کدهای دکمه ثبت رو کجا مینویسیم ؟ یعنی صفحه کد نویسی رو چطوری فعال میکنیم ؟
در مورد ویرایش و جستجو و حذف رکورد نیز امکان راهنمائی هست ؟

[iranweld]

شما بایستی کدنویسی در اکسل رو مطالعه کنید

با کلید ترکیبی Alt+F11 یا از منوی Developer وارد محیط کدنویسی شوید

در مورد ویرایش و حذف امکان پذیر هست ولی وقتگیر هستش که ان شاالله دوستان همکاری میکنند

[iransim]

ممنون دوست عزیز

آیا لطف بقیه دوستان نیز شامل ما خواهد شد؟

[Javid Mokhtari]

ممنون دوست عزیز

آیا لطف بقیه دوستان نیز شامل ما خواهد شد؟

با سلام....مسلما شامل خواهد شد.ولی هدف این تالار رفع مشکل و راهنمایی عزیزان همراه با آموزش می باشد.ولی خب سئوال شما طراحی فرم هستش