найти страницу и присвоить значение ячейке

Question

У меня есть файл Excel, и есть 20 листов

Мне нужно найти и найти несколько листов в моем Excel, которые хотят добавить электронную почту в ячейку M1

Не могли бы вы мне помочь.

Answer 1

Вы можете просто использовать ниже подпункта.

Sub WriteEmail()
On Error GoTo HarunErrHandler

    Sheets("ABC").Range("M1") = "abc@hotmail.com"
    Sheets("ABC2").Range("M1") = "abc2@hotmail.com"

Exit Sub
HarunErrHandler:
MsgBox "No such sheet found.", vbInformation, "Info"
'MsgBox("Error Number: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Error")
End Sub

Answer 2

Большое спасибо, Харун, я немного изменил твои комментарии.

Следующий код работал хорошо.

Большое спасибо

Sub WriteEmail()
    Sheets("ABC").Range("M1") = "abc@hotmail.com"
    On Error Resume Next
    Sheets("ABC2").Range("M1") = "abc2@hotmail.com"
    On Error Resume Next
    Sheets("ABC3").Range("M1") = "abc3@hotmail.com"
    On Error Resume Next
    MsgBox ("process done")
End Sub

Answer 3

Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
döngü:
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "ABC" Then
    Sheets("ABC").Select
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "abc@hotmail.com"
    If Worksheets(i).Name = "ABC2" Then
    Sheets("ABC2").Select
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "abc2@hotmail.com"
    GoTo döngü:
pass:
Next i
Application.ScreenUpdating = True
MsgBox "mail assign done"
End Sub