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

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 doc trwy glicio 1

Newid gwerth cell trwy glicio ar gell gyda chod VBA


swigen dde glas saeth 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

newid gwerth doc trwy glicio 2

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:

newid gwerth doc trwy glicio 1


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?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (7)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio cymhwyso hyn i golofn gyfan o gelloedd unigol, nid dim ond un gell. Ydy hyn yn bosibl? Pan fyddaf yn newid yr ystod o "A1" i "A1:A100" nid oes dim yn digwydd pan fyddaf yn clicio ar y celloedd yn yr ystod honno.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i hynny ond ni fyddaf yn dweud wrth unrhyw un MUWAHAHAHAHAHAHAHAHAHAHA
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch wneud hynny drwy ddatgan yr ystod yr ydych am ei chael fel KeyCells a na rhoi hynny yn y Application.Intersection Method. Bydd hyn yn gadael i chi newid y Gwerth o'ch dewis o'r holl gelloedd. Wedi gweithio i mi ond dwi'n ddrwg am esbonio ^^

Dim KeyCells fel Ystod

Gosod KeyCells = Ystod ("A1: A100")

Os nad yw'r Cais.Trafod (Celloedd Allweddol, Ystod (Targed.Cyfeiriad)) Yn Dim Yna

Dewiswch Achos .Value

...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch wneud hynny drwy ddatgan yr ystod yr ydych am ei chael fel KeyCells a na rhoi hynny yn y Application.Intersection Method. Bydd hyn yn gadael i chi newid y Gwerth o'ch dewis o'r holl gelloedd. Wedi gweithio i mi ond dwi'n ddrwg am esbonio ^^


Application.EnableEvents = Gau
Gyda Targed


Dim KeyCells fel Ystod

Gosod KeyCells = Ystod ("A1: A100")

Os nad yw'r Cais.Trafod (Celloedd Allweddol, Ystod (Targed.Cyfeiriad)) Yn Dim Yna

Dewiswch Achos .Value

...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'r cod olaf a weithiodd i mi. Rwy'n ei ddefnyddio i wirio cell pan fydd eitem wedi'i chwblhau.
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
  Application.EnableEvents = Gau
    Gyda Targed
      Dim KeyCells Fel Ystod
      Gosod KeyCells = Ystod ("D6: D8000")
      Os nad yw'r Cais.Trafod (Celloedd Allweddol, Ystod (Targed.Cyfeiriad)) Yn Dim Yna
        Dewiswch Achos .Value
          Achos "ü"
            .Gwerth = ""
          Achos""
            .Gwerth = "ü"
        Diwedd Dewis
      Gorffennwch Os
    Diwedd Gyda
  Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hon yn wybodaeth wych, diolch am fewnbwn pawb! A oes modd defnyddio'r un math o ddull gyda gwerth chwilio neu fynegai\match?

Er enghraifft, os byddaf yn clicio ar werth yn A1, a ellir ffurfweddu'r VBA i fynegeio'r gwerth hwnnw mewn colofn taflen waith arall, ac arddangos gwerth cyfatebol yn B1? Diolch i chi unwaith eto!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir