انجام تنظیمات بصورت خودکار

[vista2000]

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

[mokaram]

RE: انجام تنظیمات بصورت خودکار

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

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

[vista2000]

RE: انجام تنظیمات بصورت خودکار

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

ممنون از پاسختون
همونطور که گفتم،کسی که اطلاع کاملی از اکسل نداره،میخاد با برنامه کار کنه...
این ایده به نظرم میرسه،یه ماکرو ضبط کنم و به یک دکمه نسبتش بدم،و اون نفر ،فایل خروجی را با این برنامه بازکنه و با زدن دکمه،تنظیمات اعمال بشه...
نظرتون چیه؟
ممنون

[vista2000]

RE: انجام تنظیمات بصورت خودکار

اگر بخام برنامه را بصورتی تنظیم کنم که با دابل کلیک،ماکرو اتوماتیک اجراشه،از چه کدی باید استفاده کنم؟

[plc_pcb]

RE: انجام تنظیمات بصورت خودکار

با سلام

شما میتونید از کد زیر استفاده کنید

Private Sub Workbook_Open()
For Each c In Range("a1:d10")
c.HorizontalAlignment = xlCenter
c.Borders.Color = RGB(255, 0, 0)
Next
End Sub 

کد بالا وقتی اکسل باز میشه رنج آ1 تا د 10 رو مقدار سلول ها رو وسط چین میکنه و بردر قرمز قرار میده باقی موارد هم میتونی اضافه کنی

اگه فایل نمونه میخوای ایمیلت رو قرار بده