Сначала установите следующие пользовательские функции в стандартном модуле:
Public Function Properize(s As String) As String
Dim temp As String, i As Long, L As Long, U As Long
ary = Split(UCase(s), " ")
U = UBound(ary)
L = LBound(ary)
With Application.WorksheetFunction
For i = L To U
If IsRoman(ary(i)) Then
Else
ary(i) = .Proper(ary(i))
End If
Next i
End With
Properize = Join(ary, " ")
End Function
Public Function IsRoman(s As Variant) As Boolean
Dim i As Long, L As Long
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If InStr(1, "IVXLCDM", Mid(s, i, 1)) = 0 Then
IsRoman = False
Exit Function
End If
Next i
IsRoman = True
End Function
Затем с текстом в ячейке A1, B1 введите:
=Properize(A1)
Функции будут "в верхнем регистре" римскими цифрами и словами, которые "похожи" на римские цифры (например, CCCCCCCCCCCCCCCCCCCCCCCCCCCC)
Пользовательские функции (UDF) очень просты в установке и использовании:
- ALT-F11 открывает окно VBE
- ALT-I ALT-M открывает новый модуль
- вставьте материал и закройте окно VBE
Если вы сохраните книгу, UDF будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить UDF:
- откройте окно VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы использовать UDF из Excel:
= MyFunction (А1)
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
а подробности о UDF смотрите в:
http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx
Макросы должны быть включены, чтобы это работало!