Ինչպե՞ս պահպանել բջիջների ձևավորումը, մինչդեռ այլ թերթիկային բջիջները հղում կատարելով:

Ընդհանրապես, բջիջը պահպանում է միայն բջիջի արժեքը `այլ բջիջը հղելիս, բայց այս հոդվածում ես ներմուծում եմ 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-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...