Jason1976

=SUMPRODUCT(--ISNUMBER(SEARCH($D$2:$D$5,A2)))>0

Jason1976

http://rpc.icerocket.com:10080/
http://blogsearch.google.com/ping/RPC2
http://1470.net/api/ping
http://api.feedster.com/ping
http://api.moreover.com/RPC2
http://api.moreover.com/ping
http://api.my.yahoo.com/RPC2
http://api.my.yahoo.com/rss/ping
http://bblog.com/ping.php
http://bitacoras.net/ping

Jason1976

wp-content/plugins/jetpack/modules/widgets/top-posts.php

Jason1976

# temp redirect wordpress content feeds to feedburner
<IfModule mod_rewrite.c>
    RewriteEngine on
    RewriteCond %{HTTP_USER_AGENT} !FeedBurner [NC]
    RewriteCond %{HTTP_USER_AGENT} !FeedValidator [NC]
    RewriteRule ^feed/?([_0-9a-z-]+)?/?$ http://feeds2.feedburner.com/appleme [R=302,NC,L]
</IfModule>

Jason1976

'將 Excel活頁簿中的多個工作表合併為一個
    Sub Combine()
        Dim J As Integer
        
        On Error Resume Next
        Sheets(1).Select
        Worksheets.Add
        Sheets(1).Name = "Combined"
        Sheets(2).Activate
        Range("A1").EntireRow.Select

Jason1976

'將多個 Excel 活頁簿(Workbook)合併為一個
Sub CombineSheets()
    '活頁簿存放路徑，可自行修改存放路徑
    Path = "D:\temp\"
    Filename = Dir(Path & "*.xl*")
    
    Do While Filename <> ""
        Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
        
        For Each Sheet In ActiveWorkbook.Sheets

Jason1976

'Excel 活頁簿 : 工作表資料合併匯整 Part I
Sub CopyDataBlocks()
    Dim sCell, tCell As Range
    Dim sValue As String
    Dim startRowNum As Long
    
    Dim SourceSheet, TargetSheet As Worksheet

    Set SourceSheet = Sheets("000")
    Set TargetSheet = Sheets("001")

Jason1976

'Excel 活頁簿 : 工作表資料合併匯整 Part II
Sub SyncDataBlocks()
    Application.ScreenUpdating = False
    
    Dim sCell, tCell, GCell, DCell As Range
    Dim sValue, sDate, tRange As String
    Dim SourceSheet, TargetSheet As Worksheet
    Dim LastColumn As Long
    
    Set SourceSheet = Sheets("000")