作者：绿色风
分类：
时间：2022-08-17
浏览：109
楼主
biaotiger1 |
Q：如何使对号所在行的单元格为正数，叉号所在单元格为负数？
A：ALT+F11→在thisworkbook模块中输入代码如下：- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- Application.EnableEvents = False
- If InStr(1, " 7 9 11 13 15 17 ", " " & Target.Column & " ") > 0 Then
- If Target.Value = "×" Then
- With Target.Offset(, -1)
- .Value = -Abs(.Value)
- .NumberFormatLocal = "0;[红色]0"
- End With
- Else
- With Target.Offset(, -1)
- .Value = Abs(.Value)
- .NumberFormatLocal = "0;[红色]0"
- End With
- End If
- End If
- Application.EnableEvents = True
- End Sub
如果数字所在列设置单元格格式为- 0;[红色]0.0
，输入列（输入对号“√”或者叉号“×”）设置了数据有效性。则以上代码可简化为如下：- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- Application.EnableEvents = False
- If InStr(1, " 7 9 11 13 15 17 ", " " & Target.Column & " ") > 0 Then
- With Target.Offset(, -1)
- .Value = IIf(.Offset(, 1).Value = "×", -Abs(.Value), Abs(.Value))
- End With
- End If
- Application.EnableEvents = True
- End Sub
当指定列中的单元格变化后，如输入对号“√”，则该单元格所在行的前一个单元格变为正数。如输入叉号“×”，则该单元格所在行的前一个单元格变为负数，且单元格数值颜色变为红色。
详见附件。
 第六场.rar
|
2楼
bishunbiao |
这种变换在实际应用中可以变换来使用 |
3楼
水吉果果 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一