[發問] 請各位高手協助,謝謝您

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-6-25 19:28 | 只看該作者

[發問] 請各位高手協助,謝謝您

想請各位高手協助,需求如下:
我想寫一個有關於每日菜單設計表,材料有a,b,c,d,e...等數種,每天各種材料加總為15
例如
      A    B C D E F G H I J K -欄
列1  NO.1  a 2 c  2 b 2  e 2 f 3
列2  NO.2  c 2 b  2 f 3  e 2 a 2  -->當我這一列輸入完成後,會和NO.1的資料比對,會跳出警告說菜單已重複
列3  NO.3  c 2 b  2 f 3  e 2 a 2  -->當我這一列輸入完成後,會和NO.1和NO.2的資料比對,無重複,則不必跳出警告

以上這是我想要完成的菜單,可以在Sheet1輸入資料,再和Sheet2的歷史菜單比對,懇請各位高手幫我這個大忙,謝謝您

stock

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-6-25 23:17 | 只看該作者

回復 1# usana642

工作表模組

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 11 Then Exit Sub
Set d = CreateObject("Scripting.Dictionary")
LR = [A65536].End(xlUp).Row
For I = 1 To LR - 1
For J = 2 To 10 Step 2
d(Cells(I, J).Value) = ""
Next J
If d.exists(Cells(LR, 2).Value) And d.exists(Cells(LR, 4).Value) And d.exists(Cells(LR, 6).Value) And d.exists(Cells(LR, 8).Value) And d.exists(Cells(LR, 10).Value) Then
MsgBox "與第" & I & "列重覆"
End If
d.RemoveAll
Next I
End Sub

複製代碼

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

3^#

發表於 2012-6-26 16:15 | 只看該作者

回復 2# register313

謝謝register313熱心協助,我先試看看,謝謝您

stock

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

4^#

發表於 2012-6-26 19:02 | 只看該作者

回復 2# register313

可以正常執行了,謝謝您

stock

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2012-6-26 22:52 | 只看該作者

回復 1# usana642

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountA(Cells(Target.Row, 2).Resize(, 10)) <> 10 Or Target.Row < 2 Or Target.Column > 11 Then Exit Sub
For i = 1 To Target.Row - 1
k = 0
For j = 2 To 11
k = k + IIf(Application.CountIf(Cells(Target.Row, 2).Resize(, 10), Cells(i, j)) = 1, 1, 0)
Next
If k = 10 Then MsgBox "與第" & i & "列重複": Exit Sub
Next
End Sub

複製代碼

學海無涯_不恥下問

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

6^#

發表於 2012-6-27 17:21 | 只看該作者

回復 5# Hsieh

謝謝超級版主的協助,謝謝您

stock