Application.Workbooks(1).Close

Application.Workbooks.Item(1).Close()

Range("A1:N29").Find("香港特别", LookIn:=xlValues).Select

Application.ActiveSheet.Range("A1:N29").Find("我",undefined, xlValues).Select();

Application.Workbooks(1).Close

Application.Workbooks.Item(1).Close()

cells(2,3).value

Application.Cells.Item(2,3).Value2

Application.ActiveDocument.Name111 不报错

MsgBox (Application.ThisDocument.Name)

MsgBox (Application.ActiveDocument.Name)

Private Sub Workbook_SheetSelectionChange(ByVal Target As Range)
Dim i As Integer
IF Target.Column>6 And Target.Column>37 && Target.Row>6 And Target.Row Mod 2 = 1 And Cells(Target.Row -1, 5).Value <> “”
ThenWith Target.Validation.Delete.Add Tpye:=xlValidateList,AlertStyle:=xlValidAlertStop,Operator:=xlBetween,Formular1:="=区域城市！$A2:$A30000").IncellDropdown = true

function Workbook_SheetSelectionChange(Sh, Target) {if(Target.Column>6 && Target.Column>37 && Target.Row>6 && (Target.Row)%2n==1 && Cells.Item(Target.Row -1n, 5).Value2 !==””) {var temptarget = Target.Validationtemptarget.Delete()temptarget.Add(xlValidateList,xlValidAlertStop,xlBetween,"=区域城市！$A2:$A30000")temptarget.IncellDropdown = true}
}

MsgBox (Application.ThisDocument.Name)

MsgBox (Application.ActiveDocument.Name)

Public(Private) Sub AddTemplate()MsgBox "d"
End Sub

function AddTemplate() {MsgBox（"d"）
}

Dim i As Integer

var i

Dim j As String

var j

True, False

true, false

Target.Row Mod 2 = 1

(Target.Row)%2==1

AddIns.Add FileName:="C:\Program Files\Microsoft Office" _"\Templates\Letters Faxes\MyFax.dot", Install:=True

AddIns.Add("C:/Program Files/Microsoft Office" + "/Templates/Letters Faxes/MyFax.dot",true)

1.逻辑与（AND）2.逻辑或（OR） 3.逻辑非（<>）

逻辑与（&&）2.逻辑或（||） 3.逻辑非（！）

if Cells(1,2).value == ""  //空

if (Cells.Item(1,2).Value2)   //空

if Cells(1,2).value <> ""  //非空

if (!Cells.Item(1,2).Value2)  //非空

//vb用以上两种方式的枚举都可以正常使用
Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Application.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphLeft

//js只支持这一种
Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

With Selection.Range.PageSetup.TextColumns.SetCount NumColumns:=2.EvenlySpaced = 0
End With

Var columens = Selection.Range.PageSetup.TextColumns
columens.SetCount(2)
columens.EvenlySpaced = 0
//注意TextColumns后面没有括号因为这是一个属性

IF Target.Column>6 And Target.Column>37 And Target.Row>6 And Target.Row Mod 2 = 1 And Cells(Target.Row -1, 5).Value <> ""
ThenWith Target.Validation.Delete.Add
Endif

if(Target.Column > 6 && Target.Column > 37 && Target.Row > 6 && (Target.Row) % 2 == 1 && Cells.Item(Target.Row -1n, 5).Value2 !== null) {var temptarget = Target.Validationtemptarget.Delete()temptarget.Add(xlValidateList,xlValidAlertStop,xlBetween,"=区域城市！$A2:$A30000")
}

IF Target.Column>6 And Target.Column>37 And Target.Row>6 And Target.Row Mod 2 = 1 And Cells(Target.Row -1, 5).Value <> ""
ThenWith Target.Validation.Delete.Add
Endif

if(Target.Column > 6 && Target.Column > 37 && Target.Row > 6 && (Target.Row) % 2 == 1 && Cells.Item(Target.Row -1n, 5).Value2 !== null) {var temptarget = Target.Validationtemptarget.Delete()temptarget.Add(xlValidateList,xlValidAlertStop,xlBetween,"=区域城市！$A2:$A30000")
}