99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話：13121318867

登錄
首頁精彩閱讀Excel基本操作VBA代碼2-填充與邊框
Excel基本操作VBA代碼2-填充與邊框
2016-12-09
收藏

Excel基本操作VBA代碼2-填充與邊框

我們來看看填充與邊框相關(guān)操作的VBA代碼，當(dāng)然，我們只要重點(diǎn)的常用的操作代碼，其他低概率應(yīng)用操作，自己有空再去了解吧。

一、填充

首先是單元格的填充操作。

下面的代碼是由“將目標(biāo)區(qū)域以黃色填充”這一簡單的操作而自動(dòng)生成的系統(tǒng)代碼：


上面這段代碼的效果如下：

當(dāng)我們將那些跑龍?zhí)椎模ㄎ覀儾怀Ｓ没蛘邩O少用到的）代碼去掉以后，要達(dá)到上面圖片的效果，真正需要的代碼只需要一行：

Selection.interior.color = 65535

至于填充的其他屬性，如：Pattern圖案、PatternColorIndex圖案顏色指數(shù)、TintAndShade色彩陰影、PatternTintAndShade圖案色彩陰影，這些不常用的屬性，喜歡的自己錄制宏了解下就好。

二、邊框

接著下來，我們來看看關(guān)于邊框（borders）的基本操作都有哪些代碼。

我們預(yù)期的效果如下圖：


為了達(dá)到這效果進(jìn)行的操作的系統(tǒng)VBA代碼如下：

是不是覺得很夸張？想一下，添加邊框竟然需要那么多行代碼，煩不煩那？別抱怨了，系統(tǒng)這叫嚴(yán)謹(jǐn)。要簡潔的？那還是讓我們把上面操作的主角找出來吧。

其實(shí)，上面這對代碼所帶來的效果，基本上等同于下面這句代碼所起的作用：

Selection.borders.linestyle = xlContinuous

或者

Selection.borders.linestyle = 1

或許你會(huì)疑惑了，既然一句能搞定的事情，那上面哪些龍?zhí)拙烤故歉陕锏哪兀?

那先讓我們認(rèn)識(shí)下邊框家族的兄弟們吧。

邊框 borders

這個(gè)負(fù)責(zé)總體邊框的設(shè)置，就是目標(biāo)區(qū)域里面單元格的所有邊框都屬于它。

左邊框線 borders(xlEdgeLeft)     選擇區(qū)域的最左邊框

右邊框線 borders(xlEdgeRight)  選擇區(qū)域的最右邊框

頂部邊框線 borders(xlEdgeTop)  選擇區(qū)域的頂部邊框

底部邊框線 borders(xlEdgeBottom)  選擇區(qū)域的底部邊框

內(nèi)部垂直線 borders(xlInsideVertical)    選擇區(qū)域的內(nèi)部垂直線

內(nèi)部水平線 borders(xlInsideHorizontal)  選擇區(qū)域的內(nèi)部水平線

向下對角線borders(xlDiagonalDown)     選擇區(qū)域每個(gè)單元格的向下對角線

向上對角線borders(xlDiagonalUp)    選擇區(qū)域每個(gè)單元格的向上對角線

一般來說，我們錄制的設(shè)置邊框的代碼，每次都會(huì)同時(shí)對上面8個(gè)對象進(jìn)行設(shè)置的。而我們在實(shí)際 的操作和應(yīng)用中，則大可不必如此麻煩。最常用的是borders，其它的則按照實(shí)際情況需要進(jìn)行選用就可以了。數(shù)據(jù)分析培訓(xùn)

對象找到了，那么接著下來就是針對這些邊框進(jìn)行屬性設(shè)置了。

對于一般的操作來說，邊框的屬性里面，重要的、常用的基本上有三個(gè)：線形 linestyle、顏色 color 和 粗細(xì) weight。

1、邊框線形

線形一般地有8種：

xlContinuous 或 1

Selection.borders.linestyle = 1

xlDash 或 -4115

Selection.borders.linestyle = xlDash

xlDashDot  或  4

Selection.borders.linestyle = 4

xlDashDotDot  或  5

Selection.borders.linestyle = xlDashDotDot

xlDot  或  -4118

Selection.borders.linestyle = -4118

xlDouble  或  -4119  或  9

Selection.borders.linestyle = -4119


xlSlantDashDot  或  13

Selection.borders.linestyle = 13

xlNone  或  -4142  或  0  （無邊框)

Selection.borders.linestyle = -4142

另外，單元格對角線的設(shè)置與效果這里也順帶展示一下。

向下對角線borders(xlDiagonalDown)

selection.borders(xlDiagonalDown).linestyle = 9


向上對角線borders(xlDiagonalUp)

selection.borders(xlDiagonalUp).linestyle = 9

2、邊框顏色

邊框顏色的設(shè)置操作代碼，相對簡單。顏色的主角是：color

selection.borders.color=RGB(0,255,0)

或者

selection.borders.color = 255

3、邊框線粗細(xì)

邊框線的粗細(xì)變化由 borders 的 weight屬性來控制，一般常用的粗細(xì)情形有四種（基于同一線形的粗細(xì)）：

xlHairLine  或  1

selection.borders.weight = 1

xlThin  或  2

selection.borders.weight = 2

xlMedium  或  -4138   或   3

selection.borders.weight = 3

xlThick  或  4

selection.borders.weight = 4

三、神一般的總結(jié)

1、填充搞定代碼

Selection.interior.color = 65535

2、邊框搞定代碼

Selection.Borders.LineStyle = 1               '線形

Selection.Borders.Color = 255                 '顏色

Selection.Borders.Weight = 3                   '粗細(xì)


數(shù)據(jù)分析咨詢請掃描二維碼

若不方便掃碼，搜微信號(hào)：CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1：配置參數(shù) // 參數(shù)2：回調(diào)，回調(diào)的第一個(gè)參數(shù)驗(yàn)證碼對象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺(tái)檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時(shí)表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式，包括：float，popup width: "280px", https: true // 更多配置參數(shù)說明請參見：http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時(shí)完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請輸入'+oInput.attr('placeholder')+'！'; var errTxt = '請輸入正確的'+oInput.attr('placeholder')+'！'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }