返回列表 上一主題 發帖

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

回復 10# Hsieh

我剛才用這樣就可以了,我想是Left((Worksheets("Oracle").Cells(1, 2).Value), 3) 電腦不認得是數值

    Worksheets(customer).Cells(2, 3).Value = Left((Worksheets("Oracle").Cells(1, 2).Value), 3)
  Worksheets(customer).Cells(1, 3).Value = Worksheets("Oracle").Cells(1,1).Value * Worksheets(customer).Cells(2, 3).Value

另外我想問
A1儲存格內是:CCLU8596520/J624353/001128
我想B1儲存格內顯示CCLU8596520
因為/前面不一定是11個位,我如何讓電腦懂得辨認讀取第一個/符號前的數值,顯示在B1儲存格內?

TOP

回復 11# 198188


    [B1]=Split([A1],"/")(0)
學海無涯_不恥下問

TOP

回復 12# Hsieh


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

TOP

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

  4. End Sub
複製代碼
未命名.png
2013-2-9 12:14




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

TOP

回復 12# Hsieh

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

TOP

回復 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

回復 16# 198188
  1. For Each a In Range([A1], [A1].End(xlDown)) '處理A欄文字
  2. d = IIf(InStr(a, "/") > 0, "/", IIf(InStr(a, " ") > 0, " ", "-")) '取得分隔符號
  3. b = IIf(InStr(a, ", ") > 0, Replace(a, ", ", ","), a) '若以空白鍵為分隔,則將逗號後的空白消除
  4. mystr = Split(b, d)(UBound(Split(b, d))) '以分隔符號分隔後最後的字串
  5. a.Offset(, 1) = Trim(Replace(b, d & mystr, "")) '寫入B欄
  6. a.Offset(, 2) = Trim(mystr) '寫入C欄
  7. Next
複製代碼
學海無涯_不恥下問

TOP

[/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)
未命名.png
2013-4-17 11:01

[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

本帖最後由 198188 於 2013-4-17 11:09 編輯
  1. Sub 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. Dim Sh As Worksheet, C As Range, Ar()
  7.     fs = "C:\Users\patrick.HKG\Desktop\DOCS RECEIVED N RELEASED RECORD.xlsx"
  8. With Workbooks.Open(fs)
  9.    Set Sh = .Sheets("收件記錄")
  10.        With ThisWorkbook.Sheets("OHC")
  11.           For Each a In .Range(.[C2], .Cells(.Rows.Count, 1).End(xlUp))
  12.              Set Rng = Sh.Columns("D").Find(a, lookat:=xlWhole)
  13.              If Not Rng Is Nothing Then
  14.                 For Each C In Sh.Range(Rng, Sh.Cells(Sh.Rows.Count, 4).End(xlUp))
  15.                    If C = a And InStr(UCase(C.Offset(, 4).MergeArea(1)), "OHC") > 0 Then
  16.                       ReDim Preserve Ar(s)
  17.                       Ar(s) = C.Offset(, 4).MergeArea(1)
  18.                       s = s + 1
  19.                    End If
  20.                  Next
  21.              If s > 0 Then
  22.                a.Offset(, 9) = Join(Ar, "﹜")
  23.                 Erase Ar
  24.                 s = 0
  25.                   Else
  26.                a.Offset(, 9) = ""
  27.              End If
  28.              End If
  29.           Next
  30.        End With
  31.   .Close
  32.   End With
  33.    End Sub
複製代碼
[/code][quote][/code]回復  Hsieh
當要讀的表的D欄是空格,而H欄有OHC這個字,就會出現附圖的問題

TOP

未命名.png
2013-4-17 11:22
回復 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

        靜思自在 : 【行善要及時】行善要及時,功德要持續。如燒開水一般,未燒開之前千萬不要停熄火候,否則重來就太費事了。
返回列表 上一主題