Swyddogaeth VBA Worksheet_Change for excel

Addasais y swyddogaeth pwnc i gael gwared ar ddetholiadau presennol wrth eu hail-ddewis ac i ddileu extra ;'s. Dyma'r cod diwygiedig:

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
'Diweddarwyd gan Extendoffice 2019/11/13
'Diweddarwyd gan Ken Gardner 2022/07/11
Dim xRng Fel Ystod
Dim xGwerth1 Fel Llinyn
Dim xGwerth2 Fel Llinyn
Dim semiColonCnt Fel Cyfanrif
Os Targed.Cyfrif > 1 Yna Gadael Is
Ar Ail-ddechrau Gwall Nesaf
Gosod xRng = Cells.SpecialCells(xlCellTypeAllValidation)
Os yw xRng Yn Ddim Yna Ymadael Is
Application.EnableEvents = Gau
'Os Nac Yw Cais.Intersect(Targed, xRng) Yn Dim Yna
Os Application.Intersect(Targed, xRng) Yna
xGwerth2 = Targed.Gwerth
Cais.Dadwneud
xGwerth1 = Targed.Gwerth
Target.Value = xGwerth2
If xValue1 <> "" Yna
If xValue2 <> "" Yna
Os yw xValue1 = xValue2 Neu xValue1 = xValue2 & ";" Neu xValue1 = xValue2 & "; " Yna ' gadewch y gwerth os mai dim ond un yn y rhestr
xValue1 = Amnewid(xValue1,"; "," "")
xValue1 = Amnewid(xValue1,";", "")
Target.Value = xGwerth1
ElseIf InStr(1, xValue1,"; " & xValue2) Yna
xValue1 = Disodli(xValue1, xValue2," "") ' yn tynnu'r gwerth presennol o'r rhestr wrth ailddewisiad
Target.Value = xGwerth1
ElseIf InStr(1, xValue1, xValue2 & ";") Yna
xValue1 = Disodli(xValue1, xValue2," "")
Target.Value = xGwerth1
arall
Target.Value=xGwerth1&";"&xValue2
Gorffennwch Os
Target.Value = Amnewid(Targed.Value, ";;", ";")
Target.Value = Amnewid(Targed.Value, "; ;", ";")
Os yw InStr(1, Target.Value, " ; ") = 1 Yna ' gwiriwch am ; fel y cymeriad cyntaf a'i ddileu
Target.Value = Amnewid(Targed.Gwerth, ";", "", 1, 1)
Gorffennwch Os
Os yw InStr(1, Target.Value, ";") = 1 Yna
Target.Value = Amnewid(Targed.Gwerth, ";", "", 1, 1)
Gorffennwch Os
semiColonCnt = 0
Ar gyfer i = 1 I Len(Targed.Gwerth)
Os InStr(i, Target.Value, ";") Yna
semiColonCnt = semiColonCnt+1
Gorffennwch Os
Nesaf i
Os semiColonCnt = 1 Yna ' tynnwch ; os cymeriad olaf
Target.Value = Amnewid(Targed.Gwerth,"; "," "")
Target.Value = Amnewid(Targed.Value, ";", "")
Gorffennwch Os
Gorffennwch Os
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End