پرسش و پاسخ های متداول vba excel

**sohrabahmadi** · 2012/08/08, 17:10

RE: پرسش و پاسخ های متداول vba excel

نوشته اصلی توسط MEYTI

با سلام دوست عزیز شما یوزرفرمتون و به چه نحوی لود میکنی؟

با سلام به شما با کد زیر:
Private Sub Workbook_Activate()
Application.Windows.Application.Visible = False
userform1.Show
End Sub

**MEYTI** · 2012/08/08, 19:12

RE: پرسش و پاسخ های متداول vba excel

دوست عزیز زمانی که فرمتون در حال اجرا باشه اصلا اجاره نمیده فایل جدیدی باز کرد
اگه نمونه فایل بذاری بهتر به نتیجه میرسیم

**sohrabahmadi** · 2012/08/08, 19:34

RE: پرسش و پاسخ های متداول vba excel

نوشته اصلی توسط MEYTI

دوست عزیز زمانی که فرمتون در حال اجرا باشه اصلا اجاره نمیده فایل جدیدی باز کرد
اگه نمونه فایل بذاری بهتر به نتیجه میرسیم

ممنون از شما فکرکنم این حالت در زمانی اتفاق افتاد که از فرم خارج بوده.
اگه امکان داره بفرمایین آیا راه حلی هست که هنگام اجرای یوزرفرم مثل سایر نرم افزارها یوزر فرم در taskbar نمایش داده بشه؟ ممنون از لطف شما

**MEYTI** · 2012/08/09, 11:42

RE: پرسش و پاسخ های متداول vba excel

با سلام و روز بخیر
این فایلو از یه سایت خارجی دانلود کردم که علاوه بر ماکسیمایز و مینیمایز فرم امکانات جالب دیگه ای داره که امیدوارم به درد دوستان بخوره

http://s1.picofile.com/file/7463847739/UserFormControl.xls.html

**komeilex** · 2012/08/09, 11:53

RE: پرسش و پاسخ های متداول vba excel

نوشته اصلی توسط MEYTI

با سلام و روز بخیر
این فایلو از یه سایت خارجی دانلود کردم که علاوه بر ماکسیمم و مینیمم فرم امکانات جالب دیگه ای داره که امیدوارم به درد دوستان بخوره

http://s1.picofile.com/file/7463847739/UserFormControl.xls.html

خیلی خیلی عالی بود. تشکر فراوان

**saber2q** · 2012/08/09, 12:51

RE: پرسش و پاسخ های متداول vba excel

نوشته اصلی توسط MEYTI

با سلام و روز بخیر
این فایلو از یه سایت خارجی دانلود کردم که علاوه بر ماکسیمم و مینیمم فرم امکانات جالب دیگه ای داره که امیدوارم به درد دوستان بخوره

http://s1.picofile.com/file/7463847739/UserFormControl.xls.html

خیلی جالب بود, ممنون

**sohrabahmadi** · 2012/08/25, 18:29

RE: پرسش و پاسخ های متداول vba excel

با سلام به دوستان و اساتيد بزرگوار.اين سوال تكراريه ولي جواب واضحي براش نوشته نشده.آيا راهي هست كه قابليت حذف فايل اكسل از بين بره ؟ يكي از دوستان گفته بودن كه بايد تبديل به فايل سيستمي بشه ولي راهكارش رو نفرموده بودن.ممنون ميشم اگه كسي لطف كنه راهنماييم كنه.مرسي

**samadi1973** · 2012/08/25, 19:44

RE: پرسش و پاسخ های متداول vba excel

واقعا عالی و کابردی بود
ممنون

**mokaram** · 2012/08/25, 21:19

RE: پرسش و پاسخ های متداول vba excel

با سلام خدمت دوستان
یه فایل درست کردم که 5 تا شیت داره ولی موقع باز کردن فایل ، مابقی شیت ها به جر یکی همه مخفی هستند بعد از ورودبه فایل و دسترسی به بقیه فایل وقتی که فایل را میبندم اگه ماکروها را غیر فعال کنم و دوباره فایل را اجرا کنم شیت هایی را که قبلا باهاش کردم نمایان میشه .
راهی هست که فقط شین اصلی بیاد بالا؟

**sohrabahmadi** · 2012/08/25, 23:42

RE: پرسش و پاسخ های متداول vba excel

نوشته اصلی توسط barrai

با سلام خدمت دوستان
یه فایل درست کردم که 5 تا شیت داره ولی موقع باز کردن فایل ، مابقی شیت ها به جر یکی همه مخفی هستند بعد از ورودبه فایل و دسترسی به بقیه فایل وقتی که فایل را میبندم اگه ماکروها را غیر فعال کنم و دوباره فایل را اجرا کنم شیت هایی را که قبلا باهاش کردم نمایان میشه .
راهی هست که فقط شین اصلی بیاد بالا؟

با اجازه اساتيد ، ميتونيد توي workbook و زير رويداد beforeclose شيت هايي رو كه مدنظرتون هست با انتخاب hiden يا veryhiden مخفي كنيد. اميدوارم درست گفته باشم.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet2.Visible = xlSheetveryhidden
Sheet3.Visible = xlSheetveryhidden
Sheet4.Visible = xlSheetveryhidden
Sheet5.Visible = xlSheetveryhidden
End Sub

با Workbook_Open هم ميشه اين كارو كرد.[hr]
با سلام به دوستان و اساتيد بزرگوار.اين سوال تكراريه ولي جواب واضحي براش نوشته نشده.آيا راهي هست كه قابليت حذف فايل اكسل از بين بره ؟ يكي از دوستان گفته بودن كه بايد تبديل به فايل سيستمي بشه ولي راهكارش رو نفرموده بودن.ممنون ميشم اگه كسي لطف كنه راهنماييم كنه.مرسي

**sohrabahmadi** · 2012/08/31, 21:14

RE: پرسش و پاسخ های متداول vba excel

با سلام به اساتيد و دوستان گرامي
نحوه راه انداختن scrollbar توي يوزر فرم چه جوريه؟
من يه يوزر فرو درست كردم كه ابعادش از صفحه مانيتور بزرگتره .scrollbar هم براش گذاشتم ولي فعال نيست.ممنون ميشم اگه دوستان راهنماييم كنند.با تشكر

**mokaram** · 2012/09/01, 01:01

RE: پرسش و پاسخ های متداول vba excel

با سلام
فرمول زیر برای محاسبه تعداد ، درست هست؟
من جوابی نمیگیرم

کد:

range("e2")=application.worksheetfunction.count(sheet5.range(a5"),sheet5.range("a5").end.(xldown))

**MEYTI** · 2012/09/01, 01:04

RE: پرسش و پاسخ های متداول vba excel

نوشته اصلی توسط sohrabahmadi

با سلام به اساتيد و دوستان گرامي
نحوه راه انداختن scrollbar توي يوزر فرم چه جوريه؟
من يه يوزر فرو درست كردم كه ابعادش از صفحه مانيتور بزرگتره .scrollbar هم براش گذاشتم ولي فعال نيست.ممنون ميشم اگه دوستان راهنماييم كنند.با تشكر

با سلام
دوست عزيز مقدار ScrollBars فرمت را برابر fmScrollBarsBoth قراربده و مقدار ScrollHeightو ScrollWidth را متناسب با اندازه فرمت مثلا برابر 2000 قرار بده

**sohrabahmadi** · 2012/09/01, 01:12

RE: پرسش و پاسخ های متداول vba excel

مرسي آقا مهدي عزيز[hr]
با سلامي دوباره آيا امكانش هست با استفاده از vb در هيدر و فوتر دو سطر نوشت؟ مثلا بخواهيم تاريخ و شماره نامه رو در هيدر و در دو سطر مجزا بنويسم با تشكر

**MEYTI** · 2012/09/01, 01:28

RE: پرسش و پاسخ های متداول vba excel

نوشته اصلی توسط barrai

با سلام
فرمول زیر برای محاسبه تعداد ، درست هست؟
من جوابی نمیگیرم

کد:

range("e2")=application.worksheetfunction.count(sheet5.range(a5"),sheet5.range("a5").end.(xldown))

يا سلام
شما مي توانيد كدهارو به هر دو روش زير تغيير دهيد

کد PHP:


Range("e2") = Application.WorksheetFunction.Count(Sheet1.Range(("a5"), Sheet1.Range("a5").End(xlDown)))

كد 2
Range("e2") = Sheet1.Range(("A5"), Sheet1.Range("A5").End(xlDown)).Count