Хэрэв танд хэдэн зуун ажлын хуудас бүхий Excel-ийн ажлын дэвтэр байгаа бол одоо бүх ажлын хуудасны нэрсийн жагсаалтыг авахыг хүсч байгаа бол энэ нийтлэлийг үзнэ үү. Энд бид танд 3 энгийн аргыг хуваалцах болно.
Заримдаа Excel-ийн ажлын дэвтэр дээрх бүх ажлын хуудасны нэрсийн жагсаалтыг гаргахыг шаардаж магадгүй юм. Хэрэв цөөхөн хуудас байгаа бол та хуудасны нэрийг гараар жагсаахад 1-р аргыг ашиглаж болно. Гэсэн хэдий ч, Excel-ийн ажлын номонд олон тооны ажлын хуудсууд байгаа тохиолдолд та илүү үр дүнтэй байдаг сүүлийн 2 аргыг ашиглах нь зүйтэй болов уу.
Арга 1: Жагсаалтыг гараар авах
- Эхлээд Excel-ийн тодорхой ажлын номыг нээнэ үү.
- Дараа нь хуудасны жагсаалтад байгаа хуудасны нэрийг хоёр удаа дарна уу.
- Дараа нь нэрийг хуулахын тулд “Ctrl + C” товчийг дарна уу.
- Дараа нь текст файл үүсгээрэй.
- Дараа нь хуудасны нэрийг наахын тулд “Ctrl + V” товчийг дарна уу.
- Одоо ийм байдлаар та хуудас бүрийн нэрийг текст файл руу нэг нэгээр нь хуулж болно.
Арга 2: Формула бүхий жагсаалт
- Эхэндээ "Томъёо" таб руу очоод "Нэрийн менежер" товчийг дарна уу.
- Дараа нь попап цонхонд "Шинэ" дээр дарна уу.
- Дараагийн харилцах цонхонд "Нэр" талбарт "ListSheets" оруулна уу.
- Дараа нь “Ишлэл” талбарт дараахь томъёог оруулна уу.
= СОЛИХ (GET.WORKBOOK (1), 1, FIND ("]", GET.WORKBOOK (1)), "")
- Үүний дараа "OK" ба "Close" дээр дарж энэ томъёог хадгална уу.
- Дараа нь одоогийн ажлын дэвтэрт шинэ ажлын хуудас үүсгээрэй.
- Дараа нь А1 нүдэнд “1”, А2 нүдэнд “2” оруулна уу.
- Үүний дараа хоёр нүдийг сонгоод доош нь чирж А баганад 2,3,4,5 гэх мэт оролт хийнэ.
- Дараа нь B1 нүдэнд дараах томъёог оруулна уу.
= INDEX (ListSheets, A1)
- Хуудасны эхний нэрийг B1 нүдэнд оруулах болно.
- Эцэст нь, "#REF!" алдаа.
Арга 3: Excel VBA-ээр дамжуулан жагсаах
- Учир ньtart, Excel VBA редакторыг “VBA кодыг Excel програм дээрээ хэрхэн ажиллуулах вэ".
- Дараа нь дараахь кодыг модуль эсвэл төсөлд оруулна уу.
Sub ListSheetNamesInNewWorkbook () Dim objNewWorkbook as Workbook Dim objNewWorksheet As Workheet Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets (1) For i = 1 To ThisWorkbook.Sheets.C), i objNewWorksheet.Cells (i, 1) = ThisWorkbook.Sheets (i). Name Next i With objNewWorksheet .Rows (2). Insert .Cells (1, 1) = "INDEX" .Cells (1, 1) .Font. Bold = True .Cells (1, 1) = "NAME". Эсүүд (2, 1) .Font.Bold = True. Баганууд ("A: B"). AutoFit End End End Sub
- Хожим нь "F5" дээр дарж энэ макрог яг одоо ажиллуулна уу.
- Нэгэн зэрэг Excel-ийн шинэ ажлын дэвтэр гарч ирэх бөгөөд үүнд эх сурвалж Excel-ийн ажлын номны ажлын хуудасны нэрсийн жагсаалтыг харж болно.
харьцуулалт
| Давуу тал | Сул тал | |
| Арга 1 | Үйлдэхэд хялбар | Ажлын хуудас олон байгаа бол хэтэрхий төвөгтэй |
| Арга 2 | Үйлдэхэд хялбар | Эхлээд индексээ бичихийг шаардаж байна |
| Арга 3 | Түргэн бөгөөд тохиромжтой | Хэрэглэгчид гадны хортой макроос болгоомжлох хэрэгтэй |
| VBA-ийн шинэ тоглогчдод хүртэл хялбар байдаг |
Excel нь эвдэрдэг
MS Excel нь үе үе эвдэрч, одоогийн файлуудыг хадгалахад хохирол учруулдаг. Тиймээс гадны хүчийг эзэмшихийг маш их зөвлөж байна Excel засвар гэх мэт хэрэгсэл DataNumen Outlook Repair. Excel-д өөрийгөө сэргээх функц нь байнга бүтэлгүйтдэг нь батлагдсантай холбоотой юм.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com
Хэрэв та табын нэрийг харж, файлд хадгалахгүй байхыг хүсвэл доор дурдсан алхмуудыг дагана уу.
Алхам 1: Хулганаа "зүүн цонхны шилжилт" дүрс дээр (тэмдэгтээр илэрхийлсэн) байлга.
Алхам 2: "Ctrl" товчийг дараад хулганы баруун товчийг дарна уу.
Алхам 3: Та "Идэвхжүүлэх" гэсэн гарчигтай гарч ирэх цэстэй бүх "tab нэрс"-ийг харах болно.
Хэрэв та табуудын нэрийг харахыг хүсвэл доор дурдсан 3 энгийн алхмыг дагаарай.
Алхам 1: Хулганаа "зүүн цонхны шилжилт" дүрс дээр (тэмдэгтээр илэрхийлсэн) байлга.
Алхам 2: "Ctrl" товчийг дараад хулганы баруун товчийг дарна уу.
Алхам 3: Та "Идэвхжүүлэх" гэсэн гарчигтай гарч ирэх цэстэй бүх "tab нэрс"-ийг харах болно.
Дур булаам шиг ажилласан. Баярлалаа.
Хөөх, гайхалтай блог бүтэц! Та хэр удаан блог хөтөлж байна вэ?
та блог хөтлөхөд хялбар болгодог. Таны вэб сайтын бүхэл бүтэн харагдах байдал, агуулга нь бүү хэл гайхалтай!
Та үүнтэй төстэй цахим худалдааг эндээс харж болно
Би бодсон бөгөөд мессежийг устгасан
2-р аргын хувьд ListSheets макро (=REPLACE(GET.WORKBBOOK(1),1,FIND(“]”,GET.WORKBOK(1)),””)) ашиглан дахин хүчлэх арга олсон уу? тооцоо? Би хуудасны нэрийг өөрчилж болох ч нүдний агуулгыг цэвэрлэж =INDEX(ListSheets,[RefCell]) томьёог дахин оруулах хүртэл үр дүнд нь хуучин хуудасны нэр үлдэнэ.
Би p гэж хэлсэн бусад хүмүүст хариу хараагүйosted асуултууд, гэхдээ би #BLOCKED-тэй тулгарсан! Excel-ийг хааж, энэ макро ашиглан файлыг дахин нээсний дараа алдаа гарлаа. Би хадгалагдаж буй файлын лавлахыг Итгэмжлэгдсэн байршил болгох хэрэгтэй болсон.
Ер бусын!!!!
Томъёоны аргаар гайхалтай бөгөөд хялбар ажилласан. Гайхалтай. Баярлалаа!
Үүний төлөө чамд хайртай!
Жанетад өөрийн хуудсаа бэлтгэхдээ санал болгосон гайхалтай санаанууддаа бид танд дахин талархал илэрхийльеost- төгсөлтийн судалгаа
нэмэх, мost хамгийн чухал нь, блог дахь бүх санааг хангах талаар post.
Жилийн өмнө бид танай вэбсайтыг мэдэж байсан бол аврагдах байсан байх
бидний хэрэглэж байсан ашиггүй арга хэмжээнээс.
Маш их баярлалаа. насанд хүрэгчдэд зориулсан тоглоом
Бид сайн дурынхны бүлэг бөгөөд нийгэмдээ шинэ схем нээж байна.
Таны вэб сайт бидэнд үнэ цэнэтэй мэдээллийг санал болгосон. Та гайхалтай ажил хийсэн
манай хамт олон танд талархалтай байх болно.
Украины төлөө хандив өргө
Гайхалтай, ямар вэблог вэ! Энэхүү вэб сайт нь танд хэрэгтэй мэдээллийг өгдөг
Бид, үүнийг үргэлжлүүлээрэй. Украины төлөө хандив өргө
крна сиха дайн ажиллана уу
Үүнд баярлалаа. Алхамыг хадгалахын тулд би функцийг ашигласан:
=ИНДЕКС(Жагсаалтын хуудас, МӨР(A1))
мөн хуулж авлаа. Ингэснээр надад 1-ээс n хүртэлх тоог барих Багана хэрэггүй болно
3-р арга нь сэтгэл татам шиг ажилладаг. Ажлын хуудасны нэрсийн жагсаалтыг харуулахын тулд одоо байгаа ажлын дэвтэр дотор ажлын хуудас үүсгэхийн тулд VBA кодыг хэрхэн өөрчлөх талаар мэдэх хүн байна уу?
Би таны блогт дуртай.. маш сайхан өнгө, сэдэв. Та энэ вэб сайтыг өөрөө хийсэн үү эсвэл хэн нэгнийг ажилд авсан уу? Би өөрийн блог зохиох гэж байгаа тул та үүнийг хаанаас авснаа мэдэхийг хүсч байгаа тул хариулна уу. маш их баярлалаа
大変参考になりました、ありがとう。
МИНИЙ ФАЙЛЫН НЭР ЮУ ВЭ ИХ УРТ ВЭ? ТООН, 24 ОРНОГТОЙ ГЭДЭГ ГЭ.. ЭНЭ ТОМЪЁОГ АШИГЛАХАД ОЛСОН АЖЛЫН ХУУДАСНЫ ЗӨВХӨН ЭХНИЙ 12 ОРНОГ АВЧ БАЙНА.
Баярлалаа. 2-р арга бол надад яг хэрэгтэй зүйл байсан 🙂
Хэрэв би хуудасны нэрийг өөрчилвөл би шинэчлэхгүй бөгөөд үүнтэй холбогдсон нүднүүд #REF авдаг! алдаа. Макрогүйгээр яаж шийдэх вэ? Баярлалаа.
o.web20.үйлчилгээ
Маш их баярлалаа - яг надад хэрэгтэй зүйл.
Маш их баярлалаа!!! Маш их тустай
Маш их баярлалаа!
O365-ийн шинэ функцүүдийн тусламжтайгаар та =TRANSPOSE(ListSheets)-ийг шууд ашиглах боломжтой.
Хэрэв танд хуудасны дугаар хэрэгтэй/хэрэгтэй бол =SEQUENCE(COLUMNS(ListSheets)) ч динамик байна.
баярлалаа, 3-р арга нь надад ctr-C/ctr-V-ээс хэдхэн цагийн зай авлаа
Эдгээр гурван сонголтыг хуваалцсанд маш их баярлалаа. p-д хандсан хэрэглэгчтэй би санал нийлэхгүй байнаost "тэнэг" гэж. Шүүмжлэх нь маш амархан боловч бусдад туслахын тулд жинхэнэ хүчин чармайлт шаарддаг. Тусалсанд баярлалаа!
Энэ бол тэнэг хэрэг - зүгээр л галзуурах болно PDF excel файлаас – та нэрс болон a PDF тус бүр.
Хоёр дахь арга нь сэтгэл татам шиг ажилласан, баярлалаа
Би үүнийг хэрхэн шинэ ажлын дэвтэр үүсгэхийн оронд одоогийн ажлын дэвтэрт таб хийх/шинэчлэх вэ?
Гайхалтай! Хоёр дахь арга нь маш сайн ажилласан. Зааврууд нь ойлгомжтой, дэлгэцийн агшинд тусалсан. Сайжрахгүй.
Би бас #БОГЛОГДСОН! 2-р сонголтын алдааны мессеж, би "блокыг тайлах" арга олохгүй байна 🙁
Баярлалаа, маш их ажлыг минь хэмнэв
Арга 2 Excel 2021 дээр ажиллахгүй!
Хэрэв та =INDEX(ListSheets,A2)-г =INDEX(ListSheets,Row(A1))-ээр сольсон бол тайлбар хийх 1 арга нь эхлээд жагсаалт шаардахгүй.
2-р арга нь Excel 4.0-н хуучин функцийг ашигладаг тул макро идэвхжүүлсэн ажлын ном болгон хадгалахыг шаарддаг.
Үнэхээр талархаж байна. "Мэдлэг багатай" VBA-г ашиглахад маш хурдан!
Баярлалаа, би одоо байгаа "Tab Index" таб дээрх одоогийн файлынхаа үр дүнг хэрхэн хүснэгт болгон илүү сайн болгох вэ?
Энэ гайхалтай байсан!! VBA код өгсөнд баярлалаа!!!!!! Оюун санааг минь тайлах нэг цагийн ажил шиг намайг аварсан!
Би алдаа гарлаа #БОГЛОСОН! 2-р аргыг туршиж үзэхэд (томьёотой жагсаалт). Би ажлын дэвтэртээ хуудасны нэрийг ашиглахыг хүсч байгаа тул VBA арга нь тус болохгүй.
Сайн байна уу, Excel VBA-р жагсаалт маш сайн ажилладаг тул кодыг авахын тулд юу өөрчлөхийг зөвлөж байнаtart мөр4, Б багана (В4 дэх индекс, С4 дэх нэр)
Баярлалаа! Энэ нь надад маш их цаг хэмнэсэн тул үүнийг бүгдтэй хуваалцсанд би үнэхээр талархаж байна!
BTW, зөвхөн харагдахуйц (нуугдмал биш) ажлын хуудсыг хэвлэх арга бий юу? Би энд маш их зүйл асууж байгаагаа мэдэж байна, гэхдээ энэ нь томъёог илүү сайн болгож магадгүй юм 🙂
Баяр хүргэж, маш их баярлалаа!!!
Энэ макрод баярлалаа! Энэ нь увдис шиг ажилласан
Энэ гайхалтай юм. P -д маш их баярлалааost! Та намайг ажлын цагаар аварсан.