TITLECASE() işlevi, mevcut metni başlık case'ye dönüştürmek için tasarlanmıştır ve şu biçimde bir kelime kümesi döndürür: "Başlık Case içinFunction".
Title Case işlev kodu, tire ve alt çizgi gibi ayırıcıları boşluklarla değiştirir, tüm sözcükleri büyük harfe ve bağlaçları küçük harfe dönüştürür.
Title Case haber başlıklarında, site makalesi başlıklarında veya YouTube video başlıklarında büyük/küçük harf düzeltmeleri için yararlı olabilir.
TITLECASE(), bağlaçların büyük harfle yazılmaması dışında standart PROPER() işlevine benzer.
Metni LibreOffice Calc'de başlıklar (Title Case) olarak görüntüleyebilen özel bir işlev oluşturmaya yönelik makro kodu burada verilmiştir.
Tools - Macros - Edit Macros... menüsünü açın, Module1'yi seçin ve aşağıdaki metni modüle kopyalayın:
Function TitleCase(ByVal str As String) As String
'moonexcel.com.ua
Dim words As Variant
Dim FCalc As Object
FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
oddWordsLat = "A|An|And|As|At|But|By|En|For|If|In|Is|Of|On|Or|The|To|Vs|Via"
oddWordsCyr = "І|Як|На|Але|Для|Якщо|В|Чи|До|Через|Та|Від|Під|Над|И|Как|Но|То|Или|От|Под|К"
words = Split(oddWordsLat + "|" + oddWordsCyr,"|")
str = FCalc.callFunction("PROPER", Array(str))
For i = LBound(words) To UBound(words)
pattern = "(?!^)\b" + words(i) + "\b"
replacement = LCase(words(i))
str = FCalc.callFunction("REGEX", Array(str,pattern,replacement,"g"))
Next i
TitleCase = str
End Function
Daha sonra Macro Editor'u kapatın, LibreOffice Calc'ye dönün ve yeni fonksiyonumuzu herhangi bir hücrede kullanın.
"Uzantısını ayarlayarak TITLECASE() işlevini de kullanabilirsiniz" YouLibreCalc.oxt ". Bundan sonra LibreOffice Calc'de açılacak tüm dosyalarda bu fonksiyon mevcut olacaktır.