1樓:匿名使用者
如果機器上的系統日期可以修改的話,這個要求會比較難實現.
如果機器上的系統日期不可修改,可以用vba實現.
2樓:匿名使用者
加一事件,資料修改時,則判斷日期單元是否是今天,不是則取消修改,也就相當於自動鎖定了。
或如果資料在第一表,日期列是第一列,並升序排列,可在 工程資源管理器中雙擊 thisworkbook 在開啟的**視窗貼上下列**:
private sub workbook_open()
sheets(1).select
cells.select
activesheet.unprotect
selection.locked = false
selection.formulahidden = false
r = activesheet.usedrange.cells(1).end(xldown).row
ct = date
if cells(r, 1) <= ct then
for i = r to 1 step -1
if cells(i, 1) <> ct then exit for
next i
rows("1:" & i).select
selection.locked = true
selection.formulahidden = false
activesheet.protect drawingobjects:=true, contents:=true, scenarios:=true
else
msgbox "日期錯誤"
end if
end sub
3樓:匿名使用者
你可以使用資料有效性達到這個目的,但是由於沒有函式可以返回你的編輯時間,需要你指定一個時間作為可以修改的時間(當前時間小於此時間即可修改,反之修改無效)
例如,a列作為時間指定列,a2=2012-10-28,b2~z2為管理的目標物件。在b2~z2輸入資料有效性=date(year($a2),month($a2),day($a2))>=date(year(now()),month(now()),day(now()))
出錯警告的選項卡的錯誤資訊可以自己修改,如:「已過期,不可修改!」
結合工作表保護即可,你可以隱藏a列不讓修改 。有一個bug就是修改系統時間,但是即使是使用vba這個bug也堵不了
在excel工作表中,如何讓系統時間自動生成後又自動鎖定?
4樓:摩羯糖芯
方法一:利用迭代計算
點選excel左上角的「檔案」→「選項」,彈出的對話方塊中,選擇「公式」選項卡,勾選「啟用迭代計算」,「確定」;
將需要填入時間的單元格格式設定為需要的單元格格式,輸入公式=if(a2="","",if(b2="",now(),b2)),a列為錄入資料,b列記錄錄入資料的時間,需要注意的是,填寫資料前,先將公式填充至b列的整個區域,這樣在錄入資料時才能自動填寫時間。
方法二:資料有效性
在一個輔助單元格(假設c1)中填寫公式=now(),用來計算現在的時間,在b列需要填寫時間的單元格做資料有效性,方法是:選中b2:b17,選項卡上一次點選:
資料→資料有效性→序列→填入公式「=$c$1」,這樣在a列填入資料後,b列對應單元格可以通過下拉箭頭選擇時間填入。
c1的格式不影響b列的顯示效果,設定不設定都可以
我用的是office2013版,「資料有效性」叫做「資料驗證」,早期版本還是叫「資料有效性」
5樓:匿名使用者
在a1輸入資料後,在b1輸入 ctrl+;組合鍵。
類推。樓上的方法很好,程式可簡化
private sub worksheet_change(byval target as range)
if target.column = 1 thenif target = "" then
cells(target.row, 2) = ""
else
cells(target.row, 2) = dateend if
end if
end sub
6樓:
用vba才可以實現。
private sub worksheet_change(byval target as range)
if target.column > 2 thenexit sub
else
cells(target.row, 2) = dateend if
end sub
想請教關於excel統計的問題,關於EXCEL統計人數的一個問題
把問題作為內容 郵件主題一定要包含 excel 本人以此為依據辨別非垃圾郵件,以免誤刪 excel樣表檔案 把現狀和目標效果表示出來 作為附件發來看下 yqch134 163.com 假如三張有資料的表名sheet1 sheet2 sheet3,在統計彙總表的b2單元格輸入公式如下,下拉 sumif...
請教各位大師,我想請教感情線的問題?一般感情線都是從手掌邊緣開始
如果有花飄過,我會把花心留給你 如果有風吹過,我會把樹葉留給你 如果有歲月潮湧過,我會把歡樂留給你。獨處時仰望天空,你是天上的那片雲 寂寞時凝望夜空,你是最亮的那顆星 跟你漫步林中,看到的那片樹葉很美,3834 疲憊時安然入睡,你是最近最好的那段夢境。每當遇到美好的事物總是先跟你分享 有最濃的祝福總...
各位大俠 小女子有問題想請教,各位大俠 小女子有一個問題想請教
哈哈 女的魅力果然不一般 不一般 各位大俠,小女子有問題請教 我的臉頰的右側,大概在太陽穴下2公分左右長了個粉瘤,10 我的是長在腰下面一點的地方 一釐米左右 是去醫院外科做的手術 傷口比較大 不過聽說如果去美容整形科做手術刀口會小很多 我那時手術費用加藥費一共三四百塊樣子 不貴 要去正規醫院 各位...