主题：改变Excel单元格中部分字符的格式

帮助文件Excel与VBA中介绍了一种改变Excel单元格中部分字符的格式的方法，我想问foxtable是否只有这一种方法达到此目的？还有没有别的更直接更简单的方法？

 肯定是需要截取部分字符，然后设置部分字符的样式的，这个思路是不变的。

前段时间一直没有想好例子怎么做，现在终于做好了，传上来请教了！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例.zip

 对vba不熟，不过终于是算做好了，笨笨的，希望够用。

谢谢你！

以下是引用有点甜在2013-10-14 22:06:00的发言：
 对vba不熟，不过终于是算做好了，笨笨的，希望够用。

 

您谦虚了，非常好！

还有进一步的需求，不知能不能实现。

 呃，回复6楼，你说得进一步需求是什么？六楼的例子不能体现吖。

我把它写到窗口的标签文字里了，是不是我上传错了？

需求如下：

更进一步：

（一）

增加一列“品牌”，<标记>的内容改变为：
dim r as row = currenttable.current
dim A As String = "品牌：" & r("品牌")
dim B As String = r("称谓")"：" & r("品名")
book.Marks.Add("标记",A & B）————暂且这么写，肯定不合适
要求A左对齐，B右对齐（B的其它要求照旧），A和B之间至少要有一
个汉字宽度的空格。

你可能觉得这个需求有点奇怪：
为什么不把A和B放在两个不同的单元格呢？
这是因为：
    事实上实际使用中就连“称谓”的字体大小也是动态调节的，前
面的”品牌“等自然也是，如果分成两个单元格，无法最大限度地利
用这一行的长度。

 （二）
当”品名“的字数过多时，我们可否只缩小文字的宽度，高度不变？

刚才终于把你写的代码读懂了，感觉思路非常好！你值得我学习的地方太多了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例.zip

果然传错了，重新传上