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

Sut i ddewis ystod yn seiliedig ar werth celloedd mewn colofn arall yn Excel?

Yn yr erthygl hon, byddaf yn siarad am sut i ddewis ystodau yn seiliedig ar werth celloedd mewn colofn arall. Cymerwch enghraifft, os yw'r celloedd yn arddangos GAU yng ngholofn C, bydd y celloedd cymharol yng ngholofn A a cholofn B yn cael eu dewis fel isod y llun a ddangosir. Nid oes unrhyw nodwedd adeiledig a all eich helpu i ddatrys y dasg hon, ond yn yr erthygl hon, gallaf ei thrin â chod VBA.
doc wedi'i ddewis gan golofn 1 arall

Dewiswch ystod yn seiliedig ar werth celloedd mewn colofn arall yn ôl cod VBA


swigen dde glas saeth Dewiswch ystod yn seiliedig ar werth celloedd mewn colofn arall yn ôl cod VBA

Dewiswch ystod yn seiliedig ar werth celloedd mewn colofn arall yn ôl cod VBA

1. Galluogi'r ddalen rydych chi am ei defnyddio, a gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y cod isod i'r newydd Modiwlau ffenestr.

VBA: Dewis ystod yn seiliedig ar werth celloedd

Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
    Dim lastrow As Long
    Dim xRg As Range, yRg As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet2")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        Application.ScreenUpdating = False
        For Each xRg In .Range("C1:C" & lastrow)
            If UCase(xRg.Text) = "FALSE" Then
                If yRg Is Nothing Then
                    Set yRg = .Range("A" & xRg.Row).Resize(, 2)
                Else
                    Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
                End If
            End If
        Next xRg
        Application.ScreenUpdating = True
    End With

    If Not yRg Is Nothing Then yRg.Select
End Sub

doc wedi'i ddewis gan golofn 2 arall

3. Gwasgwch F5 allwedd i redeg y VBA, ac yna mae'r ystodau wedi'u dewis yn seiliedig ar y gwerthoedd yng ngholofn C.

Nodyn: yn y sgript VBA, Sheet2 yw enw'r ddalen weithredol, mae C yn nodi'r golofn rydych chi am ei dewis yn seiliedig ar, y A ac 2 in ("A" & xRg.Row) .Resize (, 2) yn nodi hynny i ddewis dwy golofn o golofn A. Gallwch newid y cyfeiriadau yn ôl yr angen.

Tip.Os ydych chi am ddewis celloedd sy'n hafal i werth penodol yn gyflym, ceisiwch ddefnyddio'r Kutools ar gyfer Excel's Dewiswch Gelloedd Penodol cyfleustodau fel y dangosir yn y screenshot canlynol. Mae'n swyddogaeth lawn heb gyfyngiad mewn 30 diwrnod, lawrlwythwch a chael treial am ddim nawr.

doc dewis celloedd penodol

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 (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir