Foxtable(狐表) → 用户栏目 → 专家坐堂 → Excel word模板能不能实现类似效果呢


  共有3487人关注过本帖树形打印复制链接

主题：Excel word模板能不能实现类似效果呢
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		Excel word模板能不能实现类似效果呢  发帖心情 Post By：2022/3/4 15:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：a4063a5b-1ebc-4ce2-88b6-459add6e0e32.png
图片点击可在新窗口打开查看
文件内容如图

有没有办法实现在小框内打勾或打点
表示该部分被选

在模板阶段要如何进行设计呢？


网上的这个vba实现打勾输入框  怎么转换成狐表里面的代码执行呢？
通过输入一个大写的R，然后字体选择“Wingdings 2”即可显示为打√的方框，我们为何不能在vba中先用大写的R代替该字符，然后输出在word中，再批量设置字体为“Wingdings 2”呢？

为此，我们将整个算法写成如下的形式：

 将打√的方框表示为一个复杂的字符串（这个字符串不可能与整个word文档中的其它字符串重复，不能仅仅表示为大写字母R，因为有可能其它word字符串中也含有大写字母R），然后用word的查找替换，批量查找该复杂的字符串，替换为大写的R，同时替换设置字体格式为Wingdings 2。

代码如下：

Sub exceloffice()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oRng As Range

Set oRng = oDoc.Content

Arr = Array(“1、重大决策□”, “2、重要干部任免、奖惩□”, “3、重大项目安排□”, “4、大额资金使用□”, “5、其他□”)

‘条件是“重大决策”

sText = “重大决策”

For i = 0 To UBound(Arr)

If Arr(i) Like “*” & sText & “*” Then

‘将满足条件的项目的无√框替换为一个特殊的字符串,这里是8个美元符号组成的生僻词，在word文档中不可能出现这样的词”

Arr(i) = VBA.Replace(Arr(i), “□”, “$$$$$$$$”)

End If

Next i

With oRng

.Text = Join(Arr, vbTab)

With .Find

‘查找特殊的字符串

.ClearFormatting

.Text = “$$$$$$$$”

With .Replacement

.ClearFormatting

‘替换为大写字母R

.Text = “R”

‘要替换的格式

.Font.Name = “Wingdings 2”

End With

‘批量查找替换

.Execute Format:=True, Replace:=wdReplaceAll

End With

End With

End Sub
[此贴子已经被作者于2022/3/4 15:22:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/4 15:48:00 [只看该作者]

这个vba我看不懂。

如果要在模板设置
<IIF([逻辑列1],"√积极开朗","□积极开朗") & IIF([逻辑列2],"√乐观向上","□乐观向上")>
这个方框带勾特殊符号论坛显示不了，自己改改
[此贴子已经被作者于2022/3/4 15:48:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）这个vba我看不懂。如果要在模板设置&...  发帖心情 Post By：2022/3/6 23:27:00 [只看该作者]

<IIF([一类谈话],"R一类谈话","□一类谈话")> & <IIF([二类谈话],"R二类谈话","□二类谈话")> & <IIF([三类谈话],"R三类谈话","□三类谈话")>

 
此主题相关图片如下：1.png
按此在新窗口浏览图片

<IIF([一类谈话],"R一类谈话","□一类谈话") &  IIF([二类谈话],"R二类谈话","□二类谈话") &  IIF([三类谈话],"R三类谈话","□三类谈话")>


此主题相关图片如下：2.png
按此在新窗口浏览图片

这两个写法都没有正常显示出想要的效果

输出得到的是

<IIF(True,"R一类谈话","□一类谈话")> & <IIF(False,"R二类谈话","□二类谈话")> & <IIF(False,"R三类谈话","□三类谈话")>

此主题相关图片如下：3.png
按此在新窗口浏览图片

 

经测试<IIF([一类谈话],"是","否")> 这个  如果是true会显示是  反之就显示否 

有没有办法实现带框的打钩或不打勾的带框呢？

[此贴子已经被作者于2022/3/6 23:43:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/7 8:22:00 [只看该作者]

<IIF([一类谈话],"R一类谈话","□一类谈话") &  IIF([二类谈话],"R二类谈话","□二类谈话")  &  IIF([三类谈话],"R三类谈话","□三类谈话")>
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询