通過更改字符屏蔽Excel宏數據ASCII

Question

我正在通過添加字符的ASCII來處理數據屏蔽工具，但是一旦達到最大ASCII數字，它就會發生錯誤。

如果已經達到最大ASCII碼，是否有任何方法可以防止或忽略添加ASCII碼？

我的Excel代碼

Sub DataMask() 
Dim rngCell As Range 
Dim intChar As Integer 
Dim strCheckString As String 
Dim strCheckChar As String 
Dim intCheckChar As Integer 
Dim strClean As String 

For Each rngCell In Selection 
    strCheckString = rngCell.Value 
    strClean = "" 
    intChar = 1 
    If strCheckString <> "" Then 
     For intChar = 1 To Len(strCheckString) 
      strCheckChar = Mid(strCheckString, intChar, 1) 
      intCheckChar = Asc(strCheckChar) + 68 
      strClean = strClean & Chr(intCheckChar) 
     Next intChar 
     rngCell.Value = strClean 
    End If 
Next rngCell 
End Sub 

Answer 1

你可以包括這樣的一段代碼： -

 If intCheckChar <= 255 Then 
      newCheckChar = Chr(intCheckChar) 
     Else 
      newCheckChar = strCheckChar 
     End If 
     strClean = strClean & newCheckChar 

更換

 strClean = strClean & Chr(intCheckChar) 

因此，如果新的角色有一個代碼更它只是使用舊字符而不是255。

這是整個子和幾個調試語句： -

sub DataMask() 
Dim rngCell As Range 
Dim intChar As Integer 
Dim strCheckString As String 
Dim strCheckChar As String 
Dim intCheckChar As Integer 
Dim strClean As String 
Dim newCheckChar As String 


For Each rngCell In Selection 
    strCheckString = rngCell.Value 
    strClean = "" 
    intChar = 1 
    If strCheckString <> "" Then 
     For intChar = 1 To Len(strCheckString) 
      strCheckChar = Mid(strCheckString, intChar, 1) 
      intCheckChar = Asc(strCheckChar) + 68 
      ' New code 
      If intCheckChar <= 255 Then 
       newCheckChar = Chr(intCheckChar) 
      Else 
       newCheckChar = strCheckChar 
      End If 
      strClean = strClean & newCheckChar 
      Debug.Print ("intChar=" & intChar) 
      Debug.Print ("intCheckChar=" & intCheckChar) 
      ' end of code 
     Next intChar 
     rngCell.Value = strClean 
    End If 
Next rngCell 
End Sub