VBA語(yǔ)句翻譯。請(qǐng)大俠們幫忙翻譯一下，讓我學(xué)習(xí)一下。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '當(dāng)工作表選區(qū)發(fā)生改變時(shí)執(zhí)行本程序(固定格式) If Target.Count = 1 And Target.Row = 3 And Target.Column = 1 Then Rows("4:65536").ClearContents: Range("A4").Select '如果 Target的計(jì)數(shù)值=1 并且 Target的行標(biāo)=3 并且 Target的列標(biāo)=1 則執(zhí)行 <行>坐標(biāo)("4:65536" )的清除內(nèi)容:<單元格>區(qū)域("A4" )的選定 If Targ

VBA代碼求翻譯？

Private Sub CommandButton2_Click() tms = Timer '記錄程序開(kāi)始運(yùn)行的時(shí)間，關(guān)屏幕刷新和告警彈框顯示 Application.ScreenUpdating = False Application.DisplayAlerts = False '遍歷所有工作表，把當(dāng)前活動(dòng)工作表以外的全刪除，然后打開(kāi)告警彈框顯示 For Each sht In Sheets If sht.Name <> ActiveSheet.Name Then sht.Delete Next Application.DisplayAlerts = True '定義字典和二維數(shù)組，數(shù)組里

vba語(yǔ)法翻譯，求大神給翻譯翻譯。

Sub Macro1() '定義變量 Dim i, j Dim wb As Workbook, arr, rng As Range '關(guān)閉畫面刷新 Application.ScreenUpdating = False '如果宏運(yùn)行時(shí) Microsoft Excel 顯示特定的警告和消息，則該屬性值為 True。Boolean 類型，可讀寫。 Application.DisplayAlerts = False '將當(dāng)前文件路徑下的excel文件——數(shù)據(jù)源 賦給變量wb Set wb = GetObject(ThisWorkbook.Path & "\數(shù)據(jù)源.xls") '數(shù)組 賦值 等于數(shù)據(jù)源的

求EXCEL中的VBA語(yǔ)言的翻譯

錄制宏的代碼，意義性非常低，冗余語(yǔ)句太多！

SubMacro1()
Application.ScreenUpdating=False'禁止屏幕刷新
Sheet1.Select'選定Sheet1工作表
DimiAsInteger'定義整型變量i
DimbAsInteger'。。。。。。b
i=Sheet2.[J65536].End(xlUp).Row
'i等于Sheet2工作表J列最后一個(gè)有數(shù)據(jù)的單元格的行標(biāo)
b=Sheet3.[B65536].End(xlUp).Row+1
'b等于Sheet3工作表B列最后一個(gè)有數(shù)據(jù)的單元格下一行的行標(biāo)
Range("C1:D1").Select'選定C1:D1區(qū)域，記為XX
Selection.Copy'復(fù)制上面的選定語(yǔ)句
Range("E2:F2").Select'選定E2:F2區(qū)域，記為YY
Selection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_
:=False,Transpose:=False'粘貼復(fù)制的數(shù)據(jù)XX到Y(jié)Y
Range("A2:AQ18").Select'選定E2:F2區(qū)域，記為zz
Selection.Copy'復(fù)制上面的選定語(yǔ)句
Sheets("當(dāng)月").Select'選定工作表名稱為"當(dāng)月"的工作表
Ifi=1Then'如果i=1，那么
Range("J"&i).Select'選定J1單元格
ActiveSheet.Paste'當(dāng)前工作表粘貼上面復(fù)制的數(shù)據(jù)zz
Else'如果i不等于1，那么
Range("J"&i+2).Select'選定J列i+2行的單元格
ActiveSheet.Paste'當(dāng)前工作表粘貼上面復(fù)制的數(shù)據(jù)zz
EndIf
Sheets("匯總").Cells(b,1)=Sheet1.Range("C1")
'匯總工作表的第b行，第1列單元格數(shù)據(jù)=Sheet1工作表的C1單元格數(shù)據(jù)
Sheets("匯總").Cells(b,2)=Sheet1.Range("Z10")
'匯總工作表的第b行，第2列單元格數(shù)據(jù)=Sheet1工作表的Z10單元格數(shù)據(jù)
Sheets("匯總").Cells(b,3)=Sheet1.Range("AA3")
'匯總工作表的第b行，第3列單元格數(shù)據(jù)=Sheet1工作表的AA3單元格數(shù)據(jù)
Sheets("匯總").Cells(b,4)=Sheet1.Range("AA4")
'匯總工作表的第b行，第4列單元格數(shù)據(jù)=Sheet1工作表的AA4單元格數(shù)據(jù)
Sheets("匯總").Cells(b,5)=Sheet1.Range("AA5")
'匯總工作表的第b行，第5列單元格數(shù)據(jù)=Sheet1工作表的AA5單元格數(shù)據(jù)
Sheets("匯總").Cells(b,6)=Sheet1.Range("AA6")
'匯總工作表的第b行，第6列單元格數(shù)據(jù)=Sheet1工作表的AA6單元格數(shù)據(jù)
Sheets("匯總").Cells(b,7)=Sheet1.Range("AA7")
'匯總工作表的第b行，第7列單元格數(shù)據(jù)=Sheet1工作表的AA7單元格數(shù)據(jù)
'同上
Sheet1.Select'選定Sheet1工作表
Application.CutCopyMode=False'剪貼數(shù)據(jù)模式關(guān)閉
ActiveCell.FormulaR1C1=""'當(dāng)前活動(dòng)單元格數(shù)據(jù)清空
Range("A1").Select'選擇A1單元格
Application.ScreenUpdating=True'允許屏幕刷新
EndSub

誰(shuí)能幫我翻譯下VBA這個(gè)語(yǔ)句啥意思

x=3
DoWhileNot(IsEmpty(Sheets("員工登記表").Cells(x,3).Value))
x=x+1
Loop

x=3

從“員工登記表“的C列第x行開(kāi)始，如果該行不是空值就繼續(xù)向下對(duì)照，同時(shí)x+1，一直到最后一個(gè)非空單元格

x=該單元格所在行的行號(hào)

flag=0
Fori=1Tox
IfSheets("錄入登記表").Cells(3,3)=Sheets("員工登記表").Cells(i,3)Then
flag=9
ExitFor
EndIf
Next

Ifflag=9Then
x=i
EndIf

判斷”員工登記表“C列是否有單元格等于”錄入登記表“的C3，如果有的話，x=該單元格的行號(hào)