مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

ایجاد table

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • kazem1359

    • 2018/06/08
    • 331
    • 39.00

    [حل شده] ایجاد table

    با سلام بنده یک table در اکسل دارم و نام آن table2 هست چطور می تونم با کد نویسی در vba نام آن را عوض کنم و نام جدید از یکی از سلولهای تو شیت گرفته شود. ممنون میشم کمک کنید. با سپتس
  • kazem1359

    • 2018/06/08
    • 331
    • 39.00

    #2
    سلام از دوستان انجمن هیچکس نیست راهنمایی کنه؟

    کامنت

    • میثم مقدم نیا

      • 2017/03/23
      • 558
      • 41.00

      #3
      نوشته اصلی توسط kazem1359
      با سلام بنده یک table در اکسل دارم و نام آن table2 هست چطور می تونم با کد نویسی در vba نام آن را عوض کنم و نام جدید از یکی از سلولهای تو شیت گرفته شود. ممنون میشم کمک کنید. با سپتس
      سلام

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

      کد PHP:
      Sub RenameTableAtCell()

          
      With ActiveSheet

               
      .ListObjects(1).Name Range("L2")

          
      End With

      End Sub 

      [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

      کامنت

      • kazem1359

        • 2018/06/08
        • 331
        • 39.00

        #4
        نوشته اصلی توسط میثم مقدم نیا
        سلام

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

        کد PHP:
        Sub RenameTableAtCell()

            
        With ActiveSheet

                 
        .ListObjects(1).Name Range("L2")

            
        End With

        End Sub 

        ممنون از آقا میثم عزیز. سپاس فراوان

        کامنت

        چند لحظه..