Piešķiriet darblapai nosaukumu pēc šūnas

Anonim

Kā definēt tabulas nosaukumu, izmantojot makro

Vai vēlaties pārliecināties, vai aktīvās tabulas nosaukums ir iestatīts uz tekstu, kas atrodams konkrētā tabulas šūnā? Izmantojiet šādu makro:

Iestatīt apakštabulu nosaukumus ()
Aptumšot šūnu kā virkni
Šūna = "a1"
ActiveSheet.Name = ActiveSheet.Range (šūna). Teksts
Beigt apakš

Ar mainīgā vērtību šūna definējiet, no kuras šūnas teksts jāņem. Lai to izdarītu, kā adresi pārsūtiet atbilstošo šūnu atsauci (šeit: A1).

Makro ņem saturu no atbilstošās aktīvās tabulas šūnas. Pēc tam pašreizējā darblapa tiek attiecīgi pārdēvēta. Nākamajā attēlā parādīts pārdēvēta tabulas piemērs: