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

[saber2q]

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

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

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

[sohrabahmadi]

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

[samadi1973]

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

[mokaram]

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

[sohrabahmadi]

با سلام خدمت دوستان
یه فایل درست کردم که 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]

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

[mokaram]

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

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

[MEYTI]

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

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

[sohrabahmadi]

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

[MEYTI]

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

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

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

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