Hogyan lehet az alábbi határvonalat hozzáadni, ha az érték megváltozik egy Excel oszlopban?
Van egy olyan adatlista, amely megismétli az értékeket, és az értékek jobb osztályozása érdekében az alábbiakban egy határvonalat adok hozzá, amikor az érték megváltozik a listában, az alábbi képernyőképen. Ebben a cikkben arról fogok beszélni, hogy miként lehet gyorsan hozzáadni a határvonalat, amikor az érték megváltozik egy Excel oszlopban.
Add hozzá a határvonalat, ha az érték a VBA-val változik
Add hozzá a határvonalat, ha az érték a VBA-val változik
Nyilvánvaló, hogy az Excelben nincs olyan beépített funkció, amely segíthet az alsó határ hozzáadásában az érték változásakor, de van egy VBA-kód, amelyet be tudok vezetni.
1. nyomja meg Alt + F11 gomb az engedélyezéshez Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a kód alatt az üres parancsfájlba module.
VBA: adja hozzá a határvonalat az érték megváltozásakor
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3. nyomja meg F5 gombot a kód végrehajtásához. Ezután a határvonalakat hozzáadtuk az alábbiakhoz, amikor az érték megváltozik az A2: A kiválasztásban.
| Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
