Excel Comparaison pour trouver la gamme de nombre

Question

Bonjour S'il vous plaît considérer ma question idiote, je suis coincé ici depuis longtemps

cellules ElseIf (m1, a)> = 1 et les cellules (m1, a) < = 98 puis

cellules (m1, a) .Font.Bold = True

ici que les valeurs sans point décimal (par exemple. 4,56,90) etc deviennent gras, les valeurs avec virgule (4.5,56.5 , 90.54) malgré être dans le rqnge ne sont pas filtrés.

S'il vous plaît suggérer problème possible

Je pense que le problème est avec le système de numérotation français que les données à venir est de la France.

Merci

Est-il possible d'envisager différents système de numérotation, avec le système américain .... ???

Answer 1

Vous devez utiliser Cells(m1,a).value ainsi que Cells(m1,a).value

Le code ci-dessous examinera la liste des cellules sont sélectionnées avant la macro est exécutée. Pour chaque cellule, si sa valeur est [1..98] alors je prends l'état et je le bascule.

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

Essayez cette

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

Si vous n'êtes pas en cours d'exécution de ce code de la zone de code de feuille alors ne pas oublier de qualifier complètement les cellules objet. Par exemple

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