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

Sut i wylio a dychwelyd gwerth paru â sylw celloedd?

Pan ddefnyddiwch y swyddogaeth Vlookup i ddychwelyd y gwerth paru, dim ond heb y fformatio y bydd yn echdynnu'r gwerth, fel lliw llenwi, ffont neu sylw ac ati. Ond, weithiau, efallai y bydd angen i chi wylio a dychwelyd y gwerth cyfatebol gan gynnwys sylw hefyd i gael y canlyniad screenshot canlynol. Sut allech chi ddatrys y swydd hon yn Excel?

Gwerth paru Vlookup a dychwelyd gyda sylw celloedd trwy ddefnyddio cod VBA


Gwerth paru Vlookup a dychwelyd gyda sylw celloedd trwy ddefnyddio cod VBA

Efallai y bydd y cod VBA isod yn eich helpu i wylio a dychwelyd gwerth cyfatebol gyda'i sylw, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Gwerth paru Vlookup a dychwelyd gyda sylw celloedd:

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. Ac yna arbedwch y cod a chau ffenestr y cod, nodwch y fformiwla hon: = vlookupcomment (H2, A2: C10,3, ANWIR) i mewn i gell wag i ddod o hyd i'r canlyniad, a gwasgwch Rhowch allwedd, dychwelir y gwerth cyfatebol yn ogystal â'r sylw ar unwaith, gweler y screenshot:

Nodyn: Yn y fformiwla uchod, H2 yw'r gwerth edrych rydych chi am ddychwelyd ei werth cyfatebol, A2: C10 yw'r tabl data rydych chi am ei ddefnyddio, y rhif 3 yw rhif y golofn sy'n cynnwys y gwerth cyfatebol rydych chi am ei ddychwelyd.


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 (20)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut byddwn i'n gwneud yr un peth â Hlookup yn lle vlookup?

Newidiais y cod fel a ganlyn:
Swyddogaeth hlookupSylw(LookVal Fel Amrywiad, Fable Fel Amrediad, Agen Cyhyd, FTepe Cyhyd) Fel Amrywiad
'Updateby Extendoffice
Cais.Volatile
Gallai ‘xRet As Variant’ fod yn wall
Dim xCell Fel Ystod
xRet = Application.Match(LookVal, FTable.Rows(1), FType)
Os IsError(xRet) Yna
hlookupComment = "Heb ei ddarganfod"
arall
Gosod xCell = FTable.Rows(Frow).Cells(1)(xRet)
hlookupComment = xCell.Value
Gyda Application.Caller
Os Na .Sylw Ydy Dim Yna
.Sylw.Dileu
Gorffennwch Os
If Not xCell.Comment Ydy Dim Yna
.AddComment xCell.Comment.Text
Gorffennwch Os
Diwedd Gyda
Gorffennwch Os
Swyddogaeth End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd y mae'r sylw vlookup yn copïo fformatio'r sylw gwreiddiol? Mae rhai o fy sylwadau yn hir iawn, ond mae'r sylw a ddychwelwyd o vlookup bob amser y maint bach safonol, felly ni allaf ddarllen y testun i gyd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Carl,
Efallai nad oes ffordd uniongyrchol o ddatrys eich problem, ond, gallwch lusgo'r blwch sylwadau yn fwy â llaw. Neu gallwch chi gymhwyso ein Kutools ar gyfer Excel's Autofit Sylw nodwedd , gall eich helpu i addasu'r blwch sylwadau i gyd-fynd â'r content.Thank you!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwn ddefnyddio cell yng ngholofn B (colofn trefn) fel sylw ar gyfer cell yng ngholofn C (enw). exc, sylw i Helen yn 80.
diolch i chi am eich cymorth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Frank
Helo,

Rhag ofn y bydd taenlen wedi'i diogelu, pan fyddaf yn agor fy llyfr gwaith bydd y gell yn dychwelyd y gwall #VALUE!

Sut gallwn ni ddatrys y broblem hon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Frank,
Ar ôl mewnosod y cod, dylech arbed eich llyfr gwaith fel fformat Excel Macro-Enabled Workbook, fel na fydd y cod yn colli.
Ceisiwch! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, Mae'n ddefnyddiol ac mae gen i rywbeth i'w ofynMae'n dychwelyd gyda sylw cell ond nid yw'r Delwedd (Mewnosodwyd gan ddefnyddio effeithiau llenwi) yn dangos
Os gwelwch yn dda, helpwch fi allan o'r Rhifyn hwn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Shamim,
Mae'n ddrwg gennym am nad oes cod uniongyrchol ar gyfer datrys eich problem, os oes gan unrhyw un yr ateb, rhowch sylwadau yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae fy sylw yn rhy fawr ar gyfer maint y blwch rhagosodedig. A oes unrhyw ffordd i gynyddu maint y blwch sylwadau neu o bosibl leihau maint y ffont?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os oes angen hwn ar unrhyw un arall.


