儲存格出現格式為文字或開頭為單引號的錯誤 - Excelㄧ般區

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

21^# 跳轉到 »

發表於 2013-4-19 11:37 | 只看該作者

Desktop.rar (440.64 KB)

fs = "W:\Payment Daily Report\HK ETA update.xlsm"
Set wb = Workbooks.Open(fs)
With ThisWorkbook.Worksheets("State")
For Each A In .Range(.[A2], .Range("A1").End(xlDown))
Set FRng = wb.Sheets("HK HAIPONG").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not FRng Is Nothing Then
A.Offset(, 1) = FRng.Offset(, 11).Value
If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
End If
Set FRng = Nothing
Next
End With
wb.Close 0

複製代碼

回復 17# Hsieh
這個程式應該是會自動更新Master.xlsx的B欄資料，但是我發現有些做不了，例如209519 Master.xlsx是22/3，但是HK HAIPONG sheet 是21/3，不懂得更新，請問哪裡有問題？

另外如果在HK HAIPONG sheet 中找到有，但是Offset(, 11).Value是空格，就不變,我改了這句If Trim(FRng.Offset(, 11).Value) <> "" then  A.Offset(, 1) = FRng.Offset(, 11).Value，但是沒有作用，請問是否有錯？

fs = "W:\Payment Daily Report\HK ETA update.xlsm"
Set wb = Workbooks.Open(fs)
With ThisWorkbook.Worksheets("State")
For Each A In .Range(.[A2], .Range("A1").End(xlDown))
   Set FRng = wb.Sheets("HK HAIPONG").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
   If Not FRng Is Nothing Then
      If Trim(FRng.Offset(, 11).Value) <> "" then  A.Offset(, 1) = FRng.Offset(, 11).Value
      If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
      End If
      Set FRng = Nothing
Next
End With
wb.Close 0

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

20^#

發表於 2013-4-17 11:27 | 只看該作者

回復 17# Hsieh

NANSHA-CHINA 中国南沙                                        NANSHA-CHINA                   中国南沙
NANSHA-CHINA 中国南沙                                        NANSHA-CHINA                   中国南沙
NANSHA-CHINA/中国南沙                                        NANSHA-CHINA                   中国南沙
NANSHA-CHINA 中国南沙                                        NANSHA-CHINA                   中国南沙
KAOHSIUNG TAIWAN PORT                                        KAOHSIUNG TAIWAN PORT
OSAKA - JAPAN                                                             OSAKA -                                        JAPAN
"HONG KONG / 香港 "                                        HONG KONG                   "香港 "
HONG KONG                                                             HONG                                        KONG
OSAKA - JAPAN                                                             OSAKA -                                        JAPAN
HONG KONG                                                             HONG                                        KONG
HONG KONG, CY DELIVERY / 香港, 櫃場交貨 HONG KONG,CY DELIVERY 香港,櫃場交貨
HONG KONG, CY DELIVERY / 香港, 櫃場交貨 HONG KONG,CY DELIVERY 香港,櫃場交貨
HONG KONG, CY DELIVERY / 香港, 櫃場交貨 HONG KONG,CY DELIVERY 香港,櫃場交貨
HONG KONG, CY DELIVERY / 香港, 櫃場交貨 HONG KONG,CY DELIVERY 香港,櫃場交貨
HONG KONG, CY DELIVERY / 香港, 櫃場交貨 HONG KONG,CY DELIVERY 香港,櫃場交貨
NARITA, JAPAN (NRT)                                        NARITA,JAPAN                      (NRT)
感謝，但是有些字不應該拆開卻拆開例如：HONG KONG

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

19^#

發表於 2013-4-17 11:07 | 只看該作者

本帖最後由 198188 於 2013-4-17 11:09 編輯

