Удаление определенных данных из диапазона ячеек
vdekameron
Дата: Понедельник, 27.10.2014, 17:37 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Есть диапазон ячеек, нужно нажатием на кнопку удалить например только все цифры 5 из этого диапазона. Я создал макрос, но при нажатии выводит ошибку, видимо я ,по незнанию, что-то неправильно написал в коде. Заранее спасибо тому, кто поможет. [moder]Файл пустой
Есть диапазон ячеек, нужно нажатием на кнопку удалить например только все цифры 5 из этого диапазона. Я создал макрос, но при нажатии выводит ошибку, видимо я ,по незнанию, что-то неправильно написал в коде. Заранее спасибо тому, кто поможет. [moder]Файл пустой vdekameron
Ответить
Сообщение Есть диапазон ячеек, нужно нажатием на кнопку удалить например только все цифры 5 из этого диапазона. Я создал макрос, но при нажатии выводит ошибку, видимо я ,по незнанию, что-то неправильно написал в коде. Заранее спасибо тому, кто поможет. [moder]Файл пустой Автор - vdekameron Дата добавления - 27.10.2014 в 17:37
Nic70y
Дата: Понедельник, 27.10.2014, 17:45 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация:
2416
±
Замечаний:
0% ±
Excel 2010
ЮMoney 41001841029809
Ответить
Сообщение извините не соот. Автор - Nic70y Дата добавления - 27.10.2014 в 17:45
vdekameron
Дата: Понедельник, 27.10.2014, 18:01 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Извините, не тот файл прицепил. Вот.
Ответить
Сообщение Извините, не тот файл прицепил. Вот. Автор - vdekameron Дата добавления - 27.10.2014 в 18:01
AndreTM
Дата: Понедельник, 27.10.2014, 18:04 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация:
501
±
Замечаний:
0% ±
2003 & 2010
Можно так: [vba]Код
Dim c as Range For Each c In Range("E10:U10").Cells If c.Value = 5 Then c.ClearContents Next
[/vba] Или так: [vba]Код
Dim i As Long For i = 1 to Range("E10:U10").Rows.Count If Range("E10:U10").Cells(i, 1) = 5 Then Range("E10:U10").Cells(i, 1) = "" Next
[/vba] Или вообще вот так: [vba]Код
Range("E5:N5").Replace What:="5", Replacement:="", LookAt:=xlWhole
[/vba]:)
Можно так: [vba]Код
Dim c as Range For Each c In Range("E10:U10").Cells If c.Value = 5 Then c.ClearContents Next
[/vba] Или так: [vba]Код
Dim i As Long For i = 1 to Range("E10:U10").Rows.Count If Range("E10:U10").Cells(i, 1) = 5 Then Range("E10:U10").Cells(i, 1) = "" Next
[/vba] Или вообще вот так: [vba]Код
Range("E5:N5").Replace What:="5", Replacement:="", LookAt:=xlWhole
[/vba]:) AndreTM
Skype: andre.tm.007 Donate: Q iwi: 9517375010
Сообщение отредактировал AndreTM - Понедельник, 27.10.2014, 18:10
Ответить
Сообщение Можно так: [vba]Код
Dim c as Range For Each c In Range("E10:U10").Cells If c.Value = 5 Then c.ClearContents Next
[/vba] Или так: [vba]Код
Dim i As Long For i = 1 to Range("E10:U10").Rows.Count If Range("E10:U10").Cells(i, 1) = 5 Then Range("E10:U10").Cells(i, 1) = "" Next
[/vba] Или вообще вот так: [vba]Код
Range("E5:N5").Replace What:="5", Replacement:="", LookAt:=xlWhole
[/vba]:) Автор - AndreTM Дата добавления - 27.10.2014 в 18:04
Nic70y
Дата: Понедельник, 27.10.2014, 18:07 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация:
2416
±
Замечаний:
0% ±
Excel 2010
ЮMoney 41001841029809
Ответить
vdekameron
Дата: Вторник, 28.10.2014, 10:13 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
AndreTM, спасибо большое, первый вариант мне наиболее понятен.
AndreTM, спасибо большое, первый вариант мне наиболее понятен. vdekameron
Ответить
Сообщение AndreTM, спасибо большое, первый вариант мне наиболее понятен. Автор - vdekameron Дата добавления - 28.10.2014 в 10:13