Extrahování slov z textových řetězců aplikace Excel se nazývá analýza.
Otevřete Excel a do kterékoli z buněk v prvním listu napište větu obsahující alespoň tři slova. Tuto větu rozložíte na jednotlivá slova.
Klikněte na záhlaví nabídky "Data" a poté klikněte na tlačítko "Text do sloupců". Tato funkce rozdělí text, jehož slova jsou oddělena vámi zadaným znakem.
Zaškrtněte políčko „Mezerník“ a poté klikněte na tlačítko „Dokončit“. Excel rozdělí větu, kterou jste napsali, do samostatných sloupců. Každý sloupec bude obsahovat jedno slovo z věty.
Zadejte funkci bez uvozovek "=index([POLE],1,[POČET SLOVA K EXTRAKCI])" do buňky pod řetězcem oddělených slov. Nahraďte výraz "ARRAY" rozsahem obsahujícím řetězec slov. Pokud například slova zabírají buňky "A1" až "C1", zadejte místo textu "ARRAY" text "A1:C1". Nahraďte text "POČET SLOVA K VYLOUČENÍ" číslem slova, které chcete z věty vyjmout. Pokud například chcete extrahovat třetí slovo z rozsahu "A1:C1", zadejte jako poslední argument "3".
Otevřete novou excelovou tabulku a do buňky F4 zadejte libovolnou sekvenci tří nebo více slov. K extrakci slova z této věty použijete krátký program Visual Basic.
Klikněte na záhlaví nabídky „Vývojář“ a poté klikněte na tlačítko „Visual Basic“. Otevře se programovací prostředí pro Excel.
Do zobrazeného okna vložte následující program. Srdcem tohoto podprogramu je funkce "split", která rozděluje větu na jednotlivá slova, jako to dělá příkaz "Text to Columns".
Sub Macro1() Dim ar, str1, n str1 = Range("F4") n = Range("F5") - 1 ar = Split (str1, " ") MsgBox "Číslo slova " & n + 1 & " je " & ar (n) End Sub
Klikněte na tlačítko "Makra" na kartě "Vývojář" a poté dvakrát klikněte na funkci "Makro1". Zobrazí se okno se zprávou označující slovo, které váš program extrahoval z věty, kterou jste napsali v kroku 1.
