討論群組

小惡魔市集悅遊日本活動報導

我要回覆

Excel跨工作表二層下拉式選單的操作問題

f10629

114分

11樓

個人積分：114分

文章編號：74794242

要不要考慮用VBA解?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 1 Then
Target.Offset(0, 1).Validation.Delete
Set ColumnA = Sheets("城市與客戶科別").Columns("A")
Set R = ColumnA.Find(What:=Target.Value, LookAt:=xlWhole)
If Not R Is Nothing Then
s = R.Offset(0, 1).Value
Set R2 = ColumnA.FindNext(After:=R)
Do Until R2.Row = R.Row
s = s & "," & R2.Offset(0, 1).Value
Set R2 = ColumnA.FindNext(After:=R2)
Loop
Target.Offset(0, 1).Validation.Add Type:=xlValidateList, Formula1:=s
End If
End If
End Sub

rsi1107

1分

12樓

個人積分：1分

文章編號：74802566

厄洛斯 wrote:
感謝si1107您的...(恕刪)

工作表一是DATA，工作表二是二階層選單，以我的理解只能做到這樣，你再看看是不是你想要的。

[點擊下載]

5分

樓主

個人積分：5分

文章編號：74802900

rsi1107 wrote:
工作表一是DATA，...(恕刪)

對,就是這個做法,這就是我要的操作方法.
1.能請問你是怎麼做的?能告訴我方法嗎?
2.你做的這個方法可以跨檔案嗎?例如:客戶別在a檔案的a工作表,輸入的報表在b檔案的a工作表,因為我是以年為一個資料夾,每年清空工作報表內容重新開始,但是客戶別則會一直使用並且增加客戶別內容.

5分

樓主

個人積分：5分

文章編號：74802904

f10629 wrote:
要不要考慮用VBA解...(恕刪)

感謝f10629提供vba的方法,我會試試看(雖然對vba還處在一知半解的狀態)..

1
2