yen956

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-3-10 15:44 | 只看該作者

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

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

樓主熱帖

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

11^#

發表於 2016-3-12 09:08 | 只看該作者

更正：
原來[A2]驗証公式是
=countblank(A5:A7)=0
謝謝!!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

10^#

發表於 2016-3-11 13:05 | 只看該作者

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

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

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

9^#

發表於 2016-3-11 04:37 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2016-3-10 19:25 | 只看該作者

回復 6# yen956

學海無涯_不恥下問

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

7^#

發表於 2016-3-9 08:52 | 只看該作者

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2016-3-8 15:14 | 只看該作者

本帖最後由 lpk187 於 2016-3-8 15:17 編輯

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

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, Col%
For Each Rng In Target
Col = Cells(2, Columns.Count).End(xlToLeft).Column
If Cells(2, Col) <> "" Then
If Cells(5, Col) = "" Then
Cells(5, Col).Select
Exit For
ElseIf Cells(7, Col) = "" Then
Cells(7, Col).Select
Exit For
End If
End If
Next
End Sub
Private Sub 修改模式_Click()
Application.EnableEvents = False
End Sub
Private Sub 輸入模式_Click()
Application.EnableEvents = True
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2016-3-8 13:36 | 只看該作者

回復 1# aweihsu

資料/驗證

學海無涯_不恥下問

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2016-3-8 09:57 | 只看該作者

試試看:

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

複製代碼

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2016-3-7 14:45 | 只看該作者

使用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

羅

TOP