Изменить разрядность, если в ячейке определенные значения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Изменить разрядность, если в ячейке определенные значения (Макросы/Sub)

timo64uk

Дата: Вторник, 15.02.2022, 13:39 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 95

Репутация: 1 ±

Замечаний: 0% ±

Office16

Добрый день, дамы и господа

Очень нужно изменить количество видимых знаков после запятой до 0 в столбце 5, если в столбце 3 встречаются следующие значения "кг", "м", "шт" или "л".
Сам пробовал через выделение
[vba]

Код

Dim Iu&
For Iu = 19 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Iu, 3) = "шт" Or Cells(Iu, 3) = "шт." Or Cells(Iu, 3) = "кг" Or Cells(Iu, 3) = "кг." _
Or Cells(Iu, 3) = "м" Or Cells(Iu, 3) = "м." Or Cells(Iu, 3) = "л" Or Cells(Iu, 3) = "л." _
Then
Cells(Iu, 5).Select
With Selection.NumberFormat = "0" 'что-то не то и что-то не так
End With
End If
Next

[/vba]

К сообщению приложен файл: 9523442.xlsx (68.5 Kb)

Ответить

Serge_007

Дата: Вторник, 15.02.2022, 13:58 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте

Вариант:[vba]

Код

Dim NumF As Range
For Each NumF In Range("c19:c37")
If NumF = "кг" Or NumF Like "шт*" Or NumF = "л" Then NumF.Offset(0, 2).NumberFormat = "0"
Next NumF

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

timo64uk

Дата: Вторник, 15.02.2022, 14:20 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 95

Репутация: 1 ±

Замечаний: 0% ±

Office16

Цитата Serge_007, 15.02.2022 в 13:58, в сообщении № 2 (

)

Вариант

Попробовал "кг*" чтоб вариант "кг." охватывал и "кг .", однако не прошло.
Расписал "кг" и "кг." - сработал как нужно.
Диапазон расширил до c999.
Спасибо

Аааа- понял, Like пропустил.