Excel VBA 詞根管理工具

資料倉儲的命名規範

俗話說無規矩不成方圓。我們在搭建資料平台的時候，需要先制定好各種規範，越早越好，並且不斷的監督大家是否按照約定執行。一旦大家自由發揮，想要再次統一或者重構就非常的困難。會浪費很大的人力成本和時間成本，因此在這裡總結一下資料倉儲的規範

關於詞根

詞根屬於數倉建設中的規範，屬於元資料管理的範疇。現在都把這個劃到資料治理的一部分。正常來說，完整的數倉建設是包含資料治理的，只是現在談到數倉偏向於資料建模，而談到資料治理，更多的是關於資料規範、資料管理。

我們學習英語的時候應該有了解過詞根這個東西，它就是最細粒度的最簡單的乙個詞語，我們主要用來規範中文和英文的對映關係。公司一部分業務是關於金融業務，如金額，英文名是：amount，縮寫是amt，amt就是乙個詞根，那我們就在所有的表、欄位等用到的地方都叫amt，。這就是詞根的作用，用來統一命名，表達同乙個含義。

指標體系中有很多「率」的指標，都可以拆解成***+率，率可以叫rate，那我們所有的指標都叫做***+rate。詞根可以用來統一表名、欄位名、主題網域名稱等等。

詞根維護

中文名稱

英文名稱

英文簡寫

簡寫abbreviation

abbrs

詞根查詢

在維護了上千個詞根後，如果要查詢乙個詞根，可能過excel模糊查詢實現。

--/附件：詞根excel

private sub worksheet_change(byval target as range)
select case target.address
case "$a$2"
if target.value <> "" then
str1 = ucase(target.value)
cells(4, "a").resize(1000, 5).clear
'cells(4, "a").resize(1, 5).merge
rownum = 5 '從第五行開始插入
for each ws in worksheets
if instr(ws.name, "詞根列表") > 0 then
for i = 1 to ws.cells(rows.count, "b").end(xlup).row
if (instr(vba.ucase(ws.cells(i, "c").value), str1) > 0 or instr(vba.ucase(ws.cells(i, "b").value), str1) > 0 or instr(vba.ucase(ws.cells(i, "a").value), str1) > 0) then
cells(rownum, "a").value = rownum - 4
cells(rownum, "b").resize(1, 3).value = ws.cells(i, "a").resize(1, 3).value
if (rownum mod 2 <> 0) then
cells(rownum, "a").resize(1, 5).interior.colorindex = 15 '背景顏色
end if 
rownum = rownum + 1
end if
next
end if
next
rownum = rownum - 5
'msgbox ("您搜尋的內容： " & target.value & " 有 " & rownum & " 條資料")
cells(4, "a").resize(1, 5).merge
cells(4, "a").value = "您搜尋的內容： " & target.value & " 有 " & rownum & " 條資料" 
end if
case else
end select
end sub

Excel VBA 詞根管理工具

IT專案管理工具

SQLCE管理工具

mysql管理工具

Excel VBA 詞根管理工具

IT專案管理工具

SQLCE管理工具

mysql管理工具

相關推薦