форматирование ячеек с Excel VBA

Question

Я пытаюсь добавить 0.00, если значение ячейки не пусто и не 0.Below код я пытаюсь, но не работает:

For x = 1 To ActiveWorkbook.Sheets.Count Step 1 
    With ActiveWorkbook.Worksheets(x).Range("A1:Z30") 
     Set FinColumn = .Find(What:="price", AFter:=.Cells(1, 1), LookIn:=xlValues, LookAt _ 
      :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
      False, SearchFormat:=False) 
     If FinColumn Is Nothing Then 
     Else 
     I = FinColumn.Row + 1 
     c = FinColumn.Column 
    **problem with below Do loop,no clues how to do** 
     **Do Until .Cells(I, c).Value <> "" And .Cells(I, c).Value <> 0 
      .Cells(I, c).NumberFormat = "0.00" 
      I = I + 1 
     Loop** 
     End If 
    End With 
    Next x 

Просьба предоставить код для удовлетворения ниже условий: Я хочу, чтобы код работал в обоих предыдущих версиях 2007 также и должны соответствовать ниже условиях:

, если данные, как показано ниже в первенствует:

Emp Name Emp id Empsal 

Jhon  1   

steve  2  2 

mike  3  3.5 

paul  4  0 

gabriel 5  0.00 

bush  6  null 

если я запустить макрос Данные должны быть преобразованы в ниже формат в столбце Empsal:

Emp Name Emp id Empsal 

Jhon  1  0 

steve  2  2 

mike  3  3.50 

paul  4  0 

gabriel 5  0.00 

bush  6  0 

Спасибо,

Chaitu

Answer 1

Я понимаю, что вы имели в виду вы хотите "0.00" вошли как числовое значение, но отформатирован, чтобы выглядеть как «0.00 «? В этом случае ...

.Cells(I, c).Value = 0 
.Cells(I, c).NumberFormat = "0.00" 

Answer 2

Ваш цикл:

 Do Until .Cells(I, c).Value <> "" And .Cells(I, c).Value <> 0 
     .Cells(I, c).Value = "0.00" 
     I = I + 1 
    Loop 

зацикливается, пока не найдет непустой/ненулевое значение, и оно безусловно устанавливает каждый нулевой ячейки до 0 здесь:

.Cells(I, c).Value = "0.00" 

(При общем формировании на новом рабочем столе это значение будет отображаться как 0, а не 0,00, если вы не загрузили рабочий лист или не изменили форматирование по умолчанию).

Если вы хотите установить только ненулевые значения, вам необходимо изменить условие предела цикла, которое не противоречит второму тесту с ненулевой/нулевой ячейкой. В этом цикле (это поиск не нуль), сделайте что-то самостоятельно, чтобы проверить каждую ячейку за нуль или нет. (например, если if/then/else устанавливает его значение).

Answer 3

я рекомендую использовать пользовательский формат чисел без использования VBA, например:

[=0]0;0.00 

или если вы хотите хорошие большие номера тоже:

[=0]0;[>=1000]# ### ###;0.00 

Answer 4

испытанный (БЫСТРЫЙ МЕТОД)

В этом коде используется условное форматирование. Единственный недостаток заключается в том, что этот код будет работать в Excel 2007 и далее: P Итак, если у вас есть Excel 2003, это не сработает.

Option Explicit 

Sub Sample() 
    Dim x As Long 
    Dim FinColumn As Range 

    For x = 1 To ActiveWorkbook.Sheets.Count 
     With ActiveWorkbook.Worksheets(x).Range("A1:Z30") 
      Set FinColumn = .Find(What:="price", AFter:=.Cells(1, 1), _ 
      LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ 
      SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 

      If Not FinColumn Is Nothing Then 
       With Worksheets(x).Columns(FinColumn.Column) 
        .NumberFormat = "General" 
        .FormatConditions.Delete 
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ 
        Formula1:="=0" 
        .FormatConditions(1).NumberFormat = "0.00" 
        .FormatConditions(1).StopIfTrue = True 
       End With 
      End If 
     End With 
    Next x 
End Sub 

Answer 5

Хорошо, я думаю, что знаю, что вы имеете в виду сейчас.Проблема заключается в том, что вы ввели невозможное Do Until заявления, потому что значение ячейки не может быть пустым AND 0 в то же время, так что ваш вероятно получать бесконечный цикл

Ниже, я просто заменил ваш AND с OR

Do Until .Cells(I, c).Value <> "" Or .Cells(I, c).Value <> 0 
    .Cells(I, c).Value = "0.00" 
    I = I + 1 
Loop 

Или, если это еще не покрывает его, а затем попробуйте использовать <> Empty, потому что Empty будет охватывать как 0 и «»

Do Until .Cells(I, c).Value <> Empty 
    .Cells(I, c).Value = "0.00" 
    I = I + 1 
Loop