Правильный выбор случая в Excel

Question

У меня есть код, который должен преобразовать текст в правильный случай, но он не работает. я начинаю пометив клетки, которые я хочу переделанный, а затем запустить этот макрос:

Sub ProperCase() 

Dim rng As Range, cell As Range 

Set rng = Selection 

For Each cell In rng 

Next cell 

cell.Value = WorksheetFunction.Proper(cell.Value) 

End Sub 

Но Excel дает мне runtimer ошибку 91

переменной объекта или переменная блока не установлен

Answer 1

Ваш код перезапишет формулу - сообщите ей, чтобы игнорировать формулу.
Вместо того, чтобы использовать WorksheetFunction.Proper использование StrConv(value, conversion_type).

Sub ProperCase() 

    Dim rng As Range 

    'Use special cells so as not to overwrite formula. 
    For Each rng In Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Cells 
     Select Case StrConv(rng.Value, vbLowerCase) 
      'Ensure all exception words are lower case. 
      Case "bob", "word2", "dave", "some other words" 
       rng.Value = StrConv(rng.Value, vbLowerCase) 
      Case Else 
       'StrConv is the VBA version of Proper. 
       rng.Value = StrConv(rng.Value, vbProperCase) 
     End Select 
    Next rng 

End Sub 

Edit: Добавлено SELECT...CASE исключить слова в соответствии с комментарием.

Answer 2

cell.value должны прийти до вы итерации в следующую ячейку:

Sub ProperCase() 

    Dim rng As Range, cell As Range 

    Set rng = Selection 

    For Each cell In rng 
     cell.Value = WorksheetFunction.Proper(cell.Value) 
    Next cell 


End Sub