Excel VBA 词根管理工具
數(shù)據(jù)倉庫的命名規(guī)范
? ? ? ?俗話說無規(guī)矩不成方圓。我們在搭建數(shù)據(jù)平臺的時候,需要先制定好各種規(guī)范,越早越好,并且不斷的監(jiān)督大家是否按照約定執(zhí)行。一旦大家自由發(fā)揮,想要再次統(tǒng)一或者重構(gòu)就非常的困難。會浪費很大的人力成本和時間成本,因此在這里總結(jié)一下數(shù)據(jù)倉庫的規(guī)范
關于詞根
?
? ?詞根屬于數(shù)倉建設中的規(guī)范,屬于元數(shù)據(jù)管理的范疇。現(xiàn)在都把這個劃到數(shù)據(jù)治理的一部分。正常來說,完整的數(shù)倉建設是包含數(shù)據(jù)治理的,只是現(xiàn)在談到數(shù)倉偏向于數(shù)據(jù)建模,而談到數(shù)據(jù)治理,更多的是關于數(shù)據(jù)規(guī)范、數(shù)據(jù)管理。
? ? ?我們學習英語的時候應該有了解過詞根這個東西,它就是最細粒度的最簡單的一個詞語,我們主要用來規(guī)范中文和英文的映射關系。公司一部分業(yè)務是關于金融業(yè)務,如金額,英文名是:AMOUNT,縮寫是AMT,AMT就是一個詞根,那我們就在所有的表、字段等用到的地方都叫AMT,。這就是詞根的作用,用來統(tǒng)一命名,表達同一個含義。
指標體系中有很多“率”的指標,都可以拆解成XXX+率,率可以叫RATE,那我們所有的指標都叫做XXX+rate。詞根可以用來統(tǒng)一表名、字段名、主題域名等等。
詞根維護
| 中文名稱 | 英文名稱 | 英文簡寫 |
| 簡寫 | Abbreviation | ABBRS |
詞根查找
在維護了上千個詞根后,如果要查找一個詞根,可能過excel模糊查詢實現(xiàn)。
--/附件:詞根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 ("您搜索的內(nèi)容: " & Target.Value & " 有 " & rownum & " 條數(shù)據(jù)")Cells(4, "a").Resize(1, 5).MergeCells(4, "a").Value = "您搜索的內(nèi)容: " & Target.Value & " 有 " & rownum & " 條數(shù)據(jù)" End IfCase ElseEnd Select End Sub?
?
總結(jié)
以上是生活随笔為你收集整理的Excel VBA 词根管理工具的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: jqury-zoom的一个例子
- 下一篇: 【计算机视觉】【车辆识别】--Matla