这种网页导航是怎么做出来的-excel导航,excel 漂亮的导航页面

打开要创建目录e799bee5baa6e58685e5aeb9332的EXCEL文件--------Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中

Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range

ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待！"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub

关闭BASIA的界面

在你要插入的电子表格里按ALT+F8

选好你刚才写的模块mulu

点执行

--------OK

新建一个百HTML元素

　　度var myTr = document.createElement("tr");

　　给知myTr添加属性 myTr.width = "50%";

　　给myTr添加样道式 myTr.style.backgroundColor = "red";
　　然后改一下内myTr.onclick=function(){}事件名就可容以了。

1.举例来说，工作不中包含一个“登陆界面”表百和若干个其他工作表。

2.选择【插入】-【形状】。

3.选择一个圆角的矩形。

4.选中插入的矩形，选择如下图的右下角下拉按钮位度置。

5.选择一个喜欢的样式，并确定。

6.修改完后，插入的矩形效果如下图所示。

7.选中插入的图问形，鼠标右键，选择【编辑文字】。

8.输入“库存表”并调整适答当的字体和文字大小。

9.选中图形，鼠标右键，选择【超链接】。

10.设置超链接为“库存表”的A1单元内格。

11.这样，点击该图形就会跳转到“库存表”。

12.同样，可以增加一个箭头，设置超链接到“登陆界面”的A1单元格。

13.如果有容多个表，可以复制图形，然后修改文本和超链接即可。