返回列表 上一主題 發帖

有關類別選取,直接抓到目前編號的問題

afu9240

帖子
164 
主題
45 
精華
0 
積分
211 
點名
0  
作業系統
微軟 
軟體版本
win10 
閱讀權限
20 
性別
女 
註冊時間
2017-8-28 
最後登錄
2022-8-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-12-18 16:14 | 只看該作者

有關類別選取,直接抓到目前編號的問題

Dear 各位高手及版主
  想請問一下要如何在輸入攔-新增後-選取資產類別-可以自動抓取目前編號,,,現在問題是我想分成Z5及Z51,住兩個號碼有衝突,,,要如辨別,Code要如何改呢???????????????謝謝 20181218.zip (97.17 KB)

20181218.gif
收藏 分享
yvonne

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2018-12-18 19:03 | 只看該作者
回復 1# afu9240
  1. Private Sub ComboBox7_Change()
  2. With Sheets("工作表1")
  3. For Each a In .Range(.[A2], .[A2].End(xlDown))
  4.   If Left(a, 3) = ComboBox7.Text & IIf(Len(ComboBox7) = 3, "", "0") Then
  5.      mynum = a
  6.   End If
  7. Next
  8. End With
  9. If Not IsEmpty(mynum) Then TextBox14 = ComboBox7 & Format(Val(Replace(mynum, ComboBox7, "")) + 1, String(Len(mynum) - Len(ComboBox7), "0")) Else TextBox14 = ""
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

afu9240

帖子
164 
主題
45 
精華
0 
積分
211 
點名
0  
作業系統
微軟 
軟體版本
win10 
閱讀權限
20 
性別
女 
註冊時間
2017-8-28 
最後登錄
2022-8-5 
3#
發表於 2018-12-19 11:17 | 只看該作者
回復 2# Hsieh


   版主真的好強喔~~~我需要時間吸收,感謝版主回覆*10000
這段code "IsEmpty"的意思是??是空值..就帶入目前應該的數值
yvonne

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題