Ինչպե՞ս պահպանել բջիջների ձևավորումը, մինչդեռ այլ թերթիկային բջիջները հղում կատարելով:
Ընդհանրապես, բջիջը պահպանում է միայն բջիջի արժեքը `այլ բջիջը հղելիս, բայց այս հոդվածում ես ներմուծում եմ VBA կոդ` բջիջի արժեքները պահելու և ձևաչափելու համար, մինչդեռ հղում եմ կատարում մեկ այլ բջիջի, և բջջային արժեքներն ու ձևաչափումը փոխվում են, երբ հղումը փոխվում է ստորև ցուցադրված էկրանի նկարը
Շարունակեք բջջի ձևաչափումը, մինչ VBA- ով մեկ այլ բջիջ հղում կատարեք
Շարունակեք բջջի ձևաչափումը, մինչ VBA- ով մեկ այլ բջիջ հղում կատարեք
Այս աշխատանքը կարգավորելու համար պարզապես անհրաժեշտ է գործարկել կոդից ցածր:
1. Միացրեք ձեր օգտագործած աշխատանքային գրքույկը, սեղմեք Alt + F11 հնարավորություն տալու բանալին Microsoft Visual Basic կիրառման համար պատուհանը և կրկնակի սեղմեք թերթիկի անվան վրա, որի մեջ կտեղադրեք հղման բջիջը Projectրագիր-VBAP նախագիծ պատուհանը դատարկ սցենար ցույց տալու համար: Այս դեպքում ես ուզում եմ վկայակոչել բջիջը A1 է Sheet1, Տեսեք,
2. Կպցրեք կոդը ներքևում սցենարին և VBA կոդում նշեք բջիջների հղումները, որքան ձեզ հարկավոր է:
VBA. Շարունակեք ձևաչափել և արժեքներ, մինչ հղում կատարեք մեկ այլ բջիջի վրա
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End Sub
Նշում: A1 հղման բջիջն է, B1 in Թերթիկը 2 այն բջիջն է, որը ցանկանում եք կապել հղման բջիջի հետ և պահպանել արժեքներն ու ձևաչափումը A1- ի հետ Shee1- ում:
Հետո Sheet1- ի A1 բջիջում արժեքները փոխելիս կամ ձևաչափելը, Sheet1- ի B2 բջիջը կփոխվի, երբ հղումը երկու անգամ սեղմելով:
Հաշվել ըստ գույնի
|
Որոշ դեպքերում դուք կարող եք ունենալ մի շարք գույների բազմազանություն, և ինչ եք ուզում ՝ հաշվել / գումարել նույն գույնի վրա հիմնված արժեքները, ինչպե՞ս կարող եք արագ հաշվարկել: հետ Excel- ի համար նախատեսված գործիքներ's Հաշվել ըստ գույնի, դուք կարող եք արագորեն կատարել բազմաթիվ հաշվարկներ ըստ գույնի, և նաև կարող եք կազմել հաշվետվություն արդյունքի մասին: |
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: