UC知道急~!!一个关于vba编程的问题(在线等)
来源：百度知道 编辑：UC知道 时间：2024/05/23 15:47:47
我是一个在国外的vba的初学者 并且后天就要考试.
有个 老师给的练习题.
在excel中有个表格 在第一列有10个数 .
24
34
550
-34
4
-45
10
-18
44
29
老师的要求是 要用vba编一个程序 大概的意思我翻译过来就是
要求弹出inputbox 然后输入一个数.在给出的数中,如果是正数就与输入的数相乘,结果显示在该数后面的格子 ,如果是负数就与输入的数相加，结果显示在后面。 应该怎么编阿~
各位高手帮帮忙啊~~
有热心的人 愿意帮我 加我qq155309192
有个 老师给的练习题.
在excel中有个表格 在第一列有10个数 .
24
34
550
-34
4
-45
10
-18
44
29
老师的要求是 要用vba编一个程序 大概的意思我翻译过来就是
要求弹出inputbox 然后输入一个数.在给出的数中,如果是正数就与输入的数相乘,结果显示在该数后面的格子 ,如果是负数就与输入的数相加，结果显示在后面。 应该怎么编阿~
各位高手帮帮忙啊~~
有热心的人 愿意帮我 加我qq155309192
他说的不是第一列吗，为什么要写第10列那？而且他说的是列中小于0的要加，而不是输入的数小于0的要加啊！！
Private Sub CommandButton2_Click()
Dim a
a = InputBox("请输入数据！")
dim str
For i = 0 To 9
str= Cells(i, 10)
if str>0 then
Cells(i, 1)=str * a
else
Cells(i, 1)=str + a
endif
Next i
End Sub
Private Sub CommandButton1_Click()
dim a
a = InputBox("请输入数据！")
for i = 1 to 10
if cint(range("A" & i )) > 0 then
range("B" & i) = cint("A" & i) * cint(a)
else
range("B" & i) = cint("A" & i) + Cint(a)
endif
next i
End Sub
Private Sub CommandButton2_Click()
Dim a
a = InputBox("请输入数据！")
If a > 0 Then
For i = 1 To 10
Cells(i, 11) = Cells(i, 10) * a
Next i
ElseIf a < 0 Then<