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