Sub Detail()
Dim FRng As Range
Dim a As Range, Rng As Range
Dim i As Integer
Dim LastRec As Integer
Dim Sh As Worksheet, C As Range, Ar()
fs = "C:\Users\patrick.HKG\Desktop\DOCS RECEIVED N RELEASED RECORD.xlsx"
With Workbooks.Open(fs)
Set Sh = .Sheets("收件記錄")
With ThisWorkbook.Sheets("OHC")
For Each a In .Range(.[C2], .Cells(.Rows.Count, 1).End(xlUp))
Set Rng = Sh.Columns("D").Find(a, lookat:=xlWhole)
If Not Rng Is Nothing Then
For Each C In Sh.Range(Rng, Sh.Cells(Sh.Rows.Count, 4).End(xlUp))
If C = a And InStr(UCase(C.Offset(, 4).MergeArea(1)), "OHC") > 0 Then
ReDim Preserve Ar(s)
Ar(s) = C.Offset(, 4).MergeArea(1)
s = s + 1
End If
Next
If s > 0 Then
a.Offset(, 9) = Join(Ar, "﹜")
Erase Ar
s = 0
Else
a.Offset(, 9) = ""
End If
End If
Next
End With
.Close
End With
End Sub

複製代碼

[/code][quote][/code]回復 Hsieh
當要讀的表的D欄是空格，而H欄有OHC這個字，就會出現附圖的問題

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

18^#

發表於 2013-4-17 11:04 | 只看該作者

[/code][b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=52598&ptid=8765]17#[/url] [i]Hsieh[/i] [/b]

Desktop.rar (193.92 KB)

[code]Sub Detail()
Dim FRng As Range
Dim a As Range, Rng As Range
Dim i As Integer
Dim LastRec As Integer
Dim Sh As Worksheet, C As Range, Ar()

fs = "C:\Users\patrick.HKG\Desktop\DOCS RECEIVED N RELEASED RECORD.xlsx" '揃蹋

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2013-4-16 19:32 | 只看該作者

回復 16# 198188

For Each a In Range([A1], [A1].End(xlDown)) '處理A欄文字
d = IIf(InStr(a, "/") > 0, "/", IIf(InStr(a, " ") > 0, " ", "-")) '取得分隔符號
b = IIf(InStr(a, ", ") > 0, Replace(a, ", ", ","), a) '若以空白鍵為分隔，則將逗號後的空白消除
mystr = Split(b, d)(UBound(Split(b, d))) '以分隔符號分隔後最後的字串
a.Offset(, 1) = Trim(Replace(b, d & mystr, "")) '寫入B欄
a.Offset(, 2) = Trim(mystr) '寫入C欄
Next

複製代碼

學海無涯_不恥下問

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

16^#

發表於 2013-4-16 17:56 | 只看該作者

回復 12# Hsieh

如果並非每個儲存格都有/這個符號
請問如何讓電腦辨認，因為如果我用這個公式，當遇到無/這個符號的那欄就會停住。

例如：
資料庫：
HONGKONG, DO DELIVERY 香港, 交提貨單
HONG KONG / 香港
YANTIAN,CHINA/盐田
XINGANG,TIANJIN,CHINA/天津新港
SHANGHAI-CHINA/上海
XINGANG,TIANJIN,CHINA-天津新港

如何辨認中文及英文，
1）只顯示中文
香港, 交提貨單
香港
盐田
天津新港
上海
天津新港

或者
2）只顯示英文
HONGKONG, DO DELIVERY
HONG KONG
YANTIAN,CHINA
XINGANG,TIANJIN,CHINA
SHANGHAI-CHINA
XINGANG,TIANJIN,CHINA

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

15^#

發表於 2013-3-8 22:27 | 只看該作者

回復 12# Hsieh

高人，請幫忙看看哪裡出現問題
http://forum.twbts.com/viewthrea ... amp;page=2#pid51110

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

14^#

發表於 2013-2-9 12:18 | 只看該作者

Sub MARCO()
Worksheets(RUI).Range("A16:N66").Select
Selection.Sort Key1:=Range("D16"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal
End Sub

複製代碼

請問這個語法哪裡出現問題？我想以D欄的预计到港日由小到大排序，排序範圍是A16:N66

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

13^#

發表於 2013-2-9 10:27 | 只看該作者

回復 12# Hsieh

感謝，請問可否解釋一下用法，那我以後就可以懂得如何運用這個語法。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2013-2-8 17:44 | 只看該作者

回復 11# 198188

[B1]=Split([A1],"/")(0)

學海無涯_不恥下問

TOP

[發問] 儲存格出現格式為文字或開頭為單引號的錯誤

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]