Question

您好请考虑我的愚蠢问题，我很久以来就被困在这里

ElseIf细胞（m1，a）> = 1和细胞（m1，a）＆lt; = 98然后

单元格（m1，a）.Font.Bold = True

这里只有没有小数点的值（例如4,56,90）等变为粗体，尽管在rqnge中，但小数点（4.5,56.5,90.54）的值不会被过滤。

请提出可能的问题

我认为问题出在法国编号系统上，因为数据来自法国。

谢谢

有没有办法考虑使用美国系统的不同编号系统.... ???

Answer 1

您应该使用Cells(m1,a).value以及Cells(m1,a).value

下面的代码将检查在运行宏之前选择的单元格列表。对于每个单元格，如果它的值是[1..98]，那么我接受状态并切换它。

Sub toggleBoldInSelection()
    Dim cellValue
    For Each curCell In Selection
        cellValue = curCell.Value
        If (cellValue >= 1) And (cellValue <= 98) Then
            curCell.Font.Bold = Not curCell.Font.Bold 'True
        End If
    Next curCell
End Sub

Answer 2

试试这个

ElseIf Val(Cells(m1, a).Value) >= 1 And Val(Cells(m1, a).Value) <= 98 Then

如果您没有从工作表代码区域运行此代码，请不要忘记完全限定单元格对象。例如

ThisWorkbook.Sheets("Sheet1").Cells(m1, a).Value

Excel比较以查找数字范围

2 个答案: