if(firstRow != firstRow + professionNum-1){ sheet.addMergedRegion(cellAddresses); setCellBorder(sheet, cellAddresses); //如果不相等则就是专业中那样一格一格的 }else { setCellBorder(sheet, cellAddresses); //相等则是多个小格合成一个大格 }

时间: 2024-02-14 13:12:48 浏览: 114
DOC

关于vS2010代开和保存Excel问题

这段代码的作用是在 Excel 表格中合并单元格,并设置边框样式。 首先,判断要合并的单元格区域是否跨越多行(即是否为同一列中的连续多个单元格,例如专业名称的列),如果是,则调用 addMergedRegion 方法将这些单元格合并为一个区域,并调用 setCellBorder 方法设置边框样式;否则,说明要合并的单元格区域只包含一个单元格,直接调用 setCellBorder 方法设置边框样式即可。 其中,cellAddresses 表示要合并的单元格区域,它也是一个 CellRangeAddress 对象,包含起始行、结束行、起始列、结束列等信息。setCellBorder 方法用于设置单元格边框样式,可以自行实现或使用已有的边框样式。
阅读全文

相关推荐

class ExcelApp: def init(self, master): self.master = master master.title("Excel App") # 创建菜单栏 menubar = tk.Menu(master) master.config(menu=menubar) # 创建工具栏 toolbar = tk.Frame(master, height=30) tk.Button(toolbar, text="打开", command=self.open_file).pack(side=tk.LEFT, padx=2, pady=2) tk.Button(toolbar, text="保存", command=self.save_file).pack(side=tk.LEFT, padx=2, pady=2) toolbar.pack(side=tk.TOP, fill=tk.X) def show_sheet(self, sheet_name): self.textbox.tag_configure("left", justify="left") sheet = self.workbook[sheet_name] rows = sheet.max_row # 清空文本框 self.textbox.delete(1.0, tk.END) # 添加表名并设置居中标签 self.textbox.insert(tk.END, sheet_name + ":\n", "center") # 显示工作表内容,并在相应数据后面添加下拉输入框 for row in sheet.iter_rows(values_only=True): for i, cell in enumerate(row): line = str(cell) + "\t" if i == 0: # 在第一列数据后面添加下拉输入框 combobox = tk.ttk.Combobox(self.textbox, values=["下拉选项1", "下拉选项2", "下拉选项3"]) combobox.pack(side=tk.TOP, padx=10, pady=5) self.textbox.window_create(tk.END, window=combobox) self.textbox.insert(tk.END, line, "left") self.textbox.insert(tk.END, "\n") # 设置居中标签的样式 self.textbox.tag_configure("center", justify="center", font=("Arial", 14, "bold"))根據這段代碼,儅用戶在點擊保存時,將文本框中第一行内容單獨寫入一個excel第一列中,在將文本框中顯示的數據内容和下拉輸入框的内容分別寫入excel第二列第3列中按行寫入

Sub ExportChart() Application.ScreenUpdating = False Dim ChartPath As String Dim range_str As String Dim myRange As Range Dim file_str As String Dim i As Integer Dim isFirstLine As Boolean 'For row_inx = 1 To Sheet1.UsedRange.Rows.Count 'For col_inx = 1 To Sheet1.UsedRange.Columns.Count 'Debug.Print Sheet1.Cells(row_inx, col_inx).Value 'Next 'Next Row = Application.CountA(ActiveSheet.Range("A:A")) For i = 2 To Row '显示第一行 ActiveSheet.Rows(1).Hidden = False '显示第i行 ActiveSheet.Rows(i).Hidden = False '需要保存为图片的区域 'range_str = "A1:D1" 'range_str = Range(Cells(1, "A"), Cells(i, "D")) myRange = Range(Cells(1, 1).Address, Cells(i, 4).Address) range_str = myRange.Address '保存为文件名为 F列PO.jpg file_str = Range("F" & i) '保存路径 D:\ 路径可自已修改 ChartPath = "D:\testvba\" & file_str & ".jpg" '缩放尺寸 (缩放后图片更清晰) ActiveWindow.Zoom = 200 Dim chtObject As ChartObject ' Sheet1 可更改为自己需要导出的 工作表 Sheet2/Sheet3...... With Sheet1 .Range(range_str).CopyPicture Set chtObject = ActiveSheet.ChartObjects. _ Add(500, 100, .Range(range_str).Width, .Range(range_str).Height) chtObject.Activate chtObject.Chart.Paste End With On Error Resume Next Kill ChartPath chtObject.Chart.Export Filename:=ChartPath, Filtername:="JPG" '删除chtObject的容器 chtObject.Activate ActiveChart.Parent.Delete '缩放尺寸 ActiveWindow.Zoom = 100 Set chtObject = Nothing Application.ScreenUpdating = True ActiveSheet.Rows.Hidden = True Next i End Sub

最新推荐

recommend-type

C# 文件上传下载(Excel导入,多线程下载)功能的实现代码

IRow firstRow = sheet.GetRow(0); int cellCount = firstRow.LastCellNum; if (isFirstRowColumn) { for (int i = firstRow.FirstCellNum; i ; ++i) { ICell cell = firstRow.GetCell(i); if (cell != ...
recommend-type

Java在Excel中创建多级分组、折叠或展开分组的实现

Java在Excel中创建多级分组、折叠或展开分组的实现方法主要有两种:方法一是通过sheet.groupByRows(int firstRow, int lastRow, boolean isCollapsed)设置行分组,通过sheet.groupByColumns(int firstColumn, int ...
recommend-type

STM32F103单片机连接EC800-4G模块采集GNSS定位数据和多组传感器数据上传到ONENET云平台并接收控制指令.zip

1、嵌入式物联网单片机项目开发例程,简单、方便、好用,节省开发时间。 2、代码使用KEIL 标准库开发,当前在STM32F103运行,如果是STM32F103其他型号芯片,依然适用,请自行更改KEIL芯片型号以及FLASH容量即可。 3、软件下载时,请注意keil选择项是jlink还是stlink。 4、有偿指导v:wulianjishu666; 5、如果接入其他传感器,请查看账号发布的其他资料。 6、单片机与模块的接线,在代码当中均有定义,请自行对照。 7、若硬件有差异,请根据自身情况调整代码,程序仅供参考学习。 8、代码有注释说明,请耐心阅读。
recommend-type

Elasticsearch核心改进:实现Translog与索引线程分离

资源摘要信息:"Elasticsearch是一个基于Lucene构建的开源搜索引擎。它提供了一个分布式多用户能力的全文搜索引擎,基于RESTful web接口。Elasticsearch是用Java语言开发的,并作为Apache许可条款下的开源项目发布,是当前流行的企业级搜索引擎。设计用于云计算中,能够达到实时搜索,稳定,可靠,快速,安装使用方便。" "Elasticsearch的索引线程是处理索引操作的重要部分,负责处理数据的写入、更新和删除等操作。但是,在处理大量数据和高并发请求时,如果索引线程处理速度过慢,就会导致数据处理的延迟,影响整体性能。因此,Elasticsearch采用了事务日志(translog)机制来提高索引操作的效率和可靠性。" "Elasticsearch的事务日志(translog)是一种持久化存储机制,用于记录所有未被持久化到分片中的索引操作。在发生故障或系统崩溃时,事务日志可以确保所有索引操作不会丢失,保证数据的完整性。每个分片都有自己的事务日志文件。" "在Elasticsearch的早期版本中,事务日志的操作和索引线程的操作是在同一个线程中完成的,这可能会导致性能瓶颈。为了解决这个问题,Elasticsearch将事务日志的操作从索引线程中分离出去,使得索引线程可以专注于数据的索引操作,而事务日志的操作可以独立地进行。这样可以大大提高了Elasticsearch的索引性能。" "但是,事务日志的操作是独立于索引操作的,这就需要保证事务日志的操作不会影响到索引操作的性能。因此,在将事务日志从索引线程分离出去的同时,Elasticsearch也引入了一些优化策略,比如批量写入事务日志,减少磁盘I/O操作,以及优化事务日志的数据结构,提高读写效率等。" "需要注意的是,虽然事务日志的分离可以提高索引操作的性能,但是也会增加系统的复杂度和维护难度。因此,开发者在使用这个功能时,需要充分理解其原理和影响,才能确保系统的稳定运行。" "此外,由于这个功能还处于测试和学习阶段,尚未被广泛应用于生产环境,所以开发者在使用时需要谨慎,避免对生产环境造成影响。" "总的来说,Elasticsearch的事务日志的分离是一个重要的优化,可以大大提升索引操作的性能,但是在使用时也需要充分考虑其带来的影响,才能确保系统的稳定运行。"
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

病房呼叫系统设计基础:7个关键架构策略让你一步入门

![病房呼叫系统设计基础:7个关键架构策略让你一步入门](https://zektek.com.mx/wp-content/uploads/2021/03/diagram-enfermeria.jpg) # 摘要 本文对病房呼叫系统进行了深入的概述、需求分析、架构设计、功能实现以及实践应用案例的探讨。通过分析系统架构的重要性、设计原则、模块划分和数据流,确保了系统的高效运行和优化。本文进一步探讨了呼叫信号传输技术、显示与反馈机制、系统安全性与可靠性设计,并分析了系统部署环境、安装调试流程和维护升级策略。最后,文章展望了病房呼叫系统的未来发展趋势,包括智能化、技术融合以及法规遵从与伦理考量,并
recommend-type

Selenium如何获取Shadow DOM下的元素属性?

在Selenium中,获取Shadow DOM下的元素属性通常涉及到两步:首先找到元素,然后访问它的属性。由于Shadow DOM元素默认是不可见的(对于非JavaScript开发者),所以我们需要用JavaScript脚本来获取其内容。 下面是一个示例,展示如何通过Selenium的`execute_script`函数获取Shadow DOM元素的属性: ```python from selenium.webdriver.common.by import By from selenium.webdriver.support.ui import WebDriverWait from sel
recommend-type

分享个人Vim与Git配置文件管理经验

资源摘要信息:"conffiles:我的vim和git配置文件" 在给定的文件信息中,我们可以梳理出一些关键知识点,这些知识点主要涉及到了Vim编辑器和Git版本控制系统,同时涉及到了Linux环境下的一些文件操作知识。 首先,文件标题提到了"conffiles",这通常是指配置文件(configuration files)的缩写。配置文件是软件运行时用于读取用户设置或其他运行参数的文件,它们允许软件按照用户的特定需求进行工作。在本例中,这些配置文件是与Vim编辑器和Git版本控制系统相关的。 Vim是一种流行的文本编辑器,是UNIX系统中vi编辑器的增强版本。Vim不仅支持代码编辑,还支持插件扩展、多种模式(命令模式、插入模式、视觉模式等)和高度可定制化。在这个上下文中,"我的vim"可能指的是使用者为Vim定制的一套配置文件,这些配置文件可能包含键位映射、颜色主题、插件设置、用户界面布局和其他个性化选项。 Git是一个版本控制系统,用于跟踪计算机文件的更改和协作。Git是分布式版本控制,这意味着每个开发者都有一个包含完整项目历史的仓库副本。Git常用于代码的版本控制管理,它允许用户回滚到之前的版本、合并来自不同贡献者的代码,并且有效地管理代码变更。在这个资源中,"git conffiles"可能表示与Git用户相关的配置文件,这可能包括用户凭证、代理设置、别名以及其他一些全局Git配置选项。 描述部分提到了使用者之前使用的编辑器是Vim,但现在转向了Emacs。尽管如此,该用户仍然保留了以前的Vim配置文件。接着,描述中提到了一个安装脚本命令"sh ./.vim/install.sh"。这是一个shell脚本,通常用于自动化安装或配置过程。在这里,这个脚本可能用于创建符号链接(symbolic links),将旧的Vim配置文件链接到当前使用的Emacs配置文件夹中,使用户能够继续使用他们熟悉且习惯的Vim配置。 标签"Vimscript"表明这是一个与Vim脚本相关的资源,Vim脚本是一种专门用于自定义和扩展Vim功能的编程语言。Vimscript可以用于编写宏、自定义函数、插件等。 最后,文件名称列表"conffiles-master"可能表明这个压缩包文件包含了一系列的主配置文件。在Git版本控制的术语中,"master"(现在通常称为"main")分支是项目仓库的默认分支。这暗示了这些配置文件可能是该用户项目的主配置文件,这些配置文件被包含在名为"conffiles-master"的压缩包中。 综上所述,这个资源可能是一个集合了Vim编辑器和Git版本控制系统的个人配置文件的压缩包,附带一个用于符号链接旧Vim配置的安装脚本,它能够帮助用户在转向其他工具时仍然能够使用之前的个性化设置。这个资源对于想要了解如何管理和迁移配置文件的用户具有一定的参考价值。
recommend-type

"互动学习:行动中的多样性与论文攻读经历"

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动,互动学习以行动为中心的强化学习学会互动,互动学习,以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授:智囊团论文联合主任菲利普·普雷教授,大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授,Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士,Deepmind对于那些及时看到自己错误的人...3谢谢你首先,我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔,"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲,你知道在这篇论文的(许多)错误中,你是我可以依
recommend-type

【Genesis 2000教程】:7个技巧助你精通界面布局与操作

![技术专有名词:Genesis 2000](http://intewellos.com/uploadfiles/2023/03/20230321111815165.png) # 摘要 本文全面介绍了Genesis 2000软件的界面布局基础、操作技巧、视觉效果调整、高级功能应用以及综合案例分析,旨在帮助用户高效利用该软件提升工作效率和设计质量。文章首先从界面元素和布局优化入手,讲述了如何定制面板、工具栏以及管理窗口与视图。接着,探讨了通过快捷键和搜索功能实现的高效导航与搜索技巧。第三章强调了视觉效果与图形、文本处理的重要性,并提供实现高级视觉效果的技巧。第四章详细介绍了插件集成、参数化设计