UC知道Excel中的秘密
来源：百度知道 编辑：UC知道 时间：2024/06/03 15:54:50
随意打开或新建一个excel
2140774086
2240838900
2141236796
2909253900
2512164756
2753783046
2881166646
2998712354
2285270214
3052949256
2642525424
2516376726
2286130776
2858452754
2167693916
2236391384
2617499076
2286130776
2194313486
3052949256
将以上数字输入A1-A20区域，
按下Alt+F11
出现VBE编辑窗口
双击左边工程对象窗口中的任意对象如ThisWorkbook，或者选择菜单:插入-模块
在出现的白色编辑区中输入代码如下
Sub ChunChun()
Dim OB As Object
Dim OBSRC As Object
For i = 1 To 20
x = (i - 1) Mod 5 + 1
y = (i - 1) \ 5 + 1
Set OBSRC = Range("A1").Cells(i, 1)
n = OBSRC
OBSRC = ""
m = (n + 6.25) ^ 0.5 - 2.5
Set OB = Range("A1").Cells(y, x)
OB = Chr(m)
OB.Font.Bold = True
OB.Font.ColorIndex = 3
Next
End Sub
按下F5，然后返回excel，你会发现一个惊人的秘密！！
请给出你们的答案
原创，纯属娱乐，大家也不要在意分数的得失，开心就好！
2140774086
2240838900
2141236796
2909253900
2512164756
2753783046
2881166646
2998712354
2285270214
3052949256
2642525424
2516376726
2286130776
2858452754
2167693916
2236391384
2617499076
2286130776
2194313486
3052949256
将以上数字输入A1-A20区域，
按下Alt+F11
出现VBE编辑窗口
双击左边工程对象窗口中的任意对象如ThisWorkbook，或者选择菜单:插入-模块
在出现的白色编辑区中输入代码如下
Sub ChunChun()
Dim OB As Object
Dim OBSRC As Object
For i = 1 To 20
x = (i - 1) Mod 5 + 1
y = (i - 1) \ 5 + 1
Set OBSRC = Range("A1").Cells(i, 1)
n = OBSRC
OBSRC = ""
m = (n + 6.25) ^ 0.5 - 2.5
Set OB = Range("A1").Cells(y, x)
OB = Chr(m)
OB.Font.Bold = True
OB.Font.ColorIndex = 3
Next
End Sub
按下F5，然后返回excel，你会发现一个惊人的秘密！！
请给出你们的答案
原创，纯属娱乐，大家也不要在意分数的得失，开心就好！
char()和code()函数的转换游戏：
选中三个4行5列的区域，输入公式：
=CHAR({46266,47335,46271,53935,50119;52474,53674,54758,47802,55251;51403,50161,47811,53462,46556;47288,51159,47811,46841,55251})
按CTRL+SHIFT+ENTER结束，一样的效果。
春 哥 纯 爷 们
铁 血 真 汉 子
人 民 好 兄 弟
父 亲 好 儿 子
真佩服！你是我见过的最牛的一个！
错误,变量未定义
有点意思
春 哥 纯 爷 们
铁 血 真 汉 子
人 民 好 兄 弟
父 亲 好 儿 子
呵呵真会玩啊``
什么？