Ինչպե՞ս պահպանել ցանցի գծերը Excel- ում գույնը լրացնելիս:
Ինչպես մենք բոլորս գիտեինք, երբ ֆոնի գույնը լրացնում ենք բջիջներին, ցանցային գծերը նույնպես ծածկված կլինեն, այս դեպքում ինչպե՞ս կարող ենք պահպանել ցանցագծերը Excel բջիջներում ֆոնի գույնը լրացնելիս `հետևյալ նկարը ցույց տալու համար:
Պահպանեք ցանցային գծերը, մինչդեռ գույնը լցնում եք VBA կոդով
Պահպանեք ցանցային գծերը, մինչդեռ գույնը լցնում եք VBA կոդով
Սովորաբար, մեզ համար այս գործը լուծելու ուղղակի միջոց չկա, բայց, այստեղ, ես կարող եմ ձեզ համար ներկայացնել VBA կոդ: Խնդրում ենք անել հետևյալը.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Ձախ կողմում Projectրագիր-VBAP նախագիծ պատուհանը, կրկնակի սեղմեք Այս գործառույթը ընդլայնվածի տակ VBAP նախագիծ, ապա պատճենեք և տեղադրեք հետևյալ VBA կոդը դատարկ Մոդուլի մեջ.
VBA կոդ. Գույնը լրացնելիս պահպանիր ցանցային գծերը
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not xRgPre Is Nothing Then DrawBorders xRgPre
Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Rg
If xCell.Interior.ColorIndex = xlNone Then
With xCell.Borders
If .ColorIndex = 15 Then
.LineStyle = xlNone
End If
End With
Else
With xCell.Borders
If .LineStyle = xlNone Then
.Weight = xlThin
.ColorIndex = 15
End If
End With
End If
Next
Application.ScreenUpdating = True
End Sub
3, Եվ այնուհետև պահեք և փակեք ծածկագրի պատուհանը, այժմ, երբ մի շարք բջիջների համար գույն եք լրացնում, ցանցային գծերն ավտոմատ կցուցադրվեն:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
