EXCEL VBA 根據特定的字串把資料COPY到特定的SHEETS





Sub doWork()
'把年加到A欄位
'Worksheets(1).Activate
'For i = 2 To Worksheets(1).UsedRange.Rows.Count
'    If Val(Cells(i, 1)) < 2000 Then
'        Cells(i, 1) = "'2013/" & Cells(i, 1)
'    End If
'Next
'Exit Sub

'先把SHEETS刪除
 deleteSheets

'新增工作表出來
For i = 1 To 15
    Worksheets.Add after:=Worksheets("訂單記錄")
Next

'更改工作表名稱
'MsgBox Sheets.Count
For i = 2 To Sheets.Count
    'Sheets(i).Name = "AUS" '美國
    changeSheetsName (i)
Next

'把標題COPY到每一個SHEET去
Sheets(1).Select
Range("A1", "I1").Copy

For i = 2 To Sheets.Count
   
    Worksheets(i).Activate
    Range("A1").Select
    ActiveSheet.Paste
Next

'把資料依據客戶代碼放入相應的SHEETS
Worksheets(1).Activate
'MsgBox Worksheets(1).UsedRange.Rows.Count
For i = 2 To Worksheets(1).UsedRange.Rows.Count
   
    Sheets(1).Select
    Range("A" & i, "I" & i).Copy
   
    '判斷是什麼國家
    CC = checkCountry(Cells(i, 3))
    Worksheets(CC).Activate
    CCROWS = Worksheets(CC).UsedRange.Rows.Count + 1
    Range("A" & CCROWS).Select
    ActiveSheet.Paste
   
Next
End Sub



Sub deleteSheets()
Dim i As Integer
'關閉警告視窗
Application.DisplayAlerts = False
'刪除作用中的工作表
    For i = Sheets.Count To 2 Step -1
        Sheets(i).Delete
    Next
'恢復警告視窗
Application.DisplayAlerts = True

End Sub

Sub changeSheetsName(x As Integer)
   
    Select Case x
        Case 2
            Sheets(x).Name = "AUS(美國)"
        Case 3
            Sheets(x).Name = "EDME(德國)"
        Case 4
            Sheets(x).Name = "EBAE(英國)"
        Case 5
            Sheets(x).Name = "AMX(南美)"
        Case 6
            Sheets(x).Name = "EKLE(荷蘭)"
        Case 7
            Sheets(x).Name = "CSQ(新加坡)"
        Case 8
            Sheets(x).Name = "CEG(日本)"
        Case 9
            Sheets(x).Name = "AAC(加拿大)"
        Case 10
            Sheets(x).Name = "CCS(香港)"
        Case 11
            Sheets(x).Name = "ESD(瑞典)"
        Case 12
            Sheets(x).Name = "E(歐洲)"
        Case 13
            Sheets(x).Name = "UQF(大洋洲)"
        Case 14
            Sheets(x).Name = "C(亞洲)"
        Case 15
            Sheets(x).Name = "M(中東)"
        Case 16
            Sheets(x).Name = "Other(其他)"
    End Select
End Sub

Function checkCountry(x As String)
   
    checkCountry = 0
    'Select Case x
    '    Case 2
    '        Sheets(x).Name = "AUS" '美國
            If InStr(UCase(x), "AUS") > 0 Then checkCountry = 2
    '    Case 3
    '        Sheets(x).Name = "EDME" '德國
            If InStr(UCase(x), "EDME") > 0 Then checkCountry = 3
    '    Case 4
    '        Sheets(x).Name = "EBAE" '英國
            If InStr(UCase(x), "EBAE") > 0 Then checkCountry = 4
    '    Case 5
    '        Sheets(x).Name = "AMX" '南美
            If InStr(UCase(x), "AMX") > 0 Then checkCountry = 5
    '    Case 6
    '        Sheets(x).Name = "EKLE" '荷蘭
            If InStr(UCase(x), "EKLE") > 0 Then checkCountry = 6
    '    Case 7
    '        Sheets(x).Name = "CSQ" '新加坡
            If InStr(UCase(x), "CSQ") > 0 Then checkCountry = 7
    '    Case 8
    '        Sheets(x).Name = "CEG" '日本
            If InStr(UCase(x), "CEG") > 0 Then checkCountry = 8
    '    Case 9
    '        Sheets(x).Name = "AAC" '加拿大
            If InStr(UCase(x), "AAC") > 0 Then checkCountry = 9
    '    Case 10
    '        Sheets(x).Name = "CCS" '香港
            If InStr(UCase(x), "CCS") > 0 Then checkCountry = 10
    '    Case 11
    '        Sheets(x).Name = "ESD" '瑞典
            If InStr(UCase(x), "ESD") > 0 Then checkCountry = 11
    '    Case 12
    '        Sheets(x).Name = "E" '歐洲
            If checkCountry = 0 Then
                If InStr(UCase(x), "E") Then checkCountry = 12
    '    Case 13
    '        Sheets(x).Name = "UQF" '大洋洲
                If InStr(UCase(x), "UQF") Then checkCountry = 13
    '    Case 14
    '        Sheets(x).Name = "C" '亞洲
                If InStr(UCase(x), "C") Then checkCountry = 14
    '    Case 15
    '        Sheets(x).Name = "M" '中東
                If InStr(UCase(x), "M") Then checkCountry = 15
    '    Case 16
    '        Sheets(x).Name = "Other" '其他
                If checkCountry = 0 Then checkCountry = 16
            End If
    'End Select
End Function

留言

張貼留言

這個網誌中的熱門文章

java 數字轉字串 字串轉數字

1. 數字轉字串 1-1 整數轉字串                int i = 7; String s = Integer.toString(i); or String s = "" + i; // 直接強制轉型 1-2  長整數轉字串 long x=10; String s = Long.toString(x); 1-3  雙精度數字轉字串 double x=10;                String s = Double.toString(x);     1-4 浮點數字轉字串 float x=10; String s = Float.toString(x); 2. 字串轉數字 2-1 字串轉整數 String str = "10"; int i = Integer.valueOf(str).intValue();  // 第一種方法 int j = new Integer(str).intValue(); // 第二種方法 int k = Integer.parseInt(str);  // 第三種方法 2-2 字串轉雙精度數字 double d = Double.valueOf(str).doubleValue(); 2.3 字串轉長型態數字                long l = Long.valueOf(str).longValue(); or long l = Long.parseLong(str); 2.4 字串轉浮點型態數字                float f = Float.valueOf(str).floatValue();
閱讀完整內容

MS sqlServer資料庫移轉至MySQL-->利用MySQL WorkBench

圖片
1.下載MySQL WorkBench並安裝。網址 http://www.mysql.com/products/workbench/   WorkBench開啟後執行畫面 2.執行[Database Migration] MySQL沒有內建各資料庫的DRIVER，是透過ODBC來轉資料庫，所以在轉換前要先設定來源資料庫的ODBC。 3.設定完ODBC連線後點選[Start Migration]，開始轉換資料庫步驟。 4.設定來源資料庫的連線資料，要轉換的資料庫名稱也要輸入，免得原本MSSQL的資料庫太多而造成後續轉換出現題，設定完後按[Next]。 5.設定目的地MySQL的連線參數 6.下一步，取得來源資料庫的Table schema。基本上不會有什麼問題，如果出現錯誤可能是在設定來源資料庫時沒有指定DATABASE造成。 7.選擇要轉換後MySQL的schema 8.下一步，轉換檢查 9.下一步，Show出來源資料庫的Object，如果有要修改選取的物件,可以在這裡增刪 。 10.下一步，開始轉換 11.手動修改轉換的指令(如果有需要) 12.下一步 13.建立目的地的資料庫，如果有驚嘆號出現,要看一下LOG出現什麼訊息。 14.轉換結果 15.下一步 16.下一步，開始轉換資料庫 17,轉換結果報表 18.結束
閱讀完整內容

sql server 15023 error [SQL SERVER問題: 使用者、組或角色 '*****' 在當前資料庫中已存在]

一般在建立使用者時即可指定使用者的對應，如果使用者建立後，才發現無法利用 Management Studio 調整對應(出現 錯誤：15023)可以利用下面的 指令 調整  Use [myDB資料庫名稱] go sp_change_users_login 'update_one', ' DBuser( 資料庫使用者) ', ' PowerUser( 系統登入的使用者) ' 將myDB資料庫的使用者 DBuser 對應到-->系統登入的使用者 PowerUser ，也就是說 PowerUser 登入系統後，對於資料庫(例如myDB) 的存取權限就相當於 DBuser!
閱讀完整內容