تابع TEXTJOIN در اکسل 2016 (وی بی ای)

با نام و یاد خداوند بخشنده و مهربان، در این پست آموزشی برای شما عزیزان و دنبال کنندگان محترم سایت آموزشی اکسل لرن، نحوه استفاده از تابع TEXTJOIN در اکسل 2016 را آماده نمودیم. البته توجه فرمایید، تابع TEXTJOIN جزو توابعی است که در اکسل نسخه 2019 ارائه گردیده ولی از آنجایی که نسبت به توابع CONCATENATE و CONCAT منعطف تر عمل می کند لذا برخود لازم دانستیم کدهای وی بی ای این تابع را برای شما عزیزان قرار دهیم. با ما همراه باشید.

اضافه کردن تابع جدید به اکسل (وی بی ای)

ابتدا با زدن کلیدترکیبی ALT + F11 وارد محیط VBE اکسل شوید و همانند تصویر زیر یک ماژول(Module) ایجاد کنید:

در ادامه کدهای وی بی ای Function زیر را کپی و به داخل ماژول(Module) منتقل کنید:

Function Text_Joined(Delimiter As Variant, IgnoreEmptyCells As Boolean, TextRange As Range) As Variant
Dim textarray()
If IgnoreEmptyCells = True Then
    For i = 1 To TextRange.Cells.Count
        If TextRange.Cells(i) <> "" Then
            k = k + 1
            ReDim Preserve textarray(1 To k)
            textarray(k) = TextRange.Cells(i)
        End If
    Next i
Else
    For i = 1 To TextRange.Cells.Count
        k = k + 1
        ReDim Preserve textarray(1 To k)
        textarray(k) = TextRange.Cells(i)
    Next i
End If
'Now Join the Cells
If Not TypeName(Delimiter) = "Range" Then
    Text_Joined = textarray(1)
        For i = 2 To UBound(textarray) - 1
        Text_Joined = Text_Joined & Delimiter & textarray(i)
        Next i
    If i > 1 Then Text_Joined = Text_Joined & Delimiter & textarray(UBound(textarray))
Else
   Text_Joined = textarray(1)
        For i = 2 To UBound(textarray) - 1
            l = l + 1
            If l = Delimiter.Cells.Count + 1 Then l = 1
        Text_Joined = Text_Joined & Delimiter.Cells(l) & textarray(i)
        Next i
    If i > 1 Then Text_Joined = Text_Joined & Delimiter.Cells(l + i) & textarray(UBound(textarray))
End If
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

Function Text_Joined(Delimiter As Variant, IgnoreEmptyCells As Boolean, TextRange As Range) As Variant

Dim textarray()

If IgnoreEmptyCells = True Then

For i = 1 To TextRange.Cells.Count

If TextRange.Cells(i) <> "" Then

k = k + 1

ReDim Preserve textarray(1 To k)

textarray(k) = TextRange.Cells(i)

End If

Next i

Else

For i = 1 To TextRange.Cells.Count

k = k + 1

ReDim Preserve textarray(1 To k)

textarray(k) = TextRange.Cells(i)

Next i

End If

'Now Join the Cells

If Not TypeName(Delimiter) = "Range" Then

Text_Joined = textarray(1)

For i = 2 To UBound(textarray) - 1

Text_Joined = Text_Joined & Delimiter & textarray(i)

Next i

If i > 1 Then Text_Joined = Text_Joined & Delimiter & textarray(UBound(textarray))

Else

Text_Joined = textarray(1)

For i = 2 To UBound(textarray) - 1

l = l + 1

If l = Delimiter.Cells.Count + 1 Then l = 1

Text_Joined = Text_Joined & Delimiter.Cells(l) & textarray(i)

Next i

If i > 1 Then Text_Joined = Text_Joined & Delimiter.Cells(l + i) & textarray(UBound(textarray))

End If

End Function

خروجی شما باید پس از انتقال Function فوق بصورت زیر خواهد بود:

اسم تابعی که توسط کدهای وی بی ای به اکسل اضافه گردید، تابع Text_Joined است. البته دقت نمایید که این تابع(Text_Joined) تنها در همین فایل اکسل قابل استفاده خواهد بود.

به مثالی که در ادامه آورده شده است دقت کنید:

قصد داریم محتوای سلول های فوق را با استفاده از تابع Text_Joined با یکدیگر ادغام کنیم لذا همانند تصویر زیر اقدام به فرمول نویسی خواهیم نمود:

همانطور که در تصویر فوق نیز مشاهده می کنید، عمل ادغام کردن در اکسل 2019 براحتی توسط تابع اضافه شده Text_Joined صورت گرفت.

در پایان امیدواریم پست آموزشی تابع TEXTJOIN در اکسل 2016 (وی بی ای) مورد رضایت و استفاده شما عزیزان قرار گرفته باشد لذا در صورت وجود هرگونه انتقاد و پیشنهاد می توانید آن را در قسمت نظرات برای ما ارسال نمایید. با تشکر

تابع TEXTJOIN در اکسل 2016 (وی بی ای)

اضافه کردن تابع جدید به اکسل (وی بی ای)

پیشنهاد ما به شما