Sut i newid gwerth y gell trwy glicio ar y gell?
A yw'n bosibl inni newid gwerth cell trwy glicio ar gell yn Excel? Er enghraifft, pan gliciwch gell benodol A1, y tro cyntaf, mae'n dangos testun “Excel”, os cliciwch yr A1 eto, arddangosir testun “Word”, ac arddangosir testun “Outlook” pan gliciwch hwn cell yn y trydydd tro. Yn yr achos hwn, bydd y gwerth yng nghell A1 yn rheolaidd o “Excel” i “Word” i “Outlook” i “Excel” …… fel y dangosir y screenshot canlynol:
Newid gwerth cell trwy glicio ar gell gyda chod VBA
Newid gwerth cell trwy glicio ar gell gyda chod VBA
I orffen y dasg hon yn Excel, gall y cod VBA canlynol eich helpu, gwnewch fel a ganlyn:
1. Cliciwch ar y dde ar y tab dalen rydych chi am newid gwerth celloedd trwy glicio arno, a dewis Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:
Cod VBA: Newid gwerth cell trwy glicio ar gell:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case "Excel"
.Value = "Word"
Case "Word"
.Value = "Outlook"
Case "Outlook"
.Value = "Excel"
Case Else
.Value = "Word"
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub
Nodyn: Yn y cod uchod, A1 yw'r gell lle rydych chi am newid gwerth trwy glicio, “Excel","Word","Outlook”Yw'r gwerthoedd celloedd rydych chi am eu harddangos yn rheolaidd, gallwch eu newid i'ch angen.
2. Ar ôl pasio'r cod, yna arbedwch y cod a chau'r ffenestr. Nawr, pan gliciwch y gell A1 ar y tro cyntaf, mae'r testun “Excel” yn cael ei arddangos ar unwaith, cliciwch arno eto, mae'r testun “Word” yn ymddangos, dangosir y testun “Outlook” os ydych chi'n ei glicio ar y trydydd tro, gweler y screenshot:
Erthyglau mwy cysylltiedig:
Sut i hidlo data dim ond trwy glicio cynnwys celloedd yn Excel?
Sut i ddidoli data colofn trwy glicio ar y pennawd 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!