小编Mik*_*ogg的帖子

我想在If语句中使用"And"和"Or".我的语法错了.

当数据真实时,结果会返回false.这是代码:

ElseIf (origNum = "006260006" Or origNum = "30062600006") And creditOrDebit = "D" Then

'do things here

End If

- 当我调试并到达此行时,它会跳过它并且不会进入.

-origNum实际上等于"006260006"和creditOrDebit ="D".

- 所以我假设我的"或"声明不起作用.

- 这是一个快速简单的问题.谢谢!

编辑,请在这个问题下面看到我的第二个答案,以便更简洁,更简单地显示问题

我终于打败了我的智慧.我正在使用钛的跨平台应用程序(IOS和Android),并通过休息呼叫连接到salesforce api.我在这个问题上花了3天20个小时,但仍然陷入困境.任何支持将非常感谢!所以让我们潜入.

我想要它做什么: 应用程序启动,检查用户是否已使用oauth2授权给予令牌,如果没有,则为用户提供salesforce登录屏幕.用户输入凭据并点击"允许"按钮,然后我们被重定向回应用程序.

问题: 从上面我想要它做的描述一切都有效,除了粗体的最后一行.一旦用户点击"允许"按钮,我们就会收到此未知的网址方案错误:

代码: 代码几乎由3个不同的重要区域组成

• 我的index.js文件,它是进行salesforce登录调用的地方
• 我的AuthService.js文件,它是index.js中调用salesforce url信息的位置
• 我的tiapp.xml,其中配置的东西是为Android自定义url方案

index.js

var Auth = require('AuthService');

Auth.openLogin();

AuthService.js这里只有"openLogin"函数非常重要.

var loginWindow;

