小编Tej*_*jas的帖子

我想每半小时在outlook(VBA)中运行一个特定的代码.

当代码运行时,outlook用户也不会受到干扰.它应该只在后端运行.

有一个叫做的事件Application_Reminder.它在outlook中每次出现提醒时运行.但这仍然涉及用户互动.我想要一个完整的后端程序.

在列AI中有不同名称的列表.在B列中,我的值为0或1.

我想得到A列中所有唯一名称的计数,其中B列中有1.

使用下面的数组公式,我可以计算唯一的名称,但不能在B列上应用条件.

=SUM(1/COUNTIF(A:A,A:A))

我调用了Range对象DistinationRange,其中包含对range的引用B3:H63

我想动态地使用Excel VBA代码应用以下两个条件格式规则.(因为范围不会一直相同)

1. 如果单元格列D为空白,则不应该应用格式化(需要使用Stop If True)
2. 如果列E的单元格中的值小于列F的单元格中的值,则整行应具有绿色背景.

我尝试了很多使用录音,但录音不正确.

请帮助.

我需要编写一个Excel宏来获取我的客户的订单和库存详情(使用亚马逊MWS).

但我的客户需要我的开发人员ID才能授予我访问其帐户的权限.

我搜索了很多,但没有找到任何链接,我可以注册为开发人员,并获得我的亚马逊开发人员标识符.

从哪里可以注册为开发人员并获取我的开发人员ID？

参考:https://developer.amazonservices.ca/gp/mws/faq.html#developForSeller

我需要编写一个VBScript代码来检查outlook是使用MAPI配置文件还是使用RPC over HTTP/S配置文件.

那么任何人都可以让我知道哪个注册表项决定相同吗？

请帮忙.

我创建了一个Excel宏,我在其中使用Microsoft.Jet.OLEDB.4.0在Excel工作表上触发查询.

它在我的机器上工作得很好,但我的客户面临着问题.(参见随附的屏幕打印)

以下是我的连接对象的详细信息:

Dim cn
Set cn = CreateObject("ADODB.Connection")
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0"
    .Open
End With

请注意:我必须使代码在"Windows 7"中运行

我有一个简单的 XML，如下所示，我需要显示每个节点的名称及其值。没有元素会有任何属性。

<?xml version="1.0" encoding="UTF-8"?>
<ResponseEnvelope xmlns="http://www.nwabcdfdfd.com/messagin" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
   <ResponseHeader>
      <RequestId>directv_99e0857d-abf3-461c-913e-3ab59c6b5ef6</RequestId>
      <ResponseId>1162969</ResponseId>
      <MessageVersion>1.10</MessageVersion>
      <RequestTimestamp>2013-02-12T17:26:28.172Z</RequestTimestamp>
      <ResponseTimestamp>2013-02-12T17:26:50.409Z</ResponseTimestamp>
      <SenderId>CarePortal2</SenderId>
      <ProgramName />
      <TestProdFlag>P</TestProdFlag>
      <ResultCode>9</ResultCode>
      <Locale>en_US</Locale>
      <Errors>
         <Error>
            <ErrorCode>9</ErrorCode>
            <ErrorNumber>90001</ErrorNumber>
            <ErrorMessage>System error occurred</ErrorMessage>
            <ErrorFieldId />
         </Error>
      </Errors>
   </ResponseHeader>
   <ResponseBody xsi:type="CPSingleSignOnResponse">
      <PortalUserID>45497</PortalUserID>
      <PartyID>1858186</PartyID>
      <WarrantyItemName>DTV ABC WOLE HE P</WarrantyItemName>
      <WarrantyInventoryItemId>138677</WarrantyInventoryItemId>
      <ClientWarrantySku>202</ClientWarrantySku>
      <ClientWarrantyDescription>DV Plan</ClientWarrantyDescription>
      <ContractNumber>4003564</ContractNumber>
      <IsPortalUserCreated>N</IsPortalUserCreated>
      <IsPartyCreated>N</IsPartyCreated>
      <IsContractUpdated>N</IsContractUpdated>
      <IsFootPrintUpdated>N</IsFootPrintUpdated>
      <Customer>
         <PartyId>185812386</PartyId>
         <Salutation />
         <FirstName>Tejas</FirstName>
         <LastName>Tanna</LastName>
         <AddressList>
            <Address>
               <PartySiteId>3617490</PartySiteId>
               <Type>BILTO</Type>
               <Address1>CASCADES</Address1>
               <Address2>202</Address2>
               <Address3>RIDGE HEAVEN</Address3>
               <Address4 />
               <City>STERLING</City>
               <State>VA</State>
               <PostalCode>20165</PostalCode>
               <County>LOUDOUN</County>
               <Province />
               <Country>US</Country>
               <Urbanization />
               <AddressStyle>US</AddressStyle>
            </Address>
            <Address>
               <PartySiteId>3613791</PartySiteId> …

我需要使用运算符Contains过滤具有多个条件的范围

shData.UsedRange.AutoFilter field:=2, Criteria1:=Array("*a*", "*b*"), Operator:=xlFilterValues

shData.UsedRange.AutoFilter field:=2, Criteria1:=Array("*a*", "*b*", "*c*"), Operator:=xlFilterValues