小编Tom*_* K.的帖子

我想在Excel 2010中运行一个函数,它必须:

• 检查特定范围中的哪个单元格包含名称
• 如果前一个任务为真,则对相邻单元格求和

例:

在B2:B227范围内,有一些名称,如讴歌,奥迪,宝马,凯迪拉克等.在C2:C227范围内,这些制造商在2012年销售的汽车数量.

我想计算某些制造商销售的汽车总数.

我在考虑类似的东西,但它不起作用.我想我在第一步犯了一个错误(识别单元格B2中的名字:B227).

=SUMIF(B2:B227,OR("Audi","Acura","BMW","Cadillac"),D2:D227)

谢谢,

赞布罗塔

在我的UserForm中,我想为我的TextBox设置一个默认值,在聚焦时会突出显示.

Private Sub UserForm_Initialize()

NameTextBox.Value = "Your Name Here"

NameTextBox.SetFocus

End Sub

当此代码运行时,光标应设置在默认文本的末尾,即"...... Here"之后.我希望突出显示"Your Name Here",以便在生成表单时,用户可以开始替换该默认/占位符文本.

你能帮我写代码来设置可编辑的默认值吗？

我甚至不确定从哪里开始我的问题,我尝试了几百个东西并用谷歌搜索了几个小时但没有找到任何有用的东西.(我对每一个肮脏的把戏持开放态度.)

这是我的问题:

我有一个带有列表框的.hta文件,如下所示:

它列出了我的SAP Gui运行的所有会话/ modi.

        Set SapGuiAuto  = GetObject("SAPGUI")
        Set application = SapGuiAuto.GetScriptingEngine

        If application.Connections.Count > 0 Then
            Set connection  = application.Children(0)

            If connection.Sessions.Count > 0 Then
                Set session = connection.Children(0)
            End If
        End If


        If IsObject(WScript) Then
            WScript.ConnectObject session,     "on"
            WScript.ConnectObject application, "on"
        End If

Set optGroup = Document.createElement("OPTGROUP")
    optGroup.label = "Server"


    'count all connected servers 
    ConnectionCount = application.Connections.Count




        If ConnectionCount > 0 Then
            Sessionlist.appendChild(optGroup)

            Else 
            optGroup.label = "No connection here."


        End If
        'count …

真的不确定要放置什么堆栈站点.随意将其移动到正确的.我的问题与编程无关,但我在幻灯片中嵌入了这些"工作表对象",有很多功能点.有些似乎是excel中的图形以及Visio中的其他图表类型项目.我需要将所有这些"工作表对象"转换为幻灯片中的图像.

我现在的过程是复制对象>粘贴为图像>移动到正确的位置>删除"工作表对象".这是一个非常耗时且乏味的过程.有没有我可以编写的宏或可以自动转换所有这些对象的东西？我到目前为止尝试使用谷歌搜索并没有运气

这是这个问题的后续帖子。

我正在尝试将 .csv 中的数据放入 .mdb (MS Access 2000)。

如果数据库存储在我的硬盘驱动器上，但它位于我通过网络访问的不同驱动器上，则此脚本运行良好。我在那里拥有完全的权利，我可以手动插入新数据集而没有任何问题。

'There are several other Subs in this .hta-file
'these two are specified along with some other public variables
'in the beginning

Const   adOpenStatic = 3
Const   adLockOptimistic = 3

Sub CSVImport

  connStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=S:\folderpath with blanks ß and ,commas\somedatabase.mdb"

  'Define object type
  Set objConn      = CreateObject("ADODB.Connection")
  Set objRecordSet = CreateObject("ADODB.Recordset")

  'Open Connection
  objConn.open connStr

  objRecordSet.Open "SELECT * FROM SomeTable", _
    objConn, adOpenStatic, adLockOptimistic

  Set objFSO = CreateObject("Scripting.FileSystemObject") …

我有一个countif函数,使用它我想要计算那些在任何地方都有数字字符的单元格.

Column A
Rich-Dilg-street 3
I have 4 apples
I have seven dogs

如何countif使用通配符编写标准,以便我可以计算具有数字字符的标准？在上面的例子中,答案应该是2(1和2不是3)