I don't have any experience with what you describe, but you can select the
cell in question and run this code and it might give you some insight into
what you have: (the output goes to a new sheet).
Sub ExamineActiveCell()
Set Sh = ActiveSheet
Set sh1 = Worksheets.Add(After:=Worksheets(Worksheets.Count))
Sh.Activate
For i = 1 To Len(ActiveCell)
sh1.Range("A1:L1").Value = _
Array("Char", "Code", _
"Name", "FontStyle", "Size", "Strikethrough", _
"Superscript", "Subscript", "OutlineFont", "Shadow", _
"Underline", "ColorIndex")
With ActiveCell.Characters(Start:=i, Length:=1)
sh1.Cells(i + 1, 1) = .Text
sh1.Cells(i + 1, 2) = AscW(.Text)
With .Font
sh1.Cells(i + 1, 3) = .Name
sh1.Cells(i + 1, 4) = .FontStyle
sh1.Cells(i + 1, 5) = .Size
sh1.Cells(i + 1, 6) = .Strikethrough
sh1.Cells(i + 1, 7) = .Superscript
sh1.Cells(i + 1, 8) = .Subscript
sh1.Cells(i + 1, 9) = .OutlineFont
sh1.Cells(i + 1, 10) = .Shadow
sh1.Cells(i + 1, 11) = .Underline
sh1.Cells(i + 1, 12) = .ColorIndex
End With
End With
Next
End Sub
--
Regards,
Tom Ogilvy
"xcelion" <[email protected]> wrote in
message news:[email protected]...
>
> Hi All,
>
> I need a help in wittting a fucntion. I want to write a function to
> parse the contents in cells which has both english character set and
> korean character set.I need to seperate the english character set and i
> have to enclose some delmiter between the korean character set.How can
> identfy where the korean character set starts ?
>
> Thanks in advance
> Xcelion
>
>
> --
> xcelion
> ------------------------------------------------------------------------
> xcelion's Profile:
http://www.excelforum.com/member.php...o&userid=16287
> View this thread: http://www.excelforum.com/showthread...hreadid=399376
>
Bookmarks