犯罪軍團大本營 (前名: 今晚真熱鬧)

要訓喇，要長期作戰呀
marcuslee 發表於 2010-3-19 23:36

hello, wewe

應該咁講會清楚D

1        Quotation
2        Quotation
3        Quotation
4        Quotation
5      ...
oneonewe 發表於 2010-3-19 11:48

大概係咁

    Dim pattern As String
    Dim source As Range
   
    pattern = "Invoice" 'search for string pattern
    Set source = Range("A1:A10") 'rows to examine
   
    For i = source.Cells.Count To 1 Step -1
        If InStr(source.Cells(i).Value, pattern) = 0 Then 'does not match pattern
            source.Cells(i).EntireRow.Delete
        End If
    Next i

hello, wewe
candyafr 發表於 2010-3-19 23:40

hihi candy add6icon

大概係咁

    Dim pattern As String
    Dim source As Range
   
    pattern = "Invoice" 'searc ...
sammy 發表於 2010-3-19 23:43

咩o黎o架??

咩o黎o架??
oneonewe 發表於 2010-3-19 23:46

你話filter走有特定pattern的row嗎?

你話filter走有特定pattern的row嗎?
sammy 發表於 2010-3-19 23:47

你個段程式碼應該放o係excel邊度?

咩o黎o架??
oneonewe 發表於 2010-3-19 23:46

    我都唔知...............wewe, 食蟲唔可以参展啊,帶嚟現場,ok

我都唔知...............wewe, 食蟲唔可以参展啊,帶嚟現場,ok
candyafr 發表於 2010-3-19 23:48

講下o者
我都唔會帶

你個段程式碼應該放o係excel邊度?
oneonewe 發表於 2010-3-19 23:48

可以放粒button 入excel度, 一撳就trigger囉

可以放粒button 入excel度, 一撳就trigger囉
sammy 發表於 2010-3-19 23:50

icic
不過如果俾我老細知我呢D都識....
我驚....

吓, 可以轉架? 之前唔識揀, 揀左果D衣家樣衰衰的; 之前以為就謝的就爆晒花

icic
不過如果俾我老細知我呢D都識....
我驚....
oneonewe 發表於 2010-3-19 23:51

會好器重你囉add12icon

吓, 可以轉架? 之前唔識揀, 揀左果D衣家樣衰衰的; 之前以為就謝的就爆晒花
sammy 發表於 2010-3-19 23:52

    d花名無得轉啦, sorry, 已經全print好了label

會好器重你囉
sammy 發表於 2010-3-19 23:53

add5icon
即係會多好多o野做

即係會多好多o野做
oneonewe 發表於 2010-3-20 00:03

我就覺得係多左機會做唔同類型的野, 咁自然亦會識多D野

我就覺得係多左機會做唔同類型的野, 咁自然亦會識多D野
sammy 發表於 2010-3-20 00:06

而家已經一腳踢
adm, hr, reception, sales coordinator, finance report......
add9icon

而家已經一腳踢
adm, hr, reception, sales coordinator, finance report......
oneonewe 發表於 2010-3-20 00:10

威水, 真羨慕

威水, 真羨慕
sammy 發表於 2010-3-20 00:11

係大打雜