Obsah
Jak definovat název tabulky pomocí makra
Chcete zajistit, aby byl název aktivní tabulky nastaven na text, který lze nalézt v konkrétní buňce v tabulce? Použijte následující makro:
Set sub-table-names ()
Dim Cell jako řetězec
Buňka = "a1"
ActiveSheet.Name = ActiveSheet.Range (buňka) .Text
End Sub
S hodnotou proměnné buňka definujte, ze které buňky má být text převzat. Chcete -li to provést, přeneste jako adresu příslušný odkaz na buňku (zde: A1).
Makro přebírá obsah z odpovídající buňky v aktivní tabulce. Aktuální list se poté odpovídajícím způsobem přejmenuje. Následující obrázek ukazuje příklad přejmenované tabulky:
