MS EXCEL – ՏԻՐՈՒՅԹԻ ԱՐԺԵՔՆԵՐԸ ՄԻԱՁՈՒԼՈՂ TEXTMERGE USER DEFINED ՖՈՒՆԿՑԻԱ

Microsoft-ը դեռ նոր է, որ նման ֆունկցիան ներդնում է Excel 2016-ի օնլայն տարբերակում /օֆֆլայնում չկա/, բայց մեր թիմն արդեն ստեղծում է այն: Վայելե’ք հայկական Textmerge ֆունկցիան: )))

Ֆունկցիայի աշխատանքը դիտե’ք ստորև: Ահա և կոդը, վայելե’ք:

Function Textmerge(TextRange As Range, Optional Symbol = “”)

    For Each c In TextRange

        x = x & c.Value & Symbol

    Next

If Symbol = “” Then

    T = Mid(x, 1, Len(x))

Else

    T = Mid(x, 1, Len(x) – Len(Symbol))

End If

    Textmerge = T

End Function