vba

hjymkufgnnnnnnnnnnnnnnvfbdbhkhudgsgdbjfvgdbhdg ucghyrxfusxhfudtfgxhggggggggggggggggxhhhhhhhhhhhhhhhhhhhffffffffffff

说来惭愧，这个问题，我花了好长时间就是找不出原因，只好再向其他各位老师求教，现有2个答案，都可行。 我们主要是被这个录制的宏给蒙蔽了。 Sub xxx() Dim m For p = 1 To 3 k = k + 1 If k = 1 Then m = Sheets(k).Name Else m = m & "," & Sheets(k).Name End If Next Sheets(Split(m, ",")).Select End Sub Sub xx() Dim m(1 To 3) For p = 1 To 3 m(p) = Sheets(p).Name Next Sheets(m).Select End Sub

格式是这样的：sheets("sheet的名字")

直接用sheet1.activavte

默认Variant , 不确定什么对象 就用 Object

Sub tx()Dim x As IntegerFor x = 1 To Sheets.CountIf Sheets(x).Name = "aa" ThenMsgBox ("aa表已存在")EndEnd IfNext xSheets.Add After:=Sheets(Sheets.Count)Sheets(Sheets.Count).SelectSheets(Sheets.Count).Name = "aa"End Sub

可以用一个变量curmonth来表示当前月份，则选择上个月的表格打开就可以写成：sheets((curmonth-1)&"月").select变量（或表达式）与其他字符（串）之间用&进行连接。

Private Sub CommandButton1_Click()Sheets("sheet1").Visible = not(Sheets("sheet1").Visible)Sheets("sheet2").Visible = not(Sheets("sheet2").Visible)End Sub

cells和sheets都是对象名.是保留字段.比如 cells(1,1) sheets(1)等sheet可以指属性但不是对象名,也可以自己定位为变量名.比如 workbooks.sheetcell什么都不是.最多用来定义为变量名.

cells和sheets都是对象名.是保留字段.比如 cells(1,1) sheets(1)等sheet可以指属性但不是对象名,也可以自己定位为变量名.比如 workbooks.sheetcell什么都不是.最多用来定义为变量名.

Dim wss As WorksheetSet wss = Workbooks(2).Worksheets"worksheet是对像类型"worksheets是这一类型的集合

既然用VBA，何以用函数写公式？学习字典的用法吧，或者用find方法，都要快得多find方法示例sub test()dim rg as range,rgB as range,mRow as longset rg=workSheets("获奖记录").range("A2:A9982")with activesheetset rgb=rg.find(.[c4].value,lookin:=xlvalues,lookat:=xlwhole)if not rgb is nothing thenactivesheet.[b2]=rgb.offset(0,3).value & " " & rgb.offset(0,4).valueend ifend sub

<pre t="code" l="vb">sub 保存()set sh= workSheets("表1")with workSheets("表2") "表名自行修改，大小写敏感mRow=.cells(rows.count,"A").end(3).row.cells(mRow+1,1)=sh.[b2].cells(mrow+1,2)=sh.[b1].cells(mRow+1,3)=sh.[d1].cells(mRow+1,4)=sh.[d2]end withend subsub 清空()set sh= workSheets("表1")with shunion(.[b1],.[b2],.[d1],.[d2]).clearend withend sub

选中最后一行的下一行，按：Ctrl+D

在A列查找文本框（Textbox1）的值所对应的行号。但如果A列没有这个值，就会出错

sub t()mrow=cells(rows.count,1).end(3).rowArr=range(cells(1,1),cells(mrow,1))end sub

很明显，IF 这句后面没有then

Sub justtest()Dim dic, dic1, i&, j%, k% For i = 2 To Worksheets("出号2").Cells(Rows.Count, 10).End(3).Row "建立循环从2到最后一行 Set dic = CreateObject("scripting.dictionary") "建立字典，这两个建立字典可放到循环外，不要放在循环中重复操作了。 Set dic1 = CreateObject("scripting.dictionary") "建立字典 For j = 1 To 12 "通过循环给字典dic赋值 If Not dic.exists(Worksheets("出号2").Cells(i, j + 9).Value) Then dic.Add Worksheets("出号2").Cells(i, j + 9).Value, "" Next j For k = 1 To 12 "通过循环给字典dic1赋值 If dic.exists(Worksheets("出号1").Cells(i, k + 9).Value) Then dic1(Worksheets("出号1").Cells(i, k + 9).Value) = "" Next k Worksheets("sheet1").Cells(i + 1, 1).Resize(1, dic1.Count) = dic1.keys "把字典值赋给工作表 Set dic = Nothing "清除字典值 Set dic1 = Nothing "清除字典值 Next iEnd Sub

