Note: The other languages of the website are Google-translated. Back to English

Sut i allforio sylwadau o Excel i Word?

I ddefnyddwyr Excel, mae mewnosod sylwadau yn y celloedd yn dasg gyffredin, weithiau, mae angen i chi gopïo a gludo'r sylwadau hyn i ddogfen Word at ryw bwrpas. Wrth gwrs, gallwch chi gopïo a gludo'r sylw i'r Gair fesul un, ond mae hon yn swydd ddiflas a llafurus. A oes unrhyw ffordd i allforio'r holl sylwadau o Excel i Word ar unwaith?

Allforio sylwadau o'r daflen waith gyfredol i Word gyda chod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saethAllforio sylwadau o'r daflen waith gyfredol i Word gyda chod VBA


Yn anffodus, nid yw Excel yn darparu'r nodwedd i gopïo a gludo'r holl sylwadau i Word ar unwaith. Fodd bynnag, gyda'r cod VBA canlynol, gallwch allforio holl sylwadau taflen waith weithredol yn gyflym i'r ddogfen Word.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Allforio sylwadau o'r daflen waith gyfredol i Word

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, ac mae'r holl sylwadau yn y daflen waith weithredol wedi'u hallforio i ddogfen Word newydd gyda chyfeiriad itscell. Gweler y screenshot:

doc-allforio-sylwadau1


Erthyglau cysylltiedig:

Sut i fewnosod sylw yn gyflym i gelloedd lluosog yn Excel?

Sut i newid siâp blwch sylwadau yn Excel?

Sut i newid pob fformat sylwadau mewn celloedd yn Excel?

Sut i newid enw awdur yr holl sylwadau yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (17)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Erthygl ardderchog, roeddwn yn chwilfrydig i wybod, os oes gennyf ddelweddau yn y sylwadau hynny, a fydd y cod VBA uchod hefyd yn allforio'n gyflym yr holl ddelweddau yn y sylwadau bod delweddau o daflen waith weithredol i'r ddogfen Word? Diolch i chi am gymryd yr amser i ddarllen hwn, gwerthfawrogir yn fawr. Cofion, Vladimir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd hyn yn berffaith a dyna'n union yr oeddwn ei angen! Diolch yn fawr iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cael y neges "Gwall llunio: Gweithdrefn allanol annilys". Beth nawr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un neges oedd gen i - wnaethoch chi lwyddo i ddatrys y Randi hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
oes unrhyw un yn gwybod os gallaf wneud hyn ond dim ond copïo sylwadau o res penodol? bydd unrhyw gymorth yn cael ei werthfawrogi'n fawr, rwyf wedi bod yn ceisio gweithio ar hyn ers amser maith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
roedd yn help mawr. tq!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir ei wneud i echdynnu o resi wedi'u hidlo ar ôl gosod hidlydd ? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych ac yn helpu! A oes ffordd i gael testun gwirioneddol o fewn y gell i ddisodli'r rhif cell neu i gael ei gynnwys? Mae gen i benawdau a chyfarwyddiadau balŵn yn y penawdau. Rwy'n ceisio creu trefn geiriau ar lenwi'r rhesi gyda phenawdau'r data (E.; "Enw") ac yna mae'r blwch sylwadau yn dweud wrth y defnyddiwr y fformat.

Yn dangos ar hyn o bryd gyda'r macro uchod:

Enw defnyddiwr A1:


- Rhowch Enw'r Benthyciwr fel y gwelir ar ddogfennau sefydliadol y Benthyciwr neu ddogfennau cefnogi enwau eraill.


Chwilio amdano felly dangoswch destun cell A1 sef Enw'r Cwmni.


Gwerthfawrogir unrhyw help yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
omg! roedd yn ddefnyddiol iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn hynod ddefnyddiol! Diolch!
A oes ffordd i dynnu pennawd y rhes neu'r golofn i mewn yn hytrach na safle'r gell (B4)?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Llwyddais i gael y canlyniad hwn trwy newid y "xComment.Parent.Address" i "xComment.Parent.Value" yn rhes 14.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i gopïo a gludo'n union ond dim ond dogfen Word wag a gynhyrchwyd. Unrhyw syniadau?


Is-gopiCommentsToWord()
'Diweddariad 20140325
Dim x Sylw Fel Sylw
Dim wApp Fel Gwrthrych
Ar Ail-ddechrau Gwall Nesaf
Gosod wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Yna
Err.Clear
Gosod wApp = CreateObject ("Word.Application")
Gorffennwch Os
wApp.Visible = Gwir
wApp.Documents.Add DocumentType:=0
Am Bob xSylw Yn y Cais.Active Sheet.Sylwadau
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Digwyddiadau
Gosod wApp = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
un mater. wnaethoch chi lwyddo i ddatrys?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un peth...unrhyw feddyliau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei wnes i ddarganfod sut i drwsio hyn. Mae angen i Linell 13 ddarllen "Ar gyfer Pob xComment In Application.ActiveSheet.CommentsThreaded". (Nid yw'r allbwn yn union fel y sgrinlun, byddai'n rhaid i chi ychwanegu xComment.Author neu efallai rhai eiddo eraill yn y ddolen For - ond mae newid o Comments i CommentsThreaded yn gwneud i hyn weithio eto.)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae Able To Extract yn dechrau gyda'r set ddata mesuradwy gychwynnol ac yn cynhyrchu gwerthoedd deilliedig ​. Gall defnyddwyr fewnosod ac addasu eu niferoedd i fynegeio busnes yn broffesiynol.
Philip
patchhere.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn ardderchog! fodd bynnag dwi'n cael trafferth pinio'r sylwadau i ble maen nhw'n perthyn yn y daflen waith. a oes unrhyw ffordd i allu labelu'r rhesi neu'r golofn neu'r gell y mae'r sylwadau'n cael eu hechdynnu ynddynt?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir