2021-05-14

不会VB，但是又不想局限于EXCEL那些用到就查，不用就忘的复杂长串的公式，于是就开始了尝试用WPS的JS宏编辑器。

记录一下刚入门常用的基本公式。

/**
 * mis_01or99 Macro
 * 宏由 杨沃桦 录制，时间: 2021/05/10
 */
function mis_01or99()
{
	/**
	 * 添加任务所述组织，添加任务尾缀
	 */
	for (i = 1; i < 91; i++) {
		MisNum = Range("B"+i).Value2;
		if (i%3 == 1){
			Range("C"+i).Value2 = '31.'+ MisNum;
		}else if (i%3 == 2) {
			Range("C"+i).Value2 = '31.'+ MisNum+ '.01';
		} else {
		    Range("C"+i).Value2 = '31.'+ MisNum+ '.99';
		}  
		/*输入任务所属组织*/
		Range("D"+i).Value2 = "OU_GX_303331_贵港分公司";
 	}
 	
}

/**
 * Macro2 Macro
 * 宏由 杨沃桦 录制，时间: 2021/05/10
 */
function MisFullname()
{
	/**
	 * 根据设计方案站点名称填充任务全称栏
	 */
	for (i = 1; i < 91; i++) {

		if (i%3 == 1){
			Val = Range("G"+i).Value2;
			Range("H"+i).Value2 = Val;
		}else if (i%3 == 2) {
			Range("H"+i).Value2 = Val+ '设备';
		} else {
		    Range("H"+i).Value2 = Val+ '待摊';
		}  
 	}
 	
}
function Macro4()
{
	/**
	 * 根据设计方案站点名称填充说明栏
	 */
	for (i = 1; i < 91; i++) {

		if (i%3 == 1){
			Val = Range("G"+i).Value2;
			Range("F"+i).Value2 = Val;
		} else {
		    Range("F"+i).Value2 = Val;
		}  
 	}
 	
}

function didian2()
{
	/**
	 * 复制地点2编码
	 */
	for (i = 1; i < 91; i++) {

		if (i%3 == 1){
			Val = Range("H"+i).Value2;
		} else {
		    Range("H"+i).Value2 = Val;
		}  
 	}
 	
}

function xx()
{
	Range("A1", Range("A1").End(xlDown)).Select()
}