日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

Excel VBA 词根管理工具

發(fā)布時間:2025/3/17 编程问答 22 豆豆
生活随笔 收集整理的這篇文章主要介紹了 Excel VBA 词根管理工具 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

數(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)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。