محصولات و جزوات آموزش تخصصی اکسل در:
برترین مرجع تخصصی پارسی اکسل
جامعه اكسل ايرانيان: فروشگاه
آموزش اکسل تخصصی و پیشرفته - تهران
h.khakzad@yahoo.com
دو نمونه فایل گذاشتیم تو کدومش شما میخوای
در پناه خداوندگار ایران زمین باشید و پیروز
تو فایلی که سر کار خانم خاکزاد اشاره کردن شما کافی ادرس جایی که میخوای فایل دانلودیتون ذخیره بشه رو تغییر بدین و در فایل بعدی که تو خود شیت ذخیره میکرد و شیت بورس روئ میخوای بکنیش شیت اکسل ایران
مورد قرمز رنگ رو بکن شیت اکسل ایران و مورد سبز رو هم فک کنم دیگه نخواد - فقط یادت نره اگر رنج کپی رو عوض کنی مثلا A1 رو بکنی B4 تو همون تمپلت اکسل ایران ازور میده چون داره یجا همرو میاره- هر شیتی خواتی اسمشو بزار مشکل نیست اما A1 رو تغییر ندهکد:Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim wbMe As Workbook Dim wsNew As Worksheet Dim w As Integer Dim wbURL As Workbook Dim url As String Set wbMe = ThisWorkbook url = "http://members.tsetmc.com/tsev2/excel/MarketWatchPlus.aspx?d=0" Set wbURL = Workbooks.Open(url) '## Add a new worksheet to the end of ThisWorkbook:' Set wsNew = wbMe.Sheets("bors") wsNew.Activate '## Copy & Paste this data in to our new worksheet:' wbURL.Sheets(1).Cells.Copy Destination:=wsNew.Range("A1") wbURL.Activate '## Close the downloaded version which we no longer need:' wbURL.Close Sheet1.Select Application.ScreenUpdating = True MsgBox
در پناه خداوندگار ایران زمین باشید و پیروز
سلام
برامن كه نميشه
اين پيغام رو ميده :
[size=medium]موفق باشيد[/size]
دوست عزیز
کلا برای اجرای یک کد بصورت خودکار و به فواصل زمانی مشخص
کد زیر باید استفاده بشه:که در زمان داخل پرانتز فاصله زمانی مورد نظر رو وارد می کنید.کد:sub repeat() d= now + timevalue ("00:00:00") application.ontime d, "macroe1" end sub
بجای macroe1 هم نام ماژول مورد نظر
در ضمن یکبار هم در workbook_open هم باید call کنید. یعنی:
کد:workbook_open call "macroe1" end sub
محصولات و جزوات آموزش تخصصی اکسل در:
برترین مرجع تخصصی پارسی اکسل
جامعه اكسل ايرانيان: فروشگاه
آموزش اکسل تخصصی و پیشرفته - تهران
h.khakzad@yahoo.com
با تشکر میشه لطفا هر دو موارد بالا رو داخل کد زیر بفرمایید که در کجاوچه ردیفی اضافه بشه
کد:Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim wbMe As Workbook Dim wsNew As Worksheet Dim w As Integer Dim wbURL As Workbook Dim url As String Set wbMe = ThisWorkbook url = "http://members.tsetmc.com/tsev2/excel/MarketWatchPlus.aspx?d=0" Set wbURL = Workbooks.Open(url) '## Add a new worksheet to the end of ThisWorkbook:' Set wsNew = wbMe.Sheets("bors") wsNew.Activate '## Copy & Paste this data in to our new worksheet:' wbURL.Sheets(1).Cells.Copy Destination:=wsNew.Range("A1") wbURL.Activate '## Close the downloaded version which we no longer need:' wbURL.Close Sheet1.Select Application.ScreenUpdating = True MsgBox "your process has been done successfully and your file Updated " End Sub
ویرایش توسط runmohsen : 2014/12/20 در ساعت 12:18
[size=medium]موفق باشيد[/size]
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)