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

Вход

Регистрация

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

 

= Мир MS Excel/Как вывести в конкретную ячейку число с заданным форматом? - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как вывести в конкретную ячейку число с заданным форматом? (Макросы/Sub)
Как вывести в конкретную ячейку число с заданным форматом?
Юрий_Нд Дата: Суббота, 25.05.2019, 14:02 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Доброго дня всем.
Подскажите пожалуйста как вывести в конкретную ячейку число с заданным форматом, то есть с заданным количеством знаков после запятой.
Пытаюсь применить такой способ:
[vba]
Код
.Cells(7, 4) = Format(sl, "0.00")
[/vba]но ничего не получается.
Выводится тот формат, который был задан "в ручном режиме" через "Формат ячеек" - "Число" - "Числовой" - "Количество десятичных знаков"
Спасибо _________ Юрий.


Сообщение отредактировал Юрий_Нд - Суббота, 25.05.2019, 14:08
 
Ответить
СообщениеДоброго дня всем.
Подскажите пожалуйста как вывести в конкретную ячейку число с заданным форматом, то есть с заданным количеством знаков после запятой.
Пытаюсь применить такой способ:
[vba]
Код
.Cells(7, 4) = Format(sl, "0.00")
[/vba]но ничего не получается.
Выводится тот формат, который был задан "в ручном режиме" через "Формат ячеек" - "Число" - "Числовой" - "Количество десятичных знаков"
Спасибо _________ Юрий.
Автор - Юрий_Нд
Дата добавления - 25.05.2019 в 14:02
_Igor_61 Дата: Суббота, 25.05.2019, 16:31 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Наверное, так: [vba]
Код
.Cells(7, 4) =NumberFormat = "#,##0.00"
[/vba] Если разряды не нужны, уберите решетки


Сообщение отредактировал _Igor_61 - Суббота, 25.05.2019, 16:33
 
Ответить
СообщениеНаверное, так: [vba]
Код
.Cells(7, 4) =NumberFormat = "#,##0.00"
[/vba] Если разряды не нужны, уберите решетки
Автор - _Igor_61
Дата добавления - 25.05.2019 в 16:31
Юрий_Нд Дата: Суббота, 25.05.2019, 19:55 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
_Igor_61, простите, что-то не получается.
К сообщению приложен файл: 123-6.xlsm (12.4 Kb)
 
Ответить
Сообщение_Igor_61, простите, что-то не получается.
Автор - Юрий_Нд
Дата добавления - 25.05.2019 в 19:55
_Igor_61 Дата: Суббота, 25.05.2019, 20:29 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код
With Sheets(1)
.Cells(7, 4) = x
.Cells(7, 4).NumberFormat = "#,##0.00"
End With
[/vba]
 
Ответить
Сообщение[vba]
Код
With Sheets(1)
.Cells(7, 4) = x
.Cells(7, 4).NumberFormat = "#,##0.00"
End With
[/vba]
Автор - _Igor_61
Дата добавления - 25.05.2019 в 20:29
Юрий_Нд Дата: Суббота, 25.05.2019, 22:51 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
_Igor_61, спасибо, теперь всё нормально.
Однако:
1. Непонятно назначение решеток. Что с решетками, что без них, никакой разницы не вижу.
2. Хотелось бы цифру разместить по центру ячейки. Вот такая громоздкая конструкция
[vba]
Код
Range(7, 4).Select
    With Selection
        .HorizontalAlignment = xlCenter
    End With
[/vba] работает. Однако хотелось бы упростить, насколько это возможно.
 
Ответить
Сообщение_Igor_61, спасибо, теперь всё нормально.
Однако:
1. Непонятно назначение решеток. Что с решетками, что без них, никакой разницы не вижу.
2. Хотелось бы цифру разместить по центру ячейки. Вот такая громоздкая конструкция
[vba]
Код
Range(7, 4).Select
    With Selection
        .HorizontalAlignment = xlCenter
    End With
[/vba] работает. Однако хотелось бы упростить, насколько это возможно.
Автор - Юрий_Нд
Дата добавления - 25.05.2019 в 22:51
Alex2005-10 Дата: Суббота, 25.05.2019, 22:59 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Можно так сделать:



Cells(1, 1).NumberFormat = "0.000"
Cells(1, 1).HorizontalAlignment = xlCenter


Вообще действие Select лучше не использовать, тормозит работу если данных много


Сообщение отредактировал Alex2005-10 - Суббота, 25.05.2019, 23:04
 
Ответить
СообщениеМожно так сделать:



Cells(1, 1).NumberFormat = "0.000"
Cells(1, 1).HorizontalAlignment = xlCenter


Вообще действие Select лучше не использовать, тормозит работу если данных много
Автор - Alex2005-10
Дата добавления - 25.05.2019 в 22:59
Юрий_Нд Дата: Суббота, 25.05.2019, 23:04 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Alex2005-10, спасибо, я так и сделал, так для чего решетки там были нужны?


Сообщение отредактировал Юрий_Нд - Суббота, 25.05.2019, 23:06
 
Ответить
СообщениеAlex2005-10, спасибо, я так и сделал, так для чего решетки там были нужны?
Автор - Юрий_Нд
Дата добавления - 25.05.2019 в 23:04
Alex2005-10 Дата: Суббота, 25.05.2019, 23:10 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Просто разные варианты задания формата числа, насколько я помню.
А по поводу центровки, то что вы написали легко сокращается и без выделения ячейки:

Range(7, 4).Select
With Selection
.HorizontalAlignment = xlCenter
End With

=

Cells(7, 4).HorizontalAlignment = xlCenter
 
Ответить
СообщениеПросто разные варианты задания формата числа, насколько я помню.
А по поводу центровки, то что вы написали легко сокращается и без выделения ячейки:

Range(7, 4).Select
With Selection
.HorizontalAlignment = xlCenter
End With

=

Cells(7, 4).HorizontalAlignment = xlCenter
Автор - Alex2005-10
Дата добавления - 25.05.2019 в 23:10
Юрий_Нд Дата: Суббота, 25.05.2019, 23:15 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Да, спасибо, я так уже сделал...
 
Ответить
СообщениеДа, спасибо, я так уже сделал...
Автор - Юрий_Нд
Дата добавления - 25.05.2019 в 23:15
Юрий_Нд Дата: Суббота, 25.05.2019, 23:36 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Кстати, Алекс, код ВБА подправьте, Борода этого не любит...
[moder]Никто из администрации этого не любит[/moder]


Сообщение отредактировал _Boroda_ - Понедельник, 27.05.2019, 11:45
 
Ответить
СообщениеКстати, Алекс, код ВБА подправьте, Борода этого не любит...
[moder]Никто из администрации этого не любит[/moder]
Автор - Юрий_Нд
Дата добавления - 25.05.2019 в 23:36
_Igor_61 Дата: Воскресенье, 26.05.2019, 07:13 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Юрий_Нд, решетки для разделения групп разрядов - если много цифр
 
Ответить
СообщениеЮрий_Нд, решетки для разделения групп разрядов - если много цифр
Автор - _Igor_61
Дата добавления - 26.05.2019 в 07:13
bmv98rus Дата: Воскресенье, 26.05.2019, 09:21 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Цитата _Igor_61, 26.05.2019 в 07:13, в сообщении № 11 ()
решетки для разделения групп разрядов - если много цифр

http://www.excelworld.ru/publ/hacks/formatting/format_user/63-1-0-141
"0 000.00" также разделит если много цифр, а вот если мало, то будут нули перед числом.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Цитата _Igor_61, 26.05.2019 в 07:13, в сообщении № 11 ()
решетки для разделения групп разрядов - если много цифр

http://www.excelworld.ru/publ/hacks/formatting/format_user/63-1-0-141
"0 000.00" также разделит если много цифр, а вот если мало, то будут нули перед числом.
Автор - bmv98rus
Дата добавления - 26.05.2019 в 09:21
Юрий_Нд Дата: Воскресенье, 26.05.2019, 10:00 | Сообщение № 13
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Спасибо товарищи, с решетками разобрался.
А вот можно ли как-то оптимизировать эту громоздкую конструкцию, то есть записать одной строчкой:
[vba]
Код
.Cells(10, 8) = x
.Cells(10, 8).NumberFormat = "#,##0.00"
.Cells(10, 8).HorizontalAlignment = xlCenter
[/vba]
 
Ответить
СообщениеСпасибо товарищи, с решетками разобрался.
А вот можно ли как-то оптимизировать эту громоздкую конструкцию, то есть записать одной строчкой:
[vba]
Код
.Cells(10, 8) = x
.Cells(10, 8).NumberFormat = "#,##0.00"
.Cells(10, 8).HorizontalAlignment = xlCenter
[/vba]
Автор - Юрий_Нд
Дата добавления - 26.05.2019 в 10:00
RAN Дата: Воскресенье, 26.05.2019, 10:27 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Юрий_Нд, 26.05.2019 в 10:00, в сообщении № 13 ()
можно ли как-то оптимизировать

Весьма странное и вольное толкование понятия.
Записать можно, но зачем?
[vba]
Код
.Cells(10, 8) = x:.Cells(10, 8).NumberFormat = "#,##0.00":.Cells(10, 8).HorizontalAlignment = xlCenter
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Юрий_Нд, 26.05.2019 в 10:00, в сообщении № 13 ()
можно ли как-то оптимизировать

Весьма странное и вольное толкование понятия.
Записать можно, но зачем?
[vba]
Код
.Cells(10, 8) = x:.Cells(10, 8).NumberFormat = "#,##0.00":.Cells(10, 8).HorizontalAlignment = xlCenter
[/vba]
Автор - RAN
Дата добавления - 26.05.2019 в 10:27
Юрий_Нд Дата: Воскресенье, 26.05.2019, 12:16 | Сообщение № 15
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
RAN, если только так, тогда я за первоначальный вариант.
Вообще-то, мне больше всего не нравится, что приходится три раза писать:
[vba]
Код
.Cells(10, 8)
[/vba]
 
Ответить
СообщениеRAN, если только так, тогда я за первоначальный вариант.
Вообще-то, мне больше всего не нравится, что приходится три раза писать:
[vba]
Код
.Cells(10, 8)
[/vba]
Автор - Юрий_Нд
Дата добавления - 26.05.2019 в 12:16
Pelena Дата: Воскресенье, 26.05.2019, 12:18 | Сообщение № 16
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация: 4549 ±
Замечаний: ±

Excel 365 & Mac Excel
Используйте With

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеИспользуйте With
Автор - Pelena
Дата добавления - 26.05.2019 в 12:18
Юрий_Нд Дата: Воскресенье, 26.05.2019, 12:22 | Сообщение № 17
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Pelena, а этот With, позволяет в качестве номеров строк и столбцов использовать переменные?
 
Ответить
СообщениеPelena, а этот With, позволяет в качестве номеров строк и столбцов использовать переменные?
Автор - Юрий_Нд
Дата добавления - 26.05.2019 в 12:22
Pelena Дата: Воскресенье, 26.05.2019, 12:28 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация: 4549 ±
Замечаний: ±

Excel 365 & Mac Excel
With позволяет не
Цитата Юрий_Нд, 26.05.2019 в 12:16, в сообщении № 15 ()
три раза писать
, а один
[vba]
Код
With .Cells(10, 8)
.Value = x
.NumberFormat = "#,##0.00"
.HorizontalAlignment = xlCenter
End With
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеWith позволяет не
Цитата Юрий_Нд, 26.05.2019 в 12:16, в сообщении № 15 ()
три раза писать
, а один
[vba]
Код
With .Cells(10, 8)
.Value = x
.NumberFormat = "#,##0.00"
.HorizontalAlignment = xlCenter
End With
[/vba]
Автор - Pelena
Дата добавления - 26.05.2019 в 12:28
Юрий_Нд Дата: Воскресенье, 26.05.2019, 12:44 | Сообщение № 19
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Pelena, отлично, пока мне больше всего нравится такая запись:
[vba]
Код
s = 12: c = 3
With .Cells(s, c): .Value = x: .NumberFormat = "#,##0.00": .HorizontalAlignment = xlCenter: End With
[/vba]Но как я думаю, нет предела совершенству, если будет что-то поинтереснее пишите, буду очень признателен.
 
Ответить
СообщениеPelena, отлично, пока мне больше всего нравится такая запись:
[vba]
Код
s = 12: c = 3
With .Cells(s, c): .Value = x: .NumberFormat = "#,##0.00": .HorizontalAlignment = xlCenter: End With
[/vba]Но как я думаю, нет предела совершенству, если будет что-то поинтереснее пишите, буду очень признателен.
Автор - Юрий_Нд
Дата добавления - 26.05.2019 в 12:44
_Igor_61 Дата: Воскресенье, 26.05.2019, 13:11 | Сообщение № 20
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
bmv98rus, спасибо за ссылку, очень хорошее объяснение
 
Ответить
Сообщениеbmv98rus, спасибо за ссылку, очень хорошее объяснение
Автор - _Igor_61
Дата добавления - 26.05.2019 в 13:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как вывести в конкретную ячейку число с заданным форматом? (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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