изменение данных при экспорте в xml

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

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

изменение данных при экспорте в xml (Макросы/Sub)

AVKm

Дата: Понедельник, 08.05.2023, 07:02 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2019

Добрый день, в определенной ячейке (А3;А10) расположен результат проверки знаний "удовлетворительно" либо "неудовлетворительно".
Надо чтобы при экспорте в файл XML в строке
[vba]

Код

[/vba]
вместо удовлетворительно выводил "True", вместо "неудовлетворительно" выводил "False"
Еще почему то цикл не останавливается на последней заполненной строке, а захватывает еще несколько пустых, после останавливается.
Как правильней сделать и где ошибка?

К сообщению приложен файл: 9216917.xlsm (27.0 Kb)

Ответить

AVKm

Дата: Вторник, 09.05.2023, 06:29 | Сообщение № 2

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2019

через [vba]

Код

= Replace(rt, "удовлетворительно", "true")

[/vba] для одного элемента (удовлетворительно) получается, но в "неудовлетворительно" тоже есть "удовлетворительно", соответственно заменяет на "неtrue", а надо "false". Через какую функцию надо правильно?

Ответить

Pelena

Дата: Вторник, 09.05.2023, 09:28 | Сообщение № 3

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

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

Сообщений: 19392

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата AVKm, 08.05.2023 в 07:02, в сообщении № 1 (

)

вместо удовлетворительно выводил "True", вместо "неудовлетворительно" выводил "False"

Цитата AVKm, 09.05.2023 в 06:29, в сообщении № 2 (

)

но в "неудовлетворительно" тоже есть "удовлетворительно"

замените сначала неудовлетворительно на False. а потом уже удовлетворительно на True

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Serge_007

Дата: Вторник, 09.05.2023, 09:52 | Сообщение № 4

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Или так ещё можно:[vba]

Код

Sub AVKm()
Dim rt As Range
    For Each rt In Range("a3:a" & Cells(Rows.Count, 2).End(xlUp).Row)
        Select Case rt
            Case "удовлетворительно": rt = "true"
            Case "неудовлетворительно": rt = "false"
        End Select
'        If rt = "удовлетворительно" Then
'            rt = "true"
'            Else: rt = "false"
'        End If
    Next rt
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

AVKm

Дата: Вторник, 09.05.2023, 14:08 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2019

Спасибо все получилось

Ответить

изменение данных при экспорте в xml (Макросы/Sub)

Страница 1 из 1
1