Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako spremeniti vrednost celice s klikom na celico?

Ali je mogoče spremeniti vrednost celice s klikom na celico v Excelu? Če na primer kliknete določeno celico A1, prvič prikaže besedilo »Excel«, če znova kliknete A1, se prikaže besedilo »Word« in ko kliknete to besedilo, se prikaže besedilo »Outlook« celica v tretji čas. V tem primeru se vrednost v celici A1 ponovi iz "Excel" v "Word" v "Outlook" v "Excel" ...... kot je prikazano spodaj prikazano sliko:

doc spremenite vrednost s klikom na 1

Spremenite vrednost celice s klikom na celico s kodo VBA


puščica modra desno mehurček Spremenite vrednost celice s klikom na celico s kodo VBA


Če želite to opravilo opraviti v Excelu, vam lahko pomagajo naslednja koda VBA, naredite naslednje:

1. Z desno miškino tipko kliknite jeziček stanja, s katerim želite spremeniti vrednost celice, tako da kliknete in izberete Ogled kode iz kontekstnega menija in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno Modul:

VBA koda: spremenite vrednost celice s klikom na celico:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161123
  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

doc spremenite vrednost s klikom na 2

Opombe: V zgornji kodi, A1 je celica, kjer želite spremeniti vrednost s klikom, "Excel""beseda""Outlook"So vrednosti celic, ki jih želite ponavljano prikazovati, jih lahko spremenite v svoje potrebe.

2. Po lepljenju kode shranite kodo in zaprite okno. Zdaj, ko prvič kliknete celico A1, se na zaslonu prikaže besedilo "Excel", znova kliknite, se prikaže besedilo "Word", besedilo "Outlook" se prikaže, če ga kliknete tretjič, si oglejte slik:

doc spremenite vrednost s klikom na 1


Več povezanih člankov:

Kako filtrirati podatke samo tako, da kliknete vsebino celice v Excelu?

Kako razvrstiti podatke stolpca s klikom na glavo v Excelu?



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Zack · 1 years ago
    I am trying to apply this to an entire column of individual cells, not just one cell. Is this possible? When I change the range from "A1" to "A1:A100" nothing happens when I click the cells in that range.
    • To post as a guest, your comment is unpublished.
      Kalle · 1 months ago
      You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^


      Application.EnableEvents = False
      With Target


      Dim KeyCells as Range

      Set KeyCells = Range("A1:A100")

      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

      Select Case .Value

      ...
    • To post as a guest, your comment is unpublished.
      Kalle · 1 months ago
      You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^

      Dim KeyCells as Range

      Set KeyCells = Range("A1:A100")

      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

      Select Case .Value

      ...
    • To post as a guest, your comment is unpublished.
      Paji Shoitan · 4 months ago
      I did it but i will not tell anyone MUWAHAHAHAHAHAHAHAHAHA