數據倉庫的命名規范

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

關于詞根

?

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

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

指標體系中有很多“率”的指標，都可以拆解成XXX+率，率可以叫RATE，那我們所有的指標都叫做XXX+rate。詞根可以用來統一表名、字段名、主題域名等等。

詞根維護

中文名稱	英文名稱	英文簡寫
簡寫	Abbreviation	ABBRS

詞根查找

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

--/附件：詞根Excel

Private Sub Worksheet_Change(ByVal Target As Range)Select Case Target.AddressCase "$A$2"If Target.Value <> "" Thenstr1 = UCase(Target.Value)Cells(4, "a").Resize(1000, 5).Clear'Cells(4, "a").Resize(1, 5).Mergerownum = 5 '從第五行開始插入For Each ws In WorksheetsIf InStr(ws.Name, "詞根列表") > 0 ThenFor i = 1 To ws.Cells(Rows.Count, "b").End(xlUp).RowIf (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) ThenApplication.EnableEvents = FalseCells(rownum, "A").Value = rownum - 4Cells(rownum, "B").Resize(1, 3).Value = ws.Cells(i, "a").Resize(1, 3).ValueIf (rownum Mod 2 <> 0) ThenCells(rownum, "a").Resize(1, 5).Interior.ColorIndex = 15 '背景顏色End If Application.EnableEvents = Truerownum = rownum + 1End IfNextEnd IfNextrownum = rownum - 5'MsgBox ("您搜索的內容： " & Target.Value & " 有 " & rownum & " 條數據")Cells(4, "a").Resize(1, 5).MergeCells(4, "a").Value = "您搜索的內容： " & Target.Value & " 有 " & rownum & " 條數據" End IfCase ElseEnd Select End Sub

?

?

總結

以上是生活随笔為你收集整理的Excel VBA 词根管理工具的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。