vba code for unicode

[gsrikanth]

Below vba code to highlight non-unicode cells, as it make non-unicode to unicode also please suggest
<CODE>
Sub Dimitris2()
Dim cell As Range, weird As Boolean, cnt&
cnt = 0
For Each cell In ActiveSheet.UsedRange
weird = False
If Not IsError(cell) Then
If Len(cell) > 0 Then
Select Case Evaluate("=trim(code(" & cell.Address & "))")
Case 63 ' question mark
weird = True
Case 10 ' new line
weird = True
End Select
If weird Then
cell.Interior.Color = RGB(250, 250, 5)
cnt = cnt + 1
End If
End If
End If
Next
MsgBox cnt & " cells were highlighted."
End Sub
</code>

 

[gsrikanth]

Below vba code to highlight non-unicode cells, as it make non-unicode to unicode also please suggest
<code><code>
Sub Dimitris2()
Dim cell As Range, weird As Boolean, cnt&
cnt = 0
For Each cell In ActiveSheet.UsedRange
weird = False
If Not IsError(cell) Then
If Len(cell) > 0 Then
Select Case Evaluate("=trim(code(" & cell.Address & "))")
Case 63 ' question mark
weird = True
Case 10 ' new line
weird = True
End Select
If weird Then
cell.Interior.Color = RGB(250, 250, 5)
cnt = cnt + 1
End If
End If
End If
Next
MsgBox cnt & " cells were highlighted."
End Sub</code>
</code>


<code>
this సత్యనారాయణ
code to ‹¬`Ǽ<Œ~Œ†Ç°}›

system under standing code
</code>

 

[Fennek]

Hello,

I don't understand your code.

Maybe this gives you a inspiration: given a text in cells(1,1)

function IsUnicode(rng as range) as boolean
dim By() as Byte
By = rng.value
for i = 1 to ubound(By) step 2
    if By(i) <> 0 then IsUnicode = true : exit sub
next
end function

regards

(written out of memory, mistakes are likely)

 

[gsrikanth]

this code for changing complete word or single character in the cell
and also error comming Exit sub not allowed in fuction or property