[已解答]日期显示成星期的自定义代码

兰色幻想

<p>题目:</p><p>&nbsp;&nbsp;&nbsp; A1中是日期.</p><p>要求:</p><p>&nbsp;&nbsp;&nbsp;1、设置自定义格式，把日期显示为星期。</p><p>&nbsp;&nbsp; 2、在B1中用公式得到A1日期所在的星期。</p><p>选作：</p><p>&nbsp;&nbsp;&nbsp; 3、用VBA代码在B2中返回A1日期所代表的日期</p>

[此贴子已经被作者于2008-2-20 21:51:14编辑过]

suye1010

<p>1.AAAA</p><p>2.=WEEKNUM(A1)</p><p>3.</p><p>Sub WEEKDAY()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("B2") = FormatDateTime(Range("A1"), 2)<br/>End Sub<br/></p>

[此贴子已经被作者于2008-2-20 21:29:20编辑过]

faliming7

<p>1、[$-804]aaaa;@</p><p>2、=TEXT(WEEKDAY(A1),"[$-804]aaaa;@")</p>

[此贴子已经被作者于2008-2-20 21:28:00编辑过]

杨副官

&nbsp;1、设置自定义格式，把日期显示为星期。aaaa <p>&nbsp;&nbsp; 2、在B1中用公式得到A1日期所在的星期。a1==WEEKDAY(a1)</p><p>选作：</p><p>&nbsp;&nbsp;&nbsp; 3、用VBA代码在B2中返回A1日期所代表的日期 range("b2")=date</p><br/><script type="text/javascript">[script]null[/script]</script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript">[script]null[/script]</script>

[此贴子已经被作者于2008-2-20 21:36:36编辑过]

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>faliming7</i>在2008-2-20 21:10:00的发言：</b><br/><p>1、[$-804]aaaa;@</p><p>2、=TEXT(WEEKDAY(A1),"[$-804]aaaa;@")</p><br/></div><p>&nbsp; </p><p>&nbsp;真接 aaaa 就可以了 ,公式中同理 </p><p>&nbsp;&nbsp;&nbsp;&nbsp;<font color="#e70808"> 算正确</font></p>

兰色幻想

<p>在VBA中用format函数转换即可</p><p>[b1] = Format([a1], "aaaa")</p>

hai

<p>学习了!</p>

zhangyilike

1个都不会[em06]

XXC

<p>最简单最有效的方法：A1输入日期</p><p>B1==TEXT(A1,"aaa")</p>