藺草編

嘗試編織自己很喜歡的一種自然纖維,它曾是台灣的明星產業，隨著工業化的發展，逐漸沒落被遺忘。但是近年來，由於手作風氣漸盛，大家又開始注意到它的存在。雖然如此，由於編織人才的斷層，目前的工藝師大多是屆齡退休的年紀，這樣的技藝真的要好好傳承下來。

體驗了一整天，覺得最難的是收編，儘管工藝師教了好幾次，還是有點模模糊糊，老師傅的腦中自然就有編織的順序及作法，這樣子的東西很難用紙本來記錄，回去還要好好揣摩一番。最後總算完成了作品。

移居新生活

離開繁華熱鬧的城市，住了二十幾年了，總是有些感情及眷戀。那一出門就有便利商店、銀行、大賣場、各種可以立刻購買的日常生活用品，那會綁住人留在那裡。

但是，當你明瞭那所謂方便的生活機能，其實是一連串的不需要及浪費時，你就會開始真正思考，為什麼要過這樣子的生活。為什麼為了要得某些不需要的東西、抑或是不健康的東西，而去過那樣子的日子。

我想過的是自然的田園生活，在友善的環境下跟人有互動，自己能種植簡單的有機作物，支持友善小農、跟土地親近、減少資源的浪費、持續關心相關的社會環境議題。也許我能做的不多，但是這是我目前自己能夠做得到的事。希望孩子們也能看在眼裡，長大後，也許她們會選擇不一樣的路，那也是自己的選擇。

逆風飛吧

昨日的激動
今日的放鬆
逆風飛吧
這樣才能盤旋
這樣才能看高看遠

潛沈等待之中
挑戰就在眼前

奮力開翅飛吧
吆喝風聲吹彿耳邊
渴望自由的靈魂
勇往向前永不退縮

[EXCEL] 使用Excel VBA 班號批次修改取代

通常系統轉出來的檔案，會如下圖，但國字的班級怎麼看都很難再處理，最好的方法就是轉成數字，例如：七年一班就轉成 '701'.....這些重覆性的工作，當然交給VBA來處理。

(1).建立一個如圖的Excel畫面

(2). 建立兩個按鈕副程式

Private Sub cmdReplaceBath_Click()

    Call 班號取代

End Sub

Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogOpen)

   .AllowMultiSelect = True

   .Show

    Cells(2, 1) = .SelectedItems(1)

     MsgBox .SelectedItems(1)

End With

End Sub

(3).建立一個VBA巨集如以下：

Sub 班號取代()

    Dim nw As String   '參數設定的檔案名稱

    Dim s, r                    '要被取代的字串 ,取代過的字串    

    nw = Excel.ActiveWorkbook.Name

    Workbooks.Open Filename:=Cells(2, 1)    

    i = 2    

    While Windows(nw).ActiveSheet.Cells(i, 2) <> ""        

        s = Windows(nw).ActiveSheet.Cells(i, 2)        

        r = Windows(nw).ActiveSheet.Cells(i, 3)        

        Cells.Replace What:=s, Replacement:=r        

        i = i + 1    

    Wend

    MsgBox "取代完成,請查看結果"

End Sub

直接下載本Excel檔, 範例

[EXCEL] 使用EXCEL VBA做分班篩選列印

若您的資料量大，但卻要篩選某些欄位來列印，光是點選篩選內容就會讓手掌泛紅腫脹，這時候就會想到，為何要把事情做得如此複雜。只好認命自救，EXCEL 的VBA最適合做這樣重覆的事情，如果你會錄製巨集，就錄一段，自己修改一下，若不會，就直接使用下列的程式碼：

Sub pclass()
'
' 篩選班級列印巨集
'
   Dim i
   For i = 1 To 16
    ActiveSheet.Range("$A$2:$E$200").AutoFilter Field:=2, Criteria1:=i
    ActiveSheet.PrintOut
   Next i
End Sub

說明：

1.建立新巨集，將以上程式碼貼上。

2.修改您的資料範圍(紅字的部份)。

3.修改要自動篩選的欄位(藍字的部份)。

4.修改要列印的數量(紫字的部份)。

5.執行巨集就可以了。

印表機記得要設定好，這樣每一張的格式都會一樣，GOOD LUCK!