以下试题来自：
单项选择题在同一个工作簿中要引用其他工作表某个单元格的数据（如Sheet8中D8单元格中的数据），下面的表达方式中正确的是（）。
A、=Sheet8!D8
B、=D8（Sheet8）
C、+Sheet8!D8
D、$Sheet8&$D8
为您推荐的考试题库
您可能感兴趣的试卷
你可能感兴趣的试题
B、有且仅有一个
C、可以有一个以上
D、至少有一个
A、单元格地址
C、工作表名称
D、工作簿名称
A、等比序列
B、等差序列
C、数字序列
D、小数序列帮朋友来写个Excel VBA
以前写过ASP，所以对vb略微熟悉，但VBA 没有仔细研究过。
以前只研究过 vba 写一个 计算个人所得税的程序。
这次写的功能也算是简单，但也耗费了两天的功夫。
1 从【操作】表中，查找最后一行的数据，每一列 都为关键字
2 遍历这些关键字，从【总表】中查询这个关键字，把这一行后面的内容复制到 【预算】表中去
3 把【操作】中制定内容复制到【信息统计】中
Function Get操作NullLine()
'从 操作表 获取最后一个有数据下面的空行 row 序号
Get操作NullLine = GetNullLine("操作", "A", 2)
End Function
Function Get预算NullLine()
'从 预算表 获取最后一个有数据下面的空行 row 序号
Get预算NullLine = GetNullLine("预算", "A", 5)
End Function
Function Get信息统计NullLine()
Get信息统计NullLine = GetNullLine("信息统计", "A", 2)
End Function
Function GetNullLine(excelTable As String, fromCell As String, beginRow As Integer)
'从 excelTable表 获取[fromCell单元格开始的]最后一个无数据的空行 row 序号
'设置开始的行
Dim line: line = beginRow
'选择Excel工作簿
Worksheets(excelTable).Select
For Each c In Worksheets(excelTable).Range(fromCell & beginRow & ":" & fromCell & "999").Cells
If c.Value && "" Then
'With c.Font
.Bold = True
.Italic = True
'''''''''MsgBox c.Value'查看当前是什么数据
'找到了空行则返回
GetNullLine = line
Exit Function
line = line + 1
End Function
Sub CreateNewOrderID()
' CreateNewOrderID 宏
' 创建单号
Sheets("操作").Select
Range("Q1:U1").Select
'单元格格式为文本即可
Selection.NumberFormatLocal = "@"
'设置单元格内容为 订单号，规则= 日期
ActiveCell.FormulaR1C1 = Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now()) & Second(Now())
'遍历 操作表 中的一行序号，每一个序号都进行 DealSelectData（str） 处理，失败，则提示
Function DealRowDatas(n As Integer) As Boolean
DealRowDatas = False
If n & 0 Then MsgBox "错误的参数 n=-1": Exit Function '判断传参错误
If Not DealSelectData(Worksheets("操作").Range("A" & n).Value) Then MsgBox "处理这行数据错误:【" & "A" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("B" & n).Value) Then MsgBox "处理这行数据错误:【" & "B" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("C" & n).Value) Then MsgBox "处理这行数据错误:【" & "C" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("D" & n).Value) Then MsgBox "处理这行数据错误:【" & "D" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("E" & n).Value) Then MsgBox "处理这行数据错误:【" & "E" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("F" & n).Value) Then MsgBox "处理这行数据错误:【" & "F" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("G" & n).Value) Then MsgBox "处理这行数据错误:【" & "G" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("H" & n).Value) Then MsgBox "处理这行数据错误:【" & "H" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("I" & n).Value) Then MsgBox "处理这行数据错误:【" & "I" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("J" & n).Value) Then MsgBox "处理这行数据错误:【" & "J" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("K" & n).Value) Then MsgBox "处理这行数据错误:【" & "K" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("L" & n).Value) Then MsgBox "处理这行数据错误:【" & "L" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("M" & n).Value) Then MsgBox "处理这行数据错误:【" & "M" & n & "】": Exit Function
If Not DealSelectData(Worksheets("操作").Range("N" & n).Value) Then MsgBox "处理这行数据错误:【" & "N" & n & "】": Exit Function
DealRowDatas = True
End Function
'根据一个字符串 比如 DM9 从总表 查询并拷贝到 预算表 中去
Function DealSelectData(str As String) As Boolean
DealSelectData = False
'MsgBox "从总表中查询[" & str & "]并且添加到 预算表 中去"
'str= 'Range("A3").Select
'str= 'ActiveCell.FormulaR1C1 = "DM9"
Sheets("总表").Select
Dim findObj As Range
Set findObj = Cells.Find(What:=str, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False)
findObj.Activate
findObj.Select
'MsgBox findObj.Column
Dim findRow As Integer: findRow = findObj.Row
辅材:元/单位
人工:元/单位
金额（元）
工艺做法及材料说明
'拷贝以上列数据 在总表中 B-H 列的数据
Range("B" & findRow & ":H" & findRow).Select
Selection.Copy
Sheets("预算").Select
'从预算表中第几行开始粘贴
Dim targetRow: targetRow = Get预算NullLine()
Range("A" & targetRow).Select
ActiveSheet.Paste
Sheets("操作").Select
DealSelectData = True
End Function
Sub Copy操作To信息统计(fromStr As String, toStr As String)
'从一个单元格拷贝到另一个单元格
Sheets("操作").Select
Range(fromStr).Select
'MsgBox ActiveCell.Value'测试单元格是什么值
'ActiveCell.FormulaR1C1 = "9"
ActiveCell.Copy
'Selection.Copy
Sheets("信息统计").Select
Range(toStr).Select
'ActiveSheet.Paste'此粘贴包含了格式，不好用！！！！！
'只粘贴值，不粘贴格式
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'0 【增加到预算按钮】把操作表 最后一行的每一列的类似 DM9 这样的数据，从总表查询出来，拷贝到预算中去
Sub 增加到预算()
Application.ScreenUpdating = False
Call CreateNewOrderID
If Not DealRowDatas(Get操作NullLine() - 1) Then: MsgBox "增加到预算 失败！有错误，请联系管理员 ": Application.ScreenUpdating = True: Exit Sub
Sheets("预算").Select
Application.ScreenUpdating = True
' 1 【保存到信息统计中】
Sub 保存到信息统计()
Application.ScreenUpdating = False
Dim emptyLineNo: emptyLineNo = Get信息统计NullLine()
Call Copy操作To信息统计("Q1:U1", "A" & emptyLineNo)
Call Copy操作To信息统计("Q6:U6", "B" & emptyLineNo)
Call Copy操作To信息统计("Q2:U2", "C" & emptyLineNo)
Call Copy操作To信息统计("Q3:U3", "D" & emptyLineNo)
Call Copy操作To信息统计("Q4:U4", "E" & emptyLineNo)
Call Copy操作To信息统计("Q5:U5", "F" & emptyLineNo)
Sheets("操作").Select
Application.CutCopyMode = False
Sheets("信息统计").Select
Application.ScreenUpdating = True
阅读(...) 评论()(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
在Excel中如何引用其他的工作表或者工作簿
公式中对单元格和单元格区域的引用不必非得针对同一个工作表中的单元格和单元格区域。如果要引用另外的工作表中的单元格，那么就在单元格引用的前面加上工作表的名称以及一个感叹号。下面举例说明使用了另一个工作表中的单元格引用的公式：
=Sheet2!A1+1
还可以创建引用另一个工作簿中的单元格的链接公式。为此，在单元格引用前加上工作簿的名称(放在方括号中)、工作表名称和一个感叹号。举例如下：
=[Budget.xls]Sheet1!A1+1
如果引用中的工作簿名称包括一个或者多个空格，那么就必须把它用单引号引起来(包括工作表的名称)。例如，
=&[Budget For 2003.xls]Sheet1&!A1+A1
如果链接的工作簿被关闭，那么就必须在工作簿引用中添加完整的路径。举例如下：
=&C:\MSOffice\Excel\[Budget For 2003.xls]Sheet1&!A1+A1
虽然可以直接输入链接公式，但是也可以通过使用普通的指示法来创建引用。为此，必须打开源文件。如果这么做了，excel就可以创建绝对单元格引用(如果打算将公式复制到其他的单元格，就要使得引用为相对的)。
使用链接有一些技巧。例如，假如选择&文件&&&&另存为&命令备份一个源工作表的副本，就会自动将链接公式更改为引用新的文件(通常这不是所想要做的)。另一个错误的做法是，在相关的工作簿没有打开时，重新命名源工作簿。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------
猜你感兴趣