[求助]请问Characters如何使用

stljsh

bb.Cells(p + 5, 1).Characters(1, 9).Font.ColorIndex = 2

我想将前9个字符改成白色字体，可是结果是整个单元格都变白色字体了

bigriverhors

你使用“录制新宏”就可以看到怎么做了，

不单要有变颜色的代码，还要有不变颜色的代码，如下：

Sub Macro1()
'
' Macro1 Macro
' 宏由 Me 录制，时间: 2007-5-5
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "asfsafdasd"
    With ActiveCell.Characters(Start:=1, Length:=2).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=3, Length:=5).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
    With ActiveCell.Characters(Start:=8, Length:=3).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C10").Select
End Sub

stljsh

不是的，是我把语句放到了循环里，结果多执行了几次，不知道为什么就出错了，不过当我把这一句拿到循环外面后就好了

bb.Cells(p + 5, 1).Characters(1, 9).Font.ColorIndex = 2 这个2就是白色了

winland

你的循环是怎么写的？

stljsh

Sub 生成卡片()
  Dim a As Range, dr As Range
  Set dd = Sheets("需要打印的清单")
  Set bb = Sheets("卡片")
  lr = dd.[a65536].End(xlUp).Row
  Set dr = Range(dd.Cells(2, 1), dd.Cells(lr, 1))
  p = 1
  For Each a In dr
    With a
     If Cells(p, 1) = Empty Then
         For i = 2 To 5
          bb.Cells(p, 1) = " "
          bb.Cells(p + i - 1, 1) = "_________" & .Offset(0, i - 1).Value
          bb.Cells(p + 5, 1) = "_________" & .Value

          '原来我那语句放这里了
         Next i
     ElseIf Cells(p, 3) = Empty Then
         For i = 1 To 4
          bb.Cells(p, 3) = " "
          bb.Cells(p + i, 3) = "_________" & .Offset(0, i).Value
          bb.Cells(p + 5, 3) = "_________" & .Value
         Next i
     Else
         p = p + 7
         For i = 2 To 5
          bb.Cells(p, 1) = " "
          bb.Cells(p + i - 1, 1) = "_________" & .Offset(0, i - 1).Value
          bb.Cells(p + 5, 1) = "_________" & .Value
         Next i
     End If
    End With
  Next
  lr2 = bb.[a65536].End(xlUp).Row
  For j = 1 To 3 Step 2
      For i = 2 To lr2
          If Len(bb.Cells(i, j)) > 9 Then
            bb.Cells(i, j).Characters(1, 9).Font.ColorIndex = 2
            bb.Cells(i, j).WrapText = False
          Else
          End If
      Next i
  Next j
End Sub

这个版本是已经修改好的了，呵呵

zds95108228

用什么方法可以表示在单元中用鼠标选中的characters的字符串???如在[A1]的值为123456,在[a1]中双击后选中34(随机选的,可能不同),34用可用vba中什么对象的什么方法或属性表示??

linyancheng

Characters(x,x).Caption
即是值。

ning84

1.         Set TxtRng = Txt.TextRange
   
2.         With TxtRng
   
3.                  For ii = 1 To .Length Step 3
   
4.                     Debug.Print ii, .Characters(ii, 2)
   
5.                     .Characters(ii, 2).Font.Color = -16776961
   
6.                  Next ii
   
7.         End With
   
8.         Stop

复制代码