1、下载

下载地址 URL：http://rubyforge.org/frs/?group_id=904  最新的版本是 InstantRails-1.7-win.zip 

2、安装

Instant Rails 的安装非常简单，解压缩到你想要的文件夹就可以了。

3、使用

运行 .\InstantRails\ 目录下的InstantRails.exe。第一次运行会出现一些问题，比如说“80端口冲突”、“更变文件夹”……（忘记截图了 -_-! ）不同的机器的问题可能会不同，根据警告提示，一般问题都会解决。重新启动后进入正常状态。

4、测试

环境配置完成，我们可以了解一下在 .\\nstantRails\rails_apps\ 目录下自带的两个实例：cookbook （留言板） 和 typo-2.6.0（blog）。单击左侧的“I”-> Rails Applications -> Manage Rails applications 打开界面选中左侧 Rails Applications 列表中的项目（可以多选）以后，点击 start with Mongrel 弹出命令行窗口，当显示“Use CTRL+C to Stop”，就可以在IE中运行实例了。

在 IE 输入URL：http://127.0.0.1:3002（注意端口选择），就可以看到页面了

完成这个过程大概需要10几分钟。

补充一下，这样构建好的ROR开发环境，只能在存在Ruby文件夹下进行工作，这样就存在了很大的局限性。我们可以在path里面添加的一个指向Ruby and Rails 的路径，来方便我们的程序开发。

补充说明：如何修改path

在“我的电脑”->“属性”->“高级”->环境变量->系统变量。找到path并编辑，在后面加入Ruby的路径

1编写VBA代码，随机生成0到50之间的100个数字，放到一个sheet中；

Sub RndNumber()

  Dim RndNumber, TempArray(99), i As Integer, a As Integer

 

  Randomize (Timer)

 

  For i = 0 To 50

      TempArray(i) = i

  Next i

  For i = 99 To 0 Step -1

     RndNumber = Int(i * Rnd)

     Cells(100 - i, 1) = TempArray(RndNumber) + 1

     TempArray(RndNumber) = TempArray(i)

  Next i

End Sub

2.编写VBA代码，将上面生成的数据中隔行抽取出来，分别放到另外两个sheet中；Public Sub Rowscopy()

Dim nRows As Long

  Dim i As Long

  With Worksheets("sheet1")

                  nRows = .UsedRange.Rows.count

                  For i = nRows To 2 Step -1

                          If i Mod 2 = Odd Then

  Workbooks("luojing.xls").Sheets("sheet1").Rows(i).copy Workbooks("luojing.xls").Sheets("sheet2").Cells(i / 2, 1)

                          End If

                  Next

          End With

End Sub

3. .只用excel公式统计100个数字中等于30的个数

Public Sub count()

Dim a     As Range

 Dim nRows As Long

 Set a = Sheet1.Range("A1:A100")

  Dim i As Long

  Dim j As Long

  With Worksheets("sheet1")

                  nRows = .UsedRange.Rows.count

                  For i = nRows To 1 Step -1

                          If a.Cells(i, 1).Value = 30 Then

                  j = j + 1

                          End If

                  Next

  End With

         

   Sheets("sheet3").Cells(2, 1).Value = j

 

End Sub