0

你好请考虑我的愚蠢问题，我被困在这里很久了

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

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

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

请提出可能的问题

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

谢谢

有什么办法可以考虑不同的编号系统，与美国系统....？？？

4

2 回答 2

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
于 2012-10-05T10:18:18.097 回答
1

尝试这个

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

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

ThisWorkbook.Sheets("Sheet1").Cells(m1, a).Value
于 2012-10-05T10:26:36.530 回答