返回列表 上一主題 發帖

[發問] 特定條件 限制儲存格輸入

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-5-2 11:50 | 只看該作者

[發問] 特定條件 限制儲存格輸入

請問各位大大

我有兩個欄位A、B

A欄設了清單，只能下拉Y和N
如果A欄選了N，則B欄不能輸入東西
如果A欄選了Y，則B欄就可以輸入任何東西

請問這巨集該如何設計呢???

我初步想的方式是用Worksheet_Change
EX:
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.         
  3.       If Target.Column = 1 And Target.Value = "N" Then
  4.             Target.Offset(, 1).*******   ->設不能輸入的條件
  5.       End If

  7. End Sub
複製代碼
可是都擋不住@@

不知該如何撰寫


謝謝
收藏 分享
用功到世界末日那一天∼∼∼

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2014-5-6 09:00 | 只看該作者
回復 4# Hsieh

請問一下版大
我後來想到

因為用這方法
如果A1選了Y B1可以填寫
但填完後A1又選了N , B1的值還是會存在

所以想說加了這段程式碼
  1. Private Sub Worksheet_Change(ByVal Target As Range)

  3. '    Application.EnableEvents = False
  4.    
  5.     If Target.Column = 57 And Target = "N" Then
  6. '        Application.EnableEvents = True   '加這邊???
  7.         Target.Offset(, 1) = ""
  8.     End If
  9.    
  10. '    Application.EnableEvents = True   '加這邊???
  11.    
  12. End Sub
複製代碼
後來想看到相關文章

因為使用Worksheet_Change會一直執行

所以可以用Application.EnableEvents來觸發

但我不太清楚該如何操作

是一開始先設為False
觸發到A1是N的時候再變成True嗎??

可是我試過還是一直轉不回True @@

TKS~~
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2014-5-5 09:45 | 只看該作者
回復 4# Hsieh


謝謝H版大

真的是想複雜了

原來可以這樣操作

謝謝

又學到了新東西
用功到世界末日那一天∼∼∼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2014-5-5 08:31 | 只看該作者
回復 3# li_hsien
別把問題想的太複雜
   play.gif
學海無涯_不恥下問

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2014-5-5 08:21 | 只看該作者
回復 2# GBKEE


試了一下還是無法去除@@

儲存格有辦法使用類似ENABLE的語法嗎???

之前想最適當的方式就是當A1選了N
B1就不能做輸入的動作

不知能不能這樣處理

謝謝
用功到世界末日那一天∼∼∼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-5-3 16:07 | 只看該作者
回復 1# li_hsien
試試看
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     If Target.Column = 2 Then
  4.         If Target.Count = 1 And Target.Offset(, -1) = "N" Then Target = ""
  5.     End If
  6. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題