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

Sut i actifadu celloedd i'w golygu gydag un clic yn Excel?

Mae'r erthygl hon yn sôn am actifadu celloedd i'w golygu gydag un clic yn Excel. Gwnewch fel a ganlyn gam wrth gam.

Ysgogi celloedd i'w golygu gyda chlicio sengl yn ôl cod VBA


Ysgogi cell i'w golygu gyda chlicio sengl yn ôl cod VBA


Gall y cod VBA canlynol eich helpu i actifadu celloedd i'w golygu gydag un clic.

1. Agorwch y daflen waith sydd ei hangen arnoch i actifadu celloedd gyda chlicio sengl. De-gliciwch ar y Tab Taflen a chliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA isod i'r Côd ffenestr.

Cod VBA: Ysgogi cell i'w golygu gyda chlicio sengl

#If Win64 Then
'Updated by Extendoffice 2018/2/2
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Const VK_NUMLOCK = 144
Const VK_CAPITAL = 20
Const VK_SCROLL = 145
Dim xOldNLState As Long
Dim xOldCLState As Long
Dim xOldSLState As Long
Const KEY_MASK As Integer = &HFF80 '

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (GetKeyState(vbKeyShift) And KEY_MASK) <> 0 Then Exit Sub
    xOldNLState = GetAsyncKeyState(VK_NUMLOCK)
    xOldCLState = GetAsyncKeyState(VK_CAPITAL)
    xOldSLState = GetAsyncKeyState(VK_SCROLL)
    SendKeys "{F2}"
    If GetAsyncKeyState(VK_NUMLOCK) <> xOldNLState Then
        Application.SendKeys "{NUMLOCK}"
    End If
    If GetAsyncKeyState(VK_CAPITAL) <> xOldCLState Then
        Application.SendKeys "{CAPSLOCK}"
    End If
    If GetAsyncKeyState(VK_SCROLL) <> xOldSLState Then
        Application.SendKeys "{SCROLLLOCK}"
    End If
End Sub

3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, pan fydd un clic ar unrhyw gell yn y daflen waith gyfredol, bydd y gell yn cael ei actifadu ar unwaith.


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
Hei bois. Roedd gen i gwestiwn am sgîl-effaith rhyfedd y mae'r cod hwn yn ei wneud pan fyddaf yn ei ddefnyddio yn un o'm taflenni gwaith.
Y cod a geisiais oedd yr un a grybwyllwyd yn y post.
//
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
SendKeys "{F2}"
Is-End
//
Y sgil-effaith rwy'n ei gael yw pan fydda i'n gwneud cell yn actif mae fy Numlock yn diffodd/ymlaen.
Byddem yn gwerthfawrogi unrhyw help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Mae'r cod yn cael ei ddiweddaru gyda'r datrys problemau. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei Pawb, yn gyntaf, diolch yn fawr am bostio hwn, mae'n arbediad amser pendant. Newydd sylwi, os ceisiwch ddefnyddio'r tab "Shift+" i symud un gell i'r chwith, mae blwch sylwadau yn cael ei greu yn lle hynny. Beth bynnag i ddatrys y mater hwn? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, ddim yn siŵr a gafodd fy neges ddiwethaf ei chyhoeddi. Dyma hi eto rhag ofn:

Hei Pawb, yn gyntaf, diolch yn fawr am bostio hwn, mae'n arbediad amser pendant. Newydd sylwi, os ceisiwch ddefnyddio'r gorchymyn bysellfwrdd "Shift + tab" i symud un gell i'r chwith, mae blwch sylwadau yn cael ei greu yn lle hynny. Beth bynnag i ddatrys y mater hwn? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Wayne,
Mae'r cod bellach wedi'i ddiweddaru gyda'r broblem wedi'i datrys. Diolch i chi am eich adborth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i'w wneud fel y gallwch chi fod mewn un ffenestr rhaglen a chlicio i mewn i'r ffenestr ar gyfer excel ac ymlaen i'r gell mewn un clic? Sylwais, er ei fod yn mynd yn iawn i'r modd golygu, mae'n mynd i'r gell flaenorol pan fyddwch chi'n clicio i mewn i'r rhaglen fel ei fod yn dal i fod angen dau glic i ddechrau golygu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
neis ac yn ddealladwy
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir