返回列表 上一主題 發帖

[發問] 菜鳥請問~

amd8000x

帖子
2 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windows7 
軟體版本
OFFICE 2003 
閱讀權限
10 
註冊時間
2015-10-9 
最後登錄
2017-2-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-9 11:40 | 只看該作者

[發問] 菜鳥請問~

小弟有個問題，看了1個晚上的網路資料，還是想不到要怎麼簡化~
想請問各位老師:
我的想法是在excel第cells(i,1)中比對特定字串(大約1組有5~10字串，大約有5組)，
例如A組(有TA11,TA16,TA18~)
B組有(TA12,TA13,TA19,TA58~)
C組~
n組。
=>字串中，數字及英文字無規律及規則性。
找到那一組中的字串後在cells(i,3)代入該組的"特定字串"，
我試寫巨集如下:
(我是要看有辨法簡化if 條件式中的比對字串)
Ps:我還未把所有要比對的字串放上來，放上去會蠻多的:L 。

Sub AAA()
Dim i As Integer
For i = 1 To 10000
If Cells(i, 1) = "TA11" Or Cells(i, 1) = "TA16" Or Cells(i, 1) = "TA18" Then
Cells(i, 3) = "YES"
ElseIf Cells(i, 1) = "TA12" Or Cells(i, 1) = "TA13" Or Cells(i, 1) = "TA19" Or Cells(i, 1) = "TA58" Then
Cells(i, 3) = "YES,sir"
ElseIf Cells(i, 1) = "CA11" Or Cells(i, 1) = "CA16" Or Cells(i, 1) = "CA18" Or Cells(i, 1) = "CA28" Then
Cells(i, 3) = "you right!!"
ElseIf Cells(i, 1) = "AA31" Or Cells(i, 1) = "AA56" Or Cells(i, 1) = "AA18" Or Cells(i, 1) = "AA68" Then
Cells(i, 3) = "HI"
Else
Cells(i, 3) = "NO"
End If
Next

End Sub
請教老師了~~感謝，感謝!!!
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
2#
發表於 2015-10-9 18:47 | 只看該作者
編個〔對照表〕，
使用 VLOOKUP 就簡單許多∼∼

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-22 

熱烈參與勳章
3#
發表於 2015-10-10 09:55 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/214357857
參考即可

TOP

amd8000x

帖子
2 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windows7 
軟體版本
OFFICE 2003 
閱讀權限
10 
註冊時間
2015-10-9 
最後登錄
2017-2-17 
4#
發表於 2015-10-11 00:35 | 只看該作者
版大~了解!
我用vlookup試寫了一下，我才發現跟用excel一點都不同。
不過終於試出來了~不知還有改進的空間嗎?

Sub vlookup()
Dim data As Range
Set data = ['對照表'!$A$1:B$100]
For i = 2 To 1000
Cells(i, 2) = Application.vlookup(Cells(i, 1), data, 2, 0)
Next
End Sub

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
5#
發表於 2015-10-11 09:07 | 只看該作者
回復 4# amd8000x

剛學過..現學現賣
vlookup沒找到會回傳錯誤所以要加個料
Dim  j As Variant
k=Cells(i, 1)
j=Application.vlookup(k, data, 2, 0)
If Not IsError(j) Then
Cells(i,2)=j
End If

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2015-10-12 10:49 | 只看該作者
回復 1# amd8000x
  1. Sub AAA()
  2.     Dim i As Long, arData
  3.     Const GROUP_A = Array("TA11", "TA16", "TA18")
  4.     Const GROUP_B = Array("TA12", "TA13", "TA19", "TA58")
  5.    
  6.    
  7.     arData = Range("A1").Resize(Cells(Rows.Count, 1).End(xlUp).Row, 3).Value
  8.     For i = 1 To UBound(arData)
  9.         If Not IsError(Application.Match(arData(i, 1), GROUP_A)) Then
  10.             arData(i, 3) = "YES"
  11.         ElseIf Not IsError(Application.Match(arData(i, 1), GROUP_B)) Then
  12.             arData(i, 3) = "YES,sir"
  13.         End If
  14.     Next
  15.     Range("A1").Resize(UBound(arData), 3).Value = arData
  16. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題