2016年6月29日 星期三

EXCEL VBA自動化與自動繪製框線(樣式顏色粗細)

EXCEL VBA自動化與自動繪製表格框線(樣式顏色粗細)

預覽畫面：


這是VBA入門課上課的範例，
這範例主要是在飯店工作的學員所設計的自動宴會排桌VBA系統，
可以一鍵完成所有排桌的問題，
免除以往的人工耗時耗力問題，
但最後她有個問題無法克服，
就是最後需要能自動繪製表格框線，
這部分即便是仿間的VBA書籍也沒有提及，
因此，我就用最簡單的方式回覆，
並分享於此，
主要的四個按鈕分別為：
1.繪製表格框線的樣式。

2.繪製表格框線的顏色。

3.繪製表格框線的粗細。

4.清除表格框線。

建議先學會以下分享課程：
  • EXCEL VBA入門：如何撰寫自動格式化VBA程式  [連結]
  • 如何撰寫自動日期格式化的VBA程式  [連結]
  • 如何增加EXCEL VBA按鈕  [連結]
  • 如何再VBA中建立EXCEL的自訂函數讓公式變簡單  [連結]
  • 如何將數學函數轉EXCEL VBA設計之一  [連結]
  • 從EXCEL函數到VBA自動化(函數應用大升級)  [連結]

    • 範例檔  [下載]
上課內容：


Sub 加框線_實線()
   '指定框線的線條樣式。
   '名稱 值 描述
   'xlContinuous 1 連續線
   'xlDash -4115 虛線
   'xlDashDot 4 交替的虛線與點
   'xlDashDotDot 5 虛線後接兩點
   'xlDot -4118 點狀線
   'xlDouble -4119 雙線
   'xlLineStyleNone -4142 無線條
   'xlSlantDashDot 13 斜虛線
   Range("B3:H13").Borders.LineStyle = xlContinuous
End Sub
Sub 加框線_實線紅色()
   Range("B3:H13").Borders.LineStyle = xlContinuous
   Range("B3:H13").Borders.Color = RGB(255, 0, 0)
End Sub
Sub 加框線_實線紅色粗線()
   '指定範圍外圍框線的粗細。
   '名稱 值 描述
   'xlHairline 1 毫線 (最細的框線)
   'xlMedium -4138 適中
   'xlThick 4 粗線 (最寬的框線)
   'xlThin 2 細線
   Range("B3:H13").Borders.LineStyle = xlContinuous
   Range("B3:H13").Borders.Color = RGB(255, 0, 0)
   Range("B3:H13").Borders.Weight = xlThick
End Sub
Public Sub 清除框線()
   Range("B3:H13").Borders.LineStyle = xlNone
End Sub


教學影音(完整版在論壇)：

教學影音完整版在論壇：
https://groups.google.com/forum/#!forum/scu_excel_vba2_86

課程特色：
1.如何將函數轉成VBA2.VBA與資料庫快速結合

EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識，
但卻是目前大家都需要的一項專業技能，要把三者融合的很好實在非常不容易，
剛好我有近20年的VB程式設計與資料庫設計的經驗，
教EXCEL函數與相關課程也有多年，因此清楚如何把最重要的知識教給大家，
ADO資料庫設計的知識非常多，但根據我多年的設計實務經驗，
覺得最重要的是掌握SQL語言，就可以輕易的完成查詢、新增、修改與刪除等功能，
就可以輕易的完成自己想處理的大量資料，大大提高工作效率了!

上課用書是：
Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)
Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

完整教學影音DVD申請:http://goo.gl/ZlBZE
論壇：http://groups.google.com/group/labor_excel_vba?hl=zh-TW

