2020年12月2日 星期三

VBA:移除所有重複資料的簡單應用

 一般移除重複,透是透過RemoveDuplicates 這各RANGE的方法作執行,但如果要移除所有重複呢!!

今天早上M01某網友貼文,我簡單回了他,但是發現他的問題就是要移除所有重複。

小編分享自己目前手上有得副程式,主要是透過搜尋,把所有重複"資料"的位置找出來,作任何你想要的處理,例如刪除資料。


設定以下參數即可運作:

SHEET_NAME, Target, ADD_ROW, ADD_COLUMN, range_to_range As String

SHEET_NAME:要搜尋的工作表名;EX:ACTIVESHEET.NAME OR "SHEET1"

Target:要搜尋的關鍵字,EX:"P10"

ADD_ROW:搜尋到資料時後,指定抓的列數的加減數;EX:1,-1

ADD_COLUMN:搜尋到資料時後,指定抓的行數的加減數;EX:1,-1

range_to_range :要搜尋那一列;EX:"A:A"

例如類似M01這位的問題,我自己作一個簡單的DEMO,作一個按鈕插入如下的CODE跟上面的副程式。


圖1.
P.S資料在A行中。



2020年11月18日 星期三

VBA:使用EXCEL內建函數(APPLICATION、WorksheetFunction)

斜率或截距在VBA基本迴歸入門中有提到使用EXCEL內建函數,這邊簡單介紹一下EXCEL好用的內建函數,如何在EXCEL VBA中直接使用。

2種方式:

application

Application.WorksheetFunction

舉例1:sum函數,透過以上兩種語法結果都是一樣的。

application.sum(activesheet.range("a1:a10"))

Application.WorksheetFunction.sum(activesheet.range("a1:a10"))

但在VBA編輯時,

Application.WorksheetFunction可以自動帶出下拉式選單方便選擇。


圖1.

舉例2:LINEST最小平方法函數,在儲存格使用這個函數時,僅能透過引數控制,

來選擇要回傳斜率或截距等資料,但透過VBA,可以一次取存斜率或截距等資料,

不過是透過陣列的方式。如圖2.

圖2.




2020年11月16日 星期一

VBA:矩陣計算(相加)

矩陣計算:矩陣相加

矩陣是?參WIKI

筆者日前分享了Application.InputBox

利用機會結合一下矩陣計算,做VBA應用分享。

步驟:

1.先做一個VBA,ActiveX按鈕,如圖1.,VBA code:

1.先選擇放有矩陣的儲存格(A、B兩個矩陣選擇對話框);

圖1.
圖2.

2.自動產生"矩陣相加結果"工作表,作為結果輸出。

圖3.結果輸出


茶壺山亂走












 

2020年11月14日 星期六

VBA:矩陣計算(常數項乘矩陣)

 矩陣計算:常數項與矩陣相乘


操作類似VBA:矩陣計算(相加)

先選擇放有矩陣的儲存格;

再對話況再輸入常數項

自動產生"常數乘矩陣結果"工作表,作為結果輸出。

整體來說,選擇儲存格>運算>輸出。

輸出部分,小編簡單用一個副程式來整理輸出,此部分可以參考VBA:矩陣計算(相加)。

etf:我很弱,才10%不到

20261005 紀錄,今年度透過自主開發的演算法,做個小紀錄,之前我的雷達紀錄關閉了,用低調的方式作紀錄,看懂就看懂,單純紀錄;目前美國雷達開始上線測試。 我與ai互動:  問:0050 我今年 9.5%年報酬 006208 9.98%年報酬,你覺得? ai: 我覺得成績不錯,...