註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 資料庫比對的問題
1
2
下一頁
返回列表
下一主題
上一主題
發帖
[發問]
資料庫比對的問題
fusayloveme
發短消息
加為好友
fusayloveme
當前離線
UID
7735
帖子
46
主題
12
精華
0
積分
72
金錢
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
在線時間
64 小時
註冊時間
2011-12-29
最後登錄
2020-3-20
中學生
帖子
46
主題
12
精華
0
積分
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
註冊時間
2011-12-29
最後登錄
2020-3-20
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 2012-3-9 11:18
|
只看該作者
[發問]
資料庫比對的問題
各位大大，我想請問一下，若是我有A跟B資料庫，假設我想判斷B資料庫中的A欄位(以A資料庫為主)，
少了哪些或者多了哪些資訊，以此類推，在A資料庫中的B欄位C欄位，請問我該如何解決這樣的問題呢!?
附上EXCEL檔，若是可以希望能夠用ACCESS解決或者使用巨集，
目前知道的笨方法就是先依照遞增或遞減排序，貼到EXCEL後在加上函數判斷兩筆資料的各個欄位，但我相信電腦一定有更快的方式 ^^"，先謝謝各位高手 ^_^
A與B資料庫.rar
(29.54 KB)
下載次數: 10
2012-3-9 11:18
樓主熱帖
請教一下，建立檔案問題~
(已解決)請問將網址用WORD開啟後，應如何寫
資料表與文字方塊互動
﹝詢問﹞可否利用巨集填寫於網路上
ACCESS資料庫比對的問題
EXCEL~IF公式簡化問題
請問~如何從ACCESS抓取資料至EXCEL工作表合
請問-抓取網站資料OPEC原油(中塑資訊網)
IF函數，代碼簡化問題
Shell語法加入相對路徑
收藏
分享
mark15jill
發短消息
加為好友
mark15jill
(隨風飄蕩的羽毛)
當前離線
[御用]潛水艇
UID
4247
帖子
852
主題
79
精華
0
積分
918
金錢
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
在線時間
414 小時
註冊時間
2011-4-8
最後登錄
2024-2-21
暱稱:
隨風飄蕩的羽毛
頭銜:
[御用]潛水艇
高中生
帖子
852
主題
79
精華
0
積分
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
註冊時間
2011-4-8
最後登錄
2024-2-21
14
#
發表於 2012-3-15 15:54
|
只看該作者
回復
13#
fusayloveme
不會啦
因為你問的問題
之前我就問過類似的了= ="
只是 我問的比較亂點..
你只是單純 A B 比對..
之前我問的是 A B 比對後 如果 確定是我要的 就從其他檔案內 代入數據
如 AAA.xls 和 BBB.xls 比對後
在CCC.xls 內 代入 甲甲甲.xls的儲存格數據..
這方法適用於 表格資料的轉換
有些原先設定的表格 填入數據後
直接 代入到想要的儲存格內並且去判斷格式是否正確..
或者 從 儲存格 比對後把資料 轉成 我要的型態..+.+
TOP
fusayloveme
發短消息
加為好友
fusayloveme
當前離線
UID
7735
帖子
46
主題
12
精華
0
積分
72
金錢
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
在線時間
64 小時
註冊時間
2011-12-29
最後登錄
2020-3-20
中學生
帖子
46
主題
12
精華
0
積分
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
註冊時間
2011-12-29
最後登錄
2020-3-20
13
#
發表於 2012-3-15 08:42
|
只看該作者
回復
11#
mark15jill
mark大大，太棒嚕，這個周末有空再來修改一下，有不懂的問題再請教您，非常感謝您 ^_^
TOP
fusayloveme
發短消息
加為好友
fusayloveme
當前離線
UID
7735
帖子
46
主題
12
精華
0
積分
72
金錢
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
在線時間
64 小時
註冊時間
2011-12-29
最後登錄
2020-3-20
中學生
帖子
46
主題
12
精華
0
積分
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
註冊時間
2011-12-29
最後登錄
2020-3-20
12
#
發表於 2012-3-13 14:27
|
只看該作者
回復
11#
mark15jill
非常感謝!! 晚點來試試看，目前突然接到不小的工作量，晚點來測試看看 ^_^
TOP
mark15jill
發短消息
加為好友
mark15jill
(隨風飄蕩的羽毛)
當前離線
[御用]潛水艇
UID
4247
帖子
852
主題
79
精華
0
積分
918
金錢
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
在線時間
414 小時
註冊時間
2011-4-8
最後登錄
2024-2-21
暱稱:
隨風飄蕩的羽毛
頭銜:
[御用]潛水艇
高中生
帖子
852
主題
79
精華
0
積分
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
註冊時間
2011-4-8
最後登錄
2024-2-21
11
#
發表於 2012-3-13 13:35
|
只看該作者
回復
8#
fusayloveme
附帶一份比較容易的邏輯..
用C資料庫(sheet3) 分別列出相同與不同的判斷
Sub ow()
Sheets("A資料庫").Select
Range("a3", "C65535").Select
Selection.Copy
Sheets("Sheet3").Select
Range("m3").Select
ActiveSheet.Paste
Sheets("B資料庫").Select
Range("a3", "C65535").Select
Selection.Copy
Sheets("Sheet3").Select
Range("P3").Select
ActiveSheet.Paste
Range("A3", "F65535").Value = Range("M3", "R65535").Value
If Range("a3").Value <> "" Then
For xk = 3 To 65536
If Range("D" & xk).Value <> Range("A" & xk).Value Then
Range("h" & xk).Value = "A欄位 比對失敗"
Range("A" & xk).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("D" & xk).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("P" & xk).Value = Range("m" & xk).Value Then
'Range("H" & XK).Value = "A欄位比對成功"
Range("A" & xk, "F" & xk).Value = Range("M" & xk, "R" & xk).Value
If Range("D" & xk).Value = Range("a" & xk).Value Then
If Range("E" & xk).Value = Range("b" & xk).Value Then
If Range("f" & xk).Value = Range("c" & xk).Value Then
Range("h" & xk).Value = "比對成功"
End If
If Range("f" & xk).Value <> Range("c" & xk).Value Then
Range("h" & xk).Value = "C欄位 比對失敗"
Range("F" & xk).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C" & xk).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
If Range("e" & xk).Value <> Range("b" & xk).Value Then
Range("h" & xk).Value = "B欄位 比對失敗"
Range("E" & xk).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B" & xk).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
End If
'If Range("P" & XK).Value <> Range("m" & XK).Value Then
' Range("H" & XK).Value = "A欄位 比對失敗"
' Range("A" & XK, "F" & XK).Value = Range("M" & XK, "R" & XK).Value
'End If
Next xk
End If
Columns("M:R").Select
Range("M2").Activate
Selection.Delete Shift:=xlToLeft
End Sub
複製代碼
下載
(85.69 KB)
2012-3-13 13:34
TOP
fusayloveme
發短消息
加為好友
fusayloveme
當前離線
UID
7735
帖子
46
主題
12
精華
0
積分
72
金錢
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
在線時間
64 小時
註冊時間
2011-12-29
最後登錄
2020-3-20
中學生
帖子
46
主題
12
精華
0
積分
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
註冊時間
2011-12-29
最後登錄
2020-3-20
10
#
發表於 2012-3-13 08:45
|
只看該作者
回復
9#
register313
感謝R大的幫忙，衷心的謝謝您 ^_^
TOP
register313
發短消息
加為好友
register313
當前離線
麻辣 路人甲
UID
2468
帖子
967
主題
0
精華
0
積分
1001
金錢
1001
點名
0
作業系統
WIN XP
軟體版本
OFFICE 2003
閱讀權限
50
性別
男
來自
台北
在線時間
739 小時
註冊時間
2010-11-29
最後登錄
2022-5-17
頭銜:
麻辣 路人甲
大學生
帖子
967
主題
0
精華
0
積分
1001
點名
0
作業系統
WIN XP
軟體版本
OFFICE 2003
閱讀權限
50
性別
男
來自
台北
註冊時間
2010-11-29
最後登錄
2022-5-17
9
#
發表於 2012-3-12 18:07
|
只看該作者
回復
7#
fusayloveme
A資料庫(B資料庫)之A欄位沒有重覆值
Sub xx()
Sheets("比對結果").[A2:D65536] = ""
Sheets("A資料庫").Activate
Set SourceA = Sheets("A資料庫").Range([A2], [A65536].End(xlUp))
Sheets("B資料庫").Activate
Set SourceB = Sheets("B資料庫").Range([A2], [A65536].End(xlUp))
Sheets("比對結果").Activate
Sheets("比對結果").[A2:D65536] = ""
For Each A In SourceA
X = Application.CountIf(SourceB, A) - Application.CountIf(SourceA, A)
If X = 0 Then
Sheets("比對結果").[C65536].End(xlUp).Offset(1, 0) = A
Else
Sheets("比對結果").[B65536].End(xlUp).Offset(1, 0) = A
End If
Next A
For Each B In SourceB
X = Application.CountIf(SourceB, B) - Application.CountIf(SourceA, B)
If X = 1 Then
Sheets("比對結果").[A65536].End(xlUp).Offset(1, 0) = B
End If
Next B
End Sub
複製代碼
下載
(198.31 KB)
2012-3-12 18:07
TOP
fusayloveme
發短消息
加為好友
fusayloveme
當前離線
UID
7735
帖子
46
主題
12
精華
0
積分
72
金錢
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
在線時間
64 小時
註冊時間
2011-12-29
最後登錄
2020-3-20
中學生
帖子
46
主題
12
精華
0
積分
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
註冊時間
2011-12-29
最後登錄
2020-3-20
8
#
發表於 2012-3-12 17:44
|
只看該作者
回復
6#
mark15jill
先謝謝大大的熱心 ^_^，由於可能會有重覆的，所以判斷條件可能要再謹慎，讓其判斷的特性成為唯一，這樣比對會比較有意義，否則就如同二樓R大所說
會無法比對，因為可能A資料庫內的EXXXXX，但B資料庫內同時有五筆EXXXXX，所以比對後，無法互相比對，導致全部為不符合，反之A資料若筆數較少也會發生類似情況，
所以最好的辦法先找出其唯一性，做為比對的先決條件比較好，這是我最近在做資料庫的心得，感覺上還是被打回原形>< 哀
TOP
fusayloveme
發短消息
加為好友
fusayloveme
當前離線
UID
7735
帖子
46
主題
12
精華
0
積分
72
金錢
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
在線時間
64 小時
註冊時間
2011-12-29
最後登錄
2020-3-20
中學生
帖子
46
主題
12
精華
0
積分
72
點名
0
作業系統
win7
軟體版本
2007-EXCEL
閱讀權限
20
性別
男
註冊時間
2011-12-29
最後登錄
2020-3-20
7
#
發表於 2012-3-12 17:37
|
只看該作者
本帖最後由 fusayloveme 於 2012-3-12 17:46 編輯
回復
5#
register313
我能理解您的意思，當初也是在想因為兩筆資料沒有唯一性，所以無法去比對，只利用共通性比對的話，條件不足夠讓比對成立，
這也是我目前在做關聯資料庫的困擾，不過，還是想請問大大，若假設[ControlNO]的情況是唯一性的話，有辦法像我3F所提供的
"A與B資料庫範例"這樣做出來嗎? 謝謝大大的熱心 ^_^
A攔、C攔及E攔的比對，主要是由A攔決定，A攔確認對了才會進行下一步的C攔、E攔及後面欄位的比對，大概是朝向這樣的方向~
TOP
mark15jill
發短消息
加為好友
mark15jill
(隨風飄蕩的羽毛)
當前離線
[御用]潛水艇
UID
4247
帖子
852
主題
79
精華
0
積分
918
金錢
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
在線時間
414 小時
註冊時間
2011-4-8
最後登錄
2024-2-21
暱稱:
隨風飄蕩的羽毛
頭銜:
[御用]潛水艇
高中生
帖子
852
主題
79
精華
0
積分
918
點名
0
作業系統
Windows 7 , XP
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限
50
性別
男
來自
宇宙
註冊時間
2011-4-8
最後登錄
2024-2-21
6
#
發表於 2012-3-12 17:27
|
只看該作者
我的作法
新創 資料庫 C
以A資料庫為主 去比對 B資料庫
用循環的方式
如
if sheet1.range("a1").value <> sheet2.range("a1").value then
sheet3.range("a1").value = "不相同"
endif
TOP
靜思自在 :
受人點水之恩，須當湧泉以報。
1
2
下一頁
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 • 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲
發表於 2012-3-9 11:18
| 
