请选择 进入手机版 | 继续访问电脑版
楼主: 小鳄鱼a
2538 11

[问答] 横向排列下如何有条件加星号 [推广有奖]

  • 6关注
  • 10粉丝

学科带头人

3%

还不是VIP/贵宾

-

威望
0
论坛币
125 个
通用积分
0.0040
学术水平
40 点
热心指数
45 点
信用等级
43 点
经验
32801 点
帖子
1185
精华
0
在线时间
1539 小时
注册时间
2009-7-16
最后登录
2018-10-5

小鳄鱼a 发表于 2014-10-25 07:29:44 |显示全部楼层 |坛友微信交流群
50论坛币

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中的程序都可以   谢谢

最佳答案

罗浮山混球 查看完整内容

看看这样行不行
关键词:Intercept inter Inte EPT int 如何

回帖推荐

罗浮山混球 发表于5楼  查看完整内容

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

本帖被以下文库推荐

看看这样行不行

加星号.rar

14.63 KB

本附件包括:

  • Book1.xlsm

已有 1 人评分经验 论坛币 收起 理由
客初 + 20 + 20 热心帮助其他会员

总评分: 经验 + 20  论坛币 + 20   查看全部评分

使用道具

小鳄鱼a 发表于 2014-10-25 20:43:09 |显示全部楼层 |坛友微信交流群
罗浮山混球 发表于 2014-10-25 11:24
看看这样行不行
在哪里看代码啊   

使用道具

小鳄鱼a 发表于 2014-10-25 20:43:46 |显示全部楼层 |坛友微信交流群
罗浮山混球 发表于 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
复制代码


Book1.rar

15.85 KB

已经给t加上了括号

本附件包括:

  • Book1.xlsm

已有 1 人评分经验 论坛币 收起 理由
客初 + 20 + 20 热心帮助其他会员

总评分: 经验 + 20  论坛币 + 20   查看全部评分

使用道具

加括号
1.gif
已有 1 人评分论坛币 学术水平 热心指数 信用等级 收起 理由
小鳄鱼a + 5 + 1 + 1 + 1 精彩帖子

总评分: 论坛币 + 5  学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

使用道具

小鳄鱼a 发表于 2014-10-26 08:22:53 |显示全部楼层 |坛友微信交流群
罗浮山混球 发表于 2014-10-26 02:01
加括号
谢谢    有时间的话请再看看这个   


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

使用道具

小鳄鱼a 发表于 2014-10-27 12:54:14 |显示全部楼层 |坛友微信交流群
罗浮山混球 发表于 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小的    这些在加星号之后 ...
修改了一下,应该可以了,你看看

Book1.rar

17.6 KB

本附件包括:

  • Book1.xlsm

已有 1 人评分论坛币 学术水平 热心指数 信用等级 收起 理由
小鳄鱼a + 5 + 4 + 4 + 4 精彩帖子

总评分: 论坛币 + 5  学术水平 + 4  热心指数 + 4  信用等级 + 4   查看全部评分

使用道具

小鳄鱼a 发表于 2014-10-27 19:10:27 |显示全部楼层 |坛友微信交流群
罗浮山混球 发表于 2014-10-27 18:20
修改了一下,应该可以了,你看看
如果能把t值加括号写进去就更好了,有很多行

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-28 23:14