excel超链接到指定单元格(excel超链接到指定单元格 变色)

1. excel超链接到指定单元格 变色

Excel能设置鼠标点哪里在那一行一列就变颜色，

第一种：手动设置

首先按Ctrl+A全选整个表格 - 开始 - 条件格式 - 新建规则 - 使用公式确定设置格式的单元格 - 在方框输入公式：=OR(CELL("row")=ROW(),CELL("col")=COLUMN()) - 格式 -填充颜色 - 确定 – 确定 - 点击单元格的时候按F9 - 十字光标定位就制作好了。

第二种：安装Excel 插件

下载一个Excel 插件工具——方方格子，安装完成后，单击方方格子 - 视 - 聚光灯就可以啦。

2. excel超链接到指定单元格填充颜色

1、选中要设置需要上色的区域，以下图为例。

2、在”开始“中找到”条件格式“，下拉菜单有“”新建规则“excel版本不同，”条件格式“在的位置不同找到”条件格式“即可。

3、点击”新建规则“，然后选中”使用公式确定要设置格式的单元格“。

4、，然后输R入公式=$D1="男"。

5、然后找到下方的“格式”设置。

6、在“填充颜色”中选取颜色。

7、点击“确认”就可以看到设置好的格式。

8、看到设置的“格式”后再点击确认。

9、这时就可以看到写有“男”字的整行都自动填充颜色了。注意：字可以提前写好，也可设置之后在写，会出现同样的效果。

3. excel超链接到指定单元格vb

VB操作EXCEL

全面控制 Excel

首先创建 Excel 对象，使用ComObj:

Dim ExcelID as Excel.Application

Set ExcelID as new Excel.Application

1) 显示当前窗口：

ExcelID.Visible := True;

2) 更改 Excel 标题栏：

ExcelID.Caption := \'应用程序调用 Microsoft Excel\';

3) 添加新工作簿：

ExcelID.WorkBooks.Add;

4) 打开已存在的工作簿：

ExcelID.WorkBooks.Open( \'C:\\Excel\\Demo.xls\' );

5) 设置第2个工作表为活动工作表：

ExcelID.WorkSheets[2].Activate;

或 ExcelID.WorkSheets[ \'Sheet2\' ].Activate;

6) 给单元格赋值：

ExcelID.Cells[1,4].Value := \'第一行第四列\';

7) 设置指定列的宽度（单位：字符个数），以第一列为例：

ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9) 在第8行之前插入分页符：

ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;

参考代码：ActiveSheet.HPageBreaks(1).Location = Range("A22")

10) 在第8列之前删除分页符：

ExcelID.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度：

ExcelID.ActiveSheet.Range[ \'B3:D4\' ].Borders[2].Weight := 3;

1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / )

12) 清除第一行第四列单元格公式：

ExcelID.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性：

ExcelID.ActiveSheet.Rows[1].Font.Name := \'隶书\';

ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;

ExcelID.ActiveSheet.Rows[1].Font.Bold := True;

ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置：

a.页眉：

ExcelID.ActiveSheet.PageSetup.CenterHeader := \'报表演示\';

b.页脚：

ExcelID.ActiveSheet.PageSetup.CenterFooter := \'第&P页\';

c.页眉到顶端边距2cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

d.页脚到底端边距3cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;

e.顶边距2cm：

ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底边距2cm：

ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;

g.左边距2cm：

ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右边距2cm：

ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.页面水平居中：

ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;

j.页面垂直居中：

ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;

k.打印单元格网线：

ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷贝操作：

a.拷贝整个工作表：

ExcelID.ActiveSheet.Used.Range.Copy;

b.拷贝指定区域：

ExcelID.ActiveSheet.Range[ \'A1:E2\' ].Copy;

c.从A1位置开始粘贴：

ExcelID.ActiveSheet.Range.[ \'A1\' ].PasteSpecial;

d.从文件尾部开始粘贴：

ExcelID.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Insert;

b. ExcelID.ActiveSheet.Columns[1].Insert;

17) 删除一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Delete;

b. ExcelID.ActiveSheet.Columns[1].Delete;

18) 打印预览工作表：

ExcelID.ActiveSheet.PrintPreview;

19) 打印输出工作表：

ExcelID.ActiveSheet.PrintOut;

20) 工作表保存：

If not ExcelID.ActiveWorkBook.Saved then

ExcelID.ActiveSheet.PrintPreview

End if

21) 工作表另存为：

ExcelID.SaveAs( \'C:\\Excel\\Demo1.xls\' );

22) 放弃存盘：

ExcelID.ActiveWorkBook.Saved := True;

23) 关闭工作簿：

ExcelID.WorkBooks.Close;

24) 退出 Excel：

ExcelID.Quit;

25) 设置工作表密码:

ExcelID.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True

26) EXCEL的显示方式为最大化

ExcelID.Application.WindowState = xlMaximized

27) 工作薄显示方式为最大化

ExcelID.ActiveWindow.WindowState = xlMaximized

28) 设置打开默认工作薄数量

ExcelID.SheetsInNewWorkbook = 3

29) \'关闭时是否提示保存(true 保存；false 不保存)

ExcelID.DisplayAlerts = False

30) 设置拆分窗口,及固定行位置

ExcelID.ActiveWindow.SplitRow = 1

ExcelID.ActiveWindow.FreezePanes = True

31) 设置打印时固定打印内容

ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"