Swyddogaeth VlookupComment(LookVal Fel Amrywiad, FTable Fel Amrediad, FColofn Cyn Hir, Math FT Cyn Hir) Mor Amrywiad

'Updateby Extendoffice

Cais.Volatile

Gallai ‘xRet As Variant’ fod yn wall

Dim xCell Fel Ystod

xRet = Application.Match(LookVal, FTable.Columns(1), FType)

Os IsError(xRet) Yna

VlookupComment = "-"

arall

Gosod xCell = FTable.Columns(FColumn).Cells(1)(xRet)

VlookupComment = xCell.Value

Gyda Application.Caller

Os Na .Sylw Ydy Dim Yna

.Sylw.Dileu

Gorffennwch Os

If Not xCell.Comment Ydy Dim Yna

.AddComment xCell.Comment.Text

.Comment.Shape.ScaleWidth 2, msoFalse, msoScaleFromTopLeft

.Comment.Shape.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft

Gorffennwch Os

Diwedd Gyda

Gorffennwch Os

Swyddogaeth End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim ond Sylw fel Gwerth Cell rydw i eisiau gan ddefnyddio Vlookup ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallaf wneud hynny am y tro cyntaf. ond ar ôl ceisio defnyddio fformiwla newidiol o gelloedd lluosog. Nid yw'n gweithio nawr. ar ôl hyd yn oed fi deipio vlookupcomment, y gell yn dod yn wag.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Rwyf mor falch fy mod wedi dod o hyd i hwn, y peth yw, mae hyn yn gweithio mewn gwirionedd ar nodiadau, ac nid sylwadau. a oes ffordd i gael gwaith ar sylwadau ac nid nodiadau? mewn nodiadau ni allaf dagio fy nghydweithwyr ac ni allaf ateb ychwaith. Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn fendigedig. Ond wrth ddefnyddio'r cod hwn, rwy'n gweld bod y ffeil yn cael llawer o ddamweiniau ar Excel 365. Wrth gael gwared ar auto save, gwelais ei fod ychydig yn well. Ond gyda defnyddwyr lluosog yn y ffeil, bydd y ffeil yn chwalu drwy'r amser. A yw'r cod hwn yn defnyddio llawer o gof neu a yw'n fater cydnawsedd? Syniadau? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn gweithio i mi. Rwy'n cael #NAME? gwall pan fyddaf yn defnyddio'r fformiwla hon. Helpwch os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sajjad, A wnaethoch chi roi cod VBA yr erthygl hon yn eich llyfr gwaith? Gwiriwch hi. Neu pa fersiwn Excel ydych chi'n ei ddefnyddio? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo mae hon yn swyddogaeth dda iawn, ond mae'n gweithio i Nodiadau, nid Sylwadau (dyma sut mae'n cael ei gyfieithu yn fy iaith frodorol o leiaf). A oes unrhyw ffordd i'w newid o Nodiadau i Sylwadau? Hefyd, a oes ffordd i gadw'r fformat cell? (lliw'r gell wreiddiol, ac ati).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi cael yr un mater. Ni allaf ond dweud ar ôl ceisio trwy vba i gopïo sylwadau a nodiadau... dim ond nodiadau sy'n cael eu copïo, nid y sylwadau (er bod ganddynt yr un ystyr, ond swyddogaeth wahanol)... Mae'n ymddangos bod y nodiadau o natur statig , yn wahanol i sylwadau lle gallwch barhau i "bostio" i ychwanegu testun newydd...mae'n debyg mai dyna'r rheswm...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ffana,
I dynnu'r cofnodion cyfatebol gyda'r sylw yn Office 365, defnyddiwch y cod isod:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .CommentThreaded Is Nothing Then
                .ClearComments
            End If
            If Not xCell.CommentThreaded Is Nothing Then
                .AddCommentThreaded xCell.CommentThreaded.Text
            End If
        End With
    End If
End Function


Ar ôl gludo'r cod, defnyddiwch y fformiwla hon: = vlookupcomment (H2, A2: C10,3, ANWIR) hefyd.

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
txs llawer. gwerthfawrogi'n fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir