198188

回復 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儲存格內?

Hsieh

回復 11# 198188


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

198188

回復 12# Hsieh


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

198188

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. 
   
5. End Sub

複製代碼

下載 (150.88 KB)

2013-2-9 12:14

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

198188

回復 12# Hsieh

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

198188

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

Hsieh

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

複製代碼

198188

[/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)

下載次數: 2

2013-4-17 10:59

下載 (190.13 KB)

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" '揃蹋

198188

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這個字，就會出現附圖的問題

198188

下載 (183.83 KB)

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