如何修改为区域范围？谢谢

dzsrmyh

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = True
    myStr = Sheet1.Range("A2,A6,A13").Value    '如何修改为区域范围如V2:V
    For i = 1 To Len(myStr)
        wd = Mid(myStr, i, 1)
        If Asc(wd) > 47 And Asc(wd) < 58 Then
            With Sheet1.Range("A2,A6,A13").Characters(i, 1).Font    '如何修改为区域范围如V2:V
                .Color = 1
                .Size = 16
                .Name = "Arial"
            End With
        ElseIf (Asc(wd) > 64 And Asc(wd) < 91) Or (Asc(wd) > 96 And Asc(wd) < 123) Then
            With Sheet1.Range("A2,A6,A13").Characters(i, 1).Font    '如何修改为区域范围如V2:V
                .Color = 1
                .Size = 17
                .Name = "Arial"
            End With
        Else
            With Sheet1.Range("A2,A6,A13").Characters(i, 1).Font    '如何修改为区域范围如V2:V
                .Color = 1
                .Size = 19
                .Name = "华文楷体"
            End With
        End If
    Next
    Application.ScreenUpdating = False
End Sub

WANT-T

直接改，祝工作顺利，天天开心

dzsrmyh

WANT-T 发表于 2023-2-24 17:28
直接改，祝工作顺利，天天开心

你好，如果直接改的话，报错

lq-1600

'如何修改为区域范围如V2:V
V2:V 不是范围，也不知道你要的范围是多少，V2:V100 不知道够吗，不够自己加。
在代码中需要把范围分成2段或2段以上，我改成V2，V3:V100。这样代码可以运行。

"A2,A6,A13" 改成 "V2,V3:V100"

dzsrmyh

lq-1600 发表于 2023-2-24 21:39
'如何修改为区域范围如V2:V
V2:V 不是范围，也不知道你要的范围是多少，V2:V100 不知道够吗，不够自己加 ...

上面的图片就是我改为A2：A130，可for i = 1 to len(mystr)报错呀

lq-1600

dzsrmyh 发表于 2023-2-24 21:51
上面的图片就是我改为A2：A130，可for i = 1 to len(mystr)报错呀

你没有读完评论，范围需要分2个，或2个以上，注意中间有个逗号，而且4个位置的"A2,A6,A13" 都要改。
"A2,A6,A13" 改成 "V2,V3:V130"