Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как очистить лист сохранив все формулы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как очистить лист сохранив все формулы
Adonis Дата: Среда, 06.12.2023, 21:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте. Помогите подправить макрос чтобы он не удалял все данные, а только очистил сохронив все формулы

Sub GetHomeMatches()
Call AccelerateExcel
Sheets("home").Select
Range("A:D").Select
Selection.ClearContents
Dim straddress As String
straddress = Sheets("set").Range("b5").Value
Dim http As New XMLHTTP60, html As New HTMLDocument, x As Long
With http
.Open "GET", straddress, False
.send
html.body.innerHTML = .responseText
End With

Do
x = x + 1
On Error Resume Next
Cells(x, 1) = "'" & html.querySelectorAll(".date")(x - 1).innerText
Cells(x, 2) = "'" & html.querySelectorAll(".ht2")(x - 1).innerText
Cells(x, 3) = "'" & html.querySelectorAll(".res")(x - 1).innerText
Cells(x, 4) = "'" & html.querySelectorAll(".at2")(x - 1).innerText
Loop Until Err.Number = 91

Sheets("home").Select
Dim ra As Range, delra As Range, bosxana As String
Application.ScreenUpdating = False
bosxana = Sheets("set").Range("j1").Value
For Each ra In ActiveSheet.UsedRange.Rows
If Not ra.Find(bosxana, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
Call disAccelerateExcel
Call GetAwayMatches
End Sub
 
Ответить
СообщениеЗдравствуйте. Помогите подправить макрос чтобы он не удалял все данные, а только очистил сохронив все формулы

Sub GetHomeMatches()
Call AccelerateExcel
Sheets("home").Select
Range("A:D").Select
Selection.ClearContents
Dim straddress As String
straddress = Sheets("set").Range("b5").Value
Dim http As New XMLHTTP60, html As New HTMLDocument, x As Long
With http
.Open "GET", straddress, False
.send
html.body.innerHTML = .responseText
End With

Do
x = x + 1
On Error Resume Next
Cells(x, 1) = "'" & html.querySelectorAll(".date")(x - 1).innerText
Cells(x, 2) = "'" & html.querySelectorAll(".ht2")(x - 1).innerText
Cells(x, 3) = "'" & html.querySelectorAll(".res")(x - 1).innerText
Cells(x, 4) = "'" & html.querySelectorAll(".at2")(x - 1).innerText
Loop Until Err.Number = 91

Sheets("home").Select
Dim ra As Range, delra As Range, bosxana As String
Application.ScreenUpdating = False
bosxana = Sheets("set").Range("j1").Value
For Each ra In ActiveSheet.UsedRange.Rows
If Not ra.Find(bosxana, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
Call disAccelerateExcel
Call GetAwayMatches
End Sub

Автор - Adonis
Дата добавления - 06.12.2023 в 21:45
msi2102 Дата: Четверг, 07.12.2023, 11:06 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация: 129 ±
Замечаний: 0% ±

Excel 2007
Попробуйте так
[vba]
Код
Sub Макрос1()
    Range("A:D").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
[/vba]
 
Ответить
СообщениеПопробуйте так
[vba]
Код
Sub Макрос1()
    Range("A:D").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
[/vba]

Автор - msi2102
Дата добавления - 07.12.2023 в 11:06
bmv98rus Дата: Пятница, 08.12.2023, 07:42 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4112
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
msi2102, ну разве что обработать возможную ошибку если пусто будет.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеmsi2102, ну разве что обработать возможную ошибку если пусто будет.

Автор - bmv98rus
Дата добавления - 08.12.2023 в 07:42
msi2102 Дата: Пятница, 08.12.2023, 18:46 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация: 129 ±
Замечаний: 0% ±

Excel 2007
bmv98rus, я думаю, что это не совсем то, что нужно. Скорее всего, там есть данные которые не нужно удалять, например наименование столбцов и т.п. Поэтому смысла нет заморачиваться с ошибкой :)


Сообщение отредактировал msi2102 - Пятница, 08.12.2023, 18:47
 
Ответить
Сообщениеbmv98rus, я думаю, что это не совсем то, что нужно. Скорее всего, там есть данные которые не нужно удалять, например наименование столбцов и т.п. Поэтому смысла нет заморачиваться с ошибкой :)

Автор - msi2102
Дата добавления - 08.12.2023 в 18:46
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!