excel测量编程

‘壹’ 在 Excel 上怎么编程序

有两张表格a和b
a中表格每个人的记录是唯一的，a表格A列中全部都是唯一的姓名
b中表格每个人的记录不是唯一的，每个姓名有几条记录就几行，b表格A列中的姓名很多都是有几个一样的，也有可能a表格A列中某些姓名在b表格A列中是没有的

问题：要把b表格其他列的一些信息添加到a表格中，每个姓名有多几条记录的就在a表格A列中增加几个一样的姓名，且a表格中某些姓名在b表格中没有信息的话，那些姓名删除。
运用哪些函数？具体怎么操作好点？
工作运用到的！

感谢李欣蓝 的答复。
我是说把b表格其他列a表格没有的信息加到a表格里，比如b表格里有兼职信息，而a表格里没有。因为b表格里的信息较乱，排序乱，也不足（实际上还有同b表格的c表格，很多表格的信息都汇总到a表格里）。
VLOOKUP这个函数我知道，我运用过，但它只可以解决单条信息，有多条时就解决不了，比如兼职信息可能有几条。

现在只要能解决这个就好了
就是用函数搜索b表格如果搜索到几条记录，那在a表格中能自动增加几条。我要等所有的信息都完成之后再把没有的信息删除。

‘贰’ excel如何编程

1、直接录制宏（可以研究一下宏中的代码），可以实现一些简单的功能
2、用EXCEL VBA，功能很强大，你可以网络一下“excel VBA 程序开发”
3、如果是简单的计算功能就直接用系统自带的函数就可以了

‘叁’ 在EXCEL中怎么用VBA编程来计算距离和方位角

EXCEL中计算方位角距离公式 EXCEL中计算方位角距离公式电子表格中求方位角公式度格式： =(PI()*(1 - SIGN(B3-$B$1) / 2) - ATAN((A3-$A$1) /(B3-$B$1)))*180/PI() Excel 中求方位角公式：a1,b1放起始点坐标 a3,b3放终点坐标。 度分秒格式： =INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/PI()) &"-"& INT( ((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180 /PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/ PI()))*60)&"-"&INT( (((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()))*60-INT(((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()))*60))*600)/10 其中：A1,B1中存放测站坐标,a3,b3放终点坐标。上面的计算出来的是度分秒格式，也就是字符串格式，不能用来计算，只是用来看的哟！下面这个简单一点： =(PI()*(1 - SIGN(B3-B1) / 2) - ATAN((A3-A1) /(B3-B1)))*180/PI() Excel 中求方位角公式：a1,b1放起始点坐标 a3,b3放终点坐标。 求距离公式: =Round(SQRT(POWER((A3-$A$1),2)+POWER((B3-$B$1),2)),3)

‘肆’ 用Excel编程怎么编

Excel没有现成的功能,要使用到宏，用ALT+F8调出宏窗口，在宏名称里输入"Comp"，点创建，在新出现的窗口中输入下面代码。
Sub
Comp()
'
Comp
Macro
'
Ghostidea
记录的宏
2006-5-9
Dim
rngA
As
Excel.Range
Dim
rngB
As
Excel.Range
Dim
rngAT
As
Excel.Range
Dim
rngBT
As
Excel.Range
Set
rngA
=
Range("A1:A1000")
'这里“A1:A23"是范围表示A列的1行到A列的1000行，可根据你的需要改变.
Set
rngB
=
Range("C1:C500")
For
Each
rngAT
In
rngA.Cells
For
Each
rngBT
In
rngB.Cells
If
rngAT.Value
=
rngBT.Value
Then
rngAT.Font.Color
=
RGB(255,
0,
0)
rngBT.Font.Color
=
RGB(255,
0,
0)
End
If
Next
rngBT
Next
rngAT
End
Sub

‘伍’ excel和编程有什么关系

1、excel是微软的文档办公组件之一，主要是用于表格类的文书编辑。
2、excel与编程工作并没有直接的联系，不过excel功能很强大，也可以用于编写一些函数和功能代码，有一些大牛级别的可以使用excel来进行编程。
3、希望对你有帮助。

‘陆’ EXCEL编程怎么编

