Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում ցուցակագրել բոլոր մեկնաբանությունները նոր աշխատանքային թերթի կամ աշխատանքային գրքի վրա:

Եթե ​​ունեք աշխատանքային գրքույկ, որում շատ մեկնաբանություններ կան, և ուզում եք բոլոր մեկնաբանությունները ցուցադրել նոր աշխատանքային թերթում կամ աշխատանքային գրքում, բոլոր մեկնաբանությունները դիտելու համար, ինչպե՞ս կարող եք դա անել: Հետևյալ մեթոդները կօգնեն ձեզ արագ թվարկել աշխատանքային թերթի / աշխատանքային գրքի բոլոր մեկնաբանությունները Excel- ի նոր աշխատանքային թերթում կամ աշխատանքային գրքում:

Նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթ VBA կոդով

Excel- ի համար Kutools- ի հետ նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթում կամ աշխատանքային գրքում


նետ կապույտ աջ պղպջակ Նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթ VBA կոդով

Հաջորդ VBA կոդը կցուցադրի ընթացիկ աշխատանքային գրքում նոր աշխատանքային թերթի բոլոր մեկնաբանությունները: Նոր աշխատաթերթում այն ​​կցուցադրի ամբողջ աշխատանքային գրքի բոլոր մեկնաբանությունները ցուցակում, որտեղ նշված են թերթիկի անունը, բջջային հասցեն, մեկնաբանության բովանդակությունը և բջջային անունը: Խնդրում ենք օգտագործել այս մեթոդը հետևյալ կերպ.

1. Սեղմել Երեվակիչ > Visual Basic, դա ցուցադրում է Microsoft Visual Basic հավելվածների համար պատուհան Եվ կտտացրեք Տեղադրել > Մոդուլներ, ապա մուտքագրեք հետևյալ VBA կոդերը Մոդուլում:

VBA. Ցուցակագրում է բոլոր մեկնաբանությունները նոր աշխատանքային թերթում:

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. Այնուհետեւ կտտացրեք doc-list-comments-1 կոդն աշխատեցնելու համար, և դուք կստանաք նոր աշխատանքային թերթ `ընթացիկ աշխատանքային գրքում նշված բոլոր մեկնաբանություններով: Տեսեք,

doc-list-comments-2


նետ կապույտ աջ պղպջակ Մեկ կտտոցով նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթում կամ աշխատանքային գրքում

Հետ Ստեղծել մեկնաբանությունների ցուցակ of Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք արագ թվարկել բոլոր մեկնաբանությունները նոր աշխատանքային թերթում կամ նոր աշխատանքային գրքում:

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now.

1, Եթե ​​Kutools- ը տեղադրել եք Excel- ի համար, կտտացրեք Կուտոլս > ավելի շատ > Ստեղծել մեկնաբանությունների ցուցակ, տես նկարի նկարը.

doc-list-comments-3-3

2, Մեջ Ստեղծել մեկնաբանությունների ցուցակ երկխոսության տուփ:

  • Ընտրեք այն շրջանակը, որը ցանկանում եք ցուցակագրել մեկնաբանությունը, կարող եք ընտրել Ակտիվ թերթիկ or Բոլոր թերթերը.
  • Դրանից հետո նշեք այն վայրը, որը ցանկանում եք տեղադրել մեկնաբանությունների ցուցակը, մեկնաբանությունները կարող եք ցուցադրել նոր աշխատանքային գրքում կամ նոր թերթում, տե՛ս նկարը.

doc-list-comments-4-4

3. Եվ այնուհետեւ կտտացրեք Ստեղծելկոճակ Նոր աշխատանքային թերթ կավելացվի ՝ ցուցակի բոլոր ակտիվ մեկնաբանությունները իր հատկանիշներով, ինչպիսիք են թերթի անունը, բջջային հղումները, տողն ու սյունը: Տեսեք,

Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Ստեղծել մեկնաբանությունների ցուցակ, Խնդրում ենք այցելել Ստեղծել մեկնաբանությունների ցուցակի հատկությունների նկարագրություն.


Առնչվող հոդվածներ քանակը:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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