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

Conas cealla a ghníomhachtú le haghaidh eagarthóireacht le cliceáil amháin in Excel?

Tá an t-alt seo ag caint faoi chealla a ghníomhachtú le haghaidh eagarthóireacht le cliceáil amháin in Excel. Déan mar a leanas le do thoil céim ar chéim.

Gníomhachtaigh cealla le haghaidh eagarthóireacht le cliceáil amháin de réir cód VBA


Gníomhachtaigh cill le haghaidh eagarthóireachta le cliceáil aonair de réir chód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat cealla a ghníomhachtú le haghaidh eagarthóireacht le cliceáil amháin.

1. Oscail an bhileog oibre a theastaíonn uait chun cealla a ghníomhachtú le cliceáil amháin. Cliceáil ar dheis ar an Táb Bileog agus cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir an cód VBA thíos a fhuinneog, a chóipeáil agus a ghreamú isteach sa cód fhuinneog.

Cód VBA: Gníomhachtaigh cill le haghaidh eagarthóireachta le cliceáil amháin

#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. Brúigh an Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, nuair a chliceálfar ar aon chill sa bhileog oibre reatha, cuirfear an chill i ngníomh láithreach.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (7)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhíobh. Bhí ceist agam faoi fo-iarmhairt aisteach a dhéanann an cód seo nuair a úsáidim é i gceann de mo bhileoga oibre.
Ba é an cód a thriail mé an ceann a luaitear sa phost.
//
Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
SendKeys "{F2}"
Fo Deireadh
//
Is é an fo-iarmhairt a bhíonn á fháil agam ná nuair a fhéadaim cill a ghníomhachtú agus mo Numlock casta as/ar siúl.
Ba mhór againn aon chabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Nuashonraítear an cód leis an bhfadhbréiteach. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey Gach duine, ar dtús, míle buíochas as é seo a phostáil, is coigilt ama cinnte é. Just a thabhairt faoi deara má dhéanann tú iarracht an "Shift+ cluaisín" a úsáid chun cill amháin a bhogadh ar chlé, go gcruthófar bosca tuairimí ina ionad sin. Ar aon nós an cheist seo a réiteach? Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ár leithscéal, níl mé cinnte ar foilsíodh mo phostáil dheireanach. Seo é arís ar eagla na heagla:

Hey Gach duine, ar dtús, míle buíochas as é seo a phostáil, is coigilt ama cinnte é. Just a thabhairt faoi deara má dhéanann tú iarracht an t-ordú méarchláir "Shift + tab" a úsáid chun cill amháin a bhogadh ar chlé, go gcruthófar bosca tuairimí ina ionad sin. Ar aon nós an cheist seo a réiteach? Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Wayne a chara,
Tá an cód nuashonraithe anois agus an fhadhb socraithe. Go raibh maith agat as do chuid aiseolais.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil bealach ann chun é a dhéanamh ionas gur féidir leat a bheith i bhfuinneog cláir amháin agus cliceáil ar an bhfuinneog le haghaidh Excel agus ar an gcill i gceann cliceáil? Thug mé faoi deara, cé go dtéann sé ar dheis chun modh eagarthóireachta, téann sé go dtí an chill roimhe seo nuair a chliceálann tú isteach sa chlár ionas go dteastaíonn dhá chlic fós chun eagarthóireacht a thosú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
deas agus intuigthe
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL