[發問] 單元格觸動及星期的問題(尚在苦惱中.........)

olisun

單元格觸動及星期的問題
一、當"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

回復 1# olisun

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

     

下載 (49.2 KB)

2010-8-11 14:25

olisun

能用vba表示嗎

ANGELA

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

olisun

觸發的問題該怎麼設呢?

ANGELA

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

回復 5# olisun


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

GBKEE

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

PD961A

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

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

olisun

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() 就不會
是怎麼問題?