[小测试3]文本图形(已结题)

qee用

<p>有时候,使用文本来代替图形是个不错的方法.</p><p>要求见附件.</p><p>奖励:</p><p>发贴后一小时完成10个金币,每晚一个小时减少一个金币.方法相同只奖励第一个.</p><p>&nbsp;&nbsp;<br/></p><p>&nbsp;</p>

[此贴子已经被作者于2007-9-25 11:56:46编辑过]

qee用

<p>好象还没被发现哦~~~~</p><p>忘了说了,奖励不低于5个金币.</p><p>代码少则一句,多则4句(不包括sub和end sub哈).如果只使用一句代码加2个金币.</p><p>迎中秋,金币大派送快行动吧[em01]</p><p><strong><font color="#0000ff">直接贴出代码即可,不需传附件.</font></strong></p>

[此贴子已经被作者于2007-9-24 23:42:23编辑过]

qee用

<p>祝大家中秋愉快[em05]</p><p></p>

兰色幻想

<p>Dim i<br/>For i = 160 To 163<br/>Cells(i - 158, 1) = ChrW(i)<br/>Next</p><p>&nbsp;</p>[em01]抢几个币币再说

[此贴子已经被作者于2007-9-25 0:33:36编辑过]

兰色幻想

<p>一句代码:</p><p>Range("A2:A5").FormulaArray = "={""" &amp; ChrW(160) &amp; """;""" &amp; ChrW(161) &amp; """;""" &amp; ChrW(162) &amp; """;""" &amp; ChrW(163) &amp; """}"</p>

小刀

Range("A2:A5") = Application.WorksheetFunction.Transpose(Array(ChrW(160), ChrW(161), ChrW(162), ChrW(163)))

小刀

Range("A2:A5") = Application.Evaluate("={""" &amp; ChrW(160) &amp; """;""" &amp; ChrW(161) &amp; """;""" &amp; ChrW(162) &amp; """;""" &amp; ChrW(163) &amp; """}")

zsd5237

正妙！

hxqzccct

<p>学习来啦 </p><p>&nbsp;</p>[em01][em01][em01][em01]

上东阳光

等到结果