Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս փոխել բջջի արժեքը ՝ կտտացնելով բջիջին:

Հնարավո՞ր է, որ մենք Excel- ում բջջի վրա կտտացնելով փոխենք բջիջի արժեքը: Օրինակ, երբ որոշակի կտավ A1 կտտացնում եք, առաջին անգամ այն ​​ցույց է տալիս «Excel» տեքստ, եթե նորից կտտացնում եք A1 կոճակին, ցուցադրվում է «Word» տեքստ, իսկ «Outlook» տեքստը ցուցադրվում է սա սեղմելիս բջիջը երրորդ անգամ: Այս դեպքում A1 բջիջի արժեքը կրկնվում է «Excel» - ից «Word» - ից «Outlook» - ից «Excel», ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթղթի փոփոխման արժեքը սեղմելով 1-ը

Փոխեք բջիջի արժեքը ՝ կտտացնելով VBA կոդով բջիջ

նետ կապույտ աջ պղպջակ Փոխեք բջիջի արժեքը ՝ կտտացնելով VBA կոդով բջիջ

Excel- ում այս առաջադրանքն ավարտելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալը.

1, Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք փոխել բջջի արժեքը ՝ կտտացնելով այն և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Փոխեք բջիջի արժեքը ՝ կտտացնելով բջիջին.

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

փաստաթղթի փոփոխման արժեքը սեղմելով 2-ը

ՆշումՎերոհիշյալ ծածկագրում A1 այն բջիջն է, որտեղ ցանկանում եք փոխել արժեքը ՝ կտտացնելով, «Excel","Word","Հեռանկար”Այն բջիջների արժեքներն են, որոնք դուք ցանկանում եք պարբերաբար ցուցադրել, կարող եք դրանք փոխել ըստ ձեր կարիքի:

2, Կոդը կպցնելուց հետո, ապա պահեք կոդը և փակեք պատուհանը: Հիմա, երբ առաջին անգամ կտտացնում եք A1 բջիջը, միանգամից ցուցադրվում է «Excel» տեքստը, նորից կտտացնում այն, հայտնվում է «Word» տեքստը, «Outlook» տեքստը ցուցադրվում է, եթե այն երրորդ անգամ կտտացնում եք, տե՛ս սքրինշոթը.

փաստաթղթի փոփոխման արժեքը սեղմելով 1-ը

Ավելի շատ հարակից հոդվածներ.

Ինչպե՞ս զտել տվյալները պարզապես կտտացնելով բջջային բովանդակությունը Excel- ում:

Ինչպե՞ս դասավորել սյունակի տվյալները ՝ կտտացնելով վերնագիրը Excel- ում:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
Tanner
Tanner
This comment was minimized by the moderator on the site
This is great information, thanks for everyone's input! Is there away to apply this same type of approach with a lookup or index\match value?

For example, if I click on a value in A1, can the VBA be configured to index that value in another worksheet column, and display a matched value in B1? Thank you again!
Reply
0
0
JGoode
JGoode
This comment was minimized by the moderator on the site
https://www.extendoffice.com/documents/excel/3573-excel-type-in-cell-without-double-clicking.html
Reply
0
0
Zack
Zack
This comment was minimized by the moderator on the site
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.
Reply
0
0
kfairhurst
kfairhurst     Zack
This comment was minimized by the moderator on the site
This is the final code that worked for me.  I use it to check a cell when an item is completed.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
    With Target
      Dim KeyCells As Range
      Set KeyCells = Range("D6:D8000")
      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Select Case .Value
          Case "ü"
            .Value = ""
          Case ""
            .Value = "ü"
        End Select
      End If
    End With
  Application.EnableEvents = True
End Sub
Reply
Report
0
0
Kalle
Kalle     Zack
This comment was minimized by the moderator on the site
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

...
Reply
0
0
Kalle
Kalle     Zack
This comment was minimized by the moderator on the site
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

...
Reply
0
0
Paji Shoitan
Paji Shoitan     Zack
This comment was minimized by the moderator on the site
I did it but i will not tell anyone MUWAHAHAHAHAHAHAHAHAHA
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations