[حل شده] راهنمای در مورد کد اسکی

[میثم مقدم نیا]

سلام
چطور ميتونم كد زير را براي كليد آبي رنگ تعريف كنم كه كد اسكي ChrW را در يوزر فرم دوم نمايش دهد مانند كليد آبي رنگ همانند تصوير پيوست شده

Function PrintChrW(x As String) As String

For iCounter = 1 To Len(x)
    tmp = Mid(x, iCounter, 1)
        For i = 1 To 2000
            If tmp = ChrW(i) Then
                PrintChrW = PrintChrW & " chrw(" & i & ") &"
                Exit For
            End If
        Next i
Next iCounter
PrintChrW = Left(PrintChrW, Len(PrintChrW) - 2)

End Function 

ممنون ميشم اگه راهنماييم كنيد

اگه نمونه هم باشه كه عالي ميشه

[میثم مقدم نیا]

سلام
چطور ميتونم كد زير را براي كليد آبي رنگ تعريف كنم كه كد اسكي ChrW را در يوزر فرم دوم نمايش دهد مانند كليد آبي رنگ همانند تصوير پيوست شده
[ATTACH=CONFIG]20000[/ATTACH]

Function PrintChrW(x As String) As String

For iCounter = 1 To Len(x)
    tmp = Mid(x, iCounter, 1)
        For i = 1 To 2000
            If tmp = ChrW(i) Then
                PrintChrW = PrintChrW & " chrw(" & i & ") &"
                Exit For
            End If
        Next i
Next iCounter
PrintChrW = Left(PrintChrW, Len(PrintChrW) - 2)

End Function 

ممنون ميشم اگه راهنماييم كنيد

اگه نمونه هم باشه كه عالي ميشه

سلام اساتید عزیز کسی نبود کمک کنه
یا روز جمعه ای دوستان در مرخصی هستند

[M_ExceL]

سلام،
برای chrw می تونید از کد و فایل زیر استفاده کنید که بنده قبلا اونو برای خودم نوشتم :

Private Sub CommandButton1_Click()
Dim R() As Variant
Dim i, d, p As Long
Dim rs As String
    p = 0
    Application.ScreenUpdating = False
    For i = 1 To Len(Me.TextBox1.Text)
        For d = 1 To 2000
          If Mid(Me.TextBox1.Text, i, 1) = ChrW(d) Then
              p = p + 1
              ReDim Preserve R(1 To p) As Variant
              R(p) = "chrw(" & d & ")"
              Exit For
          End If
        Next
    Next
    Application.ScreenUpdating = True
rs = Join(R, " & ")
UserForm2.TextBox1.Text = rs
UserForm2.Show
End Sub

یا حق.

[Amir Ghasemiyan]

سلام دوست عزيز
فايلي قبلا درست كردم شايد بدردتون بخوره

https://forum.exceliran.com/showthread.php/3858