0

こんにちは私のばかげた質問を考えてください、私は長い間ここで立ち往生しています

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

Cells(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

このコードをシート コード領域から実行していない場合は、cells オブジェクトを完全に修飾することを忘れないでください。例えば

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