设定表名为sheet1,其中A列为国名,B列为相应的编号(根据实际情况自行修改)。
为了帮助尚未过关的玩家,我们可以使用以下宏来解决难题。只需创建并执行此宏,即可达成目标。
Sub aaaa()
Dim Target As Range
Do
i = i + 1
为了帮助那些还没有通过关卡的玩家,让我们一起来了解一下具体的解谜方法吧。在代码中,我们使用了“Sheet1.Range("A" & i).Text”来获取单元格A中的文本内容。这个方法可以帮助我们获取需要的信息,然后进行相应的操作。希望这个提示能够对大家有所帮助!
Select Case aaa
Case "中国"
Sheet1.Range("B" & i) = 2
Case "美国"
Sheet1.Range("B" & i) = 1
Case "日本"
Sheet1.Range("B" & i) = 0
End Select
Loop While aaa ""
End Sub
你的公式的逻辑关系有点问题
你看下是不是这样的意思
Sub test()Dim i&, n, n1
For i = 1 To 5
If Cells(i, "D") * Pi / 180 >= 0 Then
If Cos(Cells(i, "B") * Pi / 180 - Cells(i, "I") * Pi / 180) < 0 Then
n = True
Else
n = False
End If
If Cos(Cells(i, "B") * Pi / 180 - Cells(i, "I") * Pi / 180) > 0 Then
n1 = True
Else
n1 = False
End If
If n1 = True And n = True Then k = "-1" Else k = "1"
Else
k = "1"
End If
Cells(i, "A") = k
Next i
End Sub
以上是将Excel中的公式改写为VBA的方法详解的详细内容。更多信息请关注PHP中文网其他相关文章!