爲(wèi)單元格裡的各箇文字設(shè)置不衕的字體和顔色（甚至可以隱藏部分?jǐn)?shù)據(jù)而實(shí)現(xiàn)加密保密數(shù)據(jù)的功能）

  Dim strText As String
  Dim intLen As Integer
  Dim i As Integer
  Dim strResult As String
  Dim intTimes As Integer
  Dim intPos As Integer
  Dim strConfuseCode As String
  Dim strPos As String  ' 0,3,5,8
  Dim varPos As Variant
  Dim intStart As Integer
  Dim intCellStart As Integer
  strPos = "3,5"
  varPos = Split(strPos, ",")
  strText = Range("G2").Text
 
  intStart = 1
  For i = 0 To UBound(varPos)
    intPos = varPos(i)
    If intPos = 0 Then
       strConfuseCode = getRndChar(5)
       intLen = Len(strConfuseCode)
       Range("H2") = Range("H2") & strConfuseCode
    Else
       intCellStart = Len(Range("H2").Text) + 1
       Range("H2").Value = Range("H2").Value & Mid(strText, intStart, intPos - intStart + 1)
      
       Range("H2").Characters(intCellStart, intPos - intStart + 1).Font.Size = 11
       Range("H2").Characters(intCellStart, intPos - intStart + 1).Font.Color = vbBlack
      
       intStart = intPos + 1
       intCellStart = Len(Range("H2").Text) + 1
       strConfuseCode = getRndChar(5)
       intLen = Len(strConfuseCode)
       Range("H2").Value = Range("H2").Value & strConfuseCode
       Range("H2").Characters(intCellStart, intLen).Font.Size = 1
       Range("H2").Characters(intCellStart, intLen).Font.Color = vbWhite
      
    End If
  Next
  intStart = intPos + 1
  intCellStart = Len(Range("H2").Text) + 1
  Range("H2").Value = Range("H2").Value & Mid(strText, intStart)  '隻要一賦值，就會(huì)清除裡麵爲(wèi)?yīng)毩?nèi)容設(shè)置字體的格式。所以必鬚 先一次性設(shè)置好value,再設(shè)置格式
  Range("H2").Characters(intCellStart, Len(Range("H2").Text) - intStart + 1).Font.Size = 11
       Range("H2").Characters(intCellStart, Len(Range("H2").Text) - intStart + 1).Font.Color = vbBlack

可以實(shí)現(xiàn) 可以隱藏部分?jǐn)?shù)據(jù)而實(shí)現(xiàn)加密保密數(shù)據(jù)的功能

也可實(shí)現(xiàn) 爲(wèi)現(xiàn)有數(shù)據(jù)加上混淆碼 或榦擾碼，達(dá)到避免被人直接複製數(shù)據(jù)的效果。卽直接複製數(shù)據(jù)中會(huì)有榦擾碼。但顯示正常