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.
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
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
3. Gwasgwch F5 allwedd i redeg y VBA, ac yna mae'r ystodau wedi'u dewis yn seiliedig ar y gwerthoedd yng ngholofn C.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
