[英]VBA Excel — Insert symbol based on cell value
我需要使用完全陌生的Excel。 我正在尋找一種VBA解決方案以加快日常工作。 這是我的情況:我需要檢查C列具有負,正和神經網絡值的單元格,然后將sysmbols插入到B列的相應單元格中。
例如,如果C4具有正值(2,345),則B4應使用&u&作為符號。 如果C5具有負值(-12.98),則B5應該以&d&作為符號。 並且,如果C6的網絡值為(0.000),則應以&n&作為符號插入B6 。
空的B列已經存在,並且值都在C列中。
正如Kyle所說,您所需要做的就是一個簡單的(嵌套的)if公式:
=IF(C1<0;"&d&";IF(C1>0;"&u&";"&n&"))
格式非常簡單,if包含三個由分號分隔的部分。 第一個是邏輯測試,您要測試的內容,在這種情況下,如果C1中的值小於(或大於)0,第二個是您想要的單元格中的值(如果測試中的語句為true),並且如果是假的,最后要輸入什么。
在這種情況下,我們再次測試C1是否不小於0,以查看其是否大於零,這就是為什么第一個內部有另一個if語句的原因。
要將公式應用於整個列,只需將其整個復制下來,它所引用的單元格將自動更新。
試試看:
Sub WhatEver()
Dim C As Range
Set C = Intersect(ActiveSheet.UsedRange, Range("C:C"))
For Each cc In C
ccv = cc.Value
If ccv <> "" Then
If ccv = 0 Then
cc.Offset(0, -1).Value = "&n&"
ElseIf ccv > 0 Then
cc.Offset(0, -1).Value = "&u&"
Else
cc.Offset(0, -1).Value = "&d&"
End If
End If
Next cc
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.