Excel VBA 词根管理工具

数据仓库的命名规范

       俗话说无规矩不成方圆。我们在搭建数据平台的时候，需要先制定好各种规范，越早越好，并且不断的监督大家是否按照约定执行。一旦大家自由发挥，想要再次统一或者重构就非常的困难。会浪费很大的人力成本和时间成本，因此在这里总结一下数据仓库的规范

关于词根

 

   词根属于数仓建设中的规范，属于元数据管理的范畴。现在都把这个划到数据治理的一部分。正常来说，完整的数仓建设是包含数据治理的，只是现在谈到数仓偏向于数据建模，而谈到数据治理，更多的是关于数据规范、数据管理。

     我们学习英语的时候应该有了解过词根这个东西，它就是最细粒度的最简单的一个词语，我们主要用来规范中文和英文的映射关系。公司一部分业务是关于金融业务，如金额，英文名是：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 词根管理工具的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。