有两张表格a和b
a中表格每个人的记录是唯一的，a表格A列中全部都是唯一的姓名
b中表格每个人的记录不是唯一的，每个姓名有几条记录就几行，b表格A列中的姓名很多都是有几个一样的，也有可能a表格A列中某些姓名在b表格A列中是没有的

问题：要把b表格其他列的一些信息添加到a表格中，每个姓名有多几条记录的就在a表格A列中增加几个一样的姓名，且a表格中某些姓名在b表格中没有信息的话，那些姓名删除。
运用哪些函数？具体怎么操作好点？
工作运用到的！

感谢李欣蓝 的答复。
我是说把b表格其他列a表格没有的信息加到a表格里，比如b表格里有兼职信息，而a表格里没有。因为b表格里的信息较乱，排序乱，也不足（实际上还有同b表格的c表格，很多表格的信息都汇总到a表格里）。
VLOOKUP这个函数我知道，我运用过，但它只可以解决单条信息，有多条时就解决不了，比如兼职信息可能有几条。

现在只要能解决这个就好了
就是用函数搜索b表格如果搜索到几条记录，那在a表格中能自动增加几条。我要等所有的信息都完成之后再把没有的信息删除。
希望能解决您的问题。

‘柒’ 在EXCEL中如何编写程序

1、打开excel软件，点击左上角“文件”；

‘捌’ 怎样使用Excel编程

我用VB连过。
下面是我当时写的一个函数，从SQLServer2000中导出查询结果的。调用就可以了。记得在工程－－》引用 中添加Excel的引用 Microsoft Excel 11.0 Object Library
（可能是不同的版本）
另外把连接字符串改一下。
如果你要用到其他方面，可以加我285512334
Public Function ExporToExcel(strOpen As String, str_name As String)
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'& 功能：导出数据到EXCEL
'& 用法：ExporToExcel(sql查询字符串，导出表的名称)
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Dim adoRs As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer

Dim xlapp As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable

Dim strcn_out As String

strcn_out = "Provider=SQLOLEDB.1;PeRs_tongjiist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=st_info;Data Source=(local)"
With adoRs
If .State = 1 Then
.Close
End If
.ActiveConnection = strcn_out
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Source = strOpen
.Open
End With
With adoRs
If .RecordCount < 1 Then
MsgboxName = MsgBox("没有记录！", vbOKOnly, "信息提示")
Exit Function
End If
Irowcount = .RecordCount '记录总数
Icolcount = .Fields.Count '字段总数
End With

Set xlapp = CreateObject("Excel.Application")
Set xlbook = Nothing
Set xlsheet = Nothing
xlapp.Caption = str_name

Set xlbook = xlapp.Workbooks().Add
Set xlsheet = xlbook.Worksheets("sheet1")
xlapp.Visible = True
Set xlQuery = xlsheet.QueryTables.Add(adoRs, xlsheet.Range("a1")) '添加查询语句，导入EXCEL数据
With xlQuery
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
End With

xlQuery.FieldNames = True '显示字段名
xlQuery.Refresh

With xlsheet
With .Range(.Cells(1, 1), .Cells(1, Icolcount))

.Font.Name = "宋体" '设标题为黑体字
.Font.Bold = True '标题字体加粗
'.Interior.Color = &HC0FFC0 '设定第一行颜色
.ColumnWidth = 18
End With

With .Range(.Cells(1, 2), .Cells(1, 2)) '设定列宽度
.ColumnWidth = 10
End With
With .Range(.Cells(1, 3), .Cells(1, 3))
.ColumnWidth = 20
End With
With .Range(.Cells(1, 5), .Cells(1, 5))
.ColumnWidth = 10
End With
With .Range(.Cells(1, 6), .Cells(1, 6))
.ColumnWidth = 6
End With

With .Range(.Cells(2, 1), .Cells(Irowcount + 1, 1))
.Font.Name = "楷体"
'.Interior.Color = &H80FFFF '第一列颜色
End With
End With
On Error GoTo yes
'第一种方法：调用保存函数xlApp.SaveWorkspace
'第二种方法，后台saveas，指定目录
Position = App.Path & "\统计数据存档\" & str_name & ".xls"
xlbook.SaveAs Position
'第三种方法，用户关闭时，自己保存
xlapp.Application.Visible = True
yes:
Set xlapp = Nothing '交还控制给Excel
Set xlbook = Nothing
Set xlsheet = Nothing
End Function