麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 單元格觸動及星期的問題(尚在苦惱中.........) [打印本頁]

作者: olisun 時間: 2010-8-11 14:01 標題: 單元格觸動及星期的問題(尚在苦惱中.........)

本帖最後由 olisun 於 2010-8-11 20:38 編輯

單元格觸動及星期的問題
一、當"e2"輸入日期，k2自動顯示星期，可是e2輸入日期，k2沒反應
二、這顯示出來的是"週二"而不是"星期二"，要怎麼設才可以變成星期?
Private Sub Worksheet_Change()
Dim n As Range

With Sheets(1)
Set n = Sheets(1).Range("e2")
.Range("k2") = Application.Text(n, "aaa")
End With
End Sub

作者: PD961A 時間: 2010-8-11 14:25

回復 1# olisun

E2=8/10
K2=格式\自訂\[$-404]aaaa=星期二

[attach]2352[/attach]

作者: olisun 時間: 2010-8-11 15:10

能用vba表示嗎

作者: ANGELA 時間: 2010-8-11 15:31

.Range("k2") = Application.Text(n, "[$-404]aaa")

作者: olisun 時間: 2010-8-11 15:37

觸發的問題該怎麼設呢?

作者: ANGELA 時間: 2010-8-11 15:42

Private Sub Worksheet_Change(ByVal TARGET As Range)
With Sheets(1)
Set n = Sheets(1).Range("e2")
.Range("k2") = Application.Text(n, "[$-404]aaa")
End With
End Sub
程式放在SHEET1,不要放在模塊

作者: PD961A 時間: 2010-8-11 15:53

回復 5# olisun

.Range("k2") = Application.Text(n, "[$-404]aaaa")

作者: GBKEE 時間: 2010-8-11 16:43

回復 7# PD961A
一般常用 Range("k2") = Format(n, "aaa")

作者: PD961A 時間: 2010-8-11 17:14

回復 PD961A
一般常用 Range("k2") = Format(n, "aaa")
GBKEE 發表於 2010-8-11 16:43

   版主謝謝您
   Format我都把它當作返回或清除了
   Format(" 08/02/2010 ","emmdd")返回：990802
   謝謝您....

作者: olisun 時間: 2010-8-11 20:37

Private Sub Worksheet_Change(ByVal TARGET As Range)
With Sheets(1)
Set n = Sheets(1).Range ...
ANGELA 發表於 2010-8-11 15:42

出現microsoft excel發生問題，必須關閉，謹此致歉
錯誤的簽名
AppName: excel.exe    AppVer: 14.0.4756.1000    AppStamp:4b9c08e8
ModName: excel.exe    ModVer: 14.0.4756.1000    ModStamp:4b9c08e8
fDebug: 0    Offset: 00009341

Private Sub Worksheet_Change(ByVal TARGET As Range)
改用Private Sub CommandButton1_Click() 就不會
是怎麼問題?

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)