بدست آوردن نام شیت در یک سلول

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

    • 2013/05/17
    • 450
    #1

    پرسش بدست آوردن نام شیت در یک سلول

    با سلام
    آیا راهی است که در سلولی برای مثال a1 نام شیت درج شود؟ بدین صورت که با تغییر نام شیت موردنظر مقدار a1 تغییر کند و به نام شیت مورد نظر درآید.
    با تشکر
    برچسب ها: هیچ‌کدام
    • Behnam

      • 2013/03/25
      • 842
      • 100
      #2
      سلام
      با استفاده از تابع Cell قسمت filename در سلول A1 میتونید مسیر فایلتون رو مشاهده کنید و سپس با استفاده از تابع mid عمل جداسازی بخش نام شیت رو انجام بدید
      [CENTER][SIZE=3][B]هرچیز که در جستن آنی، آنی[/B][/SIZE][/CENTER]

        کامنت

        • maziardm

          • 2013/05/17
          • 450
          #3
          نوشته اصلی توسط Behnam
          سلام
          با استفاده از تابع Cell قسمت filename در سلول A1 میتونید مسیر فایلتون رو مشاهده کنید و سپس با استفاده از تابع mid عمل جداسازی بخش نام شیت رو انجام بدید
          با سلام و روز خوش
          ممنون از پاسختون. ولی یه مشکلی هست. اینه که خب اسم فایل ها و تعداد کاراکترشون باهم فرق می کنه. به همین دلیل نمیشه راحت نام مورد شیت مورد نظر رو بدست آورد.

            کامنت

            • iranweld

              • 2015/03/29
              • 3341
              #4
              با سلام

              با تعریف یک فانکشن ساده هم میتوانید اینکار را انجام دهید

              Untitled.png
              فایل های پیوست شده

                کامنت

                • maziardm

                  • 2013/05/17
                  • 450
                  #5
                  نوشته اصلی توسط iranweld
                  با سلام

                  با تعریف یک فانکشن ساده هم میتوانید اینکار را انجام دهید
                  با سلام مجدد
                  ممنون. مثل همیشه عالی بود. فقط یه مسئله ای هست. این که این تابع برای شیت جاری هستش. یعنی نام هون شیت که فرمول رو در اون وارد کردیم رو مشخص می کنه. حالا اگه بخوایم نام یه شیت دیگه رو تعیین کنه چطور. فرض کنید چند تا شیت داریم و بخوایم نام یه شیت دیگه به غیر از خود اون شیتی که فرمول رو وارد کردیم مشخص کنه چکار کنیم.
                  با تشکر

                    کامنت

                    • iranweld

                      • 2015/03/29
                      • 3341
                      #6
                      فایل پیوست را بررسی کنید

                      کد PHP:
                      Function nsheet(i As Integer)

                      nsheet = Sheets(i).Name

                      End                       Function 
                      فایل های پیوست شده

                        کامنت

                        • maziardm

                          • 2013/05/17
                          • 450
                          #7
                          نوشته اصلی توسط iranweld
                          فایل پیوست را بررسی کنید

                          کد PHP:
                          Function nsheet(i As Integer)

                          nsheet = Sheets(i).Name

                          End                           Function 
                          با سلام مجدد و بازم تشکر
                          با عرض پوزش بازم به یه مشکل خوردم. محتوای فرمول مورد نظر به صورت دستی باید وارد کنیم. مشکلش اینجاست که اگر ترتیب شیت ها رو به هم بزنیم جواب مورد نظر بدست نمیاد. برای مثال در فایلی که قرار دادید. شیت data شیت شماره 2 هست. ولی اگه جاش عوض شه دیگه شماره 2 نمیشه و جواب بدست نمیاد.
                          بازم تشکر

                            کامنت

                            • حسام بحرانی

                              • 2013/09/29
                              • 2065
                              • 72.00
                              #8
                              لیست شیت ها در اکسل

                              سلام
                              به مطلب آموزشی که آقای قاسمیان در این پست گذاشتند هم نگاه کنید شاید کمکتون کنه:
                              لیست شیت ها بدون استفاده از VBA
                              اگر هدفتون رو از این سؤال دقیقتر عنوان کنید قطعاً بهتر راهنمایی میشید.
                              موفق باشید.
                              [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
                              [/FONT][/B][/CENTER]
                              [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
                              [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
                              [/FONT][/B][/FONT][/SIZE]
                              [/CENTER]

                                کامنت

                                • rezajaberpour

                                  • 2013/10/07
                                  • 52
                                  • 0.00
                                  #9
                                  =MID(CELL("filename";A1);FIND("]";CELL("filename";A1))+1;255)

                                    کامنت

                                    • rezajaberpour

                                      • 2013/10/07
                                      • 52
                                      • 0.00
                                      #10
                                      C:\Users\user\Desktop\[Book1.xlsm]Sheet1

                                      MID(CELL("filename";A1);FIND("]";CELL("filename";A1))+1;255)=

                                        کامنت

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