lovenice831

回復 18# n7822123
Dim Arr, RepNo$

Sub 設下拉選單()
Application.ScreenUpdating = False
On Error GoTo 恢復
Set D = CreateObject("Scripting.Dictionary")
Arr = ['Receiving DATA'!A4].CurrentRegion
For R = 2 To UBound(Arr)
  RepNo = Arr(R, 13)
  If D(RepNo) = 0 Then D(RepNo) = R
Next R
For Each Key In D.keys: 批號串 = 批號串 & "," & Key: Next Key
With ['Receiving Report'!J6].Validation
  .Delete
  .Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=批號串
End With
Exit Sub
恢復: 開啟觸發事件
End Sub
請問這個批號串是出自那裡，因為我試把那數字組轉成別的組合，發現英文+數字的組合可行，像apr 0001, 但如若只0001或是 aaa-01/12-0001 這種便不行，這個我嘗試入格式換掉[批號串]﹐也是不行，是否這種語法本來就不可以變改的呢?

lovenice831

謝謝兩位指教，我再試試

lovenice831

回復 23# n7822123


我試著把兩邊都文字﹐但都行不了，
如果照檈主所講，下拉清單不設限制，那能用 / 嗎?
有一份差不多的報表，但那Reference No: 的排序是用這個格式： AAA-01/21-001
中間插了[/] 便用不到了

lovenice831

回復 27# 准提部林


    不好意思，我一直以為自己回覆你了，原來我沒回，謝謝你的幫忙 ^^"

lovenice831

回復 29# mark15jill


  那我先找找看，謝謝你