2012-10-05 38 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

高興它幫助:-) –