事业单位公务员晋级工资自定义函数（湖南）

dugz

<p>回复看看，学习一下。</p>

hadama_hb

<p>看看湖南标准</p>

奥路菲

看看加多少钱。

xo8410

看看

lxm974113

<p>好！</p>

丫柳

<p>刚好需要这方面的资料,看看先</p>

HYY514

<div class="msgheader">QUOTE:</div><div class="msgborder"><b><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>八月的梦游者</i>在2008-5-29 19:18:00的发言：</b><br/><p>题外话，从这个级别的数目来看就可以知道官僚系统的复杂性了。</p></div></b><p></p>[em01][em01][em01]</div>

[此贴子已经被作者于2008-6-11 22:22:48编辑过]

HYY514

<p>典型的字典索引</p><p>Sub test2()<br/>Dim str As String<br/>&nbsp; str = InputBox("请输入级档", "查询", "27-1")<br/>&nbsp; MsgBox Join(Split(str, "-"), "级") &amp; "档的级别工资是：" &amp; 级别工资(str) &amp; "元。", 0 + 64, "恭喜发财&nbsp;&nbsp; ^_^"<br/>End Sub</p><p>Function 级别工资(s As String)<br/>Dim d As Object<br/>Set d = CreateObject("scripting.dictionary")<br/>d("27-1") = 290<br/>d("27-2") = 316<br/>d("27-3") = 342<br/>d("26-1") = 320<br/>d("26-2") = 347<br/>d("26-3") = 374<br/>d("26-4") = 401<br/>d("25-2") = 380<br/>d("25-3") = 408<br/>d("25-4") = 436<br/>d("25-5") = 464<br/>d("24-1") = 386<br/>d("24-2") = 416<br/>d("24-3") = 446<br/>d("24-4") = 476<br/>d("24-5") = 506<br/>d("24-6") = 536<br/>d("23-2") = 455<br/>d("23-3") = 488<br/>d("23-4") = 521<br/>d("23-5") = 554<br/>d("23-6") = 587<br/>d("23-7") = 620<br/>d("22-1") = 461<br/>d("22-2") = 498<br/>d("22-3") = 535<br/>d("22-4") = 572<br/>d("22-5") = 609<br/>d("22-6") = 646<br/>d("22-7") = 683<br/>d("22-8") = 720<br/>d("21-2") = 545<br/>d("21-3") = 586<br/>d("21-4") = 627<br/>d("21-5") = 668<br/>d("21-6") = 709<br/>d("21-7") = 750<br/>d("21-8") = 791<br/>d("21-9") = 832<br/>d("20-1") = 551<br/>d("20-2") = 596<br/>d("20-3") = 641<br/>d("20-4") = 686<br/>d("20-5") = 731<br/>d("20-6") = 776<br/>d("20-7") = 821<br/>d("20-8") = 866<br/>d("20-9") = 911<br/>d("20-10") = 956<br/>d("19-2") = 651<br/>d("19-3") = 700<br/>d("19-4") = 749<br/>d("19-5") = 798<br/>d("19-6") = 847<br/>d("19-7") = 896<br/>d("19-8") = 945<br/>d("19-9") = 994<br/>d("19-10") = 1043<br/>d("18-1") = 658<br/>d("18-2") = 711<br/>d("18-3") = 764<br/>d("18-4") = 817<br/>d("18-5") = 870<br/>d("18-6") = 923<br/>d("18-7") = 976<br/>d("18-8") = 1029<br/>d("18-9") = 1082<br/>d("18-10") = 1135<br/>d("17-2") = 776<br/>d("17-3") = 833<br/>d("17-4") = 890<br/>d("17-5") = 947<br/>d("17-6") = 1004<br/>d("17-7") = 1061<br/>d("17-8") = 1118<br/>d("17-9") = 1175<br/>d("17-10") = 1232<br/>d("16-2") = 847<br/>d("16-3") = 908<br/>d("16-4") = 969<br/>d("16-5") = 1030<br/>d("16-6") = 1091<br/>d("16-7") = 1152<br/>d("16-8") = 1213<br/>d("16-9") = 1274<br/>d("16-10") = 1335<br/>d("15-1") = 859<br/>d("15-2") = 924<br/>d("15-3") = 989<br/>d("15-4") = 1054<br/>d("15-5") = 1119<br/>d("15-6") = 1184<br/>d("15-7") = 1249<br/>d("15-8") = 1314<br/>d("15-9") = 1379<br/>d("15-10") = 1444<br/>d("14-2") = 1007<br/>d("14-3") = 1076<br/>d("14-4") = 1145<br/>d("14-5") = 1214<br/>d("14-6") = 1283<br/>d("14-7") = 1352<br/>d("14-8") = 1421<br/>d("14-9") = 1490<br/>d("14-10") = 1559<br/>d("14-11") = 1628<br/>d("13-1") = 1024<br/>d("13-2") = 1098<br/>d("13-3") = 1172<br/>d("13-4") = 1246<br/>d("13-5") = 1320<br/>d("13-6") = 1394<br/>d("13-7") = 1468<br/>d("13-8") = 1542<br/>d("13-9") = 1616<br/>d("13-10") = 1690<br/>d("12-2") = 1196<br/>d("12-3") = 1275<br/>d("12-4") = 1354<br/>d("12-5") = 1433<br/>d("12-6") = 1512<br/>d("12-7") = 1591<br/>d("12-8") = 1670<br/>d("12-9") = 1749<br/>d("12-10") = 1828<br/>d("12-11") = 1907<br/>d("11-2") = 1302<br/>d("11-3") = 1387<br/>d("11-4") = 1472<br/>d("11-5") = 1557<br/>d("11-6") = 1642<br/>d("11-7") = 1727<br/>d("11-8") = 1812<br/>d("11-9") = 1897<br/>d("11-10") = 1982<br/>d("10-1") = 1324<br/>d("10-2") = 1416<br/>d("10-3") = 1508<br/>d("10-4") = 1600<br/>d("10-5") = 1692<br/>d("10-6") = 1784<br/>d("10-7") = 1876<br/>d("10-8") = 1968<br/>d("10-9") = 2060<br/>d("10-10") = 2152<br/>d("9-2") = 1538<br/>d("9-3") = 1638<br/>d("9-4") = 1738<br/>d("9-5") = 1838<br/>d("9-6") = 1938<br/>d("9-7") = 2038<br/>d("9-8") = 2138<br/>d("9-9") = 2238<br/>d("8-1") = 1560<br/>d("8-2") = 1669<br/>d("8-3") = 1778<br/>d("8-4") = 1887<br/>d("8-5") = 1996<br/>d("8-6") = 2105<br/>d("8-7") = 2214<br/>d("8-8") = 2323<br/>d("7-2") = 1818<br/>d("7-3") = 1936<br/>d("7-4") = 2054<br/>d("7-5") = 2172<br/>d("7-6") = 2290<br/>d("7-7") = 2408<br/>d("7-8") = 2526<br/>d("6-2") = 1996<br/>d("6-3") = 2122<br/>d("6-4") = 2248<br/>d("6-5") = 2374<br/>d("6-6") = 2500<br/>d("6-7") = 2626<br/>d("5-3") = 2334<br/>d("5-4") = 2466<br/>d("5-5") = 2598<br/>d("5-6") = 2730<br/>d("5-7") = 2862<br/>级别工资 = d(s)<br/>End Function<br/></p>

HYY514

Sub test2()<br/>Dim str As String<br/>&nbsp; str = InputBox("请输入级档", "查询", "27-1")<br/>&nbsp; If 级别工资(str) = "" Then MsgBox "没有该级别!", vbExclamation: Exit Sub<br/>&nbsp; MsgBox Join(Split(str, "-"), "级") &amp; "档的级别工资是：" &amp; 级别工资(str) &amp; "元。", vbInformation<br/>End Sub