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

Ինչպե՞ս թաքցնել բանաձևը, բայց արդյունքը ցուցադրել առանց Excel- ում աշխատաթերթը պաշտպանելու:

Որոշ դեպքերում ձեզ հարկավոր է մասնավորի համար ձեր աշխատանքային թերթում բանաձևեր թաքցնել: Այս հոդվածում խոսվում է բանաձևեր թաքցնելու մասին, բայց արդյունքներ ցուցադրում ՝ առանց Excel- ում աշխատաթերթը պաշտպանելու:

Թաքցրեք բանաձևը, բայց ցուցադրեք արդյունքը ՝ առանց VBA կոդով աշխատաթերթը պաշտպանելու


Թաքցրեք բանաձևը, բայց ցուցադրեք արդյունքը ՝ առանց VBA կոդով աշխատաթերթը պաշտպանելու

Բանաձևերը թաքցնելու համար, բայց արդյունքներ ցուցադրելը ՝ առանց աշխատանքային թերթը պաշտպանելու, արեք հետևյալը.

1. Աշխատաթերթում անհրաժեշտ է թաքցնել բանաձևերը, բայց արդյունքները ցուցադրելով, խնդրում ենք աջ կտտացնել թերթիկի ներդիրին և ընտրել Դիտել կոդը աջ կտտացնելու ցանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Թաքցրեք բանաձևը, բայց ցուցադրեք արդյունքը ՝ առանց աշխատանքային թերթը պաշտպանելու

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

ՆշումԿոդում `C1: C10- ը այն բջիջների տիրույթն է, որը ցանկանում եք թաքցնել բանաձևերը ներսում: Խնդրում ենք փոխել այն ՝ ելնելով ձեր կարիքներից:

3. Այնուհետեւ կտտացրեք Գործիքներ > Հղումներ, Ստուգեք Microsoft Script Runtime տուփը և կտտացրեք OK կոճակը Հղումներ - VBAP նախագիծ պատուհան Տեսեք,

4. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, երբ կտտացնում եք նշված տիրույթում գտնվող բջիջը, բանաձևը անմիջապես կթաքցվի բանաձևի բարում:


Առնչվող հոդվածներ քանակը:


Գրասենյակի արտադրողականության լավագույն գործիքները

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (20)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի օգտագործել VBA կոդը, և ինձ տրվեց սխալի հաղորդագրություն, որում ասվում էր, որ պետք է վրիպազերծել կոդի հետևյալ մասը.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ջենեսի,
Office-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինձ համար նույնպես նույն սխալը
Office տարբերակը 2013 թ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Խնդրում ենք պատճենել ամբողջ սցենարը, ներառելով առաջին տողը «Dim xDic As New Dictionary»:
Կոդի առաջին տողը բաց թողնելը կառաջացնի այս սխալը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույնպես ստանում եմ նույն սխալը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պատճենվեցի ամբողջ աշխարհը, բայց դեռ սխալ եմ տալիս, քանի որ օգտագործողի կողմից սահմանված տեսակը սահմանված չէ, այնպես որ ինչ կարող եմ անել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նշեք հղում aMicrosoft Active X Data Object Library-ին VBA խմբագրիչում:


1. Բացեք VBA խմբագրիչը և անցեք Գործիքներ | Հղումներ.


2. Ոլորեք ներքև, մինչև տեսնեք Microsoft Active X Data Object Library-ը:


3. Եթե ունեք մի քանի տարբերակներ, օգտագործեք վերջին տարբերակը: Տարբերակները կհամապատասխանեն MDAC-ի տարբերակներին: Միակ դեպքը, երբ դուք չեք ցանկանա օգտագործել վերջին տարբերակը, դա այն է, եթե դուք նախագիծը բաշխում եք մի մեքենայի վրա, որն ունի ավելի հին տարբերակ: Այսպիսով, եթե այն մեքենաները, որոնց դուք տարածում եք, տեղադրված է միայն MDAC 2.6, և դուք ունեք MDAC 2.7, ստուգեք հղումը Microsoft Active X Data Object Library-ի 2.6 տարբերակին, որպեսզի համոզվեք, որ նախագիծը կաշխատի այն մեքենաների վրա, որոնց դուք այն բաժանում եք:
Գումարման նշան
Microsoft Scripting Runtime
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն անընդհատ ասում է վրիպազերծում և թարմացվում է ամեն վայրկյան...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա նաև հեշտ ճանապարհ.
Ընտրեք բջիջը կամ բջիջները, որոնք ցանկանում եք թաքցնել բանաձևը կամ տվյալները:
Գնացեք տուն -> Ձևաչափ -> Ձևաչափեք բջիջները -> Համար -> Հատուկ
Տիպի տակ, Հեռացրեք Ընդհանուր և մուտքագրեք «»»
Բջջի արժեքը կամ բանաձևը չեն հայտնվում էկրանին
Այնուամենայնիվ, այն կհայտնվի Բանաձևի տողում, եթե ընտրեք բջիջը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի օգտագործել VBA կոդը, բայց այս կոդը կիրառելուց հետո իմ excel-ը դանդաղում է և կախվում: Խնդրում եմ օգնեք ինձ լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​մենք սեղմում ենք և պահում մկնիկի ձախ սեղմումը բջիջի վրա, բանաձևը ցույց է տալիս, մինչև չթողնեք ձախ սեղմումը: Հակառակ դեպքում սա պետք է լավ աշխատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս vba կոդից հետո կիրառեք նոր գումարի բանաձևի արդյունքը, որը չի ցուցադրվում բջիջում, խնդրում եմ օգնեք…
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն. Բանաձևն աշխատեց.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես շնորհակալ եմ, ես փորձում եմ բանաձևը թաքցնել որոշակի սյունակում՝ առանց թերթիկը պաշտպանելու գաղտնաբառի: Ես պատճենեցի տեղադրեցի ամբողջ կոդը և փոխեցի բջիջները, բայց դեռ չկարողացա թաքցնել բանաձևը: Խնդրում եմ, կարող եք օգնել:

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բանաձևն աշխատեց, բայց խնդիրն այն է, երբ մենք փակում ենք թերթիկը և նորից բացում այն, քան VBA-ն չի աշխատում...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ապագայում այս VBA-ն օգտագործելու համար, կոդը ավելացնելուց հետո, խնդրում ենք պահպանել աշխատանքային գիրքը որպես Excel մակրո-միացված աշխատանքային գրքույկ: Սեղմեք Ֆայլ > Պահել As. Պահպանել որպես երկխոսության վանդակում ընտրեք Excel մակրոներով աշխատունակ գիրք - ից Պահպանել որպես մուտքագրեք բացվող ցուցակը, ապա սեղմեք Փրկել կոճակը: Եվ հետո օգտագործեք այս Excel-ի մակրո-միացված աշխատանքային գրքույկը ապագայում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս ծածկագրի համար, ինձ իսկապես նման բան էր պետք
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
dia tetap loading ya ko ?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
saa da coba sesuai coding nya, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). File saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ակիա,
Ձեր նշած խնդիրը իմ դեպքում չի վերարտադրվում։ Կարո՞ղ եմ հարցնել, թե Excel-ի ո՞ր տարբերակն եք օգտագործում:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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