add two type mix font in one cell in excel 2003Solved/Closed

Question

hallo
i have a excel 2003 userform with textbox . I have problem in my data base . I have 2 type font in my data like DevLys 010 and arial. I want to type both font in textbox at same time and get it in sheets cell A41 . I try but I cant make it . I m new in excel vba could some one plese make it possible for me. thanks in advance. PLEASE HELP. THANKS

TrowaD · Accepted Answer

Sure thing.

Here you go:
Private Sub CommandButton1_Click()
Dim x, y, z As Integer

Range("A41").Font.Name = "Agency FB"
x = Len(TextBox1)
y = Len(TextBox1) + Len(TextBox2)
z = Len(TextBox3)
Range("A41") = TextBox1 & TextBox2 & TextBox3 & TextBox4
Range("A41").Characters(1, x).Font.Name = "Arial"
Range("A41").Characters(y, z).Font.Name = "Arial"

Unload UserForm1
End Sub
Best regards,
Trowa

TrowaD · Answer

Hi,

Not sure if I can solve this one. What could make it easier is if there are patterns to what you enter in the textbox.
Like:
Only 2 words are entered.
Specific lengths of words.
First or second word can only be a certain word.
...
etc..

Best regards,
Trowa

aptpsbwmraj · Answer

is there no one can solve my problem :(

TrowaD · Answer

Hi,

I think I got a nice solution.
Create an extra textbox.
Format A41 with the second font.
Determine length of the 1ste textbox.
Put both textboxes in A41.
Change the font of the determined length.

Here is the code I used to test my theory:
Dim x As Integer
Range("A41").Font.Name = "Agency FB"
x = Len(TextBox1)
Range("A41") = TextBox1 & TextBox2
Range("A41").Characters(1, x).Font.Name = "Arial"
Best regards,
Trowa

Add two type mix font in one cell in excel 2003

4 responses

Similar discussions

Subscribe To Our Newsletter!