Question

Excel 可否用VBA解决最短路径问题

Answer 1

举例：Excel2007

• 打开vba编辑器

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

  

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

  

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

  

• 使用Vba编辑器

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

  

• 在打开的代码编辑框里面粘贴如下方的代码，然后直接单击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

• End Sub

  

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

  

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

  

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

  

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

  

Answer 2

当然可以！