Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: this_feature_currently_requires_accessing_site_using_safari
Sub Replace_Hyperlink()
Dim rCell As Range, sWhatRep As String, sRep As String
Dim objShape As Shape, objHyp As Hyperlink
sWhatRep = InputBox("Что меняем?", "Ввод данных", ".excel_vba")
sRep = InputBox("На что меняем?", "Ввод данных", "excel-vba")
If sWhatRep = "" Then Exit Sub
If sRep = "" Then
If MsgBox("Хотите заменить " & sWhatRep & " на пусто?", vbCritical + vbYesNo, "Предупреждение") = vbNo Then Exit Sub
End If
Application.ScreenUpdating = 0
On Error Resume Next
For Each objShape In ActiveSheet.Shapes
Set objHyp = objShape.Hyperlink
If Not objHyp Is Nothing Then
objShape.Hyperlink.Address = Replace(objShape.Hyperlink.Address, sWhatRep, sRep)
Set objHyp = Nothing
End If
Next objShape
Application.ScreenUpdating = 1
End Sub