Excel中的秘密

[复制链接]
查看11 | 回复3 | 2009-7-15 11:25:36 | 显示全部楼层 |阅读模式
随意打开或新建一个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,你会发现一个惊人的秘密!!
请给出你们的答案
原创,纯属娱乐,大家也不要在意分数的得失,开心就好!

回复

使用道具 举报

千问 | 2009-7-15 11:25:36 | 显示全部楼层
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结束,一样的效果。...
回复

使用道具 举报

千问 | 2009-7-15 11:25:36 | 显示全部楼层
春 哥 纯 爷 们铁 血 真 汉 子人 民 好 兄 弟父 亲 好 儿 子真佩服!你是我见过的最牛的一个!...
回复

使用道具 举报

千问 | 2009-7-15 11:25:36 | 显示全部楼层
错误,变量未定义...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行