帖子: 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

中學生 Rank: 2

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

10^#

發表於 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

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2010-8-11 17:14 | 只看該作者

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

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

學如逆水行舟不進則退

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-8-11 16:43 | 只看該作者

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

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-8-11 15:53 | 只看該作者

回復 5# olisun

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

學如逆水行舟不進則退

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

6^#

發表於 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,不要放在模塊

TOP

olisun