Gaukite visų „Excel“ darbalapio komentarų sąrašą

Jei dirbate su „Excel“ darbalapiais, kurių darbalapyje yra daug langelio komentarų, ši pamoka gali būti naudinga. Kartais galite įterpti langelių komentarus, kad paryškintumėte ar paaiškintumėte duomenis, arba jūsų viršininkas gali įterpti komentarus į langelius peržiūrėdamas jūsų darbą.

Jei turite didžiulį duomenų rinkinį ir komentarai yra išsibarstę po visą darbalapį, gali būti naudinga, jei visi komentarai yra vienoje vietoje kaip sąrašas.

Gaukite visų darbalapio komentarų sąrašą

Šioje pamokoje aš jums parodysiu, kaip naudoti VBA kodą, kad gautumėte visų darbo lapo komentarų sąrašą atskirame darbalapyje.

Kažkas, kaip parodyta žemiau:

Užpakalinėje dalyje yra VBA kodas, kuris atlieka šiuos veiksmus:

• Jis patikrina, ar aktyviame darbalapyje yra komentarų, ar ne. Jei nėra komentarų, jis tyliai nusilenkia ir nieko nedaro.
• Jei darbalapyje yra komentarų, jis sukuria naują darbalapį („Komentarai“) ir išskleidžia visų komentarų sąrašą pagal šią struktūrą:
  • A stulpelyje yra langelio adresas, kuriame yra komentaras.
  • B stulpelyje yra komentatoriaus vardas. Tai naudinga, jei yra keli to paties failo peržiūrėtojai. Tai taip pat padės filtruoti/rūšiuoti pagal recenzento vardą.
  • C skiltyje yra komentaras.

Atsisiųskite pavyzdinį failą

VBA kodeksas

Čia yra VBA kodas, kuris atlieka visą sunkų kėlimą.

Sub ExtractComments () Dim ExComment kaip komentaras Dim i Kaip sveikasis skaičius w w Kaip darbalapis Dim CS kaip darbalapis Nustatykite CS = ActiveSheet, jei ActiveSheet.Comments.Count = 0 Tada išeikite iš kiekvieno ws darbalapio poskyrio If ws.Name = "Comments" Tada i = 1 Kitas ws Jei i = 0 Tada nustatykite ws = Darbai. Pridėti (po: = ActiveSheet) ws.Name = "Komentarai" Kita: Nustatykite ws = Darbai ("Komentarai") Pabaikite, jei už kiekvieną „CS.Comments ws“ komentarą. Diapazonas („A1“). Reikšmė = „Komentuoti“ ws.Range („B1“). Vertė = „Komentuoti pagal“ ws.Range („C1“). C1 "). Šriftas. Boldas = tiesa. Interjeras. Spalva = RGB (189, 215, 238). Stulpeliai. Stulpelio plotis = 20 Pabaiga su If ws.Range (" A2 ") =" "Tada ws.Range (" A2 ") ) .Value = ExComment.Parent.Address ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Reikšmė = dešinė (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Kita ws.Range ("A1"). Pabaiga (xlDown) .Osetas (1, 0) = „ExComment.Parent.Address ws.Range“ („B1“). Pabaiga („xlDown“). „Offset“ (1, 0) = kairė („ExComment“). Tekstas, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). Pabaiga (xlDown) .Offset (1, 0) = Dešinė (ExComment.Text, Len (ExComment.Text)) - InStr (1, ExComment.Text, ":")) Pabaiga, jei kita ExComment End Sub

Kaip naudotis šiuo kodu

Yra keli būdai, kaip naudoti šį kodą, kad gautumėte komentarų sąrašą iš savo darbalapio:

#1 Nukopijuokite įklijuoti duomenis pavyzdiniame faile

Nukopijuokite įklijuokite duomenis (kaip yra) atsisiuntimo failo skirtuke Duomenys ir paleiskite šią makrokomandą.

Norėdami tai paleisti:

• Eikite į skirtuką Kūrėjas ir spustelėkite Makrokomandos. Bus atidarytas dialogo langas „Makro“.
• Pasirinkite „ExtractComment“ ir spustelėkite „Vykdyti“. Įsitikinkite, kad esate lape, kuriame yra komentarai, kuriuos norite išgauti.

#2 Nukopijuokite Įklijuokite kodą į savo darbaknygę

Nukopijuokite kodą ir įklijuokite jį į darbaknygę, iš kurios norite išgauti komentarus.

Padaryti tai:

• Suaktyvinkite darbaknygę, kurioje dirbate, ir paspauskite Alt + F11. Bus atidarytas VB redaktoriaus langas.
• „Project Explorer“ kairėje dešiniuoju pelės mygtuku spustelėkite bet kurį tos darbo knygos objektą, eikite į „Insert“ -> „Module“.
• Įklijuokite kodą lange „Modulio kodas“.
• Uždarykite VB redaktoriaus langą (arba paspauskite Alt + F11, kad grįžtumėte į darbalapį).

Dabar makrokomandą turite savo darbo knygoje. Norėdami paleisti makrokomandą, eikite į skirtuką Kūrėjas -> Makrokomandos. Dialogo lange makrokomandos pasirinkite makrokomandą „ExtractComment“ ir spustelėkite „Vykdyti“.

Pastaba: būtinai išsaugokite darbaknygę su .XLS arba .XLSM plėtinys.

#3 Sukurkite priedą

Jei šį kodą reikia naudoti dažnai, geriausia iš jo sukurti priedą. Tokiu būdu galite lengvai jį naudoti bet kurioje darbo knygoje (be papildomų pastangų kopijuoti ir vėl įklijuoti kodą).

Štai kaip sukurti priedą:

• Eikite į Failas -> Išsaugoti kaip.
• Dialogo lange Įrašyti kaip pakeiskite Įrašyti kaip .xlam tipą.
  • Pastebėsite, kad failo kelias, kuriame jis išsaugomas, automatiškai keičiasi. Jei norite, galite jį pakeisti.
• Atidarykite „Excel“ darbaknygę ir eikite į Kūrėjas -> Papildiniai -> „Excel“ priedai.
• Dialogo lange Priedai naršykite ir suraskite išsaugotą failą ir spustelėkite Gerai.

Kai priedas bus suaktyvintas, galėsite jį naudoti bet kurioje darbaknygėje. Norėdami tai padaryti, eikite į Kūrėjas -> Makrokomandos. Dialogo lange Makrokomandos pasirinkite makrokomandą „ExtractComment“ ir paleiskite ją.

Atsisiųskite pavyzdinį failą

Tikimės, kad šis kodas sutaupys šiek tiek laiko. Leiskite man žinoti savo mintis komentarų skiltyje.

Jei dirbate su „Excel“, VBA gali būti galingas sąjungininkas. Pakelkite savo „Excel“ įgūdžius į kitą lygį naudodami „Excel VBA“ kursą.