VBA 填寫表格及另存新檔 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA 填寫表格及另存新檔

返回列表下一主題上一主題發帖

[發問] VBA 填寫表格及另存新檔

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

21^# 跳轉到 »

發表於 2021-1-7 16:57 | 只看該作者

回復 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 這種便不行，這個我嘗試入格式換掉[批號串]﹐也是不行，是否這種語法本來就不可以變改的呢?

版主 Rank: 7 Rank: 7 Rank: 7

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

22^#

發表於 2021-1-7 20:27 | 只看該作者

回復 21# lovenice831

1) 先確定你的編碼來源是[文字]還是[數值]格式
2) 若是[文字]格式, 那麼下拉清單那一格也須設定為[文字]格式,
否則下拉選取後, 0001 變成 1 , 或 801E10 或 2-12-3 也會變成不一樣(變成科學記號或日期).
而且, 0001 應該是實際四個字元組成, 而不是輸入1, 但格式設成 "0000”．
3) 純數字的, 更要注意格式, 1234 及 "1234", 字典檔會看做不一樣, 用 IF 1234 = "1234 也是 "FALSE",
當然, 編號也儘量不要含有空白字元, 手動輸入時容易誤打!!!
　
　
　

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

23^#

發表於 2021-1-8 12:08 | 只看該作者

本帖最後由 n7822123 於 2021-1-8 12:17 編輯

回復 21# lovenice831

我已經限定  RepNo 是字串格式了~~

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]

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

24^#

發表於 2021-1-8 12:34 | 只看該作者

謝謝兩位指教，我再試試

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

25^#

發表於 2021-1-8 13:06 | 只看該作者

回復 23# n7822123

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

版主 Rank: 7 Rank: 7 Rank: 7

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

26^#

發表於 2021-1-8 21:31 | 只看該作者

回復 25# lovenice831

AAA-01/21-001 當下拉清單是沒問題,
但若要依此存成檔案名稱是行不通的, 含"/"違反命名規則,
若有其他問題, 應上傳檔案, 才能判斷是哪一環節???

版主 Rank: 7 Rank: 7 Rank: 7

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

27^#

發表於 2021-1-9 11:41 | 只看該作者

另案參考:

Receiving Data_01.rar (49.94 KB)

另存檔部份沒做~~

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

28^#

發表於 2021-2-3 14:11 | 只看該作者

回復 27# 准提部林

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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

29^#

發表於 2021-2-5 14:25 | 只看該作者

回復 lovenice831

感覺跟我想的差不多吧!?~~ 你無法收附件?

我貼程式給你，你執行"收貨報表"即可~後 ...
n7822123 發表於 2020-12-31 02:18

印象中~ 相同功能我之前有發過一次完整版的範例... 只是要翻舊文章找看看

該功能是填寫特定資料後手動點擊儲存即可根據名稱另存

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

30^#

發表於 2021-2-8 10:02 | 只看該作者

回復 29# mark15jill

那我先找找看，謝謝你

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題