- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我将数据从 MySQL 数据库中提取到工作表中,方法是将其另存为 csv 并将该 csv 数据粘贴到工作表中。此 csv 包含所有客户端的所有数据,由如下所示的标记单元格分隔:“Client1:START”和“Client1:END”。然后我运行一个复制两页的宏:一个包含来自聚合表的各个客户的数据,另一个包含运行该数据的图表。
我几乎完成了所有工作:复制所有页面并更新图表中的引用以及从该客户的数据表中提取信息的单元格。
剩下要做的唯一一件事就是将聚合表中的数据复制到每个客户的表中。我想了很多,这似乎是最简单的方法,因为我不知道将为给定客户端生成的行数(0 到 31 之间的任何值,因为这是每月一次报告)是在该客户第一行之前的行的第一个单元格中包含“Client1:START”,在之后的行的第一个单元格中包含“Client1:END”。
然后我可以简单地搜索单元格直到找到这两个单元格,为它们命名(因为我还不知道如何在变量中保存单元格地址),然后以某种方式偏移它们以获得我想要的实际范围想要,减去标记。
然后我可以复制该范围并将其粘贴到新创建的数据表中。
实际上,我什至还没有达到抵消的程度。我仍在努力尝试根据名称选择单元格。这是我的:
Dim Client
Dim SelectedCell
Dim StartCell
Dim EndCell
For Each Client In Array("Client1", "Client2")
StartCell = Client & "StartCell"
EndCell = Client & "EndCell"
Sheets("ALL-DATA").Select
For Each SelectedCell In Range("A1:D20")
If SelectedCell.Value = Client & ":START" Then
SelectedCell.Name = StartCell
End If
If SelectedCell.Value = Client & ":END" Then
SelectedCell.Name = EndCell
End If
Next SelectedCell
Range(StartCell & ":" & EndCell).Select '<-- This won't compile
Next Client
那个范围不允许我选择使用变量,所以我有点卡住了。看来 VBA 只允许您使用地址字符串选择一个范围。
如果有人能指出正确的方向,我将不胜感激。如果您知道我如何调整选择以排除实际标记(考虑到数据长度为零行的可能性),那将是非常棒的,也是一笔巨大的收获。
谢谢!
最佳答案
由于我在上面评论中提到的多种原因,此代码无法编译。我相信下面这个会起作用。您应该养成总是声明您的变量并使用 Option Explicit 来防止拼写错误等的习惯。
.Address
属性 :) 单元格和范围没有 .Name
属性,因此您的代码实际上会在 SelectedCell.Name = StartCell
行失败 StartCell
变量,该变量必须位于赋值语句的左侧,并且如果它需要表示一个对象像单元格/范围,那么您还必须使用 Set
关键字,即 Set StartCell = Range("A1")
。我也将其更新为 avoid any use of Select
method 。 99.9% 的时间都不需要 Select
或 Activate
Excel 中的任何内容。
Dim Client as Variant
Dim SelectedCell as Range
Dim StartCell as Range
Dim EndCell as Range
Dim ClientRange as Range
For Each Client In Array("Client1", "Client2")
For Each SelectedCell In Sheets("ALL-DATA").Select.Range("A1:D20")
If SelectedCell.Value = Client & ":START" Then
Set StartCell = SelectedCell
ElseIf SelectedCell.Value = Client & ":END" Then
Set EndCell = SelectedCell
End If
Next SelectedCell
Set ClientRange = Sheets("ALL-DATA").Range(StartCell.Address & ":" & EndCell.Address)
Next Client
现在您已将 ClientRange
限定为属于“所有数据”工作表,通常无需出于任何原因选择或激活它。这样做只会给代码增加不必要的操作和复杂性,并降低其性能。
关于mysql - 如何根据 VBA 中命名的开始和结束单元格选择一系列单元格?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25151243/
我试图要求 test/unit 的新版本(即不是与 ruby 捆绑的版本) .根据 instructions我用 gem i test-unit 安装它.但是现在当我需要 test/unit我似乎
简短版本是: 我有一个 systemd 单元,我想在调用时检查脚本的返回代码: systemctl status service.service 长版本:我有一个 lsb init 脚本正是这样做的,
我正在使用反射动态创建一个类的实例,这工作正常,除非尝试通过单元测试执行此操作 - 我使用的是 MS 测试框架。 我收到熟悉的错误:“无法加载文件或程序集‘Assy’或其依赖项之一。系统找不到指定的文
我想知道测试网站“界面功能”的最佳实践是什么。 我对哪些方法可用于测试界面和动态生成的内容感兴趣。特别是,我很难弄清楚是否可以为需要用户交互的操作创建自动化测试,或者这是否只是浪费时间,我应该让一些
我有一个简单的 Python 服务,其中有一个无限执行某些操作的循环。在各种信号上,sys.exit(0) 被调用,这导致 SystemExit 被引发,然后如果可以的话应该进行一些清理。 在测试中,
我正在使用 OpenCV 2.4.2 这是 OpenCV 文档中的引文 C++: void HoughLinesP(InputArray image, OutputArray lines, doubl
忙于 C# 中的自动化测试用例,我们需要在每次测试后恢复数据库快照。问题是,当运行多个测试时它会失败,因为“其他用户正在使用数据库时无法更改数据库状态。” 我们使用 SqlConnection.Cle
我阅读了 C# 规范并用谷歌搜索了它,但一无所获。 我 99% 肯定 C# 中没有像单元命名空间指令这样的功能,但问题是:为什么?是否有惯用或技术原因? 这很方便,尤其是当我们的大部分文件都由单个命名
我目前正在尝试向我的应用程序(一个非常老的项目......评论说 iOS 2.0)添加单元测试(精确的应用程序测试)并且总是偶然发现 undefined symbols for architectur
我正在使用Delphi 7,并且有一个新单元要在我的项目中使用。我已经编译了新的。当我尝试通过将其添加到uses子句在项目中使用此单元时,出现错误,提示未找到.dcu文件。我还尝试将文件的完整路径放在
场景:我需要编写一个复杂的nHibernate查询,该查询将返回预计的DTO,但是我想使用TDD方法。该方法如下所示: public PrintDTO GetUsersForPrinting(int
您可以通过运行以下命令在事件 html 设置中显示 Jupyter 笔记本: $ jupyter nbconvert untitled.ipynb --to slides --post serve 有
如何在一个网站上拥有多个 AdSense 单元? Google 提供的唯一代码是按单位计算的。 (adsbygoogle = window.adsbygoogle || []).push({})
我刚刚开始为大量代码编写测试。有很多类依赖于文件系统,即读取 CSV 文件、读/写配置文件等。 当前测试文件存储在项目(这是一个 Maven2 项目)的 test 目录中,但由于多种原因该目录并不总是
我对 TDD 还很陌生,在单元测试方面也不是很老练,所以才有这个问题。我有这个用 PHP 编写的遗留函数 function foo(){ x = bar(); y = baz();
我创建了一个程序,在 Swing 窗口的一侧显示结果过滤选项,但默认情况下它们水平相邻显示,这浪费了我在 BorderLayout 的西侧分配的空间。我可以在构造函数或添加语句中传递任何内容来将它们堆
标题不好的借口:如果有人能更好地描述它,请做。 我有一个 WeakList类,它“基本上”是一个 List> (虽然不是字面意义上的派生自列表,但它应该对用户完全透明)。 现在的基本思想是“如果引用的
我正在尝试在 UITableView 上添加两个原型(prototype)单元。但是,我不知道如何验证是否能够为每个原型(prototype)“返回”正确的单元格。你们能帮我一下吗? func ta
我正在使用 CloudKit 作为数据库创建一个简单的待办事项列表应用程序。目前我可以添加和删除对象,但对编辑对象感到困惑。 编辑项目 Controller protocol EditItemCont
我正在针对以下任务训练 RNN:给定一个包含 30 个单词的序列,然后将该序列分类为二进制类。 在我的网络中拥有超过 30 个单元(LSTM、GRU 或普通 RNN)有好处吗?我在网上看到过很多例子,
我是一名优秀的程序员,十分优秀!