Tá an cód VBA seo a leanas á úsáid agam chun uathchríochnú a cheadú agus mé ag clóscríobh ar liosta anuas trí úsáid a bhaint as bosca teaglama.
Díchumasaíonn an cód seo na feidhmeanna "Cealaigh" agus "Athdhéan" ar na bileoga a gcuirtear an cód VBA i bhfeidhm orthu. An féidir an cód VBA a mhodhnú chun na feidhmeanna seo a cheadú?
Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
'Nuashonraigh le Extendoffice: 2018 / 9 / 21
Dim xCombox Mar OLEOobject
Dim xStr Mar Teaghrán
Dim xWs Mar Bhileog Oibre
Dim xArr
Socraigh xWs = Application.ActiveSheet
Ar Lean Earráid Aghaidh
Socraigh xCombox = xWs.OLEObjects("TempCombo")
Le xCombox
.ListFillRange=""
.LinkedCell=""
.Infheicthe = Bréagach
Deireadh Le
Má tá Target.Validation.Type = 3 Ansin
Target.Validation.InCellDropdown = Bréagach
Cealaigh = Fíor
xStr = Target.Validation.Formula1
xStr = Ar dheis(xStr, Len(xStr) - 1)
Má tá xStr="" Ansin Scoir Fo
Le xCombox
.Infheicthe = Fíor
.Left = Sprioc.Clé
.Top = Target.Top
.Width = Target.Width+5
.Airde = Target.Height+5
.ListFillRange = xStr
If .ListFillRange="" Ansin
xArr = Scoilt(xStr, ",")
Me.TempCombo.List = xArr
Deireadh Má
.LinkedCell = Target.Address
Deireadh Le
xCombox.Gníomhachtaigh
Mise.TempCombo.Dropdown
Deireadh Má
Fo Deireadh
Fo-TempCombo_KeyDown Príobháideach(Cód Eochracha ByVal Mar MSForms.ReturnInteger, ByVal Shift Mar Shlánuimhir)
Roghnaigh Cás Eochairchód
Cás 9
Application.ActiveCell.Offset(0, 1).Gníomhachtaigh
Cás 13
Application.ActiveCell.Offset(1, 0).Gníomhachtaigh
Roghnaigh Roghnaigh
Fo Deireadh
Díchumasaíonn an cód seo na feidhmeanna "Cealaigh" agus "Athdhéan" ar na bileoga a gcuirtear an cód VBA i bhfeidhm orthu. An féidir an cód VBA a mhodhnú chun na feidhmeanna seo a cheadú?
Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
'Nuashonraigh le Extendoffice: 2018 / 9 / 21
Dim xCombox Mar OLEOobject
Dim xStr Mar Teaghrán
Dim xWs Mar Bhileog Oibre
Dim xArr
Socraigh xWs = Application.ActiveSheet
Ar Lean Earráid Aghaidh
Socraigh xCombox = xWs.OLEObjects("TempCombo")
Le xCombox
.ListFillRange=""
.LinkedCell=""
.Infheicthe = Bréagach
Deireadh Le
Má tá Target.Validation.Type = 3 Ansin
Target.Validation.InCellDropdown = Bréagach
Cealaigh = Fíor
xStr = Target.Validation.Formula1
xStr = Ar dheis(xStr, Len(xStr) - 1)
Má tá xStr="" Ansin Scoir Fo
Le xCombox
.Infheicthe = Fíor
.Left = Sprioc.Clé
.Top = Target.Top
.Width = Target.Width+5
.Airde = Target.Height+5
.ListFillRange = xStr
If .ListFillRange="" Ansin
xArr = Scoilt(xStr, ",")
Me.TempCombo.List = xArr
Deireadh Má
.LinkedCell = Target.Address
Deireadh Le
xCombox.Gníomhachtaigh
Mise.TempCombo.Dropdown
Deireadh Má
Fo Deireadh
Fo-TempCombo_KeyDown Príobháideach(Cód Eochracha ByVal Mar MSForms.ReturnInteger, ByVal Shift Mar Shlánuimhir)
Roghnaigh Cás Eochairchód
Cás 9
Application.ActiveCell.Offset(0, 1).Gníomhachtaigh
Cás 13
Application.ActiveCell.Offset(1, 0).Gníomhachtaigh
Roghnaigh Roghnaigh
Fo Deireadh