module.exports = {

  get: function () {
    console.log("made it into the auth.get function");
    return Ti.App.Properties.getObject('auth');
  },

  set: function (data) {
    Ti.App.Properties.setObject('auth', data);
    console.log("auth set function was executed!!!");
  },

  erase: function () {
    Ti.App.Properties.removeProperty('auth');
  },

  openLogin: function () {

    console.log("made it into openLogin!!");


   var webview = Titanium.UI.createWebView({url:'https://login.salesforce.com/services/oauth2/authorize' +
      '?response_type=token&display=touch' +
      '&redirect_uri=testapp://app.open' +
      '&client_id=' + Ti.App.Properties.getString('salesforce_client_id')});


      //console.log("Webview …

简介:我的公司向客户发送信件,并希望我写一个宏来填写已在word文档中设置的不同文本表单字段,因为发送的不同信件之间的数量变化非常有限.我在excel中做过宏,但这是我第一次遇到ms-word宏

问题:我很难通过ms-word找到有效的智能导航.我确实找到了关于向不同方向移动的文章, 这与箭头键非常相似.希望能够深入了解导航word文档的最佳方式.例如,我应该循环移动到正确的1空间,直到找到有意义的东西或者是否有更有效的方法？

问题:是否可以在变量中存储特定的表单位置,或者ms-word是否没有坐标系？

提前致谢!

简介:我从一张纸上取一行数据并将其粘贴到另一张纸上,但是这张纸只是日常使用的东西,只需在旧数据下面输入新数据.

问题:在每次新的运行中,7都会一直添加到UsedRange.Count.例如:一次运行UsedRange.Count将是7; 下次我运行该函数时,计数将为14.

我在寻找:为什么会这样,有没有办法帮助UsedRange更准确

- 为了参考,我已经包含了整个函数.

Function eftGrabber()

        Dim usedRows As Integer
        Dim i As Integer

        ChDir "\\..."       

        Workbooks.Open Filename:= _
        "\\...\eftGrabber.xlsm"

        usedRows = Sheets("EFT").UsedRange.Count

        Windows("Data").Activate

        Sheets("DataSheet").Range("A11").EntireRow.Copy

        Windows("eftGrabber").Activate

        Sheets("EFT").Range("A" & usedRows + 1).Select

        ActiveSheet.Paste

        i = usedRows

        Do                            'THIS LOOP DELETES BLANKS AFTER POSTING NEW LINES

            Range("A" & i).Select

            If Range("A" & i) = "" Then

                ActiveCell.EntireRow.Delete

            End If

              i = i - 1

        Loop Until i = 1

        Windows("eftGrabber").Activate

        ActiveWorkbook.Save …

- 总结:我正在尝试编写代码,它会自动保存当前日期的名称

- 问题:当编译器到达保存的行时,弹出"对象'_Workbook'的方法'SaveAs'失败"的错误.其他一切都有效.为了参考,我已经展示了整个函数.

Function createRecord()

    Dim rowCount As Integer

    Dim theDate As Date

    theDate = Format(Now(), "MM-DD-YY")

    Sheets("New Data").Select
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Application.ActiveSheet.Name = "ChaseHistory"
    ActiveSheet.Paste
    rowCount = ActiveSheet.UsedRange.Rows.Count

    Sheets("Exceptions").Select
    'rowCount = ActiveSheet.UsedRange.Rows.Count
    Application.CutCopyMode = False
    ActiveSheet.UsedRange.Rows.Select
    Selection.Copy
    Sheets("ChaseHistory").Select
    ActiveSheet.Range("A" & rowCount + 2).Select
    ActiveSheet.Paste
    Range("A1").Select
    Cells.Select
    Selection.Copy

    ChDir "Z:\Customer_Service_Accounting\REPORTING & CONTROLS TEAM\Book And Balance_Katie\Chase Booking History"       'loads the crystal report

    Workbooks.Open Filename:= _
        "Z:\Customer_Service_Accounting\REPORTING & CONTROLS TEAM\Book And Balance_Katie\Chase Booking History\Do_Not_Delete.xlsx"

    Windows("Do_Not_Delete").Activate
    ActiveSheet.Paste

    Application.DisplayAlerts = …

简介:我正在编写一个宏,它从excel文件中的许多不同工作表中获取名称,并在"主列表"中将它们一起编译,但是我在另一个工作表上引用一个单元格时遇到了问题.

问题:当我使用工作表名称作为参考来引用特定单元格时Sheets("MasterList").ActiveCell.Offset(0, 1),没有任何内容被拾取.但是,当我删除Sheets("MasterList")宏工作正常(宏当前在"MasterList"上,这是唯一的方法).此外,我的代码中的工作表名称的拼写是正确的.

问题:为什么会这样？代码背后的逻辑似乎是合理的,我正确拼写我的工作表名称.

码:

Do              

   If Sheets("MasterList").ActiveCell.Offset(0, 1) = firstName Then        'IF FIRST AND LAST NAMES MATCH, EXIT THE CHECK

          Exit Do

   End If

   On Error Resume Next

   Cells.Find(What:=lastName, After:=ActiveCell, LookIn:=xlFormulas, _
   LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False).Activate

Loop Until Err.Number > 0

简介:我有一个策略编号列表,我正在使用循环在A列中for each循环

问题:一切正常,除非A列中有空单元格,我的代码删除整行(应该如此),但是当我尝试设置policy变量时,我得到一个object required 错误.我在代码中标记了错误发生的位置.

问题:如何删除空行而不theCell丢失其对象？

代码:

Dim theRange As Range
    Dim theSheet As Worksheet
    Dim theDate As String, policy As String, amount As String, details As String, entryDate As String

    Set theSheet = Sheets("OneDate")
    Set theRange = Range("A2:A" & theSheet.UsedRange.Rows.Count)

    For Each theCell In theRange                'FOR EACH POLICY IN COLUMN "A"

        If theCell.Value = "" Then

            theCell.EntireRow.Delete      '<-- Row deleted here
            MsgBox (theCell.Value)

        End If

        policy = theCell.Value            '<-- …

VBA是否与Java .hasnext方法等效？

我正在尝试在excel工作簿中循环遍历很多工作表并将要使用

ActiveSheet.Next.Select

在一个循环中,让我知道任何比这更有效的方法,因为我确信有.提前致谢!

简介:我循环遍历许多行数据,每次通过循环将来自不同列的数据存储在大约6个不同的变量中

问题:我是否会使用Range("A" & some iterator)相对于非常大量的CPU周期来节省ActiveCell.Offset(some number)？一个比另一个快多少？

提前致谢!

简介:我想做一些基本的错误处理

问题:当我单步执行代码时,即使没有错误,我的"错误"块数据也会运行

- 我对VBA中的错误处理很新,并且不明白为什么错误块中的代码是在我指导代码进入块的情况下运行的.提前致谢!

代码:

Function getReports()

    startJournal = Sheets("Runsheet").Range("B5")
    endJournal = Sheets("Runsheet").Range("E5")

    If startJournal = 0 Or endJournal = 0 Then

        GoTo Error

    End If

    'bunch of code

Error:
    MsgBox ("Error Statement")

End Function

简介:我有一个包含大量不必要列的电子表格.因为将来可能会添加新列,所以我删除<>了必要列的任何内容.

问题:我在If Or下面有一个很长的陈述,但它总是如此.我试着在括号Or的许多其他变体之间的每个语句周围添加括号,但它们都不正确.在括号的一个变体中,声明总是错误的,但这是我收到的唯一变化.

码:

If (Cells(4, i).Value <> "BATCH_ID" Or Cells(4, i).Value <> "Indicative" Or Cells(4, i).Value <> "Company Code" Or Cells(4, i).Value <> "Policy Num" Or Cells(4, i).Value <> "Numeric Amount" Or Cells(4, i).Value <> "Legal Amount" Or Cells(4, i).Value <> "PAYMENT_AMT") Then

      ActiveCell.EntireColumn.Delete

End If

我在这做错了什么？提前致谢!