Excel / VBA - جزء اللون من عمود

لديّ رمز يلون جزءًا من صف بناءً على ما تم إدخاله في عمود معين ، لكنني أرغب في تبديل هذا الرمز بحيث يكون جزء العمود ملونًا استنادًا إلى البيانات التي تم إدخالها في صف واحد. كيفية قرص الكود أدناه:

 ورقة عمل فرعية خاصة (تغيير ByVal Target As Range) "عندما يتم إجراء تغيير في ورقة العمل ... إذا لم تتقاطع (الهدف ، النطاق (" B3: B100 ")) فلا شيء بعد ذلك" ... إلى أي خلايا من B3 إلى B100 (الدور) ... إذا كان الاختيار. سيلس.كونتس> 1 ثم قم بإنهاء Sub "(إنهاء إعادة صياغة إذا كانت التغييرات التي أجريت على أكثر من خلية واحدة في وقت واحد - يمنع تحطيم تحديد حالة الهدف" حالة مدير "" "... تحقق مما إذا كانت الخلية يحتوي على "Manager" ... Range ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... وإذا كان الأمر كذلك ، قم بتغيير لون الخلايا في هذا الصف ، من ب - AH إلى أصفر باهت. 'حالات أخرى هنا .... End حدد End If End Sub 

حل

ها أنت ذا:

 ورقة العمل الفرعية الخاصة (تغيير ByVal الهدف كنطاق) إذا كان التقاطع (الهدف ، النطاق ("A3: L3")) ليس شيئًا أو _ Selection.Cells.Count> 1 ثم الخروج من نطاق التحديد الفرعي لحالة الحالة المستهدفة (الخلايا ، 1 ، Target.Column) ، خلايا (30 ، Target.Column)). Interior.ColorIndex = 36 End Select End Sub 

بفضل TrowaD لهذه النصيحة.