Finding an underlined character among several characters in a cell
I have several characters in a cell, for example "7432". I chose text format
so that I could underline one of the characters, for example the "3". How do I find out programmatically that the 3 is the character that is underlined? Assume that the value is in Cells(2,1). I know a loop is involved and I don't have too much trouble programming but I don't see something that will tell me the format of a specific character. Here's some code I started: Function FindUnderline(ByVal MyNumber) Dim l_length As Integer l_length = Len(Cells(2, 1)) Dim l_Position As Integer Dim l_String As String For l_Position = 1 To l_length l_String = Mid(Cells(2, 1), l_Position, 1) Next l_Position End Function Thanks for you help |
Finding an underlined character among several characters in acell
Try this one:
Sub ExtractUnderlined() Dim sUnder As String Dim i As Integer Dim n As Integer n = Len(ActiveCell.Text) If n 0 Then For i = 1 To n If ActiveCell.Characters(i, 1).Font.Underline _ < xlUnderlineStyleNone Then sUnder = sUnder & ActiveCell.Characters(i, 1).Text End If Next End If If Len(sUnder) 0 Then MsgBox "Characters " & sUnder & " in the active cell are underlined", _ vbInformation, "Underlined Characters" End If End Sub You can't just examine the string, because that's just the text. You need to examine the characters in the cell. - Jon ------- Jon Peltier, Microsoft Excel MVP Peltier Technical Services Tutorials and Custom Solutions http://PeltierTech.com/ _______ jquiet wrote: I have several characters in a cell, for example "7432". I chose text format so that I could underline one of the characters, for example the "3". How do I find out programmatically that the 3 is the character that is underlined? Assume that the value is in Cells(2,1). I know a loop is involved and I don't have too much trouble programming but I don't see something that will tell me the format of a specific character. Here's some code I started: Function FindUnderline(ByVal MyNumber) Dim l_length As Integer l_length = Len(Cells(2, 1)) Dim l_Position As Integer Dim l_String As String For l_Position = 1 To l_length l_String = Mid(Cells(2, 1), l_Position, 1) Next l_Position End Function Thanks for you help |
All times are GMT +1. The time now is 01:24 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com