華閱文章網VBA中的WITH 語句用法 及含義
通俗點講with的作用就是簡化代碼，讓代碼簡潔易懂
讓你不需要輸入重復的內容
例如：
With [A1]
.RowHeight = 10
.ColumnWidth = 15
End With
相當于
[A1].RowHeight = 10
[A1].ColumnWidth = 15
省去了輸入很多[A1]
也就是說with中以 . 開頭的就相當于
WITH后的對象 .什么什么什么
VBA 編程,關于WITH語句的問題
二個問題： 一、 Set RNG = Intersect(*nge, Selection)的意思是 取sheet1 的有數據的部分 跟當前的選擇 區域 的交集部分 當你選擇的不是 有數據的區域，RNG 為NOTHING , K = * 這句就會報錯， RNG 沒有獲得對象， 是沒辦法對其計數的，就會出現上述錯誤提示 二、With *nge End With 是為了節省代碼用的 在其中間的 凡是 需要使用*nge 對象的 都可以用 . 代替， 但是你并沒用到*nge ， 所以這句是多余的 K = * 這句也是多余的， 后面你都沒用過K , * 可以改成 * 沒必要加cells ，當然加了也不錯，就是多余 如果你不需要判斷 數據 區域和 選擇區域的交集 代碼可以改成： Sub YN1()Dim RNG As RangeIf TypeName(Selection) <> "Range" ThenMsgBox ("1")Else If * > 0 Then For Each RNG In Selection RNG = StrConv(RNG, 1) Next End IfEnd IfEnd Sub。
excel vba with是什么意思
簡化代碼的，省略掉需要重復輸入的內容
比如要輸入
[A1].RowHeight = 10
[A1].ColumnWidth = 15
使用WITH語句后為
With [A1]
.RowHeight = 10
.ColumnWidth = 15
End With
這里[A1]只是舉例，這個可以很長，可以涉及很多行。使用WITH就能省時省力，代碼也看著簡練。
VBA中for 語句和for each語句的使用
dim ws as worksheet
dim int_index as integer
int_index = 2
dim wsjoin as worksheet
set wsjoin = worksheets（"練習3"）.
for each ws in worksheets
if * "練習3" then
*("a3:f3").copy
int_index = int_index + 1
*(int_index,1).select
*
end if
next
set wsjoin = nothing
vba 宏問題
把H1單元格的顏色設置成灰色
Sub Macro1（) 宏程序固定格式
Macro1 Macro 多余
Range("H1").Select 選中H1,
With *or VBA WITH語句開始
.ColorIndex = 15 填充顏色設為15'即灰色
.Pattern = xlSolid 邊框設為 xlSolid
.PatternColorIndex = xlAutomatic 文字顏色自動。
End With VBA WITH語句結束
End Sub 宏程序固定格式
VBA控制鼠標的操作范圍有哪些
以下的VBA代碼，可以控制鼠標的活動范圍，即控制鼠標能操作的范圍。哪里能操作，哪里不能操作，都能控制。
代碼如下，附帶詮釋。
With ActiveSheet 'With 語句，在一個單一對象上執行一系列的語句
.Unprotect '解除沒設密碼的工作表保護
.* = False '解除活動工作表中所有單元格的“鎖定”
.Range("F1:J99").Locked = True '只鎖定 [F1:J99] 區域
.EnableSelection = xlUnlockedCells '僅允許選定未被有效鎖定的單元格
.Protect '工作表保護（沒設密碼）
End With 'With 語句結束
以上的代碼在代碼窗口中使用。[F1:J99]區域不能使用鼠標。
