پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 2 از 4 نخستنخست 1234 آخرینآخرین
نمایش نتایج: از شماره 11 تا 20 , از مجموع 38

موضوع: دانلود اطلاعات سایت بورس با یک دکمه ورژن جدید

  1. #11


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    June_2014
    نوشته ها
    92
    امتیاز
    104
    سپاس
    140
    سپاس شده
    74 در 30 پست

    نقل قول نوشته اصلی توسط amin.t نمایش پست ها
    ممنون امین جان فایل فوق العاده ای بود
    ولی مشکل من این نیست من می خوام داده های جدولی زیرو برای هر سهم وارد اکسل کنم.
    دوستان کسی جواب منو نمی ده
    نقل قول نوشته اصلی توسط امين اسماعيلي نمایش پست ها
    چرا نشه اسم شیت رو تو کد نویسی باید تغییر داد -
    میشه لطف کنی و کد رو بزاری چون من هر کاری که می کنم تا مسیرشو تغییر بدم ارور میده .

  2.  

  3. #12


    محصولات کاربر

    داشبورد (مقدماتی)
    جداول محوری - Pivot table
    کتاب آموزش جامع و پیشرفته اکسل 2010
    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    March_2010
    محل سکونت
    تهران
    نوشته ها
    2,053
    امتیاز
    4471
    سپاس
    2,518
    سپاس شده
    4,059 در 1,244 پست

    khakzad به Yahoo ارسال پیام
    دوست عزیز
    برای تغییر مسیر و نام باید از اینجا استفاده کنید
    amin رو به یوزر خودتون تغییر بدید. اسم bors رو هم اگر می خواید به iran excel تغییر بدید
    اخل کد تغییری نباید ایجاد کنیدبرای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  bors.jpg
مشاهده: 59
حجم:  76.1 کیلو بایت


  4. #13


    آخرین بازدید
    08 _ 11 _ 2017
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,179
    امتیاز
    3103
    سپاس
    1,562
    سپاس شده
    3,037 در 763 پست

    دو نمونه فایل گذاشتیم تو کدومش شما میخوای
    در پناه خداوندگار ایران زمین باشید و پیروز

  5. #14


    آخرین بازدید
    08 _ 11 _ 2017
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,179
    امتیاز
    3103
    سپاس
    1,562
    سپاس شده
    3,037 در 763 پست

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


  6. #15


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    June_2014
    نوشته ها
    92
    امتیاز
    104
    سپاس
    140
    سپاس شده
    74 در 30 پست

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


  7. #16

    آخرین بازدید
    06 _ 09 _ 2016
    تاریخ عضویت
    July_2014
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست

    سلام
    برامن كه نميشه
    اين پيغام رو ميده :

  8. #17


    آخرین بازدید
    38 دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

    نقل قول نوشته اصلی توسط hadi0000 نمایش پست ها
    سلام
    برامن كه نميشه
    اين پيغام رو ميده :
    سلام
    چه پيغامي ميده دوست عزيز؟

  9. #18


    آخرین بازدید
    12 _ 12 _ 2017
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    runmohsen به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط امين اسماعيلي نمایش پست ها
    تو فایلی که سر کار خانم خاکزاد اشاره کردن شما کافی ادرس جایی که میخوای فایل دانلودیتون ذخیره بشه رو تغییر بدین و در فایل بعدی که تو خود شیت ذخیره میکرد و شیت بورس روئ میخوای بکنیش شیت اکسل ایران
    کد:
    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
    مورد قرمز رنگ رو بکن شیت اکسل ایران و مورد سبز رو هم فک کنم دیگه نخواد - فقط یادت نره اگر رنج کپی رو عوض کنی مثلا A1 رو بکنی B4 تو همون تمپلت اکسل ایران ازور میده چون داره یجا همرو میاره- هر شیتی خواتی اسمشو بزار مشکل نیست اما A1 رو تغییر نده
    با سلام جناب اسماعیلی اگر حالا بخواهیم تو همین کدی اضافه بشه که مثلا هر 1 دقیقه خودش run بشه یعنی اپدیت اطلاعات بشه چه کدی وکجا اضاف کنیم
    [size=medium]موفق باشيد[/size]

  10. #19


    محصولات کاربر

    داشبورد (مقدماتی)
    جداول محوری - Pivot table
    کتاب آموزش جامع و پیشرفته اکسل 2010
    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    March_2010
    محل سکونت
    تهران
    نوشته ها
    2,053
    امتیاز
    4471
    سپاس
    2,518
    سپاس شده
    4,059 در 1,244 پست

    khakzad به Yahoo ارسال پیام
    دوست عزیز
    کلا برای اجرای یک کد بصورت خودکار و به فواصل زمانی مشخص
    کد زیر باید استفاده بشه:
    کد:
    sub repeat()
    d= now + timevalue ("00:00:00")
    application.ontime d, "macroe1"
    end sub
    که در زمان داخل پرانتز فاصله زمانی مورد نظر رو وارد می کنید.
    بجای macroe1 هم نام ماژول مورد نظر


    در ضمن یکبار هم در workbook_open هم باید call کنید. یعنی:


    کد:
    workbook_open
    call "macroe1"
    end sub


  11. #20


    آخرین بازدید
    12 _ 12 _ 2017
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    runmohsen به Yahoo ارسال پیام
    با تشکر میشه لطفا هر دو موارد بالا رو داخل کد زیر بفرمایید که در کجاوچه ردیفی اضافه بشه
    کد:
    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 : 20 _ 12 _ 2014 در ساعت 13:18
    [size=medium]موفق باشيد[/size]


صفحه 2 از 4 نخستنخست 1234 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. Create a summary worksheet from all worksheets (جمع کردن اطلاعات تمامی شیت ها در یک شیت)
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 15 _ 06 _ 2016, 18:35
  2. پاسخ ها: 6
    آخرين نوشته: 24 _ 05 _ 2016, 11:54
  3. پاسخ ها: 2
    آخرين نوشته: 09 _ 01 _ 2014, 14:45

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

بورس دكمه مشهد

دانلود اطلاعات بورس آنلاین اکسل

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است