vba如何通过inputbox批量录入字典并调用

385893066

例如我通过其他软件生成了一个字典dict={'一级标题': {'font': '黑体', 'size': '三号', 'bold': 'true'}, '正文': {'font': '黑体', 'size': '小三', 'bold': 'false'}}


由于每次的样式需求不同，所以我想通过inputbox录入这个字典：{'一级标题': {'font': '黑体', 'size': '三号', 'bold': 'true'}, '正文': {'font': '黑体', 'size': '小三', 'bold': 'false'}}

然后再进一步调用标题1和正文的样式，再接着修改文本格式。

现在后面的没啥问题，主要是怎么输入及调用遇到了困难。请各位大神帮帮忙。

batmanbbs

VBA没有JSON这类格式，直接用inputbox输入对应参数，如：字号=inputbox("请输入字号：")
PS：觉得一个一个输入比较麻烦，可以设计一个窗体，输入多个参数

385893066

batmanbbs 发表于 2023-11-23 09:18
VBA没有JSON这类格式，直接用inputbox输入对应参数，如：字号=inputbox("请输入字号：")
PS：觉得一个一个 ...

对，主要是觉得一个个输入太麻烦了，想着有没有办法批量输入

batmanbbs

385893066 发表于 2023-11-23 09:30
对，主要是觉得一个个输入太麻烦了，想着有没有办法批量输入

还有一种方法是直接输入所有参数，设定一个分隔符（比如英文逗号），然后用slipt函数分成数组使用

常扬帆

这是个字典格式，不过是记事本的。
套近乎={
【套近乎】
和不太熟识的人拉拢关系，表示亲近(多含贬义)。老舍《四世同堂》九三：“金三爷那四方脑袋里琢磨着要跟日本人套近乎。他并不想跟日本人合作……他只不过是为了自己的安全。”
}

385893066

我最后的解决办法是我用其他软件直接生成了变量赋值格式。
我在vba程序中先定义好各变量类型，例如Dim a as String, Dim b as String。
然后我在其他软件生成数据时，生成格式直接是 a=111 b=222。
然后勉强也可以直接用，不太方便的就是每次都得打开vba替换这部分赋值内容。

batmanbbs

385893066 发表于 2023-11-24 11:19
我最后的解决办法是我用其他软件直接生成了变量赋值格式。
我在vba程序中先定义好各变量类型，例如Dim a a ...

既然都会写代码了，自己直接写一个修改代码的代码就可以了