表白：黑白圣堂血天使，天劍鬼刀阿修羅。 
講解對(duì)象：/VBA area方式多區(qū)域選擇
作者：融水公子 rsgz

多個(gè)區(qū)域選擇 其實(shí)還可以用area方式 更簡(jiǎn)單
作用：把選擇區(qū)域的數(shù)量做判斷  大于1的時(shí)候就顯示警告

Sub NoMultiAreaSelection()
    NumberOfSelectedAreas = Selection.Areas.Count
    If NumberOfSelectedAreas > 1 Then
        MsgBox "你選擇了多個(gè)區(qū)域 不能執(zhí)行這個(gè)命令 "
    End If
End Sub

執(zhí)行一下上面的代碼 就會(huì)出現(xiàn)這個(gè)反應(yīng)了

=== 

公眾號(hào)：不浪仙人

謝謝大家的支持！可以點(diǎn)擊我的頭像，進(jìn)入我的空間瀏覽更多文章呢。建議大家360doc[www.woyoushebao.com]注冊(cè)一個(gè)賬號(hào)登錄，里面真的有很多優(yōu)秀的文章，歡迎大家的到來(lái)。
---