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

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

	'COPYRIGHT BY dropit.liu.
	Private Sub CommandButton1_Click()
	A_INPUTBOX_address = Application.InputBox("", Type:=8).Address '取得位置
	A_INPUTBOX = ActiveSheet.Range(A_INPUTBOX_address).Value '取得資料
	If IsArray(A_INPUTBOX) = True Then
	常數 = InputBox("輸入常數數字")
	For i = LBound(A_INPUTBOX) To UBound(A_INPUTBOX) Step 1
	For j = LBound(A_INPUTBOX) To UBound(A_INPUTBOX) Step 1
	A_INPUTBOX(i, j) = 常數 * A_INPUTBOX(i, j)
	Next j
	Next i
	Call sheet_name_check_delete("常數乘矩陣結果")
	Call 矩陣輸出("常數乘矩陣結果")
	End If

view raw 常數乘矩陣結果.vba hosted with ❤ by GitHub

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

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

再對話況再輸入常數項

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

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

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