返回列表 上一主題 發帖

[發問] 有關編號顯示問題~~~~

afu9240

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

[發問] 有關編號顯示問題~~~~

各位高手及超級版主 大家好

    希望表單選擇類別時,編號能抓到目前最後一筆要新增的編號,,,,比方說類別選 Z2為何編號不能跳到Z200015??卻是以數量為計算顯示Z200013,,,可以幫忙嗎???要如何解呢
感恩~~~~~~~~~~~~ 20181015.zip (13.87 KB)
收藏 分享
yvonne

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2018-10-15 18:41 | 只看該作者
回復 1# afu9240
  1. Option Explicit
  2. Private Sub ComboBox1_Change()
  3.     Dim E As Range, St As String
  4.     With 工作表1
  5.         For Each E In .Range("a:a").SpecialCells(xlCellTypeConstants)
  6.             If E Like ComboBox1 & "*" Then
  7.                 St = IIf(Replace(E, ComboBox1, "") > St, Replace(E, ComboBox1, ""), St)
  8.             End If
  9.         Next
  10.         If St = "" Then St = 0
  11.     End With
  12.     TextBox1.Text = ComboBox1 & Format(St + 1, "00000")
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

afu9240

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


    感謝超級版主回覆~感謝*100000
   沒看過的語法真的有點需要時間消化,,版主有在授課嗎?
yvonne

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題