NEED A FUNCTION oppersite from PROPER

[vi3tboiz15]

NEED A FUNCTION oppersite from PROPER
<hr style="color: rgb(235, 235, 235); background-color: rgb(235, 235, 235);" size="1"> I need help!!! I want to do do the completely opposite of the function PROPER

A1 = HI MY NAME IS TOM

=PROPER(A1) --> Hi My Name Is Tom

I need a function that can Inverse this into --> hI mY nAME iS tOM

Example

A1 = AGJKHELKJHKLWSDJFK

I need a function that can do

A1 = aGJKHELKJHKLWSDJFK

 

[Kenneth Hobson]

Welcome to the forum!

Sub Test_IMProper()
  Dim s As String
  s = "HI MY NAME IS TOM"
  [A1] = s
  [A1] = IMProper(s)
End Sub

'=IMProper(A1)
Function IMProper(aString As String) As String
  Dim i As Integer, s As String, ss As String
  aString = WorksheetFunction.Proper(aString)
  For i = 1 To Len(aString)
    s = Mid(aString, i, 1)
    If LCase(s) = s Then
      s = UCase(s)
      Else: s = LCase(s)
    End If
    ss = ss & s
  Next i
  IMProper = ss
End Function

 

[tweedle]

Sub Test_IMProper()

There was really no other choice, now was there

 

[Oaktree]

Welcome to the board!

If you have the morefunc add-in, you could do something like:

=MCONCAT(IF(EXACT(MID(PROPER(A1),ROW(INDIRECT("1:"&LEN(B1))),1),UPPER(MID(PROPER(A1),ROW(INDIRECT("1:"&LEN(B1))),1))),LOWER(MID(PROPER(A1),ROW(INDIRECT("1:"&LEN(B1))),1)),UPPER(MID(PROPER(A1),ROW(INDIRECT("1:"&LEN(B1))),1))))

confirmed with CTRL+SHIFT+ENTER

 

[Scott Huish]

Function IMPROPER(r As String) As String
Dim t, x As Long
t = Split(r)
For x = LBound(t) To UBound(t)
    t(x) = LCase(Left(t(x), 1)) & UCase(Mid(t(x), 2))
Next x
IMPROPER = Join(t)
End Function