Question

VBA 输出到EXCEL单元格的问题

首先我是新手！看到我的问题你们可能觉得很简单，也可能认为我的问题问的有点不贴题！所以请回答我的问题写详细写，要不我看不懂！嘻嘻！
我在模块中输入了：
Sub UseFunction()
a = 0.78
Dim x As Double
Dim y As Double
Dim min As Double
Dim mx As Double
Dim my As Double
min = 2000
mx = 2000
my = 1
For x = 1 To 2000
For y = 1 To 2000
If Abs(x / y - a) < min Then
min = Abs(x / y - a)
mx = x
my = y
End If
Next
Next
mx = Range("A1")
my = Range("A2")
End Sub
目的是想让我的计算结果输出在A1和A2，但是没反映，我哪不对，请指点！

Answer 1

mx = Range("A1")
my = Range("A2")
这两句写反了，应该是Range("A1").value = mx Range("A2").value = my

Answer 2

把mx = Range("A1")
my = Range("A2")改成Range("A1") = mx
Range("A2") = my试试