32) 设置打印标题

ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ""

33) 设置显示方式(分页方式显示)

ExcelID.ActiveWindow.View = xlPageBreakPreview

34) 设置显示比例

ExcelID.ActiveWindow.Zoom = 100

35) 让Excel 响应 DDE 请求

Ex.Application.IgnoreRemoteRequests = False

用VB操作EXCEL

Private Sub Command3_Click()

On Error GoTo err1

Dim i As Long

Dim j As Long

Dim objExl As Excel.Application \'声明对象变量

Me.MousePointer = 11 \'改变鼠标样式

Set objExl = New Excel.Application \'初始化对象变量

objExl.SheetsInNewWorkbook = 1 \'将新建的工作薄数量设为1

objExl.Workbooks.Add \'增加一个工作薄

objExl.Sheets(objExl.Sheets.Count).Name = "book1" \'修改工作薄名称

objExl.Sheets.Add , objExl.Sheets("book1") ‘增加第二个工作薄在第一个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book2"

objExl.Sheets.Add , objExl.Sheets("book2") ‘增加第三个工作薄在第二个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book3"

objExl.Sheets("book1").Select \'选中工作薄<book1>

For i = 1 To 50 \'循环写入数据

For j = 1 To 5

If i = 1 Then

objExl.Selection.NumberFormatLocal = "@" \'设置格式为文本

objExl.Cells(i, j) = " E " & i & j

Else

objExl.Cells(i, j) = i & j

End If

Next

Next

objExl.Rows("1:1").Select \'选中第一行

objExl.Selection.Font.Bold = True \'设为粗体

objExl.Selection.Font.Size = 24 \'设置字体大小

objExl.Cells.EntireColumn.AutoFit \'自动调整列宽

objExl.ActiveWindow.SplitRow = 1 \'拆分第一行

objExl.ActiveWindow. SplitColumn = 0 \'拆分列

objExl.ActiveWindow.FreezePanes = True \'固定拆分 objExl.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" \'设置打印固定行

objExl.ActiveSheet.PageSetup.PrintTitleColumns = "" \'打印标题 objExl.ActiveSheet.PageSetup.RightFooter = "打印时间: " & _

Format(Now, "yyyy年mm月dd日 hh:MM:ss")

objExl.ActiveWindow.View = xlPageBreakPreview \'设置显示方式

objExl.ActiveWindow.Zoom = 100 \'设置显示大小

objExl.ActiveSheet.PageSetup.Orientation = xlLandscape ‘设置打印方向(横向)

\'给工作表加密码

objExl.ActiveSheet.Protect "123", DrawingObjects:=True, _

Contents:=True, Scenarios:=True

objExl.Application.IgnoreRemoteRequests = False

objExl.Visible = True \'使EXCEL可见

objExl.Application.WindowState = xlMaximized \'EXCEL的显示方式为最大化

objExl.ActiveWindow.WindowState = xlMaximized \'工作薄显示方式为最大化

objExl.SheetsInNewWorkbook = 3 \'将默认新工作薄数量改回3个

Set objExl = Nothing \'清除对象

Me.MousePointer = 0 \'修改鼠标

Exit Sub

err1:

objExl.SheetsInNewWorkbook = 3

objExl.DisplayAlerts = False \'关闭时不提示保存

objExl.Quit \'关闭EXCEL

objExl.DisplayAlerts = True \'关闭时提示保存

Set objExl = Nothing

Me.MousePointer = 0

End Sub

4. excel如何超链接到指定单元格

可以使用以下步骤完成： 1、对表格进行筛选操作，按要指定条件的列筛选，筛选出符合条件的数据。

2、选中筛选结果区域。3、按F5或CTRL+G快捷键，调出定位对话框。4、点击定位条件，选择可见单元格，单击确定。5、这时再进行复制操作即可。6、在EXCEL中，要对筛选结果进行其他操作，都可以使用此方法，先对筛选结果选中。

5. excel中怎么超链接到单元格

第一步,首先打开电脑,然后点击Excel文档进入。

第二步,然后打开想要链接的文件所在位置。

第三步,用鼠标选中D盘中复习资料,同时按住shift+鼠标右键,选择“复制为路径”。

第四步,按“ctrl+V”粘贴在表格中,并在B列输入序列号。

第五步，然后在C2单元格中输入链接公式“=hyperlink（A1，B1）”，回车得到超链接，点击即可进入超链接，下拉填充公式得到其他超链接，即可。

6. excel根据单元格建立超链接

批量超链接方法如下：1.预先设置好超链接的路径：

2.输入公式如下：

3.下拉填充：

4.这样超链接就建立好了，点击即可打开：

7. excel超链接到指定单元格的数值吗

选择你要的文件后，在超级链接地址后面加"#页数"。我这里没PDF，所以无法验证，但对于excel超链接到word/ppt用这个方法是可行的。你试试看。

8. excel单元格设置超链接

excel设置超链接至其他单元格步骤：

　　①选中A1单元格，单击菜单栏上的“插入”，选择“超链接”命令(你也可以直接使用Excel快捷键：Ctrl + K 来实现);

　　②在弹出的“插入超链接”窗口中的“链接到”中选择“本文档中的位置”，然后在“请键入单元格引用”中输入“A61”，最后确定即可。

　　此时已经设置OK了，我们单击A1单元格1，就会直接跳转到当前工作表的A61单元格。