（版本7.0.104）简单解决有题库刷题需求

起因：因工作中时不时面临“形式主义”考试，面对EXCEL题库，一直想找个刷题软件，苦不得，遂动手丰衣足食。题库查询：换句话说，带着手机当小抄用的，哈哈哈，不多说。
刷题系统：基础适用，更多功能还未有需求固未研究。
使用基础：
1.有现成题库，整理成题目内容和答案两列，放excel。
2.目前只利用手机页面制作，运用活字格基础功能，基本就是表格查询。
3.几十块钱的轻量级云服务器。
界面展示：
  

补充一下：整理题库的时候，运用Excel中VB自定义函数pinyin（），将题目，答案、选项转换成首字母小写，方便快速检索。Excel中：ALt＋F11进入VBA窗口：
在对应表格下创建模板，粘贴一下代码，我是比较懒惰，转了大写后，用lower（）将大写转小写。
当然聪明如你，可以合并，我就不搞了，能用就好。


Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = "A"
Case -20283 To -19776: pinyin = "B"
Case -19775 To -19219: pinyin = "C"
Case -19218 To -18711: pinyin = "D"
Case -18710 To -18527: pinyin = "E"
Case -18526 To -18240: pinyin = "F"
Case -18239 To -17923: pinyin = "G"
Case -17922 To -17418: pinyin = "H"
Case -17417 To -16475: pinyin = "J"
Case -16474 To -16213: pinyin = "K"
Case -16212 To -15641: pinyin = "L"
Case -15640 To -15166: pinyin = "M"
Case -15165 To -14923: pinyin = "N"
Case -14922 To -14915: pinyin = "O"
Case -14914 To -14631: pinyin = "P"
Case -14630 To -14150: pinyin = "Q"
Case -14149 To -14091: pinyin = "R"
Case -14090 To -13319: pinyin = "S"
Case -13318 To -12839: pinyin = "T"
Case -12838 To -12557: pinyin = "W"
Case -12556 To -11848: pinyin = "X"
Case -11847 To -11056: pinyin = "Y"
Case -11055 To -2050: pinyin = "Z"
Case Else: pinyin = p
End Select
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function

先自己坐沙发上。

命令加到表格了，谢谢！

十分感谢

nice

请问在哪里可以获取

Yoiiil 发表于 2024-7-2 19:07
请问在哪里可以获取

附件不是在文后

十分感谢