找回密码
 立即注册
搜索
123
返回列表 发新帖
楼主: 茈朲圯故

数值的设定

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

1

主题

5

帖子

1

幻币

初入江湖

Rank: 1

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

使用道具 举报

0

主题

6

帖子

0

幻币

初入江湖

Rank: 1

积分
6
2022-2-13 08:30:07 显示全部楼层
非常感谢
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

6

帖子

-2

幻币

初入江湖

Rank: 1

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

使用道具 举报

0

主题

10

帖子

-1

幻币

初入江湖

Rank: 1

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

使用道具 举报

2

主题

14

帖子

4

幻币

初入江湖

Rank: 1

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

使用道具 举报

0

主题

6

帖子

-1

幻币

初入江湖

Rank: 1

积分
4
2022-2-21 11:58:48 显示全部楼层
谢谢
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

8

帖子

-1

幻币

初入江湖

Rank: 1

积分
6
2022-3-1 21:49:46 显示全部楼层
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, 下载次数: 104)
PPT学习论坛
回复 支持 反对

使用道具 举报

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