請問VBA 的程式有沒有可以辨認某個儲存格內的字元有無包含某幾個字串？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問VBA 的程式有沒有可以辨認某個儲存格內的字元有無包含某幾個字串？

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

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

超級版主 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兔年全勤獎章

1^# 跳轉到 »

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

本帖最後由 GBKEE 於 2013-3-9 12:52 編輯

回復 14# 198188
Set Rng = Sh.Columns("D").Find(a, lookat:=xlWhole) 這句只是會找一次
如下可尋找全部

Option Explicit
Sub Ex()
Dim A As String, Rng As Range, Sh As Worksheet, Address_First As String
Dim M As String
Set Sh = ActiveSheet
A = "OBL" '尋找的字串
Set Rng = Sh.Columns("D").Find(A, lookat:=xlWhole) '第一個
If Not Rng Is Nothing Then
Address_First = Rng.Address '寫下第一個位址
Do
M = IIf(M <> "", M & ",", "") & Rng.Address
Set Rng = Sh.Columns("D").FindNext(Rng) '繼續尋找下一個
Loop Until Address_First = Rng.Address '回到第一個位址
MsgBox M
Else
MsgBox "找不到"
End If
End Sub
Sub Ex_1()
Dim A As String, Rng As Range, Sh As Worksheet, Address_First
Set Sh = ActiveSheet
A = "OBL" '尋找的字串
Set Rng = Sh.Columns("D").Find(A, lookat:=xlWhole) '第一個
If Not Rng Is Nothing Then
With Sh.Columns("D")
.Replace A, "=ABC", xlWhole '修改"尋找的字串" = 沒定義的名稱
Set Rng = .SpecialCells(xlCellTypeFormulas, xlErrors) '儲存格有錯誤值的特定範圍
Rng.Value = A '沒定義的名稱改回 "尋找的字串"
MsgBox Rng.Address
End With
Else
MsgBox "找不到"
End If
End Sub

複製代碼

因為我是想只要訂單號相同，而且這些訂單號只要有一列有OBL三個字，就出現OBL否則空格
不了解你檔案內容無法回答

超級版主 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^#

發表於 2013-3-9 13:15 | 顯示全部帖子

回復 16# 198188

Option Explicit
Sub Ex()
Dim R As Range, Rng As Range, E As Range
With Sheet1 '*** 須改為: Test.xlsm的State Sheet
Set R = .Cells(1, "a") 'A1開始
Do Until R = "" '離開迴圈的條件: A欄的儲存格=""
With Sheet2 '*** 須改為: W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx"
Set Rng = .Columns("D").Find(R, lookat:=xlWhole)
If Not Rng Is Nothing Then
With .Columns("D")
.Replace R, "=ABC", xlWhole '修改"尋找的字串" = 沒定義的名稱
Set Rng = .SpecialCells(xlCellTypeFormulas, xlErrors) '儲存格有錯誤值的特定範圍
Rng.Value = R '沒定義的名稱改回 "尋找的字串"
For Each E In Rng.Offset(0, 4) 'D欄位移4欄=H欄
If InStr(UCase(E), "OBL") Then 'H欄的字元內包含"OBL"三個字
'UCase(E) 轉換為大寫
R.Offset(0, 9) = E.Value 'R.Offset(0, 9)-> A欄位移到 J欄
'Test.xlsm的State Sheet->J欄=DOCS RECEIVED N RELEASED RECORD.xlsx"->H欄的字元
Exit For '有找到 "OBL" 離開迴圈 '
End If
Next
End With '.Columns("D")
End If
End With 'Sheet2
Set R = R.Offset(1) '下移到 A2
Loop
End With 'Sheet1
End Sub

複製代碼

超級版主 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兔年全勤獎章

3^#

發表於 2013-3-10 15:16 | 顯示全部帖子

回復 20# 198188
With Sheet2 (這句是否改With W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx ？）但是好像不對？？

如果我寫這句替代上面兩句fs = "W:\PIHK\DOCS RECEIVED N RELEASED RECORD.xlsx"
第5行這句
With Workbooks.Open(fd & fs)
就要改成
With Workbooks.Open(fs)

With Workbooks.Open(fs)
Set Sh=.Sheets("收單記錄SHEET")
End With
With Sh '->如此 Sh 已替代為為W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx"的收單記錄SHEET
End With

複製代碼

超級版主 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兔年全勤獎章

4^#

發表於 2013-3-13 12:30 | 顯示全部帖子

回復 32# 198188
If Worksheets("OHC").Range("G" & i) - Date <= 2 Then 這句哪裡出現問題了？
條件式: Range("G?")(<- 必需是日期) - Date(當天日期)<=2(天)
你說出現問題了 ,請說明白!!

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

超級版主 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兔年全勤獎章

5^#

發表於 2013-3-13 14:23 | 顯示全部帖子

回復 35# 198188
typing mistake 的翻譯是輸入錯誤
請檢查 Range("g?")是否是數字,或傳上檔案看看

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

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

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