找回密码
 立即注册
搜索
123
返回列表 发新帖
楼主: 一尾迪仔鱼

数值的设定

26
回复
2108
查看
[复制链接]

0

主题

3

帖子

-1

幻币

初入江湖

Rank: 1

积分
1
2022-1-26 23:06:22 显示全部楼层
=G3&"~"&ROUND(G3*(0.97+0.01*(G3>600)),)
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

6

帖子

-1

幻币

初入江湖

Rank: 1

积分
1
2022-1-28 20:43:48 显示全部楼层
非常感谢
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

4

帖子

3

幻币

初入江湖

Rank: 1

积分
10
2022-1-29 16:31:19 显示全部楼层
直接在G3输入和显示,G4只是表达我想要的结果
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

3

帖子

-2

幻币

东方不败

积分
-7
2022-2-2 00:02:13 显示全部楼层
直接在G3输入和显示,G4只是表达我想要的结果
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

4

帖子

-2

幻币

初入江湖

Rank: 1

积分
0
2022-2-8 14:42:55 显示全部楼层
一个表格输入,再更换显示内容,那是不可能的,你想多了
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

7

帖子

2

幻币

初入江湖

Rank: 1

积分
6
2022-2-25 01:38:50 显示全部楼层
谢谢
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

8

帖子

-3

幻币

初入江湖

Rank: 1

积分
2
2022-3-2 18:37:22 显示全部楼层
Private Sub Worksheet_Change(ByVal Target As Range)
  If TypeName(Target.Value) = "Double" Then
  If Target > 0 And Target <= 3000 Then
    Application.EnableEvents = False
    If Target <= 600 Then
      Target = Target & "~" & Round(Target * 0.97, 0)
    Else
      Target = Target & "~" & Round(Target * 0.98, 0)
    End If
    Application.EnableEvents = True
  End If
  End If
End Sub

新建 Microsoft Excel 工作表 (3).7z (11.89 KB, 下载次数: 40)
PPT学习论坛
回复 支持 反对

使用道具 举报

123
您需要登录后才可以回帖 登录 | 立即注册