簡體   English   中英

VBA Excel —根據單元格值插入符號

[英]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.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM