draw.io圖檔做為共享文件

 draw.io ->文件->發佈->連接 for interview 

SWOT brief analysis

https://app.diagrams.net/?tags=%7B%7D&lightbox=1&highlight=0000ff&edit=_blank&layers=1&nav=1#Aconstruction5904529%2Ftopology%2Fmain%2FSWOT.drawio

Topology for simply intranet

https://app.diagrams.net/?tags=%7B%7D&lightbox=1&highlight=0000ff&edit=_blank&layers=1&nav=1#Aconstruction5904529%2Ftopology%2Fmain%2FTopo.drawio

Formosa

 中研院 臧振華院士

台灣考古新視野 - 截錄YT

1.十九萬年以前丹尼索人現身黑水溝？

2.三萬年前，八仙洞曾是最近智人從非洲向東亞移民的途中站？

3.四千多年前，台灣是南島語族向太平洋擴散的一塊踏腳石？

4.三千多年前，台灣的玉器即已現身環南中國海地區。

5.第一千紀早期，台灣鐵器時代的長距離海上貿易圈，直接或間接將台灣與東南亞、南亞、西亞，甚至可能還有地中海地區連結起來。

6.四百年前，臺灣已經初現全球化的端倪

7.來自海底的歷史-舟楫通衢的台海風雲

嵐島平潭-我的工作地方

2016年7月到2020年5月,接近整個四個年頭的日子未更新任何的網誌,原因是我在彼岸工作,谷歌大帝嘸路用,也習慣沒有它的日子!
受此次疫情待在台灣也滿4個月的時間,舒適環境待久了,真不想動. 不過該來的還是會到的. 起身繼續打拼去!

memo of 8D Report & QC Story

8 Disciplines
Discipline 1. Form the Team (Internal/External Member)
Discipline 2. Describe the Problem (Problem Statement)
Discipline 3. Contain the Problem (Temporary Measure)
Discipline 4. Identify the Root cause (Reason Analysis)
Discipline 5. Formulate and Verify Corrective Actions (Permanent Measure)
Discipline 6. Correct the Problem and Confirm the Effects (Effectiveness Verification)
Discipline 7. Prevent the Problem (Recurrence Prevention)
Discipline 8. Congratulate the Team (Action Plan & Review)

QC Story
1.Problem Selected
2.Why Selected
3.Current Status
4.Defect Analysis
5.Actions
6.Results
7.Standardization
8.Problems remaining
9.Future plans


1.Problem Identification: Accurate identification of problems and their seriousness. (Check sheet)
2.Observation: Problems Characteristics as different perspectives. (Pareto Charts/Control Charts)
3.Analysis: Identify all possibles causes of problems. (Ishikawa Diagram)
4.Action Plan: Develop actions plans to cancel the causes of problems. (5W1H)
5.Action: Cancel fundamental causes.
6.Verification: Verify effective attainment of canceling causes. (Grafics)
7.Is it Working?: Assess and testing.
8.Patronize : Prevent the recurrence of problems.
9.Conclusion: Review of all processes of problems to aftermost works.

QC 7 tools
1. Pareto Diagram: Find the major problem.
2. Cause & Effect Diagram/Ishikawa diagram(fishbone): Determine all causes.
3. Graphic/Flowcharts: Present data to be more understood.
4. Check Sheet/Check List: To get complete data.
5. Scatter Diagram: To see relation between variables.
6. Histogram: To see distribution of data
7. Control Chart: To see the stability of data/production.

轉印印表機碳帶的選擇 Choose Right Formula & Format.

最近為配合客戶在產品上標籤的需求,包裝單位為配合設計單位的要求,試印不少的標籤模版供客戶選擇,也因此衍生許多內部管理運作的問題
簡單來說,任何產品專案的推動會動員到各相關單位的協助與配合,但當專業度不足時,官腔式的應對,絕對是造成專案達成的礙石. 怎說呢? 就如何主題的目的,當包裝單位只會買自已"習慣"的耗材又無法開出物料規格時! 又當採購/總務單位及資訊單位對物料產品規格又不熟悉時! 只會造成模版試了又試, 機器設備買錯或買貴了, 及PM對客戶溝通後再協商與妥協地修改模版,形成永無止境的產品開發折磨.
言歸正傳,標籤列印機有直熱與轉熱式打印機構兩種方式,通常都是兩者兼用,但也有單一形式.事實上兩者者原理相同,均是打印機構用熱處理來完成打印的目的,差別是打印目的材料的不同,直熱式就是打印在熱敏紙上,常見在小七發票的列印方式,它的特性就是怕熱,也經不起時間的催殘,久了印字就不見,所以在標籤的列印上,絕不會看見它的使用,只會用在方便列印的環境上,常見的就是統一發票.
轉印式打印則可長時間保留印字,也不怕光,就跟雷射印表機或影印機般,可長久保留且印字品質佳,常用在標籤的使用,尤其是條碼的打印.
它也是靠熱處理將碳帶上的色膜轉印在打印目標的表面上,所以打印質地的差異就與碳帶的選擇有關,這也是"專業"上的差異
我有個很深的體悟,就是規格的設定,常在嘴邊講的SPEC.身為個工程師若SPEC也搞不清那就"了然"了,以轉印碳帶而言,除了尺寸與機器打印規格外,什麼是WAX,WAX/RESIN,RESIN包裝工程師一定要瞭解與掌握,如何選擇適合的碳帶似乎是最基本的知識.

Ref. http://www.satoeurope.com/uk/products/labels-ribbons.aspx
       http://barcode-labels.com/products/thermal-transfer-ribbons/

3 type of Ribbons
Wax
Wax/Resin
Resin

	Scratch/Chemical Heat Resistance	Label Stock Compatibility	Typical Applications
Wax	Poor	Versatile; typically coated paper	Short term; shipping labels, compliance labeling
Wax/Resin	Good	Versatile; typically coated paper or coated synthetics	Bin location labels, horticulture tags, healthcare labels
Resin	Great	Polyester, polyimide, polypropylene, polyethylene	Chemical drum labels, circuit board labels, agency recognized labels

Choose Right Formula & Format.

擷取SQL Server資料到Excel工作表上

Private Sub CommandButton1_Click()
Worksheets("工作表1").Select '清除工作表1資料
  Cells.Select
   Selection.Delete Shift:=xlUP
   Range("A1").Select

Dim cnnConnect As Object
Dim rstRecordset As Object
  Columns("A:C").Select
  Range("A1").Activate
  Selection.Delete Shift:=xlToLeft
set cnnConnect = CreateObject("ADODB.connection")
set rstRecordset = CreateObject("ADODB.Recordset")

cnnConnect.Open "Provider=SQLOLEDB;" & _  '建立資料庫連結
  "Data Source = DBS\sql_server;" & _
  "User ID=XXXX;Password=XXXX;"

rstRecordset.Open _
   Source:="select item,serial,dat from XXX-database", _
   ActiveConnection:=cnnConnect


With ActiveSheet.QueryTables.Add( _
    Connection:=rstRecordset, _
    Destination:=Range("A1"))
.Name = "Contact List"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False

End With

Range("A1").Value = "項次"
Range("B1").Value = "序號"
Range("C1").Value = "日期時間"

ActiveWorkbook.Worksheets("工作表1").QueryTables(1).Sort.SortFields.Clear
ActiveWorkbook.Worksheets("工作表1").QueryTables(1).Sort.SortFields.Add Key:= _
Range("A2:A500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal

With ActiveWorkbook.Worksheets("工作表1").QueryTables(1).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

MsgBox "OK"

End Sub

不動產買賣查詢-Excel VBA

Excel VBA是一個很好用的程式設計工具,它的物件不外乎就是Application;Workbooks,Sheets 及Chart,利用巨集的方式執行副程式來達成數據的收集,篩選,分析等功能.這次是利用內政部不動產交易實價查詢服務網http://lvr.land.moi.gov.tw/來做"類大數據"分析的練習.

Sub selects()
 x = InputBox("請輸入關鍵字!!")
    For i = 2 To Sheets.Count '防止查詢已存在的名稱而產生錯誤
        If x = Sheets(i).Name Then
            MsgBox "工作表已存在請先刪除!!"
            Exit Sub
            'Application.DisplayAlerts = False '或者自動覆蓋更新
            'Sheets(i).Delete
            'Application.DisplayAlerts = True
            Exit For
        End If
    Next

    If x = "" Then '無填入訊息警示
        MsgBox "請務必輸入資料!!"
        Exit Sub
    End If

    Range("C1").Select '游標放C1

    selection.AutoFilter  '篩選
    r = Range("A1").End(xlDown).Row
    ActiveSheet.Range("$A$1:$L$" & r).AutoFilter Field:=3, Criteria1:="=*" & x & "*"

    If Range("A1").End(xlDown).Row = 65536 Then   '無結果
        MsgBox "查無資料!!"
        selection.AutoFilter
        Exit Sub
    End If

    Range("A1").Select  '複製
    Range(selection, selection.End(xlToRight)).Select
    Range(selection, selection.End(xlDown)).Select
    selection.Copy

    Sheets.Add After:=Sheets(Sheets.Count)  '新增工作表
    Sheets(Sheets.Count).Name = x

    Range("A1").Select  '貼上
    ActiveSheet.Paste

    selection.Columns.AutoFit  '自動調整欄寬

    Range("A1").Select

    Sheets(1).Select  '切回原工作表
    Application.CutCopyMode = False

    selection.AutoFilter '取消
    Range("A1").Select

End Sub

接著可到服務網去下載 lvr_landxls.zip套用測試了