[حل شده] کدهای ماکرو

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

سلام خدمت دوستان و اساتید محترم
شاید برای دوستان این پرسشها پیش پا افتاده باشد به بزرگی خودتان ببخشید من مبتدی هستم
چند تا سوال داشتم اساتید بزرگواری کرده جواب بدید
در فایل اکسل بنام 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 اصلا حذف نمیشه بدون تغییر باقی میماند شاید تئوری عمل کند و لی عملا اجرا نمیشود راهنمایی لطفا

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

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

کدهای ماکرو

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

سلام دو صد گفته را نیم کردار نیست
توجیه تئوری خیلی راحت و ساده است منتظر هستیم شاید سایر اساتید راه حل عملی ارائه نمایند. سپاس

[مهندس تبریزی]

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

سلام
من هم پیگیر این تاپیک هستم اگه راه حل داشته باشه عالی میشه.

[kazamie]

سلام دو صد گفته را نیم کردار نیست
توجیه تئوری خیلی راحت و ساده است منتظر هستیم شاید سایر اساتید راه حل عملی ارائه نمایند. سپاس

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

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

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

سلام دوست عزیز اگر وارد هستید پاسخ ارائه دهید اگر نه. پاسخ توجیهی نیاز ندارم . سپاس

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

عطایش را به لقایش بخشیدم مثل سوال بعدی از خیرش گذشتم