Празни клетки

9 отговора 290 прегледа
#1

Празни клетки

Искам да накарам Ексел да слага нули във всички празни клетки от конкретна селектирана област.
Има ли вградена функция за това или ще ми препоръчате макро?
Мерси предварително за всеки съвет или линк.
Поздрави

Отговор
в отговор на Koko #2

Re: Празни клетки

Даи малко обяснение върху проблема. Защо ти е необходимо това.
Excel-а възприема празните клетки като 0

Отговор
в отговор на Koko #3

Re: Празни клетки

аз пък искам да питам за обатното - как когато стойността в клетката е =0 в самата клетка да не излиза никакъв символ

10х

К.

........I WASN'T REALY DRUNK AT THE TIME.......
Отговор
в отговор на Koko #4

Re: Празни клетки

Sub PostavyaNulli()
Dim Cell As Range

For Each Cell In Selection
If Cell.Value = "" Then
Cell.Value = 0
End If
Next


End Sub


Sub MahaNulli()
Dim Cell As Range

For Each Cell In Selection
If Cell.Value = 0 Then
Cell.Value = ""
End If
Next

End Sub

Go Install Analysis Toolpack!
Отговор
в отговор на killin #5

Re: Празни клетки

Tools->Options->View и махаш отметката на Zero values

То, не че не мога, ама има ли смисъл, като няма значение
Отговор
в отговор на alexoff #6

Re: Празни клетки

значи не съм много вещ във VВА, но решението, което предлагаш има един много съществен недостатък в случая, когато трябва стойност нула да се вижда като празна клетка.
Пример: С1=А1-В1; ако А1=В1 в С1 ще имаме нула. Стартирайки макроса, той ще изтрие формулата и ще остави празна клетка. И в момента в който А1<>В1, в С1 няма да има функция която да изчисли разликата

То, не че не мога, ама има ли смисъл, като няма значение
Отговор
в отговор на f(x)dx #7

Re: Празни клетки

Ами, тогава ще ти се наложи да вкараш проверката във формулата така:

C1=IF(A1-B1=0;"";A1-B1)

Варианти - много. Но ангелите ви взели, формулирайте заданието като хората бре.


Щирлиц
Отговор
в отговор на f(x)dx #8

Re: Празни клетки

В случая нямам формули. Макрото свърши перфектна работа. 10х

Отговор
в отговор на Щиpлиц #9

Re: Празни клетки

Още по-добре
If (not Cell.HasFormula) And (Cell.Value = 0) Then

Но за заданието си прав

Отговор
в отговор на NDeu #10

Re: Празни клетки

мдаааа, често се случва така: пита някой нещо си, ама така пита че нищо не се разбира. Абе хора, питайте по-ясно бе. Как да помагаме иначе?

То, не че не мога, ама има ли смисъл, като няма значение
Отговор