UDF Bold Formula

Saya sadar jika tidak ada formula yang menghasilkan sebuah format, karena pada prinsipnya kita tidak bisa mengembalikan format pada sebuah function.

Sebuah Function membutuhkan Nilai dengan typedadata untuk mengembalikan hasil.

Walaupun begitu akhirnya saya memiliki ide gila untuk membuat UDF yang bisa menghasilkan kelihatannya sebuah format.

Pada UDF ini, yang saya lakukan adalah mengganti semua karakter dengan karakter Bold.

Untuk lebih detail dalam penjelasaanya silahkan lihat pada video dibawah ini.

User Defined Function untuk Excel Bold Formula, Scriptnya bisa ditulis seperti dibawah ini. Simpanlah script dibawah ini dalam sebuah standard module.

'-----------------------------------------
' Sctipt VBA    : Bold Formula
' Author        : Andi Setiadi - https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------
Function BOLD(txt As String) As String
Dim X() As Byte
Dim Y() As Long
Dim Temp As String
Dim WF As WorksheetFunction

Set WF = WorksheetFunction
X = StrConv(txt, vbFromUnicode)
ReDim Y(UBound(X))

For i = 0 To UBound(X)
    Select Case X(i)
    Case 48 To 57  'Number 0-9
        Y(i) = X(i) + 120734
        Temp = Temp & WF.Unichar(Y(i))
    Case 65 To 90   'A-Z
        Y(i) = X(i) + 120211
        Temp = Temp & WF.Unichar(Y(i))
    Case 97 To 122   'a-z
        Y(i) = X(i) + 120205
        Temp = Temp & WF.Unichar(Y(i))
    Case Else
        Temp = Temp & Chr(X(i))
    End Select
Next
BOLD = Temp
End Function
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search