کدهای ماکرو

[دکتر علیزاده]

سلام خدمت دوستان و اساتید محترم
شاید برای دوستان این پرسشها پیش پا افتاده باشد به بزرگی خودتان ببخشید من مبتدی هستم
چند تا سوال داشتم اساتید بزرگواری کرده جواب بدید
در فایل اکسل بنام book100 که شامل چندین شیت با اطلاعات و چندین فرم و چندین ماکرو هست
1- با چه کدی در vba همه میتوانیم اطلاعات شیت ها را پاک کنیم
2- با چه کدی در vba همه شیت ها ( به جز شیت یک خالی از اطلاعات ) را دلیت delete کنیم
3- با چه کدی در vba همه ماکروها را حذف کنیم
4- با چه کدی در vba همه فرم ها را حذف کنیم
5- با چه کدی در vba به محض باز شدن فایل اعمال بالا انجام بشه.
از همه اساتید که با حوصله تمام به سوالات این عضو کوچک مبتدی پاسخ میدهند سپاسگزارم (لطفا هر شماره را جداگانه پاسخ دهید بتوانم تجزیه و تحلیل نمایم)
با تشکر

[iranweld]

با سلام

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

Sub clear()

For i = 1 To Sheets.Count

Sheets(i).Cells.ClearContents

Next


End Sub 

برای سوال دوم

نام شیتی که نباید دیلت شود را در کدها تغییر بدید

Sub delete()
For Each Sheet In Worksheets
Application.DisplayAlerts = False
If Sheet.Name <> "Sheet1" Then
Sheet.delete
End If
Next
Application.DisplayAlerts = True
End Sub 

[دکتر علیزاده]

با سلام

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

Sub clear()

For i = 1 To Sheets.Count

Sheets(i).Cells.ClearContents

Next


End Sub 

برای سوال دوم

نام شیتی که نباید دیلت شود را در کدها تغییر بدید

Sub delete()
For Each Sheet In Worksheets
Application.DisplayAlerts = False
If Sheet.Name <> "Sheet1" Then
Sheet.delete
End If
Next
Application.DisplayAlerts = True
End Sub 

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

[دکتر علیزاده]

سلام واقعا کسی نمیتونه جواب سوالات مانده رو بده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[دکتر علیزاده]

سلام واقعا کسی نمیتونه جواب سوالات مانده رو بده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[دکتر علیزاده]

سلام خدمت دوستان و اساتید محترم
شاید برای دوستان این پرسشها پیش پا افتاده باشد به بزرگی خودتان ببخشید من مبتدی هستم
چند تا سوال داشتم اساتید بزرگواری کرده جواب بدید
در فایل اکسل بنام book100 که شامل چندین شیت با اطلاعات و چندین فرم و چندین ماکرو هست
1- با چه کدی در vba همه میتوانیم اطلاعات شیت ها را پاک کنیم
2- با چه کدی در vba همه شیت ها ( به جز شیت یک خالی از اطلاعات ) را دلیت delete کنیم
3- با چه کدی در vba همه ماکروها را حذف کنیم
4- با چه کدی در vba همه فرم ها را حذف کنیم
5- با چه کدی در vba به محض باز شدن فایل اعمال بالا انجام بشه.
از همه اساتید که با حوصله تمام به سوالات این عضو کوچک مبتدی پاسخ میدهند سپاسگزارم (لطفا هر شماره را جداگانه پاسخ دهید بتوانم تجزیه و تحلیل نمایم)
با تشکر

سلام واقعا کسی نمیتونه جواب سوالات مانده رو بده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[kazamie]

سلام واقعا کسی نمیتونه جواب سوالات مانده رو بده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

من سوال ۵ را جواب می دهم، اگر سوال ۳ و ۴ جواب داشته باشند و کد آن ها به صورت ماکرو ۳ و ۴ ذخیره شده باشد برای اجرای این دو ماکرو به محض باز شدن فایل در workbook و در رویداد open این دو ماکرو را با کد call صدا می زنیم

call macro3
call macro4

[kazamie]

در مورد حذف کد های vba یک راه به ذهنم رسید ولی کد آماده نمی دهم فقط راهنمایی می کنم
فایل های اکسل اگر با پسوند xlsx ذخیره شوند کد های ماکروی آن ها خود به خود حذف می شود شما باید یک ماکرو بنویسید که به محض اجرای آن فایل را در محل فایل اجرا شده ولی با پسوند xlsx ذخیره کند و بعد آن را اجرا کندو فایل اصلی را حذف کند

[دکتر علیزاده]

در مورد حذف کد های vba یک راه به ذهنم رسید ولی کد آماده نمی دهم فقط راهنمایی می کنم
فایل های اکسل اگر با پسوند xlsx ذخیره شوند کد های ماکروی آن ها خود به خود حذف می شود شما باید یک ماکرو بنویسید که به محض اجرای آن فایل را در محل فایل اجرا شده ولی با پسوند xlsx ذخیره کند و بعد آن را اجرا کندو فایل اصلی را حذف کند

سلام در صورت ذخیره فایل بصورت xlsx فایل اصلی و فایل xlsx اصلا حذف نمیشه بدون تغییر باقی میماند شاید تئوری عمل کند و لی عملا اجرا نمیشود راهنمایی لطفا

[kazamie]

سلام در صورت ذخیره فایل بصورت xlsx فایل اصلی و فایل xlsx اصلا حذف نمیشه بدون تغییر باقی میماند شاید تئوری عمل کند و لی عملا اجرا نمیشود راهنمایی لطفا

سلام
من هم عملی به نتیجه نرسیدم چون ماکروها تا زمانی که فایل باز است اجرا می شوند و فایل باز و فعال غیر قابل حذف شدن است ولی می توانید بجای حذف ادامه ماکرو که اجرا می شود فایل را زرمزگذاری کند تا دیگر قابل استفاده نباشد و کاربر خودش آن را حذف کند و یا روش دیگر ولی برای کاربران مبتدی قابل انجام است اینکه دو فایل ماکرو دار وابسته به هم و در کنار هم داشته باشید و به کاربر بگویید هر دو فایل برای اجرای برنامه باید کنار هم باشند و بعد برای حذف ماکروها فایل اصلی فایل ماکرو دار دوم اجرا شود و این فایل را حذف کند و فایل بدون ماکرو ایجاد کند این ها که گفتم نیاز به فکر کردن و کد نوشتن دارند شاید کار هر کسی نباشد، من هم فقط تئوری توضیح دادم شاید تو عمل خطا بدهد