Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel比较以查找数字的范围 你好,请考虑我的愚蠢问题,我很久以前就被困在这里了。_Excel_Vba - Fatal编程技术网

Excel比较以查找数字的范围 你好,请考虑我的愚蠢问题,我很久以前就被困在这里了。

Excel比较以查找数字的范围 你好,请考虑我的愚蠢问题,我很久以前就被困在这里了。,excel,vba,Excel,Vba,ElseIf Cells(m1,a)>=1和Cells(m1,a)您应该使用Cells(m1,a).value以及Cells(m1,a).value 下面的代码将在运行宏之前检查所选单元格的列表。对于每个单元格,如果它的值是[1..98],那么我将获取状态并切换它 Sub toggleBoldInSelection() Dim cellValue For Each curCell In Selection cellValue = curCell.Value

ElseIf Cells(m1,a)>=1和Cells(m1,a)您应该使用
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
Sub-toggleBoldInSelection()
暗淡细胞值
对于选择中的每个单元格
cellValue=curCell.Value
如果(cellValue>=1)和(cellValue),请尝试此操作

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

问题在于法国的编号系统:P
ThisWorkbook.Sheets("Sheet1").Cells(m1, a).Value