返回列表 上一主題 發帖

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

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

Book1.rar (253.46 KB)
請問為什麼這個excel 儲存格會出現錯誤?它意思說格式為文字或開頭為單引號,為什麼會這樣?有什麼解決方法,讓以後不出現這個問題

我也好想知道為什麼,可是我現在還不能下載@@

TOP

[/code]回復  Hsieh


[code]Sub Detail()
Dim FRng As Range
Dim a As Range, Rng As Range
Dim ...
198188 發表於 2013-4-17 11:04


另外可否幫我看看第18,19的貼文?
第18篇是問題,第19篇是程式。為何資料庫有空格時,會變成這樣,位置不對
請問有方法解決這個問題嗎?

TOP

回復  198188
Hsieh 發表於 2013-4-16 19:32



    另外可否幫我看看第18,19的貼文?
第18篇是問題,第19篇是程式。為何資料庫有空格時,會變成這樣,位置不對

TOP

本帖最後由 198188 於 2013-4-22 11:23 編輯

b]回復 26# Hsieh


    是呀,我程式是放在MASTER.XLSM內,因為我怕放程式會導致EXCEL太大,無法上載,所以才分出來上載

TOP

回復 25# 198188

ThisWorkbook是指程式碼所在的活頁簿
學海無涯_不恥下問

TOP

  1. Sub Load_State_Detail()
  2. Dim FRng As Range
  3. Dim A As Range, rng As Range
  4. Dim I As Integer
  5. Dim LastRec As Integer
  6. fs = "W:\Payment Daily Report\HK ETA update.xlsm"
  7. Set wb = Workbooks.Open(fs)
  8. With ThisWorkbook.Worksheets("State")
  9. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
  10.      Set FRng = wb.Sheets("HK HAIPONG").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
  11.      If Not FRng Is Nothing Then
  12.      If Trim(FRng.Offset(, 11).Value) <> "" Then
  13.           A.Offset(, 1) = FRng.Offset(, 11).Value
  14.           If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
  15.         End If
  16.         End If
  17.         Set FRng = Nothing
  18. Next
  19. End With
  20. wb.Close 0

  21.   fs = "W:\Payment Daily Report\Mainland ETA Update.xlsm"
  22. Set wb = Workbooks.Open(fs)
  23. With ThisWorkbook.Worksheets("State")
  24. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
  25.      Set FRng = wb.Sheets("MAILAND ETA").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
  26.       If Not FRng Is Nothing Then
  27.        If Trim(FRng.Offset(, 11).Value) <> "" Then
  28.      A.Offset(, 1) = FRng.Offset(, 11).Value
  29.      
  30.            If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
  31.         End If
  32.         End If
  33.        Set FRng = Nothing
  34. Next
  35. End With
  36. wb.Close 0
  37. end sub
複製代碼
回復 24# Hsieh

With ThisWorkbook.Worksheets("State") 這句是不是指示了Master.xlsm內的State Sheet嗎?

TOP

回復 23# 198188

看你的程式碼似乎是還有另一檔案為執行程式的檔案
但是在程式碼內容卻不是針對Master.xlsx檔案做更新
這樣斷章取義的問題無法解答
學海無涯_不恥下問

TOP

回復 22# Hsieh


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

TOP

回復 21# 198188

    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
     End If
學海無涯_不恥下問

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題