将单元格文本数据按选区转换成数字格式。

同心/ty

将单元格文本数据按选区转换成数字格式。要求：①用vba  ②提示消息框执行选区。下面是论坛一位老师写的，但运行时并没有提示我去选区，求大神们完善代码。

lihaosh

1. Sub Macro10
   
2. Dim myRange As Range
   
3. Set myRange = Application.InputBox("请选择单元格区域:", "Select Range", Type:=8)
   
4. If myRange Is Nothing Then Exit Sub
   
5. myRange.Value = myRange.Value
   
6. myRange.NumberFormat = "General"
   
7. End Sub

复制代码

psxk3535

1. Sub Macro1()
   
2. l = Application.InputBox("请使用鼠标选择单元格区域：", Type:=8).Address(0, 0)
   
3. If l="" Then
   
4. MsgBox"没有选择单元格，程序将退出。"
   
5. Exit Sub
   
6. End If
   
7. With range(l)
   
8.     .NumberFormatLocal="G/通用格式"
   
9.     .Value = .Value
   
10. End With
    
11. End Sub

复制代码

同心/ty

lihaosh 发表于 2023-4-14 23:17

老师，谢谢你！提示框是出现了，也选择了选区，但并没有完成文本变数字的格式转换。vba运行有过程，但没有出现效果。求完善。

perfect131

用 Application.InputBox
https://club.excelhome.net/thread-1659308-1-1.html

同心/ty

perfect131 发表于 2023-4-15 12:30
用 Application.InputBox
https://club.excelhome.net/thread-1659308-1-1.html

老师，谢谢你帮我解决了问题。

同心/ty

psxk3535 发表于 2023-4-15 01:35

老师，谢谢你在原有代码基础上帮我完善了代码，达到了我要的效果。再一次表示感谢。如果改成如下提示框，待选区选好后按回车（或按任一键）就自动转换就好。也就是说它只是起一个提醒作用，选区选好后就进行格式转换。

psxk3535

你看看这样可以吗

1. Sub Macro1()
   
2. Application.DisplayAlerts = False
   
3. On Error Resume Next
   
4. l = ""
   
5. l = Application.InputBox(" " & vbCrLf & "请用鼠标选择单元格区域，然后按""回车""键或""确定""键执行格式转换。" & vbCrLf & " " & vbCrLf & "如果不想选择单元格，请点击 ""取消"" 按钮或右上角的 ""X"" 关闭即可。" & vbCrLf & " ", "操作提示", , , , Type:=8).Address(0, 0)
   
6. If l = " " Then
   
7. MsgBox "你没有选择单元格，程序将退出。"
   
8. Application.DisplayAlerts = True
   
9. Exit Sub
   
10. End If
    
11. With Range(l)
    
12.     .NumberFormatLocal = "G/通用格式"
    
13.     .Value = .Value
    
14. End With
    
15. Application.DisplayAlerts = True
    
16. End Sub
    

复制代码

psxk3535

MsgBox 显示期间不能进行其他操作，input 可以提示，同时还可以操作选择单元格操作，同时显示所选单元格区域，窗体相应就复杂了一些，感觉没必要