關於此段程式碼的改進以及說明? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 關於此段程式碼的改進以及說明?

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

[發問] 關於此段程式碼的改進以及說明?

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

3^# 跳轉到 »

發表於 2015-6-30 22:38 | 只看該作者

本帖最後由 starry1314 於 2015-6-30 22:45 編輯

回復 2# GBKEE

板大~不行耶,如果是單條件的話是正確的,
但如果C2為
EX:紅,糖 <不管輸入的條件是什麼只要是多條件他都會讀取第一項

目前寫法好像是把C2內容視為一個條件,
正在找怎麼讓他以【,】做區分只要出現其中一個條件就跳往下一道菜色

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-6-30 20:48 | 只看該作者

回復 1# starry1314
試試看

Sub tt()
Dim arr(), str As String, brr As String
str = Sheets("工作表1").[c2].Value
Sheets("工作表1").[E8] = ""
arr = Sheets("data").[a1].CurrentRegion.Rows(2).Value
For i = 2 To UBound(arr, 2) Step 2
If InStr(arr(1, i), str) = 0 Then
Sheets("工作表1").[E8] = arr(1, i - 1)
brr = arr(1, i)
Exit For
End If
Next
If brr = "" Then
MsgBox "查不到結果"
Else
MsgBox "最後有" & Sheets("工作表1").[E8] & "為：" & brr
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。

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