Conas eagarthóireacht i mbosca téacs a dhíchumasú chun ionchur úsáideora in Excel a chosc?
Tá an t-alt seo ag caint faoi eagarthóireacht a dhíchumasú i mbosca téacs (ActiveX Control) nó i mboscaí téacs il (ActiveX Control) chun ionchur úsáideora in Excel a chosc.
Díchumasaigh eagarthóireacht i mbosca téacs ach a chuid airíonna a athrú
Díchumasaigh eagarthóireacht i mboscaí téacs iolracha le cód VBA
Díchumasaigh eagarthóireacht i mbosca téacs ach a chuid airíonna a athrú
Taispeánfaidh an rannán seo duit airíonna an bhosca téacs a athrú chun eagarthóireacht an bhosca téacs seo a dhíchumasú. Déan mar a leanas le do thoil.
1. Cas ar an Mód Dearaidh trí chliceáil Forbróir > Mód Dearaidh. Féach an pictiúr:
2. Cliceáil ar dheis ar an mbosca téacs agus cliceáil Airíonna ón roghchlár comhthéacs mar a thaispeántar thíos an pictiúr.
3. San oscailt Airíonna dialóg, roghnaigh Bréagach sa Cumasaithe bosca agus ansin dún an bosca dialóige Properties. Féach ar an scáileán:
Anois tá an bosca téacs roghnaithe liath agus ní féidir é a chur in eagar.
Díchumasaigh eagarthóireacht i mboscaí téacs iolracha le cód VBA
Más mian leat eagarthóireacht a dhíchumasú i mboscaí téacs iolracha i mbileog oibre, cuir an cód VBA thíos i bhfeidhm.
1. Sa bhileog oibre tá ticbhoscaí iolracha is gá duit eagarthóireacht a dhíchumasú, cliceáil Forbróir > Ionsáigh > Bosca Seiceála (Rialú ActiveX) chun ticbhosca a chur isteach sa bhileog oibre. Féach ar an scáileán:
2. Deaschliceáil ar an ticbhosca agus roghnaigh Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:
3. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cuir an cód VBA faoi bhun an chóid bhunaidh le do thoil.
Cód VBA: Díchumasaigh eagarthóireacht i mboscaí téacs iolracha
Private Sub CheckBox1_Click()
Dim xTextBox As OLEObject
Dim xFlag As Boolean
Dim I As Long
Dim xArr
xArr = Array("TextBox1", "TextBox2", "TextBox3")
xFlag = True
If Me.CheckBox1 Then xFlag = False
For Each xTextBox In ActiveSheet.OLEObjects
If TypeName(xTextBox.Object) = "TextBox" Then
For I = 0 To UBound(xArr)
If xTextBox.Name = xArr(I) Then
xTextBox.Enabled = xFlag
End If
Next
End If
Next
End Sub
nótaí:
1. Sa chód, SeicBox1 is ainm do bhosca ticeála a cuireadh isteach. Agus Bosca Téacs1, Bosca Téacs2, agus Bosca Téacs3 na boscaí téacs a dhíchumasóidh tú an eagarthóireacht sa bhileog oibre. Athraigh iad de réir mar is gá duit.
2. Chun eagarthóireacht a dhíchumasú le haghaidh níos mó téacsbhoscaí, cuir ainm an bhosca téacs le comharthaí athfhriotail dhúbailte isteach sa líne xArr = Eagar("TextBox1", "TextBox2", "TextBox3").
4. Ansin sábháil agus dún an cód, cas as an Mód Dearaidh, anois, beidh seiceáil an ticbhosca a dhéanamh nach mbeidh na boscaí téacs sonraithe go léir in ann a chur in eagar sa bhileog oibre. Féach ar an scáileán:
nótaí: Má dhíthiceáil tú an ticbhosca, is féidir na boscaí téacs a chur in eagar arís.
Earraí gaolmhara:
- Conas téacs bosca téacs a roghnú go huathoibríoch nuair a roghnaítear é in Excel?
- Conas bosca téacs a uathoibriú nuair a chlóscríobhann tú in Excel?
- Conas ábhar an bhosca téacs a ghlanadh nuair a chliceáiltear air in Excel?
- Conas téacsanna ilchealla a thabhairt le chéile i mbosca téacs in Excel?
- Conas bosca téacs a fhormáidiú mar chéatadán in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!