Празни клетки
9 отговора
290 прегледа
Празни клетки
Искам да накарам Ексел да слага нули във всички празни клетки от конкретна селектирана област.
Има ли вградена функция за това или ще ми препоръчате макро?
Мерси предварително за всеки съвет или линк.
Поздрави
Има ли вградена функция за това или ще ми препоръчате макро?
Мерси предварително за всеки съвет или линк.
Поздрави
Re: Празни клетки
Даи малко обяснение върху проблема. Защо ти е необходимо това.
Excel-а възприема празните клетки като 0
Excel-а възприема празните клетки като 0
Re: Празни клетки
аз пък искам да питам за обатното - как когато стойността в клетката е =0 в самата клетка да не излиза никакъв символ
10х
К.
........I WASN'T REALY DRUNK AT THE TIME.......
10х
К.
........I WASN'T REALY DRUNK AT THE TIME.......
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!
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!
Re: Празни клетки
Tools->Options->View и махаш отметката на Zero values
То, не че не мога, ама има ли смисъл, като няма значение
То, не че не мога, ама има ли смисъл, като няма значение
Re: Празни клетки
значи не съм много вещ във VВА, но решението, което предлагаш има един много съществен недостатък в случая, когато трябва стойност нула да се вижда като празна клетка.
Пример: С1=А1-В1; ако А1=В1 в С1 ще имаме нула. Стартирайки макроса, той ще изтрие формулата и ще остави празна клетка. И в момента в който А1<>В1, в С1 няма да има функция която да изчисли разликата
То, не че не мога, ама има ли смисъл, като няма значение
Пример: С1=А1-В1; ако А1=В1 в С1 ще имаме нула. Стартирайки макроса, той ще изтрие формулата и ще остави празна клетка. И в момента в който А1<>В1, в С1 няма да има функция която да изчисли разликата
То, не че не мога, ама има ли смисъл, като няма значение
Re: Празни клетки
Ами, тогава ще ти се наложи да вкараш проверката във формулата така:
C1=IF(A1-B1=0;"";A1-B1)
Варианти - много. Но ангелите ви взели, формулирайте заданието като хората бре.
Щирлиц
C1=IF(A1-B1=0;"";A1-B1)
Варианти - много. Но ангелите ви взели, формулирайте заданието като хората бре.
Щирлиц
Re: Празни клетки
Още по-добре
If (not Cell.HasFormula) And (Cell.Value = 0) Then
Но за заданието си прав
If (not Cell.HasFormula) And (Cell.Value = 0) Then
Но за заданието си прав
Re: Празни клетки
мдаааа, често се случва така: пита някой нещо си, ама така пита че нищо не се разбира. Абе хора, питайте по-ясно бе. Как да помагаме иначе?
То, не че не мога, ама има ли смисъл, като няма значение
То, не че не мога, ама има ли смисъл, като няма значение