Perton 網誌

Excel VBA 中如何下複製公式的指令語法？

平時在 Excel中，只要在要複製儲存格的右下角，點兩下，就可以複製該儲存格的公式到其他位置。

若要以程式來操作，可以下指令：

Range("I3").Select
Selection.AutoFill Destination:=Range("I3:I24")
Range("I3:I24").Select

但是，若要動態取得被複製的範圍，這時就要宣告變數來處理

Dim mRanges As String

Range("H3").Select
mRanges = "I3:" & "I" & Selection.End(xlDown).Row

Range("I3").Select
Selection.AutoFill Destination:=Range(mRanges)
Range(mRanges).Select

注意：指令語法中，首、尾各有一個 Range().Select 指令，不可少。

Windows PowerShell 小筆記

Related Resources

PowerShell V1.0 外觀
%SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe

DOS Command Line 執行 PowerShell 的外觀

C:\Program Files\Microsoft SDKs\Windows\v7.0\Samples\sysmgmt\WindowsPowerShell\

VBA讀取XML檔案內容

book.xml
-----------------------------------
<?xml version="1.0" encoding="UTF-8" ?>

<order>
   <name>Jong Chen</name>
   <product>個人電腦</product>
   <product>PDA</product>
   <price>50000</price>
   <date>2011/08/08</date>
   <address>台北市安和路二段80號15樓</address>
</order>
-------------------------------------

若是要使用程式來開啟這檔案，該如何寫程式？
Public Sub Load_XML()
    Dim XMLDoc As Object
    Dim intState As Integer
    Dim strFileXML As String
    strFileXML = "C:\Documents and Settings\perton\DestTop\XML\" & "book.xml"
    Set XMLDoc = New MSXML2.DOMDocument
    intState = XMLDoc.Load(strFileXML)
    ' intState 數值說明
    ' -1    成功
    ' 0     未初始化
    ' 1     載入中
    ' 2     已載入
    ' 3     互動
    ' 4     已完成

    If intState Then
        MsgBox "讀取 XML 成功"
    Else
        MsgBox "讀取 XML 失敗"
    End If

    Set XMLDoc = Nothing
End Sub

** 在程式環境中，要加入 Reference ：Microsoft XML, v5.0

LOSA 引入表結構的方法

LOSA 提供一方便作法，可以直接引入資料庫中特定的表結構；
步驟如下：

1. 先創建一表

2. 點表，右鍵／反向工程 (Reverse Engineer)

3. 輸入連接資料庫的相關訊息

使用 Google Storage 步驟說明

首先，進入 Storage 網站中

選取 Google APIs Console 項目

再選取 Google Storage Manager 超連接，進入操作畫面。

或則是使用工具程式 CloudBerry Explorer for Google Storage 進入。

Gonav S900 更新圖資

Gonav S900 遠帆科技的導航產品。www.gonav.com.tw

在該網站的圖資下載區中，只可以下載圖資檔案。

主程式的下載，參考下列步驟：

Step1. 進網站： http://www.papago.com.tw/Download/DownloadProjectSoftware.aspx
在從左側快速連結的「品牌專區」進去
Step2. 裝置平台選「PND」，品牌選擇從下拉式選單中選擇「Gonav（正翰科技）」，型號就找得到「Gonav S900」了。

Step3. 然後按下「送出」，即可看到軟體和圖資的更新檔。

訂閱：文章 (Atom)