Nimetage tööleht lahtri järgi

Anonim

Tabeli nime määratlemine makro abil

Kas soovite veenduda, et aktiivse tabeli nimi on seatud tekstile, mille leiate tabeli konkreetsest lahtrist? Kasutage järgmist makro:

Määra alamtabeli nimed ()
Hämardage rakk stringina
Lahter = "a1"
ActiveSheet.Name = ActiveSheet.Range (lahter). Tekst
End Sub

Muutuja väärtusega kamber määrake, millisest lahtrist tekst tuleb võtta. Selleks kandke aadressiks sobiv lahtri viide (siin: A1).

Makro võtab sisu aktiivse tabeli vastavast lahtrist. Seejärel nimetatakse praegune tööleht vastavalt ümber. Järgmisel joonisel on näide ümbernimetatud tabelist: