- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
这是 this 的后续内容问题。
这是我的用例:我想逐个比较两个 Excel 文件并突出显示不同的单元格。每个文件将有几个工作表,每个工作表将有几个列,每个列都有一个标题和一些值(如典型情况)。这是我的比较代码事件图草稿:
这是我的草稿类图:
我的目标是让 VBA 对于我经常做的事情(例如比较新旧版本的电子表格)来说不再那么麻烦。也就是说,我希望它更像 Python 一样工作......特别是,我想编写这样的代码:
For Each Sheet1 In File1
Name1 = Sheet1.Name
If File2.sheet_dict.Exists(Name1) Then
Sheet2 = File1.Sheets(File2.sheet_dict(Name1))
Sheet2.Checked = True
For Each Col1 In Sheet1.cols
hdr = Col1.Header
If Sheet2.header_dict.Exists(hdr) Then
Col2 = Sheet2.cols(Sheet2.header_dict(hdr))
Col2.Checked = True
For Each Val1 In Col1.Vals
Val2 = Col2.Vals(Val1.row_number)
Val2.Checked = True
If Not Val1.Match(Val2) Then
Val1.formatBad()
Val2.formatBad()
End If
Next Val1
For Each Val2 In Col2.Vals
If Not Val2.Checked Then
Val2.formatBad
End If
Next Val2
Else
Col1.formatBad()
End If
Next Col1
For Each Col2 In File2.cols
If Not Col2.Checked Then
Col2.formatBad
End If
Next Col2
Else
Sheet1.formatBad()
End If
Next Sheet1
For Each Sheet2 In File2
If Not Sheet2.Checked Then
Sheet2.formatBad()
End If
Next Sheet2
当然,我会先将所有数据加载到对象中,但您明白了。尝试在 VBA 中做这样的事情是不是很疯狂?
最佳答案
想要使用面向对象语言并不疯狂VBA 的功能,但您给出的用例不是与优秀的内置对象相去甚远已经提供了,所以不清楚你会提供多少从您为获得它而增加的复杂性中获益。有在 excel vba 中可以利用相当多的功能,但它是尽可能发挥其优势。
您可以轻松地为不同的单元格着色更多有效率的通过使用本文末尾的代码 - 显然不这样做所有你想要的,但显然不需要的东西对单列和行采用面向对象。
Excel 和 vba 与程序员有很大不同习惯于来自像 python 这样的东西,提供完整的类继承。使用 VBA,您只能拥有接口(interface)继承将允许您重用代码。但如果你不小心,你很容易就会得到很多的 stub 代码,您必须从一个类复制到另一个类才能能够满足您希望您的类实现的接口(interface)。
还有一件事你一定要包装一下从传统的面向对象语言开始,这就是多少您在内存对象中复制的数据,而不是仅仅保留工作表并根据需要访问它们。有一种自然的倾向于将所有内容加载到对象中并进行操作从那里开始 - 但这是一种你应该三思而后行的冲动在这样的环境下。
如果您有一个现有的服务器后端来验证至少在工作表和数据库之间移动的数据您有一种方法可以隔离正常的 MVC 问题。实际上你会使用 Excel 作为一种具有附加功能的网页电子表格用户喜爱的。如果你没有后端那么你在验证你的模型和数据时确实必须非常小心环境。你应该得到习惯于保护工作表(除了那些单元格)用户必须输入数据(假设您正在编写代码使他人受益而不仅仅是自己)。事实上这是一个很好的用不同的颜色为输入单元格和计算单元格着色的想法颜色来突出这种差异。后者应该受到保护而前者在需要时可以触发验证事件输入并更新模型状态(并且最好与后端一起使用,如果你已经有了一个)。
保护单元格还允许您隐藏状态信息工作表中定义明确的部分可用于引用回到工作对象。事实上,好的用例是那些将明确定义的单元 block 分隔为特定的用户界面类实例。
如果可能,您应该使用范围来引用相关部分相同的工作表和其他工作表。命名范围是你的 friend 。数据经过验证的列表对于连续数据也非常有帮助,应该尽可能使用它们,因为它们的工作效率很高。为了对于大小有限的非连续数据集,您可以使用 ActiveX组合框可以引用内存中的对象实例,如果它们事件处理程序会传递一个对后者唯一的 id。
检查事件更改时,应注意 Worksheet_Change进行民意调查,您会在网络上看到很多示例。这个可以如果你不小心,就会浪费相当多的时间。
总结一下:利用 Excel 中的一切力量,不要重新发明轮子。
' Compares the sheet 1 of the workbook you're in
' with sheet1 of the workbook file in 'Filename'
' and colors the cells that differ between the two.
Sub compare_workbooks_sheet1()
Dim Filename As String
Filename = "C:\MyBook.xlsm"
Dim wrkbk1 As Workbook
Set wrkbk1 = Workbooks.Open(Filename:=Filename)
Dim sht1 As Worksheet ' worksheet you're in
Dim sht2 As Worksheet ' worksheet you've opened to compare
Set sht1 = wrkbk1.Worksheets("Sheet1")
Set sht2 = ThisWorkbook.Worksheets("Sheet1")
Dim row As Long, col As Long
With sht2
For row = 1 To sht1.UsedRange.Rows.Count
For col = 1 To sht1.UsedRange.Columns.Count
If sht1.Cells(row, col) <> sht2.Cells(row, col) Then
.Cells(row, col).Interior.ColorIndex = 5
End If
Next
Next
End With
wrkbk1.Close
End Sub
关于vba - 通过构造进行 VBA 继承的后续操作,构造函数不起作用?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42263734/
我喜欢 smartcase,也喜欢 * 和 # 搜索命令。但我更希望 * 和 # 搜索命令区分大小写,而/和 ?搜索命令遵循 smartcase 启发式。 是否有隐藏在某个地方我还没有找到的设置?我宁
关闭。这个问题是off-topic .它目前不接受答案。 想改进这个问题? Update the question所以它是on-topic对于堆栈溢出。 10年前关闭。 Improve this qu
从以下网站,我找到了执行java AD身份验证的代码。 http://java2db.com/jndi-ldap-programming/solution-to-sslhandshakeexcepti
似乎 melt 会使用 id 列和堆叠的测量变量 reshape 您的数据框,然后通过转换让您执行聚合。 ddply,从 plyr 包看起来非常相似..你给它一个数据框,几个用于分组的列变量和一个聚合
我的问题是关于 memcached。 Facebook 使用 memcached 作为其结构化数据的缓存,以减少用户的延迟。他们在 Linux 上使用 UDP 优化了 memcached 的性能。 h
在 Camel route ,我正在使用 exec 组件通过 grep 进行 curl ,但使用 ${HOSTNAME} 的 grep 无法正常工作,下面是我的 Camel 路线。请在这方面寻求帮助。
我正在尝试执行相当复杂的查询,在其中我可以排除与特定条件集匹配的项目。这是一个 super 简化的模型来解释我的困境: class Thing(models.Model) user = mod
我正在尝试执行相当复杂的查询,我可以在其中排除符合特定条件集的项目。这里有一个 super 简化的模型来解释我的困境: class Thing(models.Model) user = mod
我发现了很多嵌入/内容项目的旧方法,并且我遵循了在这里找到的最新方法(我假设):https://blog.angular-university.io/angular-ng-content/ 我正在尝试
我正在寻找如何使用 fastify-nextjs 启动 fastify-cli 的建议 我曾尝试将代码简单地添加到建议的位置,但它不起作用。 'use strict' const path = req
我正在尝试将振幅 js 与 React 和 Gatsby 集成。做 gatsby developer 时一切看起来都不错,因为它发生在浏览器中,但是当我尝试 gatsby build 时,我收到以下错
我试图避免过度执行空值检查,但同时我想在需要使代码健壮的时候进行空值检查。但有时我觉得它开始变得如此防御,因为我没有实现 API。然后我避免了一些空检查,但是当我开始单元测试时,它开始总是等待运行时异
尝试进行包含一些 NOT 的 Kibana 搜索,但获得包含 NOT 的结果,因此猜测我的语法不正确: "chocolate" AND "milk" AND NOT "cow" AND NOT "tr
我正在使用开源代码共享包在 iOS 中进行 facebook 集成,但收到错误“FT_Load_Glyph failed: glyph 65535: error 6”。我在另一台 mac 机器上尝试了
我正在尝试估计一个标准的 tobit 模型,该模型被审查为零。 变量是 因变量 : 幸福 自变量 : 城市(芝加哥,纽约), 性别(男,女), 就业(0=失业,1=就业), 工作类型(失业,蓝色,白色
我有一个像这样的项目布局 样本/ 一种/ 源/ 主要的/ java / java 资源/ .jpg 乙/ 源/ 主要的/ java / B.java 资源/ B.jpg 构建.gradle 设置.gr
如何循环遍历数组中的多个属性以及如何使用map函数将数组中的多个属性显示到网页 import React, { Component } from 'react'; import './App.css'
我有一个 JavaScript 函数,它进行 AJAX 调用以返回一些数据,该调用是在选择列表更改事件上触发的。 我尝试了多种方法来在等待时显示加载程序,因为它当前暂停了选择列表,从客户的 Angul
可能以前问过,但找不到。 我正在用以下形式写很多语句: if (bar.getFoo() != null) { this.foo = bar.getFoo(); } 我想到了三元运算符,但我认
我有一个表单,在将其发送到 PHP 之前我正在执行一些验证 JavaScript,验证后的 JavaScript 函数会发布用户在 中输入的文本。页面底部的标签;然而,此消息显示短暂,然后消失...
我是一名优秀的程序员,十分优秀!