Dim d As New Dictionary 定义一个字典对象变量D，需要加载引用对象，如出错是字典对象没有引用 到原因以及 Set d = CreateObject("Scripting.Dictionary") ，定义变量D为字典对象，如没自动引用加载字典对象，并赋空值。结尾有一句 Set d = Nothing ，字典用完，清空变量D。如果字典的数据量大，一定要用这个，否则电脑速度下降。

你是要根据这段代码修改成你要的东西吗？

已经变成只读了，就直接kill好了ThisWorkBook.ChangeFileAccess xlsReadOnly后面直接跟上Kill thisworkbook.fullname就好，为什么还要保存？应该是先保存，然后复制，接着变成只读，然后删除啊程序应该是这样的ThisWorkBook.savefso.copyfile ……ThisWorkBook.ChangeFileAccess xlsReadOnlyKill thisworkbook.fullname

请参考如下修改后的代码：Sub C2U()" 字符转Unicode" Makro aufgezeichnet am 2009-3-30 von 肖深刻的九叔 no = Selection.Characters.Count Selection.Collapse WdCollapseDirection.wdCollapseStart For i = 1 To no Selection.MoveEnd WdUnits.wdCharacter, 1 If Selection.Text <> vbCr Then Selection.ToggleCharacterCode Selection.Collapse WdCollapseDirection.wdCollapseEnd Next iEnd SubSub U2C()" Unicode转字符" Makro aufgezeichnet am 2009-3-30 von 肖深刻的九叔 no = Selection.Characters.Count Selection.Collapse WdCollapseDirection.wdCollapseStart For i = 1 To no Do While True Selection.MoveEnd WdUnits.wdCharacter, 1 i = i + 1 If IsValidHexChar(Selection.Text) Then Exit Do Selection.Collapse WdCollapseDirection.wdCollapseEnd If i = no Then Exit Sub Loop Selection.MoveEnd WdUnits.wdCharacter, 3 Selection.ToggleCharacterCode Selection.Collapse WdCollapseDirection.wdCollapseEnd Next iEnd SubFunction IsValidHexChar(char As String) As Boolean IsValidHexChar = InStr("0123456789abcdef", LCase(char)) > 0End FunctionToggleCharacterCode是个切换函数，会根据当前选中的内容或者光标左边的内容（如果什么都没有选中的话）是文字还是编码，来决定现在是要执行对应的转编码还是转文字的操作。所以楼主原来的代码中C2U遇到数字和字母出错，就是因为当光标左边的那个字符如果正好是数字或者字母a-f时，会导致Word误将其和更左边的UNICODE码合并成一个更长的UNICODE码，然后尝试去对其执行UNICODE到文字的转换，因此就转换错了。解决的办法是，明确地将要转换的字符依次选中，而不是让Word自己去判断光标左边的内容到底是文字还是编码。至于回车导致的错误，是因为回车符vbCr也是占字符位置的，所以在循环遍历时，要把它跳过。同样，U2C中凡是遇到不在十六进制表示范围（0-9，a-f）的字符，也需要跳过，避免干扰解码。

导航栏：崩溃后

