Rwy'n defnyddio'r cod VBA canlynol i ganiatáu ar gyfer awtolenwi wrth deipio'r gwymplen trwy ddefnyddio blwch combo.
Mae'r cod hwn yn analluogi'r swyddogaethau "Dadwneud" ac "Ailwneud" ar y dalennau y mae'r cod VBA yn cael ei gymhwyso iddynt. A ellir addasu'r cod VBA i ganiatáu'r swyddogaethau hyn?
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
'Diweddariad gan Extendoffice: 2018 / 9 / 21
Dim xCombox Fel OLEOobject
Dim xStr Fel Llinyn
Dim xWs Fel Taflen Waith
Dim xArr
Gosod xWs = Application.ActiveSheet
Ar Ail-ddechrau Gwall Nesaf
Gosod xCombox = xWs.OLEObjects("TempCombo")
Gyda xCombox
.ListFillRange = ""
.LinkedCell = ""
.Gweladwy = Gau
Diwedd Gyda
Os yw Target.Validation.Type = 3 Yna
Target.Validation.InCellDropdown = Gau
Diddymu = Gwir
xStr = Targed.Validation.Formula1
xStr = I'r dde(xStr, Len(xStr) - 1)
Os xStr = " " Yna Ymadael Is
Gyda xCombox
.Visible = Gwir
.Chwith = Targed.Chwith
.Top = Targed.Top
.Width = Targed.Width+5
.Uchder = Targed.Height+5
.ListFillRange = xStr
If .ListFillRange = "" Yna
xArr = Hollti(xStr, ",")
Me.TempCombo.List = xArr
Gorffennwch Os
.LinkedCell = Target.Address
Diwedd Gyda
xCombox.Activate
Me.TempCombo.DropDown
Gorffennwch Os
Is-End
Is-TempCombo_KeyDown Preifat(Cod Bysellwedd ByVal Fel MSForms.ReturnInteger, ByVal Shift As Integer)
Dewiswch Cod Allwedd Achos
Achos 9
Application.ActiveCell.Offset(0, 1).Activate
Achos 13
Application.ActiveCell.Offset(1, 0).Activate
Diwedd Dewis
Is-End
Mae'r cod hwn yn analluogi'r swyddogaethau "Dadwneud" ac "Ailwneud" ar y dalennau y mae'r cod VBA yn cael ei gymhwyso iddynt. A ellir addasu'r cod VBA i ganiatáu'r swyddogaethau hyn?
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
'Diweddariad gan Extendoffice: 2018 / 9 / 21
Dim xCombox Fel OLEOobject
Dim xStr Fel Llinyn
Dim xWs Fel Taflen Waith
Dim xArr
Gosod xWs = Application.ActiveSheet
Ar Ail-ddechrau Gwall Nesaf
Gosod xCombox = xWs.OLEObjects("TempCombo")
Gyda xCombox
.ListFillRange = ""
.LinkedCell = ""
.Gweladwy = Gau
Diwedd Gyda
Os yw Target.Validation.Type = 3 Yna
Target.Validation.InCellDropdown = Gau
Diddymu = Gwir
xStr = Targed.Validation.Formula1
xStr = I'r dde(xStr, Len(xStr) - 1)
Os xStr = " " Yna Ymadael Is
Gyda xCombox
.Visible = Gwir
.Chwith = Targed.Chwith
.Top = Targed.Top
.Width = Targed.Width+5
.Uchder = Targed.Height+5
.ListFillRange = xStr
If .ListFillRange = "" Yna
xArr = Hollti(xStr, ",")
Me.TempCombo.List = xArr
Gorffennwch Os
.LinkedCell = Target.Address
Diwedd Gyda
xCombox.Activate
Me.TempCombo.DropDown
Gorffennwch Os
Is-End
Is-TempCombo_KeyDown Preifat(Cod Bysellwedd ByVal Fel MSForms.ReturnInteger, ByVal Shift As Integer)
Dewiswch Cod Allwedd Achos
Achos 9
Application.ActiveCell.Offset(0, 1).Activate
Achos 13
Application.ActiveCell.Offset(1, 0).Activate
Diwedd Dewis
Is-End