如何用程序把选中的数变为以万为单位且保留两位小数

yueyueniao

ykcbf1100 发表于 2024-7-18 20:15
弱弱问一下，为什么只修改选中的单元格？

选定单元格区域是不固定的，所以要求程序是选定单元格后才执行。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.18   把选中的区域中的数值转换为万为单位且保留2位小数
   
2.     With Sheets("Sheet1")
   
3.         On Error Resume Next ' 如果没有选择，避免错误
   
4.         Set rng = Application.InputBox("请选择一个数据范围:", "选择范围", Type:=8)
   
5.         On Error GoTo 0 ' 重置错误处理
   
6.         If Not rng Is Nothing Then
   
7.             For Each cell In rng
   
8.                 If IsNumeric(cell.value) Then
   
9.                     value = cell.value / 10000
   
10.                     cell.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
    
11.                     cell.value = value
    
12.                 End If
    
13.             Next cell
    
14.         Else
    
15.             MsgBox "未选择任何范围。请选择一个数据范围再尝试转换。"
    
16.         End If
    
17.         ActiveWindow.DisplayZeros = False
    
18.     End With
    
19. End Sub
    

复制代码

yueyueniao

ykcbf1100 发表于 2024-7-18 20:24
附件供参考。。。

收到，谢谢，大侠，辛苦了！谢谢，非常感谢！

ykcbf1100

yueyueniao 发表于 2024-7-18 20:27
收到，谢谢，大侠，辛苦了！谢谢，非常感谢！

附件更新了一下。

yueyueniao

ykcbf1100 发表于 2024-7-18 20:25
参与一下。。。

非常感谢大侠，就是这种效果，慢慢研究，辛苦了，再次感谢！

gwjkkkkk

Sub TEST()
    Dim tRng As Range, rngCel As Range
   
    On Error Resume Next
    Set tRng = Application.InputBox("请选择随机列数", Title:="提示", Default:="$A$1:$B$10", Type:=8)
    If tRng.Address = "" Then Exit Sub
    On Error GoTo 0
   
    For Each rngCel In tRng
        If IsNumeric(rngCel.Value) And Len(rngCel.Value) Then
            With rngCel
                rngCel.Value = WorksheetFunction.Round(rngCel.Value / 10000, 2)
            End With
        End If
    Next
End Sub

yueyueniao

ykcbf1100 发表于 2024-7-18 20:25
参与一下。。。

With Sheets("Sheet1")
大侠，这一句能不能变成当前激活工作表啊，工作表名称变了，这个程序就不能运行！

gwjkkkkk

.................

yueyueniao

gwjkkkkk 发表于 2024-7-18 20:33
.................

谢谢大侠，辛苦了！