Sut i guddio fformiwla ond arddangos y canlyniad heb amddiffyn taflen waith yn Excel?
Mewn rhai achosion, efallai y bydd angen i chi guddio fformwlâu yn eich taflen waith ar gyfer preifat. Mae'r erthygl hon yn sôn am guddio fformwlâu ond arddangos canlyniadau heb amddiffyn taflen waith yn Excel.
Cuddio fformiwla ond arddangos y canlyniad heb amddiffyn taflen waith gyda chod VBA
Cuddio fformiwla ond arddangos y canlyniad heb amddiffyn taflen waith gyda chod VBA
I guddio fformwlâu ond arddangos canlyniadau heb amddiffyn taflen waith, gwnewch fel a ganlyn.
1. Yn y daflen waith mae angen i chi guddio fformwlâu ond arddangos y canlyniadau, cliciwch ar y dde ar y tab dalen, a dewis Gweld y Cod o'r ddewislen clicio ar y dde.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch god VBA i mewn i ffenestr y Cod.
Cod VBA: cuddio fformiwla ond arddangos canlyniad heb amddiffyn taflen waith
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
Nodyn: Yn y cod, C1: C10 yw'r amrediad celloedd rydych chi am guddio fformwlâu y tu mewn iddo. Newidiwch ef ar sail eich anghenion.
3. Yna cliciwch offer > Cyfeiriadau…. Gwiriwch y Runtime Sgript Microsoft blwch a chliciwch ar y OK botwm yn y Cyfeiriadau - VBAProject ffenestr. Gweler y screenshot:
4. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, pan gliciwch ar y gell yn yr ystod benodol, bydd y fformiwla'n cael ei chuddio ar unwaith yn y Bar Fformiwla.
Erthyglau cysylltiedig:
- Sut i gloi celloedd penodol heb amddiffyn y daflen waith gyfan yn Excel?
- Sut i dynnu fformwlâu o'r daflen waith ond cadw'r gwerthoedd / canlyniadau yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!