[發問] 有難度的邏輯

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

2^#

發表於 2014-4-22 16:16 | 只看該作者

回復 1# symis
我只能想到這個笨方法:
E4 陣列公式：
=SUM(LEN(UPPER($J$3:$J$10))-LEN(SUBSTITUTE(UPPER($J$3:$J$10),C4,"")))
向下拉

E8 陣列公式：
=SUM(E4:E5)

有錯誤時, 輸入有點麻煩：
(至少要操作兩次以上, 看準要修改的格子再修改)
總數有錯誤時, 不給警告, 以免太麻煩, 反正全部輸入完畢就ok了,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a1, b1, c1, d1 As Integer, Rng As Range
Set Rng = Worksheets(1).Range("J3:J10")
If Not Intersect(Target, Rng) Is Nothing Then
[E4].FormulaArray = _
"=SUM(LEN(UPPER($J$3:$J$10))-LEN(SUBSTITUTE(UPPER($J$3:$J$10),C4,"""")))"
[E5].FormulaArray = _
"=SUM(LEN(UPPER($J$3:$J$10))-LEN(SUBSTITUTE(UPPER($J$3:$J$10),C5,"""")))"
[E6].FormulaArray = _
"=SUM(LEN(UPPER($J$3:$J$10))-LEN(SUBSTITUTE(UPPER($J$3:$J$10),C6,"""")))"
[E7].FormulaArray = _
"=SUM(LEN(UPPER($J$3:$J$10))-LEN(SUBSTITUTE(UPPER($J$3:$J$10),C7,"""")))"
[E8] = "=SUM(E4:E5)"
If [E4] > 1 Then
MsgBox "A 最多只能有1個", vbCritical
End If
If [E5] > 2 Then
MsgBox "B 最多只能有2個", vbCritical
End If
If [E6] < 4 Then
MsgBox "C 最少要有4個", vbCritical
End If
If [E7] < 1 Then
MsgBox "D 最少要有1個", vbCritical
End If
End If
End Sub

複製代碼

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

3^#

發表於 2014-4-22 16:20 | 只看該作者

回復 1# symis
這個方法人多時不適用(太多警告了)

symis

中學生 Rank: 2

帖子: 42
主題: 13
精華: 0
積分: 61
點名: 0
作業系統: xpp-sp2
軟體版本: 2003sp2
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2017-1-24

4^#

發表於 2014-4-22 17:47 | 只看該作者

感謝yen956,但是輸入正確,為何仍有警告?

Symis

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

5^#

發表於 2014-4-22 18:46 | 只看該作者

本帖最後由 yen956 於 2014-4-22 18:49 編輯

抱歉, 我好像有偷改你的檔案的樣子,
(兩個圖不一樣, 真抱歉, 常為了錄影而压縮原空間)
又, 所謂陣列公式
點[E4], 在【資料編輯列】輸入公式,
不要按 Enter, 改按 Ctrl+Shift+Enter

symis

中學生 Rank: 2

帖子: 42
主題: 13
精華: 0
積分: 61
點名: 0
作業系統: xpp-sp2
軟體版本: 2003sp2
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2017-1-24

6^#

發表於 2014-4-22 19:25 | 只看該作者

回復 5# yen956

您太客氣了,我試的結果一樣呢!
是不是我也把E5,E6,E7也照做有關?
查了一下,Ctrl+Shift+Enter 是陣列公式
我再研究一下好了
謝謝您!

Symis

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

7^#

發表於 2014-4-22 20:40 | 只看該作者

回復 4# symis
把 B3:C7 剪下, 貼到 C3 就可以了, 公式已在 vba 中

有難度的邏輯(考核表).7z
http://www.mediafire.com/download/j90ni7j1evwrix5/%E6%9C%89%E9%9B%A3%E5%BA%A6%E7%9A%84%E9%82%8F%E8%BC%AF%28%E8%80%83%E6%A0%B8%E8%A1%A8%29.7z