198188

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-3-1 00:48 | 顯示全部帖子

[發問] 請問VBA 的程式有沒有可以辨認某個儲存格內的字元有無包含某幾個字串？

請問VBA 的程式有沒有可以辨認某個儲存格內的字元有無包含某幾個字串？
例如
另外無論是大寫或小寫都辨認到
in A1  A3  A4 包含 in
A1 window
A2  office
A3  tina
A4  WINNIE

另外可否找尋字串的位置
例如
in
A1 window                      3
A2  office
A3  tina                               2
A4  WINNIE                      2

樓主熱帖

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

2^#

發表於 2013-3-1 01:00 | 顯示全部帖子

回復 2# kimbal

感謝，但用一般excel我知道，我想知道vba有無這個功能？

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

3^#

發表於 2013-3-1 01:26 | 顯示全部帖子

回復 4# kimbal

感謝
csearch = IIf(result = 0, "", result)
請問如果只是檢查有沒有是否改成csearch = IIf(result = 0, "沒有", “有”)

另外請問
DO
UNTIL
可否同時有兩個UNTIL的條件
例如：
DO

UNTIL i>=1 or l = 0
UNTIL i>=1 and l = 0

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

4^#

發表於 2013-3-1 01:33 | 顯示全部帖子

回復 kimbal

感謝
csearch = IIf(result = 0, "", result)
請問如果只是檢查有沒有是否改成csea ...
198188 發表於 2013-3-1 01:26

這個程式是否需要在C欄處寫 csearch("in"a1,)?
如果在VBA內注明 SEARCH "IN"可以嗎？另外英文大寫和小寫都可以辨認到嗎？或者如何指定辨認大寫或小寫？

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

5^#

發表於 2013-3-8 15:56 | 顯示全部帖子

Sub Load_State_Detail()
Dim FRng As Range
Dim A As Range, Rng As Range
Dim i As Integer
Dim LastRec As Integer
Dim l As Integer
Dim k As Integer
Dim j As Integer
j = 2
LastRec = Sheets("state").Range("A1").CurrentRegion.Rows.Count
fs = "W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx"
Set Wb = Workbooks.Open(fs)
With ThisWorkbook.Worksheets("State")
k = Wb.Sheets("收件記錄").Range("A1").CurrentRegion.Rows.Count
For l = 2 To LastRec
Do
If Worksheets("State").Range("A" & l).Value = Wb.Sheets("收件記錄").Range("A" & j).Value Then
Worksheets("State").Range("J" & l).Value = Wb.Sheets("收件記錄").Range("h" & j)
If (InStr(1, Worksheets("State").Cells(l, 10), "OBL") >= 1) Then Worksheets("State").Range("J" & l).Value = Wb.Sheets("收件記錄").Range("h" & j) Else Worksheets("State").Range("J" & l).Value = ""
End If
j = j + 1
Loop Until j = k Or (InStr(1, Worksheets("State").Cells(l, 10), "OBL") >= 1)
Next
End With
End Sub

複製代碼

回復 7# kimbal

Test.rar (12.3 KB)

DOCS RECEIVED N RELEASED RECORD.rar (226.13 KB)
個程式If Worksheets("State").Range("A" & l).Value = Wb.Sheets("收件記錄").Range("A" & j).Value Then 出現RUN TIME ERROR "9" SUBSCRIP OUT OF RANG?
我這個程式的作用是
在test excel裏的state sheet A欄的訂單號如果在DOCS RECEIVED N RELEASED RECORD表內有這個訂單號，而且在H欄裏的字元含有"OBL"，那麼在test excel裏的state sheet的J欄就顯示DOCS RECEIVED N RELEASED RECORD表內H欄的字，否則就空格

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

6^#

發表於 2013-3-8 15:58 | 顯示全部帖子

回復 8# mark15jill

請幫我看看上面的問題，謝謝

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

7^#

發表於 2013-3-8 22:25 | 顯示全部帖子

回復 11# mark15jill

Sub State_Detail()
Dim FRng As Range
Dim a As Range, Rng As Range
Dim i As Integer
Dim LastRec As Integer
Dim z As Integer
Dim y As Integer
Dim x As Integer
Dim w As Integer
z = Sheets("state").Range("a2").CurrentRegion.Rows.Count
fs = "C:\Documents and Settings\USER\桌面\DOCS RECEIVED N RELEASED RECORD.xlsx"
Set WB = Workbooks.Open(fs)
With ThisWorkbook.Worksheets("State")
x = 2
For w = 2 To z
Do
If WB.Sheets("收件記錄").Cells(x, "D") = Sheets("state").Cells(w, "A") And (InStr(1, WB.Sheets("收件記錄").Cells(x, "H"), "OBL") >= 1) Then
Sheets("state").Cells(w, "J") = WB.Sheets("收件記錄").Cells(x, "H")
End If
x = x + 1
Loop Until x = WB.Sheets("收件記錄").Row.Count.End(xlUp)
Next
End With
WB.Close 0
End Sub

複製代碼

出現執行階段錯誤9 陣列索引超出範圍

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

8^#

發表於 2013-3-9 09:38 | 顯示全部帖子

回復 13# Hsieh

有個問題，因為我的DATA BASE裏的訂單號會重複幾次， Set Rng = Sh.Columns("D").Find(a, lookat:=xlWhole) 這句只是會找一次
例如：
200000    PLANT INV
200000    OHC
200000    OBL
200000    CO
200000    遲証信

211111    OBL
211111    OHC
211111    CO

222222    OHC
222222    CO
222222    OBL
效果就無法出現
因為我是想只要訂單號相同，而且這些訂單號只要有一列有OBL三個字，就出現OBL否則空格

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

9^#

發表於 2013-3-9 11:44 | 顯示全部帖子

回復 15# GBKEE

我想要的效果是根據Test.xlsm的State Sheet 的A欄的訂單號，來尋找DOCS RECEIVED N RELEASED RECORD.xlsx 收單記錄SHEET內D欄是否有相同的訂單號和H欄的字元內包含"OBL"三個字（大小寫都沒有問題可以讀到），如果有，在Test.xlsm的State Sheet 的相應的訂單號J欄顯示DOCS RECEIVED N RELEASED RECORD.xlsx 收單記錄SHEET內H欄的資料。如果沒有就空格。
前面有附件
Test.xlsm
State sheet
A欄             J欄
20000       OBL-3
20001
20002
20003       OBL
20004       OBL

W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx"
收單記錄SHEET
D欄                         H欄
20000                   遲証信
20000                   OBL-3
20003                   OHC(BODY-1,OIE-1,ACCEPTED BSE-1),CO
20000                   OHC(BODY-1,HPAI-1)
20004                   OHC(BODY-1,OIE-1,ACCEPTED BSE-1,AD-1,CL-1)
20005                   OHC(BODY-1)
20003                   OBL
20003                   INV
20005                   INV
20005                   OBL
20004                   OBL

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

10^#

發表於 2013-3-9 22:54 | 顯示全部帖子

回復 18# Hsieh

可以了，感謝大大

fd = ThisWorkbook.Path & "\" '資料來源目錄
fs = "DOCS RECEIVED N RELEASED RECORD.xlsx" '資料來源檔案(含副檔名)
另外請問上面兩句
如果我寫這句替代上面兩句fs = "W:\PIHK\DOCS RECEIVED N RELEASED RECORD.xlsx"
或者
fd = W:\PIHK\
fs = "DOCS RECEIVED N RELEASED RECORD.xlsx" '資料來源檔案(含副檔名)
這樣對嗎？

Join(Ar, "、"): Erase 這句是什麼意思？

另外請問如果我本來在state表的J欄已經有資料，會因應達到條件而取替資料，但如果要該儲存格是空格才取替

If s > 0 and trim(a.Offset(,9) )=“”Then a.Offset(, 9) = Join(Ar, "、"): Erase Ar: s = 0 Else a.Offset(, 9) = "" 這樣寫對嗎？

TOP