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

时间: 2023-10-20 22:25:39 浏览: 42
以下是一个简单的示例代码,可以创建一个任务跟踪表格并添加按钮,点击按钮可以弹出窗体显示该行的信息: ``` 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文件的方法和思路,非常的实用,有需要的小伙伴可以参考下。
recommend-type

年会 抽奖 小程序 EXCEL VBA

年会 抽奖 小程序 EXCEL VBA 灵活的Excel小工具,可定制奖项名字、奖项数量和参与抽奖名单。
recommend-type

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

本人主要介绍了VBA窗体控件的一些基本操作内容,各种常用属性,常用操作等,基本涵盖了全部常用的控件,给出了代码样例,适用于初学者,欢迎感兴趣的下载学习,不明之处请留言。
recommend-type

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

比如多个年级的课表,有固定格式,想从里面,按特定顺序提取出各个sheet的名字及课表科目 word里包括截图及vba代码
recommend-type

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

xlwings能够非常方便的读写Excel文件中的数据,并且能够进行单元格...xlwings还可以调用Excel文件中VBA写好的程序,也可以让VBA调用用Python写的程序;xlwings开源免费并一直在更新。本文为PDF版的xlwings的操作手册
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

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

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

解释minorization-maximization (MM) algorithm,并给出matlab代码编写的例子

Minorization-maximization (MM) algorithm是一种常用的优化算法,用于求解非凸问题或含有约束的优化问题。该算法的基本思想是通过构造一个凸下界函数来逼近原问题,然后通过求解凸下界函数的最优解来逼近原问题的最优解。具体步骤如下: 1. 初始化参数 $\theta_0$,设 $k=0$; 2. 构造一个凸下界函数 $Q(\theta|\theta_k)$,使其满足 $Q(\theta_k|\theta_k)=f(\theta_k)$; 3. 求解 $Q(\theta|\theta_k)$ 的最优值 $\theta_{k+1}=\arg\min_\theta Q(
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。