var a=Math.trunc(5.984)  //截取整數(shù)
var b=Math.random()  //生成隨機小數(shù)
var c=Math.pow(5,2)  //乘冪
var d=Math.max(3,5)  //求最大值
var d=Math.min(3,5)  //求最小值

var a="3.14"
	var b="hello\nworld"
	var c=a+b  //字符串相加，會變成字符串連接

var a="3"
	var b=5
	b=Number(a)

var a=3.14
	var b=String(a)

var a=12
	var b=a.toString(2)  //轉(zhuǎn)換成二進制，結(jié)果為字符串類型
	var b=a.toString(16)  //轉(zhuǎn)換成十六進制，結(jié)果為字符串類型

Range("A1").End(xlToRight).Select();
	Range("A1").End(xlDown).Select();
	Range("A12").End(xlToRight).Select();
	Range("A12").End(xlDown).Select();
	var a=Range("A1").End(xlToRight).Column;
	var b=Range("A1").End(xlToRight).Row;

//測試函數(shù)
function test(){
	if(Selection.Column==1 && Selection.Count==1){
		Range('D7').Value2=Selection.Value2
	} else if(Selection.Column==2 && Selection.Count==1){
		Range('D8').Value2=Selection.Value2
	}
}

function Workbook_SheetSelectionChange(Sh,Target)
{
	if(Sh.Name=='測試表1'){
		test()
	}
}

arr=Range('A1:C5').Value2

function test2(){
	const arr=ThisWorkbook.Sheets('測試表1').Range('A5').CurrentRegion.Value2
	arr.reverse()
	Range('F5').Resize(arr.length,arr[0].length).Value2=arr
}

function submitData(){
	if(checkData()==true){ //自己寫個函數(shù)來檢查數(shù)據(jù)是否異常   ==true可以省略，通常只寫if(checkData())
		const arr=Range('C6').CurrentRegion.Value2		
		const Data=[] //準(zhǔn)備一個數(shù)組來裝數(shù)據(jù)		
		const targetRow=Sheets('操作記錄').Range('A65535').End(3).Row+1  //先取得數(shù)據(jù)表的最大非空行位并+1作為要寫入數(shù)據(jù)的行位
		let r=0//等下要用r來記錄是第幾行數(shù)量，方便寫金額公式的時候判斷行位
		for(i=4;i<=11;i++){
			if(arr[i][1]){  //如果單元格有內(nèi)容
				//金額寫成公式字符串，這里使用反引號，在鍵盤左上角數(shù)字1的左側(cè)，反引號里變量可以用${}標(biāo)出
				let strAmount=`=D${targetRow+r}*F${targetRow+r}`  //假如r=0，targetRow=2，這里就是'D2*F2'
				r++//遇到數(shù)量非空行r自增1假如有三行數(shù)據(jù)，到第三行時r=2，公式就是 D4*F4
				//接下來按數(shù)據(jù)表的列 構(gòu)建一個數(shù)組
				//人員 領(lǐng)貨日期 領(lǐng)貨型號 數(shù)量 xxx單價 金額 備注
				let rowItem=[arr[1][1],arr[0][1],arr[2][1],arr[i][1],arr[2][3],arr[i][2],strAmount,arr[i][3]]
				//利用push方法把上面的數(shù)組一行一行塞進Data構(gòu)成二維數(shù)組
				Data.push(rowItem)
			}
		}
		Sheets('操作記錄').Range(`A${targetRow}`).Resize(Data.length,Data[0].length).Value2=Data 
		Sheets('測試表1').Range('D7：D8').ClearContents()
		Sheets('測試表1').Range('D7').Select()
	}else{
		alert('信息不全')
	}
}

const DateNotNull= Range('D6').Value2 !=null

var arr=Range("a2:b5"). Value2
	Console.log(JSON. stringify(arr))

//	InputBox("請輸入分?jǐn)?shù)")  //輸入框
//	let num=InputBox("請輸入分?jǐn)?shù)","提示",100,100,200)  //第2參數(shù)是標(biāo)題；第3參數(shù)是默認(rèn)值；第4/5參數(shù)是窗口坐標(biāo)
//	alert(num)  //消息提示框
//	MsgBox("你好")
	MsgBox("你好",jsYesNo)  //帶是/否按鈕的消息框
	MsgBox("你好",jsYesNoCancel)  //帶是/否/取消按鈕的消息框  MsgBox修改第2參數(shù)還支持很多樣式