横向排列下如何有条件加星号

	1	2	3
intercept	3.5	4.7	3.2
t	2.3	1.2	3.6
intercept	3.8	7.7	5.8
t	3.6	4.8	0.3
intercept	3.5	4.7	3.2
t	3.7	0.1	1.6

现在想根据t值大小对a进行上标加星号的操作  
加在intercept变量上
如果t<=1,则加一个*
如果1<t<=2,则加两个*
如果2<t,则加三个*

加在数字的右上方
谢谢






或者写在word中的程序都可以   谢谢

看看这样行不行

罗浮山混球 发表于 2014-10-25 11:24
看看这样行不行

在哪里看代码啊   

罗浮山混球 发表于 2014-10-25 11:24
看看这样行不行

能否再给t加上括号   谢谢

打开EXCEL文件，Alt +F11组合键就可以看代码了

1. Private Sub CommandButton1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Dim xrow%, n%, i%, j%, k%
   
4.     xrow = Worksheets("sheet1").Range("a2").CurrentRegion.Rows.Count
   
5.     For n = 2 To xrow
   
6.         If Worksheets("sheet1").Cells(n, 1) = "intercept" Then
   
7.             For i = 2 To 4
   
8.                 j = Len(Worksheets("sheet1").Cells(n, i))
   
9.                 If Worksheets("sheet1").Cells(n, i).Offset(1, 0).Value <= 1 Then
   
10.                     k = 1
    
11.                 ElseIf Worksheets("sheet1").Cells(n, i).Offset(1, 0).Value > 2 Then
    
12.                     k = 3
    
13.                 Else
    
14.                     k = 2
    
15.                 End If
    
16.                 Worksheets("sheet1").Cells(n, i) = Worksheets("sheet1").Cells(n, i) & WorksheetFunction.Rept("*", k)
    
17.                 Worksheets("sheet1").Cells(n, i).Characters(Start:=j + 1, Length:=k).Font.Superscript = True
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     Application.ScreenUpdating = True
    
22. End Sub

复制代码

加括号

罗浮山混球 发表于 2014-10-26 02:01
加括号

谢谢    有时间的话请再看看这个   


https://bbs.pinggu.org/forum.php? ... =3292027&extra=

罗浮山混球 发表于 2014-10-26 02:01
加括号

不好意思，执行过程中遇到了个问题，我的intercept有的是0.4 0.1 0.3之类的，比1小的    这些在加星号之后 小数点前面的0没有了   变成了.4 .1 .3   请问这个该怎么解决啊    谢谢

小鳄鱼a 发表于 2014-10-27 12:54
不好意思，执行过程中遇到了个问题，我的intercept有的是0.4 0.1 0.3之类的，比1小的    这些在加星号之后 ...

修改了一下，应该可以了，你看看

罗浮山混球 发表于 2014-10-27 18:20
修改了一下，应该可以了，你看看

如果能把t值加括号写进去就更好了，有很多行