Excel-ын бүх Sheet-р хайлт хийж, текст солих макро

Дараах макро нь Excel-ийн бүх worksheet дээрх тодорхой текстийг хайж, өөр текстээр солих үйлдлийг хийх зориулалттай.

Sub FindAndReplace()
    Dim ws As Worksheet
    Dim FindText As String
    Dim ReplaceText As String
    FindText = InputBox("Хайх текстээ оруулна уу:")
    ReplaceText = InputBox("Солих текстээ оруулна уу:")
    For Each ws In Worksheets
        ws.Cells.Replace What:=FindText, Replacement:=ReplaceText, LookAt:=xlPart, MatchCase:=False
    Next ws
End Sub

Тайлбар

1. Sub FindAndReplace()

Sub FindAndReplace()

• FindAndReplace гэж нэрлэсэн VBA процедурыг эхлүүлж байгаа хэсэг.
• VBA-д Sub гэдэг нь процедур эхлүүлэх түлхүүр үг бөгөөд дуусахдаа End Sub-аар төгсдөг.

2. Өөрчлөлт хийхэд шаардлагатай хувьсагчийг зарлах

Dim ws As Worksheet
Dim FindText As String
Dim ReplaceText As String

• ws: Worksheet төрлийн хувьсагч. Энэ нь кодонд workbook доторх бүх worksheet-ийг заахад ашиглагдана.
• FindText: String төрлийн хувьсагч. Хэрэглэгчээс оруулсан, хайх гэж буй текстийг хадгална.
• ReplaceText: String төрлийн хувьсагч. Хэрэглэгчээс оруулсан, солих гэж буй текстийг хадгална.

3. Хэрэглэгчээс текст авах

FindText = InputBox("Хайх текстээ оруулна уу:")
ReplaceText = InputBox("Солих текстээ оруулна уу:")

• InputBox функц ашиглан хэрэглэгчээс хайх болон солих текстийг асууна.
  • FindText: Хайх текстийг хэрэглэгч оруулна.
  • ReplaceText: Солих текстийг хэрэглэгч оруулна.

4. Бүх worksheet-ийг давтаж текстийг хайх

For Each ws In Worksheets

• For Each давталт ашиглан workbook дахь бүх worksheet-ийг нэг нэгээр нь шалгана.
• ws хувьсагч нь тухайн мөчид шалгаж байгаа worksheet-ийг илэрхийлнэ.

5. Нүд бүрийн утгыг солих

ws.Cells.Replace What:=FindText, Replacement:=ReplaceText, LookAt:=xlPart, MatchCase:=False

• ws.Cells.Replace:
  • Тухайн worksheet-ийн бүх нүдэнд хайж байгаа текстийг олоод өөр текстээр солих командыг гүйцэтгэнэ.
  • What:=FindText: Хайх гэж буй текстийг заана.
  • Replacement:=ReplaceText: Солих текстийг заана.
  • LookAt:=xlPart: Нүдний утгыг бүхэлд нь биш, хэсэгчлэн хайна.
  • MatchCase:=False: Том, жижиг үсгийн ялгааг оруулахгүй.

6. Давталтыг дуусгах

Next ws

• For Each давталтыг дуусгаж, дараагийн worksheet рүү шилжинэ.

7. Процедурыг дуусгах

End Sub

• Энэ хэсэг нь процедурын төгсгөлийг илэрхийлнэ.