2012年10月25日 星期四

VBA 入門


Excel 2010 官方網站

EXCEL VBA 基礎幼幼班教學 (一) by chritalee

比對兩個工作表中的資料及貼上資料




------------------------------------------

【開啟巨集】

檔案→選項→自動功能區→開發人員(打勾),如圖一、圖二


 圖一、檔案→選項



圖二、勾選「開發人員」

------------------------------------------

【內建Function】
  • now:現在的日期+時間
  • date:今天的日期
  • round:四捨五入
  • left("abcdef", 2)  →  ab :取前兩位
  • right("abcde", 3)  →  cde :取後三位
  • mid("abcdef", 2, 2)  → cd :自第二位起取兩位
  • trim("    abc  def   ")  → abcdef :去除前後空白
  • replace("abcd///e/f", "/", "") → abcdef:以空字元取代「/」
  • insr("abcde", "a") → 1 :看「a」在「abcde」的第幾位   或   是否被包含
  • str(1):數字轉文字
  • val(123):文字轉數字
  • year(#2012/10/25#)  →  2012  :取「年」
  • month(#2012/10/25#)  →  10  :取「月」
  • day(#2012/10/25#)  →  25  :取「日」
  • cdate("2012/10/25"):文字轉日期
------------------------------------------

【重新命名表單 rename "A" to "B"】

    Sheet("A").Name = "B"