Note: The other languages of the website are Google-translated. Back to English

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

Ընդհանրապես, բջիջը պահպանում է միայն բջիջի արժեքը `այլ բջիջը հղելիս, բայց այս հոդվածում ես ներմուծում եմ VBA կոդ` բջիջի արժեքները պահելու և ձևաչափելու համար, մինչդեռ հղում եմ կատարում մեկ այլ բջիջի, և բջջային արժեքներն ու ձևաչափումը փոխվում են, երբ հղումը փոխվում է ստորև ցուցադրված էկրանի նկարը
doc- ը շարունակում է ֆորմատավորումը հղելիս 1

Շարունակեք բջջի ձևաչափումը, մինչ VBA- ով մեկ այլ բջիջ հղում կատարեք


Շարունակեք բջջի ձևաչափումը, մինչ VBA- ով մեկ այլ բջիջ հղում կատարեք

Այս աշխատանքը կարգավորելու համար պարզապես անհրաժեշտ է գործարկել կոդից ցածր:

1. Միացրեք ձեր օգտագործած աշխատանքային գրքույկը, սեղմեք Alt + F11 հնարավորություն տալու բանալին Microsoft Visual Basic կիրառման համար պատուհանը և կրկնակի սեղմեք թերթիկի անվան վրա, որի մեջ կտեղադրեք հղման բջիջը Projectրագիր-VBAP նախագիծ պատուհանը դատարկ սցենար ցույց տալու համար: Այս դեպքում ես ուզում եմ վկայակոչել բջիջը A1 է Sheet1, Տեսեք,
doc- ը շարունակում է ֆորմատավորումը հղելիս 2

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-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (8)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, ես հավատում եմ, որ սա կարող է հենց այն, ինչ ես փնտրում եմ: Ինձ անհրաժեշտ է, որ հղված տեքստը ունենա նույն գույներն ու առանձնահատկությունները նշված էջից: Միակ բանը, որ տարբերվում է իմից, այն է, որ ես ավելի մեծ միջակայքից եմ քաշում: Ես նախկինում երբեք չեմ օգտագործել VBA-ն, ուստի ուզում էի հաստատել նախքան փոփոխություններ կատարելը: Ես փաստաթղթից (թերթ 2) քաշում եմ (թերթ 1) փաստաթուղթ: Ես օգտագործել եմ IF բանաձևերը դա անելու համար, ուստի այն վերադարձնում է արժեք 3 տարբեր սյունակից, և դրանք անընդմեջ չեն: Սյունակներն են՝ F,H,J։ Խնդրում եմ, կարո՞ղ եք օգնել ինձ հասկանալ, թե ինչպես կարող եմ այս աշխատանքը կատարել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ձեր խնդիրը մի քիչ բարդ է, ես հստակ չեմ հասկանում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես զբաղվում եմ նմանատիպ հարցով. Ես ունեմ բանաձև C սյունակում, որն արժեք է վերցնում նույն տողից՝ A սյունակից: (Բայց միայն եթե B3-ը x չէ, և A3-ը դատարկ չէ).

=IF(B3="x";"y";IF(A3="";"z";A3))

A սյունակի բջիջներն այսպիսի տեսք ունեն՝ OK 2019_12_03
Բայց «OK»-ը թավ ձևաչափով է: Ես կցանկանայի պահպանել այս ձևաչափը։
Ես ուզում եմ սա հարյուրավոր բջիջների համար, ուստի դրանցից յուրաքանչյուրի համար կտտացնելը կամ սցենար գրելն անցանկալի է: Կա՞ պատկերացում, եթե այդպիսի հատկանիշ գոյություն ունի: Ես կգնահատեի «WITHFORMAT()» ֆունկցիան, որը ես կարող էի տեղադրել բանաձևում, այնպես որ հետևյալ բանաձևը կպահի սկզբնական ձևաչափը.

=IF(B3="x";"y";IF(A3="";"z";WITHFORMAT(A3)))
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ սցենարի համար: Կարո՞ղ եք ինձ ասել, արդյոք կապակցված բջիջը թարմացնելու միջոց կա՝ առանց հղումային բջիջի վրա կրկնակի սեղմելու: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն սա կիսելու համար: Կա՞ VBA սկրիպտ, որը թույլ է տալիս հղում կատարել բջիջների մի շարք մեկ աշխատանքային գրքում և այնուհետև ցուցադրել նշված բջիջների արժեքը և ձևաչափը մեկ այլ աշխատանքային գրքում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն սա կիսելու համար: Ես ունեմ մի շարք բջիջներ WorksheetA, Sheet1, Range G3:G3000, որոնց ուզում եմ հղում անել WorksheetB, Sheet1, Range G3:G3000: Ինձ անհրաժեշտ է WorksheetB, Sheet1, Range G3:G3000՝ WorksheetA, Sheet1, G3:G3000 հղումով բջիջների և՛ արժեքը, և՛ ձևաչափը ցուցադրելու համար: Կա՞ VBA սկրիպտ, որը թույլ կտա դա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
No tienes uno que sea dentro del mismo archivo
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես կցանկանայի պահպանել իմ տեղեկատու բջջի ձևաչափը: Այնուամենայնիվ, նույնիսկ ձեր VBA-ով այն չի աշխատում: Կարող եք օգնել ինձ, խնդրում եմ:
Ես կցանկանայի, որ իմ թերթի 2-ի իմ B1 բջիջը լինի իմ տեղեկատու բջիջը 2 թերթերի իմ C2,3,4,5,6,7 բջիջների համար:
Իմ փաստաթուղթը մարդկանց ցուցակ է, հետևաբար ես կունենամ ոչ թե շարունակություն, այլ հղումների մի քանի բջիջ:
Փոխանցել |
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից