使用EXCEL VBA创建任务跟踪表格,sheet1表中包含字段有序号、查证日期、提报方、提报方客户名称、提报方式、数量、窜货方、窜货方客户名称、是否结案、备注。每行末尾需添加botton按钮,点击后单独弹出窗体显示本行所有对应字段的信息。

时间: 2023-10-20 14:25:39 浏览: 138
以下是一个简单的示例代码,可以创建一个任务跟踪表格并添加按钮,点击按钮可以弹出窗体显示该行的信息: ``` Sub CreateTaskTracker() '创建工作簿和工作表 Dim wb As Workbook Set wb = ThisWorkbook Dim ws As Worksheet Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)) ws.Name = "任务跟踪表" '添加表头 ws.Range("A1").Value = "序号" ws.Range("B1").Value = "查证日期" ws.Range("C1").Value = "提报方" ws.Range("D1").Value = "提报方客户名称" ws.Range("E1").Value = "提报方式" ws.Range("F1").Value = "数量" ws.Range("G1").Value = "窜货方" ws.Range("H1").Value = "窜货方客户名称" ws.Range("I1").Value = "是否结案" ws.Range("J1").Value = "备注" '添加按钮 Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Dim i As Long For i = 2 To lastRow Dim btn As Button Set btn = ws.Buttons.Add(ws.Cells(i, 11).Left, ws.Cells(i, 11).Top, 50, 20) btn.OnAction = "ShowTaskInfo" btn.Caption = "详情" btn.Name = "btn_" & i Next i End Sub Sub ShowTaskInfo() '获取按钮所在的行 Dim btn As Button Set btn = ActiveSheet.Buttons(Application.Caller) Dim row As Long row = Mid(btn.Name, 5) '弹出窗体显示信息 Dim info As String info = "序号:" & Cells(row, 1).Value & vbCrLf _ & "查证日期:" & Cells(row, 2).Value & vbCrLf _ & "提报方:" & Cells(row, 3).Value & vbCrLf _ & "提报方客户名称:" & Cells(row, 4).Value & vbCrLf _ & "提报方式:" & Cells(row, 5).Value & vbCrLf _ & "数量:" & Cells(row, 6).Value & vbCrLf _ & "窜货方:" & Cells(row, 7).Value & vbCrLf _ & "窜货方客户名称:" & Cells(row, 8).Value & vbCrLf _ & "是否结案:" & Cells(row, 9).Value & vbCrLf _ & "备注:" & Cells(row, 10).Value MsgBox info, vbInformation, "任务信息" End Sub ``` 你可以将以上代码复制到VBA编辑器中,然后运行CreateTaskTracker子程序来创建任务跟踪表格。每行末尾将会添加一个“详情”按钮,点击该按钮可以弹出窗体显示该行的信息。在ShowTaskInfo子程序中,你可以根据需要调整信息的显示格式和内容。
阅读全文

相关推荐

最新推荐

recommend-type

VBA将excel数据表生成JSON文件

