烦请高人给指点一下!问题附在数据源内

369110

(奇怪了，为什么我发的帖子一直显示审核中，看到刀羊大神回复了，但是点击进去还是0回复，是我网络太差的原因吗？）
重新发帖，之前的没上附件，还望见谅。
主要是最近工作需要打印一些化学品信息，要求整合在一张表内。然后做着做着有些问题，希望能得到指导。谢谢各位了！

AVEL

问题1，名字太长，可以相应调整字体大小，如果调整行高，又会改变打印布局，原本一页的可能变成两页。
问题2，下标这个问题，两个办法，1，vba调整字体格式，设置下标。2，化学式单元格为合并单元格，先取消合并单元格，将有下标的单元格复制过来，再合并。
问题3，如果觉得烦人，也可以在信息汇总表中添加一列，然后VLOOKUP引用。
问题4，除了用VBA，暂时没有好办法。

369110

AVEL 发表于 2019-2-26 09:15
问题1，名字太长，可以相应调整字体大小，如果调整行高，又会改变打印布局，原本一页的可能变成两页。
问 ...

下标的问题一个又一个复制太麻烦了。除了用vba，没别的办法了吗？vba怎么用，有教程吗

369110

化学式的下标真心累

AVEL

369110 发表于 2019-2-26 14:54
下标的问题一个又一个复制太麻烦了。除了用vba，没别的办法了吗？vba怎么用，有教程吗

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim rng As Range, rr As Range, str As String, i As Integer
   
4.     If Target.Address <> "$B$1" Then Exit Sub
   
5.     Set rr = Sheet2.[a:a].Find(Target.Value, , , 1)
   
6.     If rr Is Nothing Then Exit Sub
   
7.     str = rr.Offset(, 4).Value
   
8.     Set rng = [b6]
   
9.     rng.Value = str
   
10.     For i = 1 To Len(str)
    
11.         rng.Characters(i, 1).Font.Subscript = rr.Offset(, 4).Characters(i, 1).Font.Subscript
    
12.     Next
    
13. End Sub

复制代码

根据信息汇总表对应的化学式更改下标。

369110

AVEL 发表于 2019-2-26 15:18
根据信息汇总表对应的化学式更改下标。

大神，复制代码到vba里，改了鼠标双击触发，没反应。能不能指导指导？或者帮我在数据里做一下，我学习学习

AVEL

我这个是change事件代码，不是双击触发的

AVEL

369110 发表于 2019-2-26 15:43
大神，复制代码到vba里，改了鼠标双击触发，没反应。能不能指导指导？或者帮我在数据里做一下，我学习学 ...

不知道什么原因 上传不了附件。 你留邮箱，我发给你好了。

369110

AVEL 发表于 2019-2-26 16:24
不知道什么原因 上传不了附件。 你留邮箱，我发给你好了。

313485404@qq.com  谢谢i了。

369110

AVEL 发表于 2019-2-26 16:24
不知道什么原因 上传不了附件。 你留邮箱，我发给你好了。

三一三四85四0四   qq邮箱