وظيفة VBA Worksheet_Change لـ excel

لقد قمت بتعديل وظيفة الموضوع لإزالة التحديدات الموجودة عند إعادة تحديدها ولإزالة الإضافات ؛ ها هو الكود المعدل:

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
'تم التحديث بواسطة Extendoffice 2019/11/13
تم التحديث بواسطة كين جاردنر 2022/07/11
خافت xRng كمدى
خافت xValue1 كسلسلة
خافت xValue2 كسلسلة
قاتمة شبه كولونكونت كعدد صحيح
إذا كان Target.Count> 1 ، فاخرج من Sub
على خطأ استئناف التالي
تعيين xRng = Cells.SpecialCells (xlCellTypeAllValidation)
إذا كان xRng لا شيء ، فاخرج من Sub
Application.EnableEvents = خطأ
إذا لم يكن تطبيقًا ، فالتداخل (الهدف ، xRng) لا شيء إذن
إذا كان Application.Intersect (الهدف ، xRng) ثم
xValue2 = الهدف. القيمة
التطبيق
xValue1 = الهدف. القيمة
الهدف. القيمة = xValue2
إذا كانت xValue1 <> "" ثم
إذا كانت xValue2 <> "" ثم
إذا كانت xValue1 = xValue2 أو xValue1 = xValue2 & "؛" أو xValue1 = xValue2 & "؛" ثم "اترك القيمة إذا كانت واحدة فقط في القائمة
xValue1 = استبدال (xValue1، "؛"، "")
xValue1 = استبدال (xValue1، "؛"، "")
الهدف. القيمة = xValue1
ElseIf InStr (1، xValue1، "؛" & xValue2) ثم
xValue1 = استبدال (xValue1، xValue2، "") 'يزيل القيمة الموجودة من القائمة عند تكرار التحديد
الهدف. القيمة = xValue1
ElseIf InStr (1، xValue1، xValue2 & "؛") ثم
xValue1 = استبدال (xValue1، xValue2، "")
الهدف. القيمة = xValue1
آخر
Target.Value = xValue1 & "؛" & xValue2
إنهاء حالة
Target.Value = استبدال (Target.Value، "؛؛"، "؛")
Target.Value = استبدال (Target.Value، "؛"؛ "،"؛ ")
إذا كان InStr (1، Target.Value، "؛") = 1 ثم 'تحقق من؛ كأول حرف وإزالته
Target.Value = استبدال (Target.Value، "؛"، ""، 1، 1)
إنهاء حالة
إذا كان InStr (1، Target.Value، "؛") = 1 ثم
Target.Value = استبدال (Target.Value، "؛"، ""، 1، 1)
إنهاء حالة
semColonCnt = 0
بالنسبة إلى i = 1 To Len (Target.Value)
إذا كان InStr (i، Target.Value، "؛") ثم
SemiColonCnt = SemiColonCnt + 1
إنهاء حالة
أنا القادم
إذا كان SemiColonCnt = 1 ثم 'remove؛ إذا كانت الشخصية الأخيرة
Target.Value = استبدال (Target.Value، "؛"، "")
Target.Value = استبدال (Target.Value، "؛"، "")
إنهاء حالة
إنهاء حالة
إنهاء حالة
إنهاء حالة
Application.EnableEvents = صحيح
نهاية الفرعية