1樓:匿名使用者
private sub worksheet_selectionchange(byval target as range)
dim a as range
if target.count = 1 thenif target.column = 12 and target.value <> "" then
msgbox ("禁止修改資料")
cells(target.row, 13).selectend if
else
set a = target
if a(1, 1).column = 12 thenmsgbox ("禁止選擇包含l列的多個單元格")cells(a(1, 1).row, 13).selectend if
end if
end sub
放到所在工作表,就可以了,已經測試過了
2樓:匿名使用者
以上巨集命令的意思是:
禁止選擇ab兩列,也禁止選擇包括ab兩列在內的區域。
若選擇ab兩列的單個單元格,則彈出對話方塊「禁止修改資料」,確定後,同行c列被選中
若選擇包括ab列的區域,則彈出對話方塊「禁止選擇包含ab兩列的多個單元格」,確定後,區域第乙個單元格同行c列被選中
你的要求可以實現
將**稍作改動,使有資料的單元格不能被選中即可
3樓:匿名使用者
用以下簡單**就可以。alt+f11開啟vba編輯器,雙擊sheet1(你的**若不在sheet1,雙擊相應的**),將以下**貼上即可。
private sub worksheet_selectionchange(byval target as range)
if target.count = 1 then
if target.column <> 12 or target.column = 12 and target.value <> "" then
msgbox ("禁止修改資料")
cells(1, 12).select
end if
else
cells(1, 12).select
end if
end sub
以上**不允許修改l列以外的任何地方,同時禁止修改l列已輸入內容,禁止選擇多個區域。
4樓:設計營地
這個這樣處理,你把電子**隱藏起來,使用窗體來給使用者輸入,輸入後儲存在電子**中。
最好做乙個管理資訊系統,後台使用資料庫。
5樓:匿名使用者
直接鎖定即可,
這個excel可以直接實現
急!我需要為excel**做個輸入介面 求熟練使用excel, 並且會vb程式設計的高手 !!! 幫幫在下!
6樓:e俠兔
你最好發個輸入介面截圖,然後輸入後存放格式,高手們才好有的放矢。
7樓:匿名使用者
主要是做什麼用的,想實現什麼功能之類的
在excel中如何讓繪製小方框並填寫數字
在繪圖選單中選取 方框 圖示,即可隨意建乙個方框,雙擊此框後進入編輯狀態,輸入所需數字,調集成適大小後即可。且可以隨意放置於自己需的地方。不明所以。excel本身就是表結構啊,還要繪製什麼?像江南4大才子一樣給單元格加乙個光圈吧 如何在excel 內編輯小方框,然後再在小方框內輸入數字?點 繪圖 工...
在Excel表中實現自動填寫日期時間,填寫後就不需要自動更新
選中單元格,按ctrl 即可輸入當前日期,以後開啟檔案時會自己更新。在b2單元格中輸入 a2 即可,就會自動隨a2更新 使用工作表內容改變事件觸發巨集 private sub worksheet change byval target as range if target.row 2 and tar...
excel表如何寫填寫數字後,自動變符號
自定義格式中y m d h,s都是excel格式中內建的特有的格式表示式,y為年,m為月,d為 日,h為小時,s為秒,所以在數字前面加這些個字元表示式,並不能產生新增字首 d 的效 果。除過以上5個字母外其它字母都可以新增成功。但是還有乙個辦法,就是進行強制顯示,在自定義中輸入強制符號 如圖 pri...