标签: excel-2010

我在excel 2010中有一个vba函数,我是在这里使用人们的帮助构建的.此函数复制表/表单的内容,对其进行排序,并将它们发送到适当的表.

现在运行此函数后,我希望清除原始表.我可以使用以下代码实现此目的,假设ACell已被定义为表中的第一个单元格. ACell.ListObject.Range.ClearContents工作正常,唯一的问题是它删除表以及数据值.

有没有办法解决？每次输入一些数据时,我宁愿不必设置表格.

我在使用Powerpivot的Excel 2010中有一个BI Dashboard,它连接到一个SQL Server上的查询表.设置连接后,我选中了"保存密码"复选框.但是,每当我的用户重新打开文档并进入Powerpivot窗口并选择"RefreshAll"时,他们就必须多次输入密码(每个表一次),这是不合适的.

我在这里和这里看过,似乎遇到了和其他人一样的问题.我已经从头开始了,确保在每个连接字符串上明确检查"保存密码"框.

我能想到的唯一解决方法是用户Windows身份验证,但是这个文档是供广泛使用的,因此这需要大量的维护,并且会让我的服务器管理员烦恼:)

有没有人有解决方法或解决问题的方法？

我试图在Excel 2010中绘制折线图.Y列数据源中有一些空白,我希望图中忽略这些.似乎将这些默认为零.我知道"隐藏和空单元格设置"存在,但这只是提供将其设置为零的选项.任何其他方式让我的图形看起来像我想要的方式

一旦我有足够的声誉,图片就可用!

一位正在工作的同事对我们的一个宏工作簿进行了一些更改,现在在我的PC上,当我尝试运行它时,我只收到了可怕的运行时错误'32809'.这个最新版本在他的PC和我们测试它的另一个同事的PC上运行良好.以前的版本在我们所有的PC上运行良好,所有这些都运行Excel 2010.

当宏尝试选择名为"Info"的工作表索引1时,将引发错误.我知道选择/激活不是必需的,但我现在正在使用此工作簿,并试图解决为什么我一个人会收到此错误.

我试过了:

1. 重启/重启
2. 保存工作簿的副本
3. 使用CCleaner清除临时文件
4. 在线研究
5. 检查ActiveX控件(使用表单控件)

一切都没有成功.然后我在即时窗口看到了一些混乱,发现即使是一个简单的:

Debug.Print ThisWorkbook.Worksheets(1).Name

会抛出运行时错误,这让我相信Workheet已经破坏了.我在工作表中添加了几个事件,包括_Activate和_Change,但是在确认之后,没有任何事件会触发:

Application.EnableEvents = True

我添加了一个简单的Test Sub如下:

Public Sub Test()

    Dim ws As Worksheet
    Dim sheetNum As Integer

    For Each ws In ThisWorkbook.Worksheets
        ws.Select           ' Selects all Sheets Without Error
        Debug.Print ws.Name ' Prints All Worksheet Names Fine
    Next ws

    Set ws = ThisWorkbook.Worksheets(1)
    ws.Select               ' Selects Sheet 1 Without Error

    ' Prints all but sheetNum = 1, Run-time Error 32809
    For sheetNum = 7 To 1 Step -1 …

所以我有一组具有条件格式的数据.基本上它是一组恒星的光度测量,我想把它放在不同颜色的图表上,用于不同颜色指数范围内的恒星(基本上按它们的光谱类别着色).所以我的数据看起来像这样:Stars Data

• 第一列是恒星的绝对幅度(M) - 我希望它在X轴上
• 其余列是不同的光谱类,它们仅在特定范围内具有来自另一列的值. - 我希望这些在Y轴上.
• 目前图表看起来像这样,我想要做的就是交换轴,但我似乎无法做到这一点.

我在A列,1,2,3,4,5和A,B,C中有8个变量.

我的目标是过滤掉A,B,C并仅显示1-5.

我可以使用以下代码执行此操作:

My_Range.AutoFilter Field:=1, Criteria1:=Array("1", "2", "3","4","5"), _
    Operator:=xlFilterValues

但代码的作用是过滤变量1到5并显示它们.

我不会做相反的事情,但通过过滤出A,B,C并显示变量1到5,产生相同的结果

我试过这段代码:

My_Range.AutoFilter Field:=1, Criteria1:=Array("<>A", "<>B", "<>C"), _
    Operator:=xlFilterValues

但它没有用.

为什么我不能使用这段代码？

它给出了这个错误:

运行时错误1004范围类的autofilter方法失败

我怎么能这样做？

我在电子表格上有一个按钮,当按下该按钮时,应该允许用户打开文件,然后复制电子表格"数据"的列AG,然后将这些列中的数据粘贴到当前工作表上.

我在代码中有一个逻辑错误; 它运行,但它将选择粘贴在错误的地方.

我无法引用这两个工作簿.

这是我的代码:

Sub Button1_Click()
    Dim excel As excel.Application
    Dim wb As excel.Workbook
    Dim sht As excel.Worksheet
    Dim f As Object

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show

    Set excel = CreateObject("excel.Application")
    Set wb = excel.Workbooks.Open(f.SelectedItems(1))
    Set sht = wb.Worksheets("Data")

    sht.Activate
    sht.Columns("A:G").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste

    wb.Close
End Sub

我正在尝试定义自己的数据类型并将其作为值放在Dictionary中.VBA抱怨它不接受我的数据类型.关于如何使这个工作的任何想法？

Option Explicit

Public Type Translation
    german As String
    french As String
    italian As String
End Type

Private resource As Object

Public Sub addTranslation(key As String, g As String, f As String, i As String)
    Dim trx As Translation
    trx.german = g
    trx.french = f
    trx.italian = i

    resource.add key, trx  '<== here VBA is complaining
End Sub

Public Sub initResource()
    If resource Is Nothing Then Set resource = CreateObject("scripting.dictionary")
End Sub

这是错误消息:

只有在公共对象模块中定义的用户定义类型才能被强制转换为变体或从变量强制转移或传递给后期绑定模块.

我需要使用Excel 2010和SQL Server创建动态报告.与以前的其他人创建的一样,我想出了如何创建数据连接并在连接属性定义选项卡中将存储过程与特定参数一起使用.其他报告?在命令定义中使用a并使用工作簿中的单元格来定义参数.

我该怎么做？

创建连接/报告/参数选择的具体步骤或任何帮助非常感谢.

使用2010 Excel VBA - 我只是想通过sub打开一个文件夹.我在这做错了什么？

VBA

Sub openFolder()  
  Dim preFolder As String, theFolder As String, fullPath as String

    theFolder = Left(Range("T12").Value, 8)
    preFolder = Left(Range("T12").Value, 5) & "xxx"
    fullPath = "P:\Engineering\031 Electronic Job Folders\" & preFolder & "\" & theFolder

    Shell(theFolder, "P:\Engineering\031 Electronic Job Folders\" & preFolder, vbNormalFocus)

End Sub