<em>excel</em> 中<em>VBA</em>单元格引用问题-

在你使用的sheet的SelectionChange事件抄中写入以袭下代码即可

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer, j As Integer, k As Integer, a As Single

i = Target.Row: j = Target.Column

a = Cells(i, j)

For k = 1 To 100

   Cells(i + k, j) = a + Rnd * 100 + 1  '(Rnd * 100 + 1)其实就是（Rnd * (100-1+1) + 1）

Next

End Sub

楼上的百循环度了100次，我也就问循环100次算了。截图中我用的sheet3

有问答题可以hi我

ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!$A$" & m & ":$A$" & n

试试看吧！
你的代码?

举例：Excel2007

1. 打开vba编辑器

   依次单击Office按钮，然后选择“Excel选项”：

2. 单击“常用e5a48de588b6e799bee5baa6e79fa5e98193362”，然后勾选“在功能区显示‘开发工具’选项卡”，然后单击“确定”：

3. 依次单击“开发工具，Visual Basic”后，即可打开VBA编辑器：

4. 使用Vba编辑器

   
   

5. 右击需要插入代码的表，如，本文要达成的目标是单击一个按钮，然后实现对B列3-11单元格的成绩进行等级评定。假设要实现目标的数据位置在Sheet1上，则右击Sheet1，依次单击“插入，模块”，即可打开代码输入框：

6. 在打开的代码编辑框里面粘贴如下方的代码，然后直接单击VBA编辑器右上角的关闭按钮：

   Sub 评定等级()

       Dim i As Integer

       For i = 3 To 11

           t = Sheets(1).Cells(i, 2).Value   '取得成绩

           If t >= 90 Then

               j = "A"

           ElseIf t >= 80 Then

              j = "B"

           ElseIf t >= 70 Then

               j = "C"

          ElseIf t >= 60 Then

               j = "D"

           Else

               j = "E"

           End If

           Sheets(1).Cells(i, 3) = j

       Next

7. End Sub

8. 依次单击“开发工具，插入，按钮”：

9. 在合适的位置直接左键拖出一个按钮，在弹出的“指定宏”对话框里面选择“评定等级”，然后单击“确定”：

10. 单击刚添加的按钮“按钮1”：

11. 按下按钮之后，即可在C列对应的表格里面显示成绩等级，如下：