一道excel的vb题，求助

一个简单的VB操作EXCEL的问题~

Sheets(sheet1).Activate
改为
xlbook.Sheets(sheet1).Activate
如果还不行，请粘出其他相关代码才能分析

Dim appexcel As Object'定义应用程序（Excel）
Dim wbmybook As Object'定义工作簿
Dim wsmysheet As Object'定义工作表
Set appexcel = CreateObject("excel.application") '创建Excel应用程序对象
Set wbmybook = appexcel.workbooks.Open(app.path & "\1.xls") '添加工作簿,假设你的Excel文件放在程序所在的文件夹下，文件名为1.xls，当把文件拷到别的电脑上时，只要保证1.xls在同意文件夹下就行了
Set wsmysheet = appexcel.worksheets("sheet1")'假设你的工作表名称为sheet1
dim sum as double'定义存放结果的变量
sum=0
for i=1 to 10
sum=sum+wbmysheet.cells(i,1)
next i
'更多关于vb调用Excel的参数可以发一个电子书给你

e：随机生成1~4的随机数，决定加减乘除哪类运算

a、b产生20以内数

c、d产生10以内数

代码如下：

Dim a, b, c, d, e

Private Sub CommandButton1_Click()

e = Int((4 * Rnd) + 1)

a = Int((20 * Rnd) + 1)

b = Int((20 * Rnd) + 1)

c = Int((10 * Rnd) + 1)

d = Int((10 * Rnd) + 1)

Cells(4, 12).Value = ""

Cells(4, 13).Value = ""

Select Case e

Case 1

Cells(4, 11).Value = a & "+" & b & "="

Case 2

If a < b Then

Cells(4, 11).Value = b & "-" & a & "="

Else

Cells(4, 11).Value = a & "-" & b & "="

End If

Case 3

Cells(4, 11).Value = c & "×" & d & "="

Case 4

If c < d Then

Cells(4, 11).Value = d - (d Mod c) & "÷" & c & "="

Else

Cells(4, 11).Value = c - (c Mod d) & "÷" & d & "="

End If

End Select

End Sub

Private Sub CommandButton2_Click()

If Cells(4, 12) = "" Then

MsgBox ("请输入答案")

Else

Select Case e

Case 1

If Cells(4, 12).Value = a + b Then

Cells(4, 13).Value = "正确"

Else

Cells(4, 13).Value = "错误!"

End If

Case 2

If Cells(4, 12).Value = Abs(a - b) Then

Cells(4, 13).Value = "正确"

Else

Cells(4, 13).Value = "错误!"

End If

Case 3

If Cells(4, 12).Value = c * d Then

Cells(4, 13).Value = "正确"

Else

Cells(4, 13).Value = "错误!"

End If

Case 4

If c < d Then

If Cells(4, 12).Value = (d - (d Mod c)) / c Then

Cells(4, 13).Value = "正确"

Else

Cells(4, 13).Value = "错误!"

End If

Else

If Cells(4, 12).Value = (c - (c Mod d)) / d Then

Cells(4, 13).Value = "正确"

Else

Cells(4, 13).Value = "错误!"

End If

End If

End Select

End If

End Sub

这么简单的程序求助就没意思了。
随生，要用到随机数函数，生成一个随机数，如加法，那用20减这个随机数，比得到的数小的数均可(可在这区间再随机任选一个)。显示两个数相加。
如乘法，用10除以这个数并取整，然后1至这个整数的数都可取(如随机数是2，10/2=5,1至5的数与2乘都不大于10)
思路就这样了，自己去实现吧。
当然还有其他思路……

---

一道excel的vb题，求助视频