本文将探讨几种使用VBA将Excel数据表转换为JSON的方法。 首先,我们可以利用ADODB.Stream对象来创建一个UTF-8编码的文本文件,这是JSON文件的标准编码。以下是一个简单的示例: ```vba Sub ToJson() ' 创建UTF8...
recommend-type

年会 抽奖 小程序 EXCEL VBA

标题中的“年会抽奖小程序 EXCEL VBA”指的是利用Excel的VBA(Visual Basic for Applications)编程语言开发的一款适用于年会抽奖活动的应用程序。这款小程序能够帮助组织者自定义奖项设置,包括奖项名称和数量,...
recommend-type

EXCEL VBA 控件常规使用——窗体控件介绍

EXCEL VBA 控件常规使用——窗体控件介绍 在 Excel VBA 中,控件是指在 UserForm 中使用的各种对象,例如按钮、文本框、列表框等。这些控件可以在 UserForm 中进行布局和设计,以便在实际应用中使用。本文将介绍 ...
recommend-type

从有规律的多个sheets表里提取数据到一个新sheet里.docx

标题中的“从有规律的多个sheets表里提取数据到一个新sheet里.docx”指的是在Excel工作簿中,有多张按照一定规律排列的表格(sheets),用户希望将这些表格中的特定数据整合到一个新的单独的表格中。这个过程可以...
recommend-type

python操作Excel第三方包xlwings的操作手册

- **用户自定义函数(UDFs)**:在Windows环境下,xlwings可以创建UDFs,使得Python函数可以直接在Excel中作为公式使用。 ### **5. 连接工作簿** - **Python到Excel**:使用xlwings.open_book()函数打开Excel文件,...
recommend-type

平尾装配工作平台运输支撑系统设计与应用

资源摘要信息:"该压缩包文件名为‘行业分类-设备装置-用于平尾装配工作平台的运输支撑系统.zip’,虽然没有提供具体的标签信息,但通过文件标题可以推断出其内容涉及的是航空或者相关重工业领域内的设备装置。从标题来看,该文件集中讲述的是有关平尾装配工作平台的运输支撑系统,这是一种专门用于支撑和运输飞机平尾装配的特殊设备。 平尾,即水平尾翼,是飞机尾部的一个关键部件,它对于飞机的稳定性和控制性起到至关重要的作用。平尾的装配工作通常需要在一个特定的平台上进行,这个平台不仅要保证装配过程中平尾的稳定,还需要适应平尾的搬运和运输。因此,设计出一个合适的运输支撑系统对于提高装配效率和保障装配质量至关重要。 从‘用于平尾装配工作平台的运输支撑系统.pdf’这一文件名称可以推断,该PDF文档应该是详细介绍这种支撑系统的构造、工作原理、使用方法以及其在平尾装配工作中的应用。文档可能包括以下内容: 1. 支撑系统的设计理念:介绍支撑系统设计的基本出发点,如便于操作、稳定性高、强度大、适应性强等。可能涉及的工程学原理、材料学选择和整体结构布局等内容。 2. 结构组件介绍:详细介绍支撑系统的各个组成部分,包括支撑框架、稳定装置、传动机构、导向装置、固定装置等。对于每一个部件的功能、材料构成、制造工艺、耐腐蚀性以及与其他部件的连接方式等都会有详细的描述。 3. 工作原理和操作流程:解释运输支撑系统是如何在装配过程中起到支撑作用的,包括如何调整支撑点以适应不同重量和尺寸的平尾,以及如何进行运输和对接。操作流程部分可能会包含操作步骤、安全措施、维护保养等。 4. 应用案例分析:可能包含实际操作中遇到的问题和解决方案,或是对不同机型平尾装配过程的支撑系统应用案例的详细描述,以此展示系统的实用性和适应性。 5. 技术参数和性能指标:列出支撑系统的具体技术参数,如载重能力、尺寸规格、工作范围、可调节范围、耐用性和可靠性指标等,以供参考和评估。 6. 安全和维护指南:对于支撑系统的使用安全提供指导,包括操作安全、应急处理、日常维护、定期检查和故障排除等内容。 该支撑系统作为专门针对平尾装配而设计的设备,对于飞机制造企业来说,掌握其详细信息是提高生产效率和保障产品质量的重要一环。同时,这种支撑系统的设计和应用也体现了现代工业在专用设备制造方面追求高效、安全和精确的趋势。"
recommend-type

管理建模和仿真的文件

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

MATLAB遗传算法探索:寻找随机性与确定性的平衡艺术

![MATLAB多种群遗传算法优化](https://img-blog.csdnimg.cn/39452a76c45b4193b4d88d1be16b01f1.png) # 1. 遗传算法的基本概念与起源 遗传算法(Genetic Algorithm, GA)是一种模拟自然选择和遗传学机制的搜索优化算法。起源于20世纪60年代末至70年代初,由John Holland及其学生和同事们在研究自适应系统时首次提出,其理论基础受到生物进化论的启发。遗传算法通过编码一个潜在解决方案的“基因”,构造初始种群,并通过选择、交叉(杂交)和变异等操作模拟生物进化过程,以迭代的方式不断优化和筛选出最适应环境的
recommend-type

如何在S7-200 SMART PLC中使用MB_Client指令实现Modbus TCP通信?请详细解释从连接建立到数据交换的完整步骤。

为了有效地掌握S7-200 SMART PLC中的MB_Client指令,以便实现Modbus TCP通信,建议参考《S7-200 SMART Modbus TCP教程:MB_Client指令与功能码详解》。本教程将引导您了解从连接建立到数据交换的整个过程,并详细解释每个步骤中的关键点。 参考资源链接:[S7-200 SMART Modbus TCP教程:MB_Client指令与功能码详解](https://wenku.csdn.net/doc/119yes2jcm?spm=1055.2569.3001.10343) 首先,确保您的S7-200 SMART CPU支持开放式用户通
recommend-type

MAX-MIN Ant System:用MATLAB解决旅行商问题

资源摘要信息:"Solve TSP by MMAS: Using MAX-MIN Ant System to solve Traveling Salesman Problem - matlab开发" 本资源为解决经典的旅行商问题(Traveling Salesman Problem, TSP)提供了一种基于蚁群算法(Ant Colony Optimization, ACO)的MAX-MIN蚁群系统(MAX-MIN Ant System, MMAS)的Matlab实现。旅行商问题是一个典型的优化问题,要求找到一条最短的路径,让旅行商访问每一个城市一次并返回起点。这个问题属于NP-hard问题,随着城市数量的增加,寻找最优解的难度急剧增加。 MAX-MIN Ant System是一种改进的蚁群优化算法,它在基本的蚁群算法的基础上,对信息素的更新规则进行了改进,以期避免过早收敛和局部最优的问题。MMAS算法通过限制信息素的上下界来确保算法的探索能力和避免过早收敛,它在某些情况下比经典的蚁群系统(Ant System, AS)和带有局部搜索的蚁群系统(Ant Colony System, ACS)更为有效。 在本Matlab实现中,用户可以通过调用ACO函数并传入一个TSP问题文件(例如"filename.tsp")来运行MMAS算法。该问题文件可以是任意的对称或非对称TSP实例,用户可以从特定的网站下载多种标准TSP问题实例,以供测试和研究使用。 使用此资源的用户需要注意,虽然该Matlab代码可以免费用于个人学习和研究目的,但若要用于商业用途,则需要联系作者获取相应的许可。作者的电子邮件地址为***。 此外,压缩包文件名为"MAX-MIN%20Ant%20System.zip",该压缩包包含Matlab代码文件和可能的示例数据文件。用户在使用之前需要将压缩包解压,并将文件放置在Matlab的适当工作目录中。 为了更好地理解和应用该资源,用户应当对蚁群优化算法有初步了解,尤其是对MAX-MIN蚁群系统的基本原理和运行机制有所掌握。此外,熟悉Matlab编程环境和拥有一定的编程经验将有助于用户根据个人需求修改和扩展算法。 在实际应用中,用户可以根据问题规模调整MMAS算法的参数,如蚂蚁数量、信息素蒸发率、信息素增量等,以获得最优的求解效果。此外,也可以结合其他启发式或元启发式算法,如遗传算法、模拟退火等,来进一步提高算法的性能。 总之,本资源为TSP问题的求解提供了一种有效的算法框架,且Matlab作为编程工具的易用性和强大的计算能力,使得该资源成为算法研究人员和工程技术人员的有力工具。通过本资源的应用,用户将能够深入探索并实现蚁群优化算法在实际问题中的应用,为解决复杂的优化问题提供一种新的思路和方法。