Private Sub ConnectionWithSQL()Dim strConn As String, sSQL As String, sErrorDetail As String, sAccounts As String, sUseBusinessDate As String, _sEffectiveDate As String, sPositionSource As String, dStartTime As Date, sClassesFilter As String, _sMessage As String, iStepTime As Integer, iTotalTime As IntegerSheets("Controls").ActivatesEnvironment = Range("DBEnvironment")sAccounts = Range("Accounts")sUseBusinessDate = Range("UseBusinessDate")sEffectiveDate = Range("PositionDate")sPositionSource = Range("HoldingsSource")sClassesFilter = Range("ClassesFilter")On Error GoTo SQLErrorOpenConnection objConn, sConnStateOn Error GoTo 0If sConnState <> "" ThenExit SubEnd IfdStartTime = Now()strConn = "Provider=SQLNCLI11;"strConn = strConn & "diver = {SQL Server};"strConn = strConn & "Server=AC01SQL02;"strConn = strConn & "Database=aci_invest;"strConn = strConn & "Trusted_Connection=yes"Set cnn = New ADODB.ConnectionWith cnn.Open strConn.CursorLocation = adUseClientEnd WithsSQL1 = "Select i.issuer_name as ISSUER_NAME, f.fundcode as ACCOUNT_CODE, i.issue_description as ISSUE_DESCRIPTION,i.coupon_div_currency as INCOME_CURRENCY, p.local_mv_accint as MARKET_VALUE_INCOME, p.effective_date as VALUE_DATE, ice.pf_class_level6 as DETAIL_CLASS_LEVEL_8_EN,i.issuer_name_en as ISSUER_NAME_EN, i.parent_issuer_name_en as PARENT_ISSUER_NAME_EN from [main.vw_position p& join main.vw_fund f on p.effective_date=f.effective_date and p.fundcode=f.fundcode&join main.vw_instrument i on p.effective_date=i.effective_date and p.instrument_id=i.instrument_id&join main.vw_instrument_analytic ia on p.effective_date=ia.effective_date and p.instrument_id=ia.instrument_id&join main.vw_instrument_class_en ice on p.effective_date=ice.effective_date and p.instrument_id=ice.instrument_id&left join main.vw_instrument_rating ir on p.effective_date=ir.effective_date and p.instrument_id=ir.instrument_id]"s2 = "where p.effective_date ="2018-01-18" & ice.pf_class_level1 = "Cash" or ice.pf_class_level1 = "Fixed Income""s3 = "(p.lt_flag = "S" or p.lt_flag = "SL")"s4 = "(ice.pf_class_level2 ="Bonds" or ice.pf_class_level2 = "Money Market" or ice.pf_class_level2 = "CASH" OR ice.pf_class_level2 = "Mortgages" or ice.pf_class_level2 = "OTHER")"s5 = "ice.pf_class_level5 = "Corporate"& (p.fundcode like "A%" or p.fundcode like "F%" or p.fundcode like "X%")"s6 = "p.fundcode!= "AP089A"& p.fundcode!= "A1129A"&p.fundcode!= "AP058U"&p.fundcode!="A1085a""s7 = "p.fundcode!= "As018o" & p.fundcode!= "A10421"&p.fundcode!= "AP095A"&p.fundcode!= "A10421"& p.fundcode!= "FC155A" & p.fundcode!= "AP094A"& p.fundcode!= "A10421"& p.fundcode!= "A1042A" & p.fundcode!= "A1042F"& p.fundcode!= "A1062A"& p.fundcode!= "A1064A""s8 = "p.fundcode!= "A1064A" & p.fundcode!= "A1065F" & p.fundcode!= "A1066F"& p.fundcode!= "A1161A"& p.fundcode!= "A1165L""s9 = "p.fundcode!= "A1167L"& p.fundcode!= "A1168L"& p.fundcode!= "A1169L"& p.fundcode!= "A1209A"& p.fundcode!= "A1209G"& p.fundcode!= "A1209H"& p.fundcode!= "A12351"& p.fundcode!= "A1235A""s10 = "& p.fundcode!= "A1235F"& p.fundcode!= "A1235P"& p.fundcode!= "A1244A"& p.fundcode!= "A1244R"& p.fundcode!= "A1254A"& p.fundcode!= "A1281A"& p.fundcode!= "Ac001a"& p.fundcode!= "AC002A"& p.fundcode!= "Ac038a"& p.fundcode!= "Ap011a"& p.fundcode!= "Ap031a"& p.fundcode!= "Ap032a"& p.fundcode!= "Ap036a"& p.fundcode!= "Ap053a"& p.fundcode!= "Ap056a"& p.fundcode!= "Ap080a"& p.fundcode!= "Ap080a"& p.fundcode!= "AS002A"& p.fundcode!= "AS035A"& p.fundcode!= "AS086A"& p.fundcode!= "AS087A"& p.fundcode!= "AS087C"& p.fundcode!= "AS095L"& p.fundcode!= "AS140I"& p.fundcode!= "AS214A"& p.fundcode!= "AS140I"& p.fundcode!= "AS227A"& p.fundcode!= "AS286A"& p.fundcode!= "AS333L"& p.fundcode!= "AS341A"& p.fundcode!= "AS348A"& p.fundcode!= "AS348L"& p.fundcode!= "AS349A"& p.fundcode!= "AS349B"& p.fundcode!= "AS350A"& p.fundcode!= "AS358A"& p.fundcode!= "AS371A"& p.fundcode!= "AS349A"& p.fundcode!= "AS349B" "sSQL = sSQ1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10DumpRecordset objConn, sSQL, Sheets("PortData"), "A2", TrueiStepTime = DateDiff("s", dStartTime, Now())sMessage = "Positions fetched in " & iStepTime & " seconds."iTotalTime = iStepTimesMessage = sMessage & vbCrLf & "Total time is " & iTotalTime & " seconds."CloseConnection objConnSheets("Controls").ActivateSet rst = New ADODB.RecordsetWith rst.CursorLocation = adUseServer.Open Source:=sSQL, ActiveConnection:=cnn, CursorType:=adOpenForwardOnly, _LockType:=adLockOptimistic, Options:=adCmdTextEnd WithEnd Sub

