ActiveSheet

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • maryam62

    • 2012/04/26
    • 22
    #1

    ActiveSheet

    با سلامبا چه دستوري ماكرو مي تواند صفحه ي جاري كاربر را تشخيص دهد؟مثلا بسته به اينكه در كدام شيت است بايد در (1,1)cells آن مقدار خاصي را وارد كند.
    Last edited by حسام بحرانی; 2014/03/08, 16:27.
    برچسب ها: هیچ‌کدام
    • s.cheraghi

      • 2011/02/27
      • 311
      #2
      RE: activesheet

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

      برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
      برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
      [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

        کامنت

        • maryam62

          • 2012/04/26
          • 22
          #3
          RE: activesheet

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

            کامنت

            • s.cheraghi

              • 2011/02/27
              • 311
              #4
              RE: activesheet

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

              برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
              برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
              [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

                کامنت

                • maryam62

                  • 2012/04/26
                  • 22
                  #5
                  RE: activesheet

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

                    کامنت

                    • s.cheraghi

                      • 2011/02/27
                      • 311
                      #6
                      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(1, 1) = sheet.Cells(4, 4)
                                                Next sheet
                      End Sub 
                      در یادگیری سیر نشوید :idea:

                      برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
                      برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
                      [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

                        کامنت

                        • maryam62

                          • 2012/04/26
                          • 22
                          #7
                          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(1, 1) = sheet.Cells(4, 4)
                                                        Next sheet
                          End Sub 
                          كد بالا اين عمل رو براي تمام شيت ها انجام ميده در صورتي كه ممكنه كاربر مثلا فقط روي شيت 2و 4 بخواد اين دستور اجرا بشه. پس از for نميشه استفاده كرد.
                          با تشكر

                            کامنت

                            • s.cheraghi

                              • 2011/02/27
                              • 311
                              #8
                              RE: activesheet

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

                              Private Sub Worksheet_Activate()
                                                                ActiveSheet.Cells(1, 1) = ActiveSheet.Cells(4, 4)
                              End Sub 
                              این کد باید در کد هر شیت نوشته بشه
                              در یادگیری سیر نشوید :idea:

                              برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
                              برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
                              [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

                                کامنت

                                قبلی template بعدی
                                چند لحظه..