返回列表 上一主題 發帖

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

olisun

帖子
65 
主題
15 
精華
0 
積分
87 
點名
1  
作業系統
WINDOWS10 
軟體版本
2019 
閱讀權限
20 
性別
男 
註冊時間
2010-7-26 
最後登錄
2024-1-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享

olisun

帖子
65 
主題
15 
精華
0 
積分
87 
點名
1  
作業系統
WINDOWS10 
軟體版本
2019 
閱讀權限
20 
性別
男 
註冊時間
2010-7-26 
最後登錄
2024-1-31 
2#
發表於 2010-8-11 15:10 | 顯示全部帖子
能用vba表示嗎

TOP

olisun

帖子
65 
主題
15 
精華
0 
積分
87 
點名
1  
作業系統
WINDOWS10 
軟體版本
2019 
閱讀權限
20 
性別
男 
註冊時間
2010-7-26 
最後登錄
2024-1-31 
3#
發表於 2010-8-11 15:37 | 顯示全部帖子
觸發的問題該怎麼設呢?

TOP

olisun

帖子
65 
主題
15 
精華
0 
積分
87 
點名
1  
作業系統
WINDOWS10 
軟體版本
2019 
閱讀權限
20 
性別
男 
註冊時間
2010-7-26 
最後登錄
2024-1-31 
4#
發表於 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() 就不會
是怎麼問題?

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題