Sub Macro2() Dim RowNumber As Integer Dim SheetName As String SheetName = Range("A3") RowNumber = 找行数(SheetName)End SubFunction 找行数(ByVal SheetName As String) As Long Sheets(SheetName).Select 找行数 = Cells.Find(What:="2013年", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).RowEnd Function

&——表示地址的意思

还是截图吧。

建立与Oracle的连接，不过很少有这样做的

Set word = CreateObject("word.application")我把前面一个word改一下名称好解释一点。Set myword = CreateObject("word.application")myword这个对象变量就代表了office的word应用程序。有了它，我们才能打开一个word文档。Set PsDoc = word.documents.Open("d:My Documents" & Adoc)把指定路径下的word文档打开，并且把这个文档赋值给对象变量PsDoc。这样一来，PsDoc就代表了那个指定路径的文档。

Cells.Copy Sheets("Sheet2").Paste Application.CutCopyMode = False

先选range("C2").Selectselection.paste

表达式.PasteSpecial(Paste,Operation,SkipBlanks,Transpose)PasteOperation例1：在选择的粘贴区域，全部粘贴，没有粘贴操作（加减乘除等操作），空白单元格也粘贴，不进行转置： Selection.PasteSpecialPaste:=xlPasteAll,Operation:=xlNone,SkipBlanks:=False,Transpose:=False因为后3个参数是没有操作或默认值，所以，可以将其省略，则简化为： Selection.PasteSpecialPaste:=xlPasteAll==========================================又因是全部粘贴，所以，干脆第1个参数也省略，成为： Selection.PasteSpecial可以使用 ActiveSheet.Paste 来代替上面的语句。例2：在选择的粘贴区域，粘贴值，没有粘贴操作（加减乘除等操作），空白单元格也粘贴，进行转置：Selection.PasteSpecialPaste:=-4163,Operation:=xlNone,SkipBlanks:=False,Transpose:=True简化为：Selection.PasteSpecialPaste:=-4163,Transpose:=True

用Workbooks.Open Filename:="Z: msTO2.xls"语句打开工作簿之后，还需要选择一个工作表。应加入语句如Windows("TO2.xls").Activate ActiveWorkbook.sheets(1).select

Pastespecial 可以用来特殊粘贴，比如只粘贴值，不要格式。paste则是完全相同的粘贴，保留格式，系统默认的那种。

Pastespecial是选择性粘贴。paste是粘贴。

VBA 阿，我不太熟哎，一定可以实现的，可惜50分拿不到了。

