Trebuie să selectăm și să scriem într-o singură linie toate numele de produse legate de un anumit furnizor, pentru a le conecta.
Pentru a pune în aplicare o astfel de acțiune este necesară utilizarea de cuplare a textului privind condițiile date, această funcție nu este disponibilă, astfel încât să creeze o funcție macro specială adaugă un valori convenționale de cuplare.
Pentru a adăuga o macrocomandă, urmați acești pași:
Codul macro VBA:
Funcția Scepka (DiapazonScepki As Range, DiapazonPoiska ca Range, Uslovie ca String)
Dim Delitel ca șir, atât de lung. OutText ca șir
„Atribuirea variabilelor pentru makrosaDiapazonScepki - este gama de text care urmează să fie concatenate; DiapazonPoiska - este o serie de condiții pentru comparare; Uslovie - aceasta este o condiție pe care căutăm; Delitel - simbol divizor.
Delitel = «» „specifica delimitator (un caracter care va separa textul legat, puteți pune un spațiu sau un gol“ „- atunci textul va fuziona într-un singur cuvânt)
Dacă DiapazonPoiska.Count <> DiapazonScepki.Count Apoi
EndIf 'dacă intervalele cu date pentru verificare și pentru cuplaj sunt diferite în lungime - funcția dă o eroare și se închide
Pentru i = 1 Pentru DiapazonPoiska.Cells.Count
Dacă DiapazonPoiska.Cells (i) ca Uslovie și Len (DiapazonScepki.Cells (i))> 0 Apoi OutText = OutText DiapazonScepki.Cells (i) Delitel
Nexti "verificați celulele împreună și alocați valorile corespunzătoare textului la variabila Outtext. Pentru o potrivire exactă, operatorul Like ar trebui înlocuit cu semnul "=".
Scepka = Stânga (OutText, Len (OutText) - Len (Delitel))
Acum când funcția de legătură text condiționată este adăugată la registrul de lucru Excel cu o macrocomandă. acesta poate fi utilizat pentru a procesa textul după cum urmează: