افزودن متن به مقادیر موجود در سلول های اکسل

افزودن متن به مقادیر موجود در سلول های اکسل

 

تصور نمایید  جدولی در اکسل دارید که حاوی ردیف های متعددی از اطلاعات است . 

حال فرض کنید می خواهید یک یا چند متن مورد نظر خود را به ابتدای تمامی اطلاعات موجود در ردیف های موجود در اکسل خود بیافزایید . 

برای این کار روش های مختلفی وجود دارد . اما من در اینجا و طی این مطلب با استفاده از  سه روش مختلف متن های مورد نظر خود را به محدوده مورد نظر خود اضافه می نمایم . شما نیز با دنبال کردن این آموزش می توانید از آن در کارهای خود استفاده کنید . 

قبل از شروع کار اطلاعات زیر را در نظر بگیرید . 

 

افزودن متن به مقادیر موجود در سلول های اکسلهدف ما این است که به ابتدای  نام تمامی افراد در ستون مربوط به  “نام ”  کلمه “آقای ” را اضافه نماییم . 

روش اول 

استفاده از ترکیب  عبارات 

در این روش در سلول C2 عبارت زیر را وارد نمایید .

=”آقای” &” ” & A2

سپس با استفاده از Drag & Drop  این عبارت را به سایر سلول ها تعمیم دهید . 

متن در اکسل

 

  • روش دوم : استفاده از فرمول 

این روش نیز مشابه روش قبل می باشد با این تفاوت که در سلول مربوط به D2 به جای عبارت مرحله قبل فرمول زیر را وارد می نماییم . 

=CONCATENATE(“آقای”;” “;A2)

اکنون همانند مرحله قبل مقدار این سلول را به سایر سلول ها نیز تعمیم می دهیم . 

هردو روش های فوق خروجی یکسانی را به ما می دهد اما ایراد بزرگ کار این است که ما ناچار هستیم که ردیف جدیدی را برای درج این عبارات بوجود آوریم که این امر نمی تواند چندان مطلوب ما باشد . 

بهترین روش الحاق عبارت مورد نظر خود در همان سلول جاری می باشد که برای این منظور باید از کدهای VBA بهره ببریم . 

 

  • روش سوم : استفاده از کدهای VBA

 در این روش از کدهایی استفاده می کنیم که با استفاده از آنها خواهیم توانست عبارت مورد نظر خود را نه در سلول جدید که در همان سلول جاری به مقادیر موجود اضافه نماییم . 

اما قبل از اضافه نمودن این کدها دکمه ای را برای فراخوانی و اجرای این کدها به محیط کاری اکسل خود اضافه می نماییم .

 برای این کار مراحل زیر را دنبال نمایید . 

 

  1. از سربرگ Developer  بر روی گزینه Insert  و از زیر مجموعه Active x Control  شی Command button را انتخاب کنید .  متن در اکسل

 

با این کار دکمه ای بر روی شیت کاری شما قرار می گیرد . 

حال بر روی دکمه مذکور دابل کلیک نمایید تا وارد محیط کد نویسی این دکمه شوید . 

در رویداد مربوط به On -Click  این دکمه کدهای زیر را وارد نمایید . 

  1. کدهای زیر را در ماژول خود وارد نمایید .

    Dim Rng As Range
    Dim WorkRng As Range
    Dim addStr As String
    Dim xTitleId As String
    On Error Resume Next
    xTitleId = “softpluse”
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox(“محدوده مورد نظر را انتخاب نمایید . “, xTitleId, WorkRng.Address, Type:=8)
    addStr = Application.InputBox(“متن پسوند مورد نظر را وارد نمایید “, xTitleId, “”, Type:=2)
    For Each Rng In WorkRng
    Rng.Value = Rng.Value & ” ” & addStr
    Next

  2. در مرحله آخر بر روی گزینه Design mode  یک بار کلیک نمایید تا از حالت انتخاب خارج گردد . 
  3. اکنون تنها کاری که باید بکنید این است که بر روی دکمه مزبور کلیک نمایید .بلافاصله برای شما یک کادر نمایش داده می شود که از شما می خواهد که محدوده مورد نظر خود را انتخاب نمایید 
  4. در گام بعد نیز کادر دیگری برای شما نمایش داده می شود که از شما می خواهد که متن مورد نظر خود را برای اضافه نمودن به محدوده مربوطه را وارد نمایید . 

 

الحاق متن به سلولها در اکسل

  1. با انجام این مراحل مشاهده خواهید نمود که متن مورد نظر شما به محدوده اطلاعات موجود در محدوده مورد نظر اضافه شده است . 

 

 

 

آموزش اکسل 2016 بازدید : 237 views ۲۴ آذر, ۱۳۹۷ ۰