将Excel中的公式改写为VBA的方法详解

Excel中公式如何改写成VBA

设定表名为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

excel公式转VBA代码

你的公式的逻辑关系有点问题

你看下是不是这样的意思

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中文网其他相关文章！