التفوق - البحث واستبدال النطاق

القضية

أرغب في إيجاد واستبدال مجموعة من القيم على التفوق؟

هل يمكن لأي أحد أن يعرفني إذا كان هذا ممكنًا؟

حل

لدي هذا في مشروعي ولكن يمكنني استبدال مجموعة من الخلايا.

 Sub ChgInfo () Dim WS كبحث باهت لورقة العمل كبديل باهت للسلاسل كخليط باهت للسلاسل كعنوان باهت للخيط باسم سلسلة Dim MatchCase باسم Boolean MsgBox "هذا الخيار يؤثر على جميع ورقة العمل. تم إنشاؤه لتغيير ADM. PERSONNEL ، PI / PD NAME أو عنوان المشروع فقط. "& vbCrLf &" لمزيد من المعلومات ، راجع: SOP Matrix Informes de Proyectos "، vbExclamation + vbOKOnly ،" Read Before "" Prompt = "ما هي القيمة الأصلية التي تريد استبدالها؟" Title = "إدخال قيمة البحث" Search = InputBox (موجه ، عنوان) موجه = "ما هي قيمة الاستبدال؟" العنوان = استبدال "إدخال قيمة البحث" = InputBox (موجه ، العنوان) لكل WS في أوراق العمل WS.Cells.Replace What: = Search ، Replacement: = Replacement ، _ LookAt: = xlPart، MatchCase: = False Next End Sub