vbalikea-z写法如下。runoo+b，可以匹配 runoob、runooob、runoooooob 等，+ 号代表前面的字符必须至少出现一次（1次或多次）。runoob，可以匹配 runob、runoob、runoooooob 等， 号代表字符可以不出现，也可以出现一次或者多次（0次、或1次、或多次）。colou?r 可以匹配 color 或者 colour，? 问号代表前面的字符最多只可以出现一次（0次、或1次）。

定义1个变量，函数返回这个变量的地址。 这个变量可以是任何类型（不能是数组）。 2、 StrPtr 定义1个String类型 与VarPtr得到的变量地址（假设是pv）关系是，pv这个地址保存的4个字节（32位电脑）的值就是ps。 所以从上面可以看出，StrPtr就是把VarPtr得到的pv这个指针保存的内存数据读取出来。 也就是对String类型来说，其实有VarPtr就能够间接获取Str的字符所在地址，于是就想到尝试用StrPtr对数据类型的变量使用是不是也是一样的效果？ 本以为在变量l未初始化也就是0的时候，StrPtr(l)应该返回0才对，为什么返回了一个值？这个如果也是个内存地址的话，里面又保存了什么？ 输出的这个值还挺特殊！变量l赋值的话输出也会变化，不懂为什么！ 待研究…… 3、Obj Ptr 这个和StrPtr好像差不多，VarPtr(obj)得到的地址po，po内存保存的数据等于ObjPtr(obj)

Sub aa() Dim str As String Dim i As Integer Dim a As Range Set a = Range("a1:a10") "选择的范围 For Each b In a str = b.Cells For i = 1 To Len(str) If Asc(Mid(str, i, 1)) < 0 Then b.Cells.Font.Name = "黑体" Else b.Cells.Font.Name = "Arial" End If Next i NextEnd Sub

Private Sub btnRun_Click()Dim ClArray() As StringClArray = ModCheck.SearchAllFile End SubClArray需要定义数组维数即

没有问题，这个功能我开发过。

这个问题还没有解决啊

