請問混合編碼我應該怎麼做

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

2^#

發表於 2015-9-18 17:15 | 顯示全部帖子

stillfish00 大大
可以用了,MM規格基本上沒問題
但英制規格3/8,1/4,#8
這些規格都不行捏

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

3^#

發表於 2015-9-21 08:25 | 顯示全部帖子

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 99
Dim TG As Range
With Target
If .Row >= 3 And .Column = 1 Then
   If .Value = "" Then
98:    .Offset(0, 2) = ""
      .Offset(0, 3) = ""
      .Offset(0, 4) = ""
      .Offset(0, 5) = ""
      .Offset(0, 6) = ""
      .Offset(0, 7) = ""
      .Offset(0, 8) = ""
      .Offset(0, 9) = ""

  Else: Set TG = Sheet7.[H3:H9999].Find("*" & .Value & "*", , , xlWhole)
         If TG Is Nothing Then GoTo 98
            .Offset(0, 9) = TG.Offset(0, -6).Value
            TG2 = .Offset(0, 2).Value
            .Offset(0, 2) = TG.Offset(0, -3).Value
            .Offset(0, 3) = TG.Offset(0, -2).Value
            .Offset(0, 5) = Application.VLookup(TG2, Sheet15.[A4:H9999], 8, False)
                  If IsError(.Offset(0, 5).Value) Then .Offset(0, 5) = ""
            .Offset(0, 6) = TG.Offset(0, 1).Value
大大...可我前面還有這一段
可以加一起嗎?
這一段是抓其他相關資料的
不用再KEY一次

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

4^#

發表於 2015-9-21 10:17 | 顯示全部帖子

GBKEE 大大...麻煩請看一下我的留言,我試了好久
都沒辦法加一起

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

5^#

發表於 2015-9-21 16:59 | 顯示全部帖子

准提部林大大...你要求的附檔案說明

Book1.rar (124.8 KB)

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

6^#

發表於 2015-9-22 08:00 | 顯示全部帖子

有可能會手動改到存放區,如果樣品大一點九畢須以人工判斷,放至其他特殊存放區,但不常,
這樣子,下面就不能繼續以編碼原則編號,好像就會跳一號
以M12來講有三筆M12-A會有三次
如第4筆放置特別存放區
第5筆就會跳M12-B
正常應該跳M12-A

帖子: 96
主題: 24
精華: 0
積分: 149
點名: 0
作業系統: WINDOWES
軟體版本: OFFICE
閱讀權限: 20
性別: 女
註冊時間: 2011-10-11
最後登錄: 2018-9-25

7^#

發表於 2015-9-22 11:27 | 顯示全部帖子

本帖最後由 sheau-lan 於 2015-9-22 11:28 編輯

准提部林大大
編好10筆..當然不會去改第7筆
除非這支樣品交樣過程坎坷,才會獨立出一個專案
上述1-5項是對的M12-A編完跳M12-B以此類推
長度過長跟尺寸過大都會另外放一個較大的存放箱
超過M16長度超過150長包含150長
例如M18x190
M16x210
這些都會歸到特殊盒子