返回列表 上一主題 發帖

[發問] 比對字串內特定資料後將結果合併字串

chthonicfreddy

帖子
6 
主題
3 
精華
0 
積分
52 
點名
0  
作業系統
Win7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-3 
最後登錄
2021-6-20 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-12-28 17:48 | 只看該作者

[發問] 比對字串內特定資料後將結果合併字串

本帖最後由 chthonicfreddy 於 2016-12-28 17:50 編輯

儲存格A1字串：A.B.C.01.02.03.04.05.06.07.08.09.10.11.102.104.109.  (號碼不連續)
比對資料內容： 01.  =  甲1
                             02.  =  甲2
                             03.  =  甲3   ......................(資料連續)
傳回結果B1：甲1.甲2.甲3......
請問如何自定函數?

test.rar (7.47 KB)

test

收藏 分享

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-12-29 00:22 | 只看該作者
  1. Function convert1(str As String) As String
  2. Dim arr(1 To 114), brr(1 To 114)
  3. For j = 1 To 114
  4.       arr(j) = Format(j - 4, "#00.")
  5. Next j
  6. arr(1) = "A.": arr(2) = "B.": arr(3) = "C.": arr(4) = "D."
  7. For j = 1 To 114
  8.       brr(j) = "甲" & j
  9. Next j
  10. For j = 1 To 114
  11.    If InStr(str, arr(j)) > 0 Then
  12.       t = IIf(t = "", brr(j), t & "." & brr(j))
  13.    End If
  14. Next j
  15. convert1 = t
  16. End Function
複製代碼
回復 1# chthonicfreddy

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2016-12-29 09:54 | 只看該作者
回復 1# chthonicfreddy

試試看
    test.zip (14.82 KB)
學海無涯_不恥下問

TOP

chthonicfreddy

帖子
6 
主題
3 
精華
0 
積分
52 
點名
0  
作業系統
Win7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-3 
最後登錄
2021-6-20 

論壇贊助勳章
4#
發表於 2016-12-29 14:29 | 只看該作者
回復 3# Hsieh


感謝葉大、板大協助
板大的解答已完全解決小弟的問題!!

TOP

chthonicfreddy

帖子
6 
主題
3 
精華
0 
積分
52 
點名
0  
作業系統
Win7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-3 
最後登錄
2021-6-20 

論壇贊助勳章
5#
發表於 2016-12-29 16:13 | 只看該作者
回復 3# Hsieh


再請問一下
我修改了
For Each ky In ar
    If d(ky & Dot) <> "" Then Mystr = IIf(Mystr = "", d(ky & "."), Mystr & ky & Dot & d(ky & Dot))
Next

希望結果是
甲101.甲202.~
可是結果變成
甲102.甲203.~
想請問大大應該如何修正?

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題