sách gpt4 ai đã đi

Vòng lặp VBA để thay đổi giá trị ô (dương/âm) và màu phông chữ dựa trên các ô liền kề

In lại 作者:行者123 更新时间:2023-12-02 16:34:38 30 4
mua khóa gpt4 Nike

我对 VBA 非常陌生,无法理解如何在一个循环中完成 2 个任务。我非常感谢您的帮助。

我已经能够根据第 3 列中的数据更改第 2 列中的数值,但我不明白如何将负值的字体更改为红色。

表格的大小每月都会根据每月的天数而变化(如果这很重要的话)。谢谢!

Dim AQRng As Range, Cel As Range, p_AQend As Object
Set p_AQend = Range("AQ2").End(xlDown)
Set AQRng = Range("AQ2", p_AQend)

For Each Cel In AQRng
If Cel.Value <> 0 Then
If Cel.Offset(0, 1).Text = "Negative" Then
Cel.Value = Abs(Cel.Value) * -1
ElseIf Cel.Offset(0, 1) <> "Negative" Then
Cel.Value = Abs(Cel.Value)
End If
End If
Next Cel

nhập mô tả hình ảnh ở đây

1 Câu trả lời

Hãy thử cách này:

Sub Test()
Dim rng As Range, cl As Range

Set rng = Range("AQ2:QA" & Range("A2").End(xlDown).Row)

For Each cl In rng
If cl.Value <> 0 Then
If cl.Offset(0, 1) = "Negative" Then
cl = Abs(cl) * -1
cl.Font.Color = vbRed
Else
cl = Abs(cl)
End If
End If
Next cl
End Sub

关于VBA 循环根据相邻单元格更改单元格值(正/负)和字体颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50878281/

30 4 0
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com