vba 怎么调用outlook express发送邮件， 如果同时安装了Microsoft outlook，并且你可以先打开outlook express，再点击插入附件 Dim a a = Shell(

方法1：加句on error resume next方法2：if RANGE(g3)<>"" then 代码

简直是脱裤子放屁20×20的组合for i = 1 to 20for n = 1 to 20debug.print i &"," & nnextnext除非你是已有数组，不然，这些个排列组合用数组干嘛啊

1.要改两个部份，第一步，改首行的private 为 public2.ss_dim.Select acSelectionSetAll, , , dxf_code, dxf_value 改正: ss_dim.SelectOnScreen dxf_code, dxf_value这样就是输出选中对象了。----------------------------Public Sub GetLWPOLYLINECoordinates() Dim ss_dim As AcadSelectionSet, ent As AcadLWPolyline Dim dxf_code() As Integer, dxf_value() As Variant Dim i As Long, j As Long Dim dbCor As Variant, x As Double, y As Double, z As Double Set ss_dim = ThisDrawing.SelectionSets.Add("ssLine1") ReDim dxf_code(0), dxf_value(0) dxf_code(0) = 0: dxf_value(0) = "LWPOLYLINE" "ss_dim.Select acSelectionSetAll, , , dxf_code, dxf_value ss_dim.SelectOnScreen dxf_code, dxf_value Open "d:aaaaa.txt" For Append As #1 For Each ent In ss_dim For j = 0 To UBound(ent.Coordinates) 2 x = ent.Coordinates(j * 2) y = ent.Coordinates(j * 2 + 1) Print #1, (j); ",," & x & "," & y Next Next Close #1 ss_dim.Clear ss_dim.DeleteEnd Sub

主要是作用范围不一样..

1）赋值2）当该方法应用于 Shapes 对象时，返回一个 Shape 对象，该对象代表工作表中的新自选图形。当该方法应用于 CanvasShapes 对象时，返回一个 Shape 对象，该对象代表绘图画布中的新自选图形。expression.AddShape(Type, Left, Top, Width, Height)expression 必选。该表达式返回 Shapes 对象。Type MsoAutoShapeType 类型，必需。指定要创建的自选图形的类型。MsoAutoShapeType 可为以下 MsoAutoShapeType 常量之一。 msoShape16pointStar msoShape24pointStar msoShape32pointStar msoShape4pointStar msoShape5pointStar msoShape8pointStar msoShapeActionButtonBackorPrevious msoShapeActionButtonBeginning msoShapeActionButtonCustom msoShapeActionButtonDocument msoShapeActionButtonEnd msoShapeActionButtonForwardorNext msoShapeActionButtonHelp msoShapeActionButtonHome msoShapeActionButtonInformation msoShapeActionButtonMovie msoShapeActionButtonReturn msoShapeActionButtonSound msoShapeArc msoShapeBalloon msoShapeBentArrow msoShapeBentUpArrow msoShapeBevel msoShapeBlockArc msoShapeCan msoShapeChevron msoShapeCircularArrow msoShapeCloudCallout msoShapeCross msoShapeCube msoShapeCurvedDownArrow msoShapeCurvedDownRibbon msoShapeCurvedLeftArrow msoShapeCurvedRightArrow msoShapeCurvedUpArrow msoShapeCurvedUpRibbon msoShapeDiamond msoShapeDonut msoShapeDoubleBrace msoShapeDoubleBracket msoShapeDoubleWave msoShapeDownArrow msoShapeDownArrowCallout msoShapeDownRibbon msoShapeExplosion1 msoShapeExplosion2 msoShapeFlowchartAlternateProcess msoShapeFlowchartCard msoShapeFlowchartCollate msoShapeFlowchartConnector msoShapeFlowchartData msoShapeFlowchartDecision msoShapeFlowchartDelay msoShapeFlowchartDirectAccessStorage msoShapeFlowchartDisplay msoShapeFlowchartDocument msoShapeFlowchartExtract msoShapeFlowchartInternalStorage msoShapeFlowchartMagneticDisk msoShapeFlowchartManualInput msoShapeFlowchartManualOperation msoShapeFlowchartMerge msoShapeFlowchartMultidocument msoShapeFlowchartOffpageConnector msoShapeFlowchartOr msoShapeFlowchartPredefinedProcess msoShapeFlowchartPreparation msoShapeFlowchartProcess msoShapeFlowchartPunchedTape msoShapeFlowchartSequentialAccessStorage msoShapeFlowchartSort msoShapeFlowchartStoredData msoShapeFlowchartSummingJunction msoShapeFlowchartTerminator msoShapeFoldedCorner msoShapeHeart msoShapeHexagon msoShapeHorizontalScroll msoShapeIsoscelesTriangle msoShapeLeftArrow msoShapeLeftArrowCallout msoShapeLeftBrace msoShapeLeftBracket msoShapeLeftRightArrow msoShapeLeftRightArrowCallout msoShapeLeftRightUpArrow msoShapeLeftUpArrow msoShapeLightningBolt msoShapeLineCallout1 msoShapeLineCallout1AccentBar msoShapeLineCallout1BorderandAccentBar msoShapeLineCallout1NoBorder msoShapeLineCallout2 msoShapeLineCallout2AccentBar msoShapeLineCallout2BorderandAccentBar msoShapeLineCallout2NoBorder msoShapeLineCallout3 msoShapeLineCallout3AccentBar msoShapeLineCallout3BorderandAccentBar msoShapeLineCallout3NoBorder msoShapeLineCallout4 msoShapeLineCallout4AccentBar msoShapeLineCallout4BorderandAccentBar msoShapeLineCallout4NoBorder msoShapeMixed msoShapeMoon msoShapeNoSymbol msoShapeNotchedRightArrow msoShapeNotPrimitive msoShapeOctagon msoShapeOval msoShapeOvalCallout msoShapeParallelogram msoShapePentagon msoShapePlaque msoShapeQuadArrow msoShapeQuadArrowCallout msoShapeRectangle msoShapeRectangularCallout msoShapeRegularPentagon msoShapeRightArrow msoShapeRightArrowCallout msoShapeRightBrace msoShapeRightBracket msoShapeRightTriangle msoShapeRoundedRectangle msoShapeRoundedRectangularCallout msoShapeSmileyFace msoShapeStripedRightArrow msoShapeSun msoShapeTrapezoid msoShapeUpArrow msoShapeUpArrowCallout msoShapeUpDownArrow msoShapeUpDownArrowCallout msoShapeUpRibbon msoShapeUTurnArrow msoShapeVerticalScroll msoShapeWave Left , Top Single 类型，必需。相对于文档的左上角，以磅为单位给出自选图形边框左上角的位置。Width , Height Single 类型，必需。以磅为单位给出自选图形边框的宽度和高度。说明若要更改已添加的自选图形的类型，请设置 AutoShapeType 属性。示例本示例向 myDocument 添加矩形。Set myDocument = Worksheets(1)myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

看来你对中括号的使用不熟悉，你的rg1、rg2赋值是有问题的。一、rg2要和rg1一样，使用SET，因为是对象；二、rg1、rg2都存在[]使用不安全的问题，如果执行程序的时候当前工作表是【今日订单】，那么rg1可以正确赋值，同样的道理，如果当前表是【今日售价】则rg2可以正确赋值，否则两个赋值都会出错。因为[b65536]表示当前工作表的B65536单元格，然后.End...获得的是当前工作表的B列最后一个非空单元格位置，除非所有表的行数相同，否则这里会出问题。建议少使用中括号，尽量使用Range和Cells对象，你的代码用Cells这样写：Set rg1 = Worksheets("今日订单").Range("a2:b" & Worksheets("今日订单").Cells(65536,2).End(xlUp).Row)Set rg2 = Worksheets("今日售价").Range("a2:b" & Worksheets("今日售价").Cells(b65536,2).End(xlUp).Row)

Sub 排序()Dim ranges As Stringranges = "B:B" "根据需要定义列　此为B列Dim R, G, B "定义颜色值　此例为深蓝色R = 83G = 141B = 213 ActiveSheet.Sort.SortFields.Clear ActiveSheet.Sort.SortFields.Add(range(ranges), _ xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(83, 141, 213) With ActiveSheet.Sort .SetRange range(ranges) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End WithEnd Sub张志晨：通过没测试了。只是使用前要进行设置，没有菜单上的按钮那么好用。

EXCEL VBA中有Range函数吗，我怎么不知道呢。我只知道有Range对象和Range属性，也许你说的函数就是属性吧。Range属性返回的是Range对象，所以在使用上没有多少差别，只是概念不同而已。初学时不用太过纠结两者的区别。

Boundary意即边界，这个是用来向向服务器发送请求（比如提交信息、上传文件）的时候构建请求体用的，一般为类似于multipart/form-data; boundary=--------------0123456789012这种，Boundary的内容是可以自己动态创建的，你在下面的代码中会看到它的用法

ListBox1.List(i) 注意i 是从 0开始的

那边已经回答你了i=2a = OLEObjects("textbox" & i).Object.Text

textboxi.Value =sheets("sheet1").cell( i + 2,1).Value

在Then后面按下回车就OK了 ，所有的THEN后面的都要另起一行 ，另外这么多的条件，建议用select case...end select语句。

无限钱: 019973d5 019974d5 019975d5 无限稀罕的糖果（升级药） 0120f0d5 战斗时敌人总是处于睡熟或和毒害状态 0100add7 一击必杀 010000d1 战斗中敌方妖怪等级为225 01fffcdo 中文版：01FFEED0 与任何等级的精灵战斗01XXEED0 战斗中敌方妖怪等级为00100fcd0 获得所有的徽章 01ff7cd5 总是骑乘脚踏车 010182d6 没有随意战争 01000bd2 战斗中无限HP 01ff2ed0 捕捉任何的口袋怪兽 01xxedd0 XX处替代相应的16进制代码就可以了。 FB是251号了 与任何精灵战斗（中文版） 01XXDFD0 无限 TM 和 HM 0163xxd5 XX替换相应的代码即可。 TM01: 7E TM02: 7F TM03: 80 TM04: 81 TM05 82 TM06 83 TM07 84 TM08 85 TM09 86 TM10 87 TM11 88 TM12 89 TM13 8A TM14 8B TM15 8C TM16 8D TM17 8E TM18 8F TM19 90 TM20 91 TM21 92 TM22 93 TM23 94 TM24 95 TM25 96 TM26 97 TM27 98 TM28 99 TM29 9A TM30 9B TM31 9C TM32 9D TM33 9E TM34 9F TM35 A0 TM36 A1 TM37 A2 TM38 A3 TM39 A4 TM40 A5 TM41 A6 TM42 A7 TM43 A8 TM44 A9 TM45 AA TM46 AB TM47 AC TM48 AD TM49 AE TM50 AF HM01 B0 HM02 B1 HM03 B2 HM04 B3 HM05 B4 HM06 B5 HM07 B6

vba语句，意思是：定义ws为工作表类型。在写VBA中常需要引用某个WorkSheet对象，一般通过工作表名DimwsAsWorksheetSetws=ThisWorkbook.Worksheets("Sheet2Name")或者索引号DimwsAsWorksheetSetws=ThisWorkbook.Worksheets(2)来引用。

1、激活工作表Active。2、DimwsAsWorksheet。3、Setws=Application.WorkBooks(1).Worksheets(2)。4、ws.Activate。5、激活了第一个工作簿的Sheet2。

Call int MethodName 调用时候用变量接收就行

set fso=CreateObject("scripting.filesystemobject")fso.copyfile thisworkbook.fullname,"D:log" & format(date,"yyyyMMdd") & ".xls"

代码应该是错误的。应该是cnt管理 = range("管理").Rows.Count 表示名称为"管理"的范围所占总行数，并赋值给变量“cnt管理”

应该说是当前激活的单元格是最后一列+1列获取第一行最后一列的代码dimendCol1aslongendCol1=cells(1,columns.count).end(xlToLeft).column激活第一行最后一列+1列单元格的代码cells(1,endCol1+1).Activate

具体步骤如下：1、首先打开需要编辑的Excel表格，进入到编辑页面中。2、然后点击打开开发者工具中的“Visual Basic”。3、然后在弹出来的窗口中点击打开插入中的“模块”选项。4、然后在弹出来的窗口中点击输入下面的代码：Sub cell()Dim icell As Integer, hcell As IntegerFor icell = 4 To 35If UCase(Cells(icell, 1).Value) = "SAT" Or UCase(Cells(icell, 1).Value) = "SUN" ThenCells(icell, 1).Value = UCase(Cells(icell, 1).Value)For hcell = 1 To 21Cells(icell, hcell).Interior.Color = RGB(200, 200, 200)Cells(icell, 1).HorizontalAlignment = xlCenterCells(icell, 1).VerticalAlignment = xlCenterCells(icell, 1).Font.Bold = TrueNextEnd IfNextEnd Sub就可以了。

Office剪贴板，还是系统剪贴板？"清空系统剪贴板Dim MyData As DataObjectSet MyData = New DataObjectMyData.SetText ""MyData.PutInClipboard"获取系统剪贴板数据Dim MyData As DataObjectDim strClip As StringSet MyData = New DataObjectMyData.GetFromClipboardstrClip = MyData.GetText

VBA与VB还是有区别的，请楼主自己看看吧.http://zhidao.baidu.com/link?url=ftNPN5wDW9-PB7S8ffQjECL_I-Qigocthu9C9WFOEdxZ5wQQqSFqu5UWf81qmARyH4eORCsQYnGrv3LqXM1CY_

Sub Macro1()ActiveSheet.Range("$A$1:$A$13").AutoFilter Field:=1, Criteria1:= _">=2016-1-1", Operator:=xlAnd, Criteria2:="<=2016-12-31"End Sub楼主自行录制一段宏即可，上面是2016年的

(单精度浮点型) 4 个字节 负数时从 -3.402823E38 到 -1.401298E-45；正数时从 1.401298E-45 到 3.402823E38 Double (双精度浮点型) 8 个字节 负数时从 -1.79769313486232E308 到 -4.94065645841247E-324；正数时从4.94065645841247E-324 到 1.79769313486232E308 Currency (变比整型) 8 个字节 从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807范围和精度有区别

select 主要用于select case ...case ...case...case ....end select这种条件语句时使用，有时可以用if ....else....endif代替!

该属性是一个逻辑数组，其元素对应列表框中相应的选项，表示对应的选项是否被选中。如List I.Selected(ITrue表示列表框中的第2项被选中。注愈:列表框和组合框中的选项编号走从0开始的，如编号为I的选项实际上是第二项。