zozzz,
Seems this may be the same or related issue to your post in 2017. If you want focused responses, then you have to provide information to help readers understand your requirement. I do note that all of your posts on this forum lack details.
My earlier comments and micron's post 16 signals that we are not mind readers nor clairvoyant. It's your issue, forum members are trying to help. But having to guess what the issue may be; having to ask you for more info repeatedly, asking and not receiving a sample showing current input and desired output is not conducive to a meaningful, timely solution nor dialog. There may be many reasons for your hesitancy, but you have offered little.
There are some on the forum who may seem clairvoyant. Perhaps one will read your thread and provide a solution.
Nice spot @orange
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba
Nooooooooo Spammmmmmmmm PLZ
this is for Word to word not Letter to word
If you don't know Did not answer
this function can only convert one letter. What should we do To convert all letters in the text box??
Code:Public Function fcnConvert(txt As String) As String Dim m As String For t = 1 To Len(txt) Select Case Mid(txt, t, 1) Case "A": m = "Aa" Case "B": m = "Bb" Case "C": m = "Cc" Case "D": m = "Dd" End Select Next fcnConvert = m End Function
Try
Result of fcnConvert2 ("ABC") is AaBbCcCode:Public Function fcnConvert2(txt As String) As String Dim i As Integer, intAsc As Integer, n As Integer i = 1 n = Len(txt) Do Until i >= n + 1 'get ascii integer value for letter represented by i intAsc = Asc(Mid(txt, i, 1)) If intAsc > 64 And intAsc < 91 Then 'if i between A (65) and Z (90) inclusive... 'Replace letter with i+32 which is from a (96) to z (122) txt = Replace(txt, Chr(intAsc), Chr(intAsc) & Chr(intAsc + 32)) 'Len of txt is now a larger number so recalculate it n = Len(txt) 'next capital letter is now shifted by 1 so shift by 2, not by 1 i = i + 2 End If Loop fcnConvert2 = txt End Function
The more we hear silence, the more we begin to think about our value in this universe.
Paraphrase of Professor Brian Cox.