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

موضوع: ActiveSheet

  1. #1


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    ActiveSheet

    با سلامبا چه دستوري ماكرو مي تواند صفحه ي جاري كاربر را تشخيص دهد؟مثلا بسته به اينكه در كدام شيت است بايد در (1,1)cells آن مقدار خاصي را وارد كند.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط حسام بحرانی : 08 _ 03 _ 2014 در ساعت 15:27

  2. سپاس ها (1)


  3.  

  4. #2


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    s.cheraghi به Yahoo ارسال پیام

    RE: activesheet

    سلام
    از دستور زیر میتونید نام صفحه را داشته باشید
    Activesheet.name

  5. سپاس ها (1)


  6. #3


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    RE: activesheet

    با تشكر از شما
    جايي در برنامه از اين دستور استفاده كردم اما مقداري براي اون در نظر نميگيره
    [align=left]
    If ActiveSheet.Name.Cells(i, k).Value =cells(4,4).Value Then
    .
    .
    [/align]

  7. #4


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    s.cheraghi به Yahoo ارسال پیام

    RE: activesheet

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

  8. سپاس ها (1)


  9. #5


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    RE: activesheet

    سلام
    مي خوام بسته به شيتي كه كاربر در اون قرار داره مثلا cell(1,1) اون شيت با مقدار ديگه اي كه مثلا در cell(4,4) همون شيت هست جايگزين بشه

  10. #6


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    s.cheraghi به Yahoo ارسال پیام

    RE: activesheet

    با سلام
    با کد زیر شما می تونین در هر شیت، مقادیر موجود در خانه D4 که درواقع همان Activesheet.cells(4,4) هست رو در خانه A1 که همان Activesheet.cells(1,1) هست قرار بدین

    فکر کنم همه منظورتون این نبود ولی هرجا رو نادیده گرفتم بفرمائید کاملش کنم
    کد PHP:

    Sub change
    ()
    Dim sheet As Worksheet
        
    For Each sheet In Worksheets
            sheet
    .Cells(11) = sheet.Cells(44)
        
    Next sheet
    End Sub 

  11. سپاس ها (1)


  12. #7


    آخرین بازدید
    27 _ 05 _ 2012
    تاریخ عضویت
    April_2012
    نوشته ها
    22
    امتیاز
    3
    سپاس
    0
    سپاس شده
    2 در 2 پست

    RE: activesheet

    نقل قول نوشته اصلی توسط s.cheraghi
    با سلام
    با کد زیر شما می تونین در هر شیت، مقادیر موجود در خانه D4 که درواقع همان Activesheet.cells(4,4) هست رو در خانه A1 که همان Activesheet.cells(1,1) هست قرار بدین

    فکر کنم همه منظورتون این نبود ولی هرجا رو نادیده گرفتم بفرمائید کاملش کنم
    کد PHP:

    Sub change
    ()
    Dim sheet As Worksheet
        
    For Each sheet In Worksheets
            sheet
    .Cells(11) = sheet.Cells(44)
        
    Next sheet
    End Sub 
    كد بالا اين عمل رو براي تمام شيت ها انجام ميده در صورتي كه ممكنه كاربر مثلا فقط روي شيت 2و 4 بخواد اين دستور اجرا بشه. پس از for نميشه استفاده كرد.
    با تشكر

  13. #8


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    s.cheraghi به Yahoo ارسال پیام

    RE: activesheet

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

    Private Sub Worksheet_Activate()
        
    ActiveSheet.Cells(11) = ActiveSheet.Cells(44)
    End Sub 
    این کد باید در کد هر شیت نوشته بشه

  14. سپاس ها (1)



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

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

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

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

ActiveSheet

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

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