نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: ActiveSheet

  1. #1


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

    ActiveSheet

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

  2. سپاس ها (1)


  3.  

  4. #2


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

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

    RE: activesheet

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

  5. سپاس ها (1)


  6. #3


    آخرین بازدید
    2012/05/27
    تاریخ عضویت
    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


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

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

    RE: activesheet

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

  8. سپاس ها (1)


  9. #5


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

    RE: activesheet

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

  10. #6


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    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


    آخرین بازدید
    2012/05/27
    تاریخ عضویت
    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


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

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

    RE: activesheet

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

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

  14. سپاس ها (1)



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

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

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

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

ActiveSheet

علاقه مندی ها (Bookmarks)

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

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