2012-10-05 42 views
0

您好,请考虑我的傻问题的范围,我很长时间以来被困在这里Excel的比较发现数

elseif的细胞(M1,A)> = 1,细胞(M1,A)< = 98然后

细胞(M1,一个).Font.Bold =真

这里只不带小数点的值(例如,4,56,90)等越来越粗体,重视与小数点(4.5,56.5 ,90.54),尽管在rqnge没有得到过滤。

请建议可能出现的问题

我认为这个问题是与法国编号系统作为数据来是来自法国。

谢谢

有什么办法来考虑不同的编号系统,与美国的系统.... ???

回答

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 
1

试试这个

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

如果您没有运行从片码区这个代码,那么不要忘记完全限定细胞对象。例如

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

OK谢谢主席先生 它为我:) –

+0

的问题是与法国编号系统:P –

+0

高兴它帮助:-) –