Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как скрыть нули в ячейках Excel, кодом на VBA 
:(
    Опции темы
Mrak
Дата 4.12.2004, 08:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 259
Регистрация: 16.10.2004

Репутация: нет
Всего: 5
Итак возникла необходимость отредактировать ранее созданную.
Желательно было бы выложить скриншот, но я не знаю как?
Так вот, мы разбросали валюту по разным столцам и все отлично, но например в столбце долларовы платежи:
0
0
0
2
3
0
И вот очень хочется эти нули убрать. Скрывать всю строку нельзя, так как в соседнем столбце идет
2
2
2
0
0
То есть, если 0 в одном столбце, значимое число в другом и наоборот.



--------------------
Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками)
PM MAIL   Вверх
Staruha
Дата 4.12.2004, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Но я предлагала сделать эти столбцы скрытыми ,а не для показа. Одну под другой запись кинуть можно.Но нарушится целостность записи , т.е запись в строке .Стоп .Кажись тебе надо отсортировать записи по этим столбцам.Сначала по одному ,потом по другому.


--------------------
Возмездие настигнет
PM MAIL   Вверх
S.A.P.
Дата 4.12.2004, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2664
Регистрация: 11.6.2004

Репутация: нет
Всего: 71
Mrak залезь в меню Сервис -> Параметры -> Вид и убери галочку Нулевые значения.
Чтобы скрыть нулевые значения в определенном диапазоне ячеек, можешь прописать в формате ячеек
Код
0;-0;;@

Добавлено @ 12:24
Подожди, только ща заметил, что тебе на VBA надо.
Код

Range("B5:H21").NumberFormat = "0;-0;;@"
PM MAIL   Вверх
Guest
Дата 4.12.2004, 14:06 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ой Perchilla ты так махал флагом что я обнаружила - мы земляки. На флаге полосок не хватает.
Цитата
Сервис -> Параметры -> Вид и убери галочку Нулевые значения.

Вот это я ему по почте советовала. еще раньше. Но вопрос всеравно возник. Я не могу понять в чем проблема.
Ну надо же радость какая - земляк.
  Вверх
Staruha
Дата 4.12.2004, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Это была я ,а не гось.Вот растяпа


--------------------
Возмездие настигнет
PM MAIL   Вверх
S.A.P.
Дата 4.12.2004, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2664
Регистрация: 11.6.2004

Репутация: нет
Всего: 71
Цитата(Guest @ 4.12.2004, 14:06)
На флаге полосок не хватает.
каких полосок? Это же СССР smile

PM MAIL   Вверх
Staruha
Дата 4.12.2004, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Тогда Серп и молот smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
Mrak
Дата 5.12.2004, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 259
Регистрация: 16.10.2004

Репутация: нет
Всего: 5
Старуха, я тебе отправил файлик по почте, посмотри, он немного отличается от того, что ты предлагала.
Поэтому поймешь, почему нельзя скрыть нули - останутся пустые ячейки в столбцах, а этого не должно быть.


--------------------
Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками)
PM MAIL   Вверх
Staruha
Дата 5.12.2004, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
У тебя есть столбец с валютой.Скрой столбцы с обработкой данных,а итого оставь.Как програмно делать код я давала.


--------------------
Возмездие настигнет
PM MAIL   Вверх
Cashey
Дата 5.12.2004, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 1
Всего: 60
Старуха, Perchilla не флудим


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
Staruha
Дата 5.12.2004, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Mrak ! Ну все .Наверно это тебе понравится
Код

   Private Sub CommandButton1_Click()
       Dim k As Integer
       Dim c As Integer
       Dim d As Integer
   d = UsedRange.Rows.Count

     For rwIndex = 2 To d         Range("C" & rwIndex).Value = Mid((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text) - 2), 3)

        If Range("C" & rwIndex).Value = "руб" Then
    k = k + 1

    c = c
           Range("D" & (k + 1)).Value = Mid((Range("A" & rwIndex).Text), 1, (Len(Range("A" & rwIndex).Text) - 3))

Range("E2").Value = Range("E2").Value + Mid((Range("A" & rwIndex).Text), 1, (Len(Range("A" & rwIndex).Text) - 3))


Else
        k = k

        c = c + 1
     Range("F" & (c + 1)).Value = Left((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text)) - 1)
     Range("G2").Value = Range("G2").Value + Left((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text)) - 1)



 End If
 Range("C1").Select
Range(ActiveCell, ActiveCell.End(xlDown)).ClearContents

 Range("A1").Select

Next


End Sub



--------------------
Возмездие настигнет
PM MAIL   Вверх
Mrak
Дата 6.12.2004, 07:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 259
Регистрация: 16.10.2004

Репутация: нет
Всего: 5
Старуха, конечно понравится, молодец, огромное тебе спасибо!!!!! Это именно то что было нужно!!!!!!!!!! Все темку можно закрывать.
P.S. Модераторам. Не забудьте поднять репутацию человеку, оказавшему мне огромную, просто преогромную помощь. smile


Это сообщение отредактировал(а) Mrak - 6.12.2004, 07:57


--------------------
Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками)
PM MAIL   Вверх
Staruha
Дата 6.12.2004, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Интересно ,а ты заметил ,что Итого тоже программно стало вместо формулы? smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
Mrak
Дата 7.12.2004, 07:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 259
Регистрация: 16.10.2004

Репутация: нет
Всего: 5
Заметил, только его пришлось немного усовершенствовать smile , то есть если я например нечаянно нажму два раза на кнопку Сумма, Value*2, чего происходить не должно. Так что в начале, после объявления ставим:
Код

 Range("E2").Value = 0
 Range("G2").Value = 0


Это сообщение отредактировал(а) Mrak - 7.12.2004, 07:14


--------------------
Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками)
PM MAIL   Вверх
Staruha
Дата 7.12.2004, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Цитата
Заметил, только его пришлось немного усовершенствовать
- Я верила , что это ты сам доделаешь. Ну все smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0566 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.