Ինչպե՞ս ընտրել Excel- ի մեկ այլ սյունակում բջիջի արժեքի հիման վրա գործող տիրույթը:
Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես ընտրել այլ սյունակում բջիջների արժեքի վրա հիմնված միջակայքերը: Վերցրեք օրինակ, եթե C սյունակում բջիջները կեղծ են ցուցադրում, A և B սյունների հարաբերական բջիջները կընտրվեն այնպես, ինչպես ցույց է տրված նկարում: Չկա ներկառուցված առանձնահատկություն, որը կարող է օգնել ձեզ լուծել այս խնդիրը, բայց այս հոդվածում ես կարող եմ կարգավորել այն VBA կոդով:
Ընտրեք տիրույթը `հիմնվելով բջջային արժեքի վրա, մեկ այլ սյունակում VBA կոդով
Ընտրեք տիրույթը `հիմնվելով բջջային արժեքի վրա, մեկ այլ սյունակում VBA կոդով
Ընտրեք տիրույթը `հիմնվելով բջջային արժեքի վրա, մեկ այլ սյունակում VBA կոդով
1. Միացրեք թերթիկը, որը ցանկանում եք օգտագործել և սեղմել Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, ապա կոդից ներքևը տեղադրեք նորի վրա Մոդուլներ պատուհան.
VBA. Ընտրեք տիրույթը ՝ ելնելով բջջային արժեքից
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. Մամուլ F5 VBA գործարկման ստեղնը, ապա միջակայքերը ընտրվել են C սյունակի արժեքների հիման վրա:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: