Skip to main content

Conas gach trácht a liostáil ar bhileog oibre nó leabhar oibre nua in Excel?

Má tá leabhar oibre agat a bhfuil an iomarca tuairimí ann, agus gur mhaith leat gach trácht a liostáil ar bhileog oibre nó leabhar oibre nua chun gach trácht a athbhreithniú, conas is féidir leat a dhéanamh? Is féidir leis na modhanna seo a leanas cabhrú leat gach trácht ar bhileog oibre / leabhar oibre a liostáil go tapa ar bhileog oibre nó leabhar oibre nua in Excel.

Liostaigh gach trácht ar bhileog oibre nua le cód VBA

Liostáil gach trácht ar bhileog oibre nó leabhar oibre nua le Kutools for Excel


mboilgeog cheart gorm saighead Liostaigh gach trácht ar bhileog oibre nua le cód VBA

Liostálfaidh an cód VBA seo a leanas gach trácht ar bhileog oibre nua sa leabhar oibre reatha. Sa bhileog oibre nua, liostálfaidh sé gach trácht ar an leabhar oibre iomlán ar liosta le hainm na bileoige, seoladh na cille, ábhar na tráchtaireachta agus ainm na cille. Úsáid an modh seo mar a leanas:

1. cliceáil Forbróir > Visual Basic, taispeánann sé an Microsoft Visual Basic d’iarratais fuinneog. Agus cliceáil Ionsáigh > Modúil, agus ansin na cóid VBA seo a leanas a ionchur sa Mhodúl.

VBA: liostaíonn sé gach trácht i mbileog oibre nua.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Ansin cliceáil doc-liosta-tráchtanna-1 cnaipe chun an cód a rith, agus gheobhaidh tú bileog oibre nua leis na tráchtanna go léir sa leabhar oibre reatha. Féach an pictiúr:

doc-liosta-tráchtanna-2


mboilgeog cheart gorm saighead Liostáil gach trácht ar bhileog oibre nó leabhar oibre nua le cliceáil amháin

Leis an Cruthaigh Liosta Tráchta of Kutools le haghaidh Excel, is féidir leat gach trácht a liostáil go tapa ar bhileog oibre nua nó ar leabhar oibre nua.

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Faigh é anois.

1. Má tá Kutools suiteáilte agat le haghaidh Excel, cliceáil Kutools > níos mó > Cruthaigh Liosta Tráchta, féach ar an scáileán:

doc-liosta-tráchtanna-3-3

2. Sa an Cruthaigh Liosta Tráchta bosca dialóige:

  • Roghnaigh an scóip is mian leat an trácht a liostáil, is féidir leat a roghnú Bileog ghníomhach or Gach bileog.
  • Ansin sonraigh an áit ar mhaith leat an liosta tuairimí a chur, is féidir leat na tráchtanna a liostáil i leabhar oibre nua nó i mbileog nua, féach an pictiúr:

doc-liosta-tráchtanna-4-4

3. Agus ansin cliceáil Cruthaighcnaipe. Cuirfear bileog oibre nua leis chun tráchtanna uile na bileoige oibre gníomhaí a liostáil lena tréithe mar ainm na bileoige, tagairtí cille, as a chéile agus colún. Féach an pictiúr:

Chun tuilleadh eolais a fháil faoi Cruthaigh Liosta Tráchta, Tabhair cuairt ar Cruthaigh tuairisc gné ar an Liosta Tráchta.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations