有没有办法将数字的值更改为VBA中的文本

Question

我正在尝试根据分数将数字更改为“p”或“f”。

不知道如何添加图片，所以这里是一个链接

https://drive.google.com/file/d/1dKn9mkJa9brZXq2tHz8_ULkgreWsBkTI/view?usp=sharing

我已经从字符串中删除了 % 符号，但我现在需要根据分数更改数字。 >=70 到 'p'，69 和更低到 'f'

Sub PassOrFail()


Dim myValue As String

myValue = ThisWorkbook.ActiveSheet.Range("testScore").Value

myValue = Replace(myValue, "%", "")



MsgBox myValue


End Sub

期望它显示 Skim: p, MP: f

Answer 1

这是你需要的吗？

if cInt(myValue) >=70 then
  myValue="p"
elseif cInt(myValue><69 then
   myValue="f"
end if

谢谢

Answer 2

虽然不是最优雅的解决方案，但它可以根据给定的细节工作：

Sub PassOrFail()

Dim myValue As String, strResult As String
Dim arrResults

myValue = ThisWorkbook.ActiveSheet.Range("testScore").Value

'Split the value
arrResults = Split(Replace(myValue, "%", ""), ";") 'This would create a 3 column array, due to the initial ";"

    'Skim
    If Replace(arrResults(1), "Skim: ", "") >= 70 Then
        strResult = "Skim: p"
    Else
        strResult = "Skim: f"
    End If

    'MP
    If Replace(arrResults(2), "MP: ", "") >= 70 Then
        strResult = strResult + ", MP: p"
    Else
        strResult = strResult + ", MP: f"
    End If

    'Result
    MsgBox strResult

End Sub

Answer 3

试试下面的代码：

Sub PassOrFail()

Dim myValue As String
myValue = ThisWorkbook.ActiveSheet.Range("testScore").Value

'String manipulation starts here
'1. Get the pattern position
Dim skim_pos As Integer, mp_pos As Integer
skim_pos = InStr(myValue, "Skim: ")
mp_pos = InStr(myValue, ";MP: ")

'2. Get the skim score
Dim skim As String
skim = Replace(Mid(myValue, skim_pos + 6, mp_pos - (skim_pos + 6)), "%", "")

'3. Get the MP
Dim mp As String
mp = Replace(Mid(myValue, mp_pos + 5, Len(myValue) - (my_pos + 5)), "%", "")

If CInt(skim) >= 70 Then
    skim = "p"
Else
    skim = "f"
End If

If CInt(mp) >= 70 Then
    mp = "p"
Else
    mp = "f"
End If

MsgBox "Skim: " & skim & ", MP: " & mp


End Sub

Answer 4

不是基于“Skim”或“MP”而是基于 %-sign 的解决方案：

Sub tst()
Dim mystring As String, y As Variant, i As Long
    mystring = ThisWorkbook.ActiveSheet.Range("testScore")
    y = Split(mystring, " ")
        For i = 1 To UBound(y)
            If InStr(y(i), "%") > 0 Then
                If Val(Split(Split(y(i), " ")(0), "%")(0)) < 70 Then
                    mystring = Replace(mystring, Split(Split(y(i), " ")(0), "%")(0) & "%", "f")
                Else
                    mystring = Replace(mystring, Split(Split(y(i), " ")(0), "%")(0) & "%", "p")
                End If
            End If
        Next i
MsgBox mystring
End Sub