其他相關學習：

    1.EXCEL VBA設計(自強基金會2012)第4次上課
    http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html

    2.如何把EXCEL"函數"變為 "VBA"？自強基金會2012第5次上課
    http://terry55wu.blogspot.tw/2012/04/excel-vba.html

    3.自強基金會2012第8次上課
    http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html

    4.自強基金會2012第9次上課
    http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html

    5.EXCEL_VBA與資料庫--自強基金會2012(Ending)
    http://terry55wu.blogspot.tw/2012/07/excelvba-2012ending.html

    EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 excel函數教學 excel函數
    沒有留言:

    2016年6月1日 星期三

    VBA處理大數據如何自訂留下數字函數

    VBA處理大數據如何自訂留下數字函數

    預覽畫面：


    這是VBA進階課上課的範例，
    這部分的主要需求在於當輸入資料時沒有欄位概念時，
    將一堆的數字、英文、中文都輸入到同一個儲存格時，
    若只要其中的數字、英文或中文時，在內建EXCEL函數是找不到的，
    這時候，若懂得自訂一個留下數字函數，就可以輕易地解決問題。
    以下分享如何用簡單的VBA知識，就可以輕易將儲存格中的數字篩選出來，
    當然延伸性的問題，也可以只留下儲存格中的英文或中文部分。
    建議先學會以下分享課程：
    • 如何再VBA中建立EXCEL的自訂函數讓公式變簡單  [連結]
    • 如何將數學函數轉EXCEL VBA設計之一  [連結]
    • 從EXCEL函數到VBA自動化(函數應用大升級)  [連結]
    • 如何將文字函數轉EXCEL VBA設計  [連結]
    • 如何將邏輯函數轉EXCEL VBA設計  [連結]
    • 如何增加EXCEL VBA按鈕  [連結]
    • 如何函數轉VBA  [連結]
    範例檔  [下載]

    上課內容：

    Public Function 數字個數函數(原始資料)

    Public Function 數字個數函數(原始資料)
       '1.字數迴圈範圍
       For i = 1 To Len(原始資料)
           '2.判斷是否為數字
           If VBA.Asc(Mid(原始資料, i, 1)) > 47 And VBA.Asc(Mid(原始資料, i, 1)) < 58 Then
               '3.如果是就+1
               Count = Count + 1
           End If
       Next
       '4.回傳給自己(數字個數函數)
       數字個數函數 = Count
    End Function

    Public Function 非數字個數函數(原始資料)

       '1.字數迴圈範圍
       For i = 1 To Len(原始資料)
           '2.判斷是否為數字
           If VBA.Asc(Mid(原始資料, i, 1)) <= 47 Or VBA.Asc(Mid(原始資料, i, 1)) >= 58 Then
               '3.如果是就+1
               Count = Count + 1
           End If
       Next
       '4.回傳給自己(數字個數函數)
       非數字個數函數 = Count
    End Function
    Public Function 留下英文函數(原始資料)
       '初始值
       S = ""
       '1.迴圈到字串長度
       For i = 1 To Len(原始資料)
           '2.判斷數字的編碼範圍
           If VBA.Asc(VBA.UCase(Mid(原始資料, i, 1))) >= 65 And VBA.Asc(VBA.UCase(Mid(原始資料, i, 1))) <= 90 Then
               '3.串接數字
               S = S & Mid(原始資料, i, 1)
           End If
       Next
       '4.輸出結果
       留下英文函數 = S
    End Function

    Public Function 留下中文函數(原始資料)

       '初始值
       S = ""
       '1.迴圈到字串長度
       For i = 1 To Len(原始資料)
           '2.判斷數字的編碼範圍
           If VBA.Asc(Mid(原始資料, i, 1)) > 127 Or VBA.Asc(Mid(原始資料, i, 1)) < 0 Then
               '3.串接數字
               S = S & Mid(原始資料, i, 1)
           End If
       Next
       '4.輸出結果
       留下中文函數 = S
    End Function

    教學影音(完整版在論壇)：

    教學影音完整版在論壇：
    https://groups.google.com/forum/#!forum/scu_excel_vba2_86

    課程特色：
    1.如何將函數轉成VBA2.VBA與資料庫快速結合

    EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識，
    但卻是目前大家都需要的一項專業技能，要把三者融合的很好實在非常不容易，
    剛好我有近20年的VB程式設計與資料庫設計的經驗，
    教EXCEL函數與相關課程也有多年，因此清楚如何把最重要的知識教給大家，
    ADO資料庫設計的知識非常多，但根據我多年的設計實務經驗，
    覺得最重要的是掌握SQL語言，就可以輕易的完成查詢、新增、修改與刪除等功能，
    就可以輕易的完成自己想處理的大量資料，大大提高工作效率了!

    上課用書是：
    Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)
    Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

    完整教學影音DVD申請:http://goo.gl/ZlBZE
    論壇：http://groups.google.com/group/labor_excel_vba?hl=zh-TW

    其他相關學習：

      1.EXCEL VBA設計(自強基金會2012)第4次上課
      http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html

      2.如何把EXCEL"函數"變為 "VBA"？自強基金會2012第5次上課
      http://terry55wu.blogspot.tw/2012/04/excel-vba.html

      3.自強基金會2012第8次上課
      http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html

      4.自強基金會2012第9次上課
      http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html

      5.EXCEL_VBA與資料庫--自強基金會2012(Ending)
      http://terry55wu.blogspot.tw/2012/07/excelvba-2012ending.html

      EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 excel函數教學 excel函數
      沒有留言:
      訂閱： 文章 (Atom)