[發問] 如何做 資料/驗證 ?

aweihsu

請問有什麼辦法可以判斷，當我 A2 輸入姓名時，A5, A7 (舉例) 儲存格一定要輸入值，不能留下空白。
查了好久，我能做到的就是判斷，但是沒辦法強制 A5, A7一定要輸入值，不然就沒辦法往下輸入
有知道的人，可以分享嗎?，謝.

rouber590324

使用vba如下

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
X = Sheet1.Range("A2")
Y = Sheet1.Range("A5")
Z = Sheet1.Range("A7")
If Not (X = "" Or X = " ") And (Y = "" Or Y = " ") Then
   MsgBox "A2有內容-A5一定要輸入內容:否則無法存檔"
End If
If Not (X = "" Or X = " ") And (Z = "" Or Z = " ") Then
   MsgBox "A2有內容-A7一定要輸入內容:否則無法存檔"
End If
End Sub

yen956

試試看:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Rng As Range, E
   
3. 
   
4. '設定[A2],[A4:A5],[A7](舉例,可增減)一定要輸入值
   
5. Set Rng = Union([A2], [A4:A5], [A7])
   
6. 
   
7. '目前整張Worksheet任何地方有異動, 均會觸動本VBA.
   
8. '如想縮小觸動範圍為[A2],[A4:A5],[A7],請將下列前面之一撇「'」去掉
   
9. 'If Intersect(Target, Rng) Is Nothing Then Exit Sub
   
10. If [A2] <> "" And Application.CountA(Rng) < Rng.Count Then
    
11.     For Each E In Rng
    
12.        If E = "" Then
    
13.            MsgBox E.Address & " 一定要輸入內容, 不能留下空白。"
    
14.        End If
    
15.     Next
    
16. End If
    
17. End Sub

複製代碼

Hsieh

回復 1# aweihsu

資料/驗證
   

下載 (416.63 KB)

2016-3-8 13:35

lpk187

回復 1# aweihsu
當第二列有輸入值會停留在第5列，而當第2列和第5列有值時，則停留在第7列，第5列和第7列未輸入值則點選其他儲存格後都會跳回未輸入值的第5列或第7列

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Dim Rng As Range, Col%
   
5.     For Each Rng In Target
   
6.         Col = Cells(2, Columns.Count).End(xlToLeft).Column
   
7.         If Cells(2, Col) <> "" Then
   
8.             If Cells(5, Col) = "" Then
   
9.                 Cells(5, Col).Select
   
10.                 Exit For
    
11.             ElseIf Cells(7, Col) = "" Then
    
12.                 Cells(7, Col).Select
    
13.                 Exit For
    
14.             End If
    
15.         End If
    
16.     Next
    
17. End Sub
    
18. 
    
19. Private Sub 修改模式_Click()
    
20.     Application.EnableEvents = False
    
21. End Sub
    
22. 
    
23. Private Sub 輸入模式_Click()
    
24. Application.EnableEvents = True
    
25. End Sub

複製代碼

yen956

回復 4# Hsieh
顯然版大 資料/驗證 的方法是最佳解決方案,
但小弟功力太差, 試了半天, 還是作不出 資料/驗證 的方法,
還請版大進一步指導, 謝謝!!

yen956

如何做出 如 Hsieh 大大所秀出的
http://forum.twbts.com/thread-16562-1-1.html
4# 資料/驗證 ?

Hsieh

回復 6# yen956


   

下載 (703.84 KB)

2016-3-10 19:25

yen956

回復 8# Hsieh
謝謝Hsieh版大的回覆與指導,
原來[A2]驗証公式是
=countblank(A5:A7)<>0
謝謝!!

准提部林

A5, A7一定要輸入值，不然就沒辦法往下輸入

往哪個格輸入？？？
可否上傳表格！！！