photosdematures.com

Ang pagpapalit ng pangalan ng mga sheet sa excel ay tapos na mula sa taskbar sa ibaba ng worksheets ay naroroon sa pamamagitan ng pag-double click sa mga ito, ngunit sa VBA ginagamit namin ang paraan ng pag-aari ng Sheets o Worksheet upang palitan ang pangalan ng sheet, ang syntax upang palitan ang pangalan ng isang sheet sa VBA ay ang mga sumusunod na Sheet (" Pangalan ng Lumang Sheet "). Pangalan =" Bagong pangalan ng Sheet ".

Palitan ang pangalan ng Sheet sa Excel VBA

Natapos nating lahat ang gawaing ito ng pagpapalit ng pangalan ng worksheet ayon sa ating pagkakakilanlan o ayon sa kaginhawaan natin hindi ba? Ang pagpapalit ng pangalan ay hindi rocket science upang makabisado ngunit kung ikaw ang VBA coder kung gayon dapat mong nalalaman ang gawaing ito ng pagpapalit ng pangalan ng worksheet. Dahil nagtatrabaho kami sa mga worksheet sa pamamagitan ng paggamit ng kanilang mga pangalan mahalagang malaman ang kahalagahan ng mga pangalan ng worksheet sa pag-coding ng VBA. Sa artikulong ito, ipapakita namin sa iyo kung paano palitan ang pangalan ng sheet gamit ang Excel VBA coding.

Paano Muling Pangalanan ang Sheet sa VBA?

Ang pagbabago ng pangalan ng worksheet ay hindi nangangailangan ng anumang mga espesyal na kasanayan. Kailangan lamang naming sanggunian kung aling pangalan ng sheet ang binabago namin sa pamamagitan ng pagpasok ng umiiral na pangalan ng sheet.

Halimbawa, kung nais naming palitan ang pangalan ng sheet na pinangalanan bilang "Sheet 1" pagkatapos ay kailangan naming tawagan ang sheet sa pamamagitan ng pangalan nito gamit ang worksheet object.

Mga worksheet ("Sheet1")

Matapos banggitin ang pangalan ng sheet kailangan naming piliin ang pag-aari ng "Pangalan" upang palitan ang pangalan ng pangalan ng worksheet.

Mga worksheet ("Sheet1"). Pangalan

Ngayon kailangan naming itakda ang pag-aari ng Pangalan sa pangalan alinsunod sa aming nais.

Mga worksheet ("Sheet1"). Pangalan = "Bagong Pangalan"

Tulad nito, maaari naming palitan ang pangalan ng pangalan ng worksheet sa VBA gamit ang pag-aari ng Pangalan.

Sa mga sumusunod na seksyon ng artikulo, ipapakita namin sa iyo ang higit pa at maraming mga halimbawa ng pagbabago o pagpapalit ng pangalan ng worksheet.

Mga halimbawa ng Palitan ang pangalan ng Mga Worksheet sa Excel VBA

Nasa ibaba ang mga halimbawa ng VBA Rename Sheet.

Maaari mong i-download ang VBA Rename Sheet Template dito - VBA Rename Sheet Template

Halimbawa # 1 - Baguhin o Palitan ang pangalan ng sheet gamit ang VBA Variable.

Para sa isang halimbawa tingnan ang sa ibaba sample code.

Code:

 Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 

Sa code sa itaas muna, idineklara ko ang variable bilang Worksheet.

 Dim Ws Bilang Worksheet

Susunod, itinakda ko ang sanggunian sa variable bilang "Sheet1" gamit ang object ng worksheets.

 Itakda ang Ws = Mga Worksheet ("Sheet1")

Ngayon ang variable na "Ws" ay nagtataglay ng sanggunian ng worksheet na "Sheet1".

Ginagamit ko ngayon ang variable na "Ws" na pinalitan ko ng pangalan ang worksheet bilang "New Sheet".

Papalitan ng code na ito ang pangalan ng "Sheet1" sa "New Sheet".

Kung patakbo ko ang code nang manu-mano o sa pamamagitan ng key shortcut F5 pagkatapos, muli makakakuha kami ng Subscript Out of Range error.

Ang dahilan kung bakit nakuha namin ang error na ito dahil sa nakaraang hakbang mismo ay binago na namin ang worksheet na nagngangalang "Sheet1" sa "New Sheet". Dahil wala nang pangalan ng worksheet na "Sheet1" ay hindi magagamit ang VBA ay itinapon ang error na ito.

Halimbawa # 2 - Kunin ang lahat ng Mga Pangalan ng Worksheet sa isang solong Sheet.

Maaari nating makuha ang lahat ng mga pangalan ng worksheet ng workbook sa isang solong sheet. Ang code sa ibaba ay aalisin ang lahat ng mga pangalan ng worksheet.

Code:

 Sub Renmae_Example2 () Dim Ws As Worksheet Dim LR As Long For Each Ws In ActiveWorkbook. Worksheets LR = Worksheets ("Main Sheet"). Cells (Rows.Count, 1). End (xlUp) .Row + 1 Cells (LR, 1). Piliin ang ActiveCell.Value = Ws.Name Susunod Ws End Sub 

Ang code na ito ay kukuha ng lahat ng mga magagamit na mga pangalan ng worksheet sa sheet na pinangalanang "Pangunahing Sheet".

Halimbawa # 3 - Itakda ang Permanenteng Pangalan sa Excel Worksheet Gamit ang VBA

Dahil nagtatrabaho kami sa mga pangalan ng sheet sa pag-coding mahalaga na magtakda ng mga permanenteng pangalan sa kanila. Paano namin maitatakda ang mga permanenteng pangalan para sa kanila?

Para sa isang halimbawa tingnan ang code sa ibaba.

Code:

 Sub Rename_Example3 () Mga Worksheet ("Sheet1"). Piliin ang End Sub 

Ang code sa itaas ay pipiliin ang Sheet1.

Kung ang iyong workbook ay ginagamit ng maraming tao, kung may nagbago ng pangalan ng worksheet pagkatapos makakakuha kami ng error sa Subscript Out of Range.

Upang maiwasan ito maaari nating itakda ang permanenteng pangalan dito. Upang maitakda ang permanenteng pangalan upang sundin ang mga hakbang sa ibaba.

Hakbang 1: Piliin ang sheet na kailangan namin upang maitakda ang permanenteng pangalan sa Visual Basic Editor.

Hakbang 2: Pindutin ang F4 key upang makita ang window ng Properties.

Hakbang 3: Sa ilalim ng Pangalan, Ari-arian Palitan ang pangalan ng "Bagong Pangalan".

Tulad ng nakikita mo ang isang pangalan ay ipinapakita bilang "Sheet1" at sa isang bracket, maaari naming makita ang bagong pangalan bilang "New Sheet".

Ngayon sa pag-coding, gagamitin namin ang bagong pangalan sa halip na isang aktwal na nakikitang pangalan.

Code:

 Sub Rename_Example3 () NewSheet. Piliin ang End Sub 

Bumalik ngayon sa window ng worksheet, maaari pa rin nating makita ang pangalan ng sheet bilang "Sheet1" lamang.

Ngayon ay babaguhin ko ang pangalan ng sheet sa "Pagbebenta".

Kung patakbuhin ko ang code gamit ang F5 key o manu-mano pagkatapos ay pipiliin pa rin nito ang sheet na pinangalanang "Sales" lamang. Dahil nagbigay kami ng isang permanenteng pangalan dito, pipiliin lamang nito ang parehong sheet lamang.