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

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

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

 

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

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

谢谢你！

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

 

您谦虚了，非常好！

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

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

需求如下：

更进一步：

（一）

增加一列“品牌”，<标记>的内容改变为：
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

果然传错了，重新传上

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

点击浏览该文件:图.zip

 

其实我是要做一个通过数据库自动打印标签的东东
传上来三个截图，都是用数据库生成的，目前我只能做成这样，代表了三个典型的问题，希望得到改进：

1、图A代表了标签的行数最多时的状态，此时字号最小，除了“洗涤说明”及其他几个字和后面的图片之间的空隙大了些外，一切都还能勉强接受；

2、图C代表了行数最少时的状态，此时，“洗涤说明”几个字后面没有文字，与图片之间的空隙大得根本无法接受；

3、图B代表行数处于中间状态，但是品名最长，此时，品牌后面空着，可是品名已经无法全部显示，非常不合理。其实品牌之后最少只需要一个字符的空格就可以了。

 

我想：

关于图片，能否将文字也生成图片，然后和后面的图片合并成一个整体的图片？

但是这样一来，图片开头的文字与上一行文字的对齐是否成为了一个问题？

在甜老师启发下写了一段代码想达到10楼的目的，却发现了一个奇怪的问题：

随着s3字数的增加，Rg("A3")的值会自动增加空格，当字体大小不变时，空格的长度与s3的字数成正比，增加值为每增加一个汉字，Excel的列宽显示增加2，字体变小时，仍是一种正比关系，具体比例未测量。

不知问题出在哪里，附上例子，恳请诸位帮忙！

 

 

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

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

 

在10楼，我想达到这样的目的：

通过foxtable操控Excel

1、在同一个单元格内，"品牌"及其内容靠左对齐，"品名"及其内容靠右对齐，两者之间至少保持一个空格位置

2、如果在默认字号大小时，字符串的总长度超过单元格长度，则缩小"品名"内容的字号，使字符串总长度刚好等于单元格长度。

谢谢甜老师，图片我再琢磨，不懂再问