我需要给我的excel表格写一个比较简单的VBA.求助各种大神!

Question

如图....当我点击按钮"模拟一千次的时候"
自动复制 强化满级需要次数右边的单元格 到次数里.
自动复制 强化满级需要金额右边的单元格 到金额里.

EXCEL F9可以刷新.,理论上每次粘贴复制也会刷新一次的.
我的152次 和134900 是 浮动的...是模拟出来的..

Answer 1

Public hang As Integer

Sub Button2_Click()

  

  Dim i As Integer

  Dim k As Single

  Dim h As Single

  

Dim response As String

    response = MsgBox("从头开始？", vbYesNo + vbDefaultButton2, "重置位置")

   If response = vbYes Then

       hang = 0

      Else

      hang = hang + 1

   End If

    i = ActiveCell.Row

    j = ActiveCell.Column

  

  With ActiveSheet

   k = .Cells(8, 4)

   h = .Cells(9, 4)

        .Cells(i + hang, j) = k

     .Cells(i + hang, j + 1) = h

     

  End With

   'ActiveSheet.Refresh

   'ActiveShee

End Sub

Answer 2

在"模拟一千次的时候"按钮的Click中输入:
Private Sub CommandButton1_Click()
For i = 1 To 1000
If Cells(i + 7, 2) = "" And Cells(i + 7, 3) = "" Then
Cells(i + 7, 2) = Range("C4")
Cells(i + 7, 3) = Range("C5")
Exit For
End If
Next i
End Sub
每次点击按钮就会把强化满级后面的次数和金额填到空白的单元格里追问

貌似不太行啊~~

追答

你是完成不会VBA的编写吗?
把 Private Sub CommandButton1_Click() 这一行删除就可以了
只要 For 语句到 Next 语句 间的程序就OK了

本回答被提问者采纳

Answer 3

sub add_more()
r=8
more:
if len(cells(r,2)) = 0 then
cells(r,2) = cells(4,3)
cells(r,3) = cells(4,4)
goto ende
end if
if len(cells(r,2)) >0 then
r=r+1
goto more
end if
ende:
end sub追问

这个VBA 每次点击只复制一次...我想按1次 直接复制1000次.
另外坐标也不太对.
152次 = C34
134900 = C35

追答

我不知你要做什么。自己把宏修改吧。不要什么也坐享其成吧。如果这么容易的修改你都不能做，便好好努力去学吧。

追问

的确尝试学过了..但是久久无法入门...你的R是什么是行号吗?

追答

请到我网页看看 qq 1493239545。如果你有心学，请你作个自我介绍，如果你我有缘，你可以成为我的学生。你的介绍要详细，绝对不是：「我是某校第几年级学生」。这样的介绍毫无意义,毫无诚意。对不起，你另请高明吧。