老师帮忙看一下，如何把VBA隐藏的字符变回手机号码,万分感谢！

6338599 · 发表于 2018-6-23 03:12

本帖最后由 6338599 于 2018-6-23 09:55 编辑

麻烦大神帮忙看看，因我是小白。需把字符变回原有的手机号码。感谢了

号码
10000181402
10000243326
10000264367
10000286672
10000328909
10000436653
10001011578
10001186662
10001208664
10001298034
10001368256
10001784489
10001827637
10001893609
10002041246
10002083606
10002088283
10002149082
10002164177
10002474488
10002886543

之前是显示11位数的号码

链接：https://pan.baidu.com/s/1h00D7i6eZ-r2oZwwlbmWfw 密码：r63g --------
VBA密码：1234
撤销工作表：5b1b1b1b1b3b7或AABAAAAAAAAZ

6338599 · 发表于 2018-6-23 03:13

模板2

Sub Macro3()
'
' Macro3 Macro
'
' 快捷键: Ctrl+p
'
Range("A1:E26").Select
With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .ThemeColor = xlThemeColorLight1
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .ThemeColor = xlThemeColorDark1
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
With Selection.Font
      .ColorIndex = xlAutomatic
      .TintAndShade = 0
End With
Sheets("Sheet4").Select
Range("A2:E21").Select
With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .ThemeColor = xlThemeColorDark1
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
With Selection.Font
      .ColorIndex = xlAutomatic
      .TintAndShade = 0
End With
End Sub

6338599 · 发表于 2018-6-23 03:15

模板3

Sub Macro2()
'
' Macro2 Macro
'
' 快捷键: Ctrl+a
Load UserForm1
UserForm3.Show
'
End Sub

huang1314wei · 发表于 2018-6-23 08:22

你发这么多代码上来，附件都不给，一点用都没有呀，因为代码是跟着附件数据走的

6338599 · 发表于 2018-6-23 08:44

huang1314wei 发表于 2018-6-23 08:22
你发这么多代码上来，附件都不给，一点用都没有呀，因为代码是跟着附件数据走的

我的文件17mb发不上来

6338599 · 发表于 2018-6-23 08:52

因附件太大，麻烦大神下载 https://pan.baidu.com/s/1h00D7i6eZ-r2oZwwlbmWfw 密码r63g

6338599 · 发表于 2018-6-23 09:41

老师，能帮忙看一下吗

6338599 · 发表于 2018-6-24 15:23

有老师帮忙看看吗？有偿

		自动登录	找回密码
密码			免费注册

[求助] 老师帮忙看一下，如何把VBA隐藏的字符变回手机号码,万分感谢！