I created a list box and I display a lsit of name (variable in length) and followed by some numeric expressions.
Ideally I would like to format the output. The routine below is rough draft.
I measure the length of the name using the Len(dummy) function.
However I am displaying my data in Arial -> and idealy I would like to change it to courier.
I am using a listbox from the Toolbars Forms menu.
Any ideas to solve the formating dilema are welcome.
Cheers
For i = 1 To j
dummy = Sheets("3d rotate").Cells(10999 + i, 1)
If Len(dummy) = 3 Then
spacer1 = " "
End If
If Len(dummy) = 4 Then
spacer1 = " "
End If
If Len(dummy) = 5 Then
spacer1 = " "
End If
If Len(dummy) = 6 Then
spacer1 = " "
End If
If Len(dummy) = 7 Then
spacer1 = " "
End If
If Len(dummy) = 8 Then
spacer1 = " "
End If
msg = MsgBox("dummy: " & dummy & " lange " & Len(dummy))
Sheets("3d rotate").Cells(999 + i, 1) = Sheets("3d rotate").Cells(10999 + i, 1) & spacer1 & Round(Sheets("3d rotate").Cells(10999 + i, 2), 0) & " %" & " CV: " & Round(Sheets("3d rotate").Cells(10999 + i, 4), 0) & " %"
Sheets("3d rotate").Cells(1999 + i, 1 + Selected_Drug) = Sheets("3d rotate").Cells(10999 + i, 3)
Next
Ideally I would like to format the output. The routine below is rough draft.
I measure the length of the name using the Len(dummy) function.
However I am displaying my data in Arial -> and idealy I would like to change it to courier.
I am using a listbox from the Toolbars Forms menu.
Any ideas to solve the formating dilema are welcome.
Cheers
For i = 1 To j
dummy = Sheets("3d rotate").Cells(10999 + i, 1)
If Len(dummy) = 3 Then
spacer1 = " "
End If
If Len(dummy) = 4 Then
spacer1 = " "
End If
If Len(dummy) = 5 Then
spacer1 = " "
End If
If Len(dummy) = 6 Then
spacer1 = " "
End If
If Len(dummy) = 7 Then
spacer1 = " "
End If
If Len(dummy) = 8 Then
spacer1 = " "
End If
msg = MsgBox("dummy: " & dummy & " lange " & Len(dummy))
Sheets("3d rotate").Cells(999 + i, 1) = Sheets("3d rotate").Cells(10999 + i, 1) & spacer1 & Round(Sheets("3d rotate").Cells(10999 + i, 2), 0) & " %" & " CV: " & Round(Sheets("3d rotate").Cells(10999 + i, 4), 0) & " %"
Sheets("3d rotate").Cells(1999 + i, 1 + Selected_Drug) = Sheets("3d rotate").Cells(10999 + i, 3)
Next