Loading [MathJax]/jax/output/CommonHTML/config.js
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >根据工作表名称添加行

根据工作表名称添加行
EN

Stack Overflow用户
提问于 2020-05-01 13:47:37
回答 2查看 150关注 0票数 1

我现在有点卡在这个问题上了--我有一个变通的办法,但是它的效率非常低,而且编码也非常耗时。

我选择了一组工作表,并希望根据工作表名称为每个工作表添加不同的标题行。

我想有一个包含标题行选择的工作表-请参阅Selection of Header Rows

然后,例如,如果工作表= A00 -在选择工作表的相应标题行中应用副本。

这就是我目前的解决方案--正如您所看到的,它非常低效且耗时

代码语言:javascript
运行
AI代码解释
复制
For Each myWorksheet In Worksheets
    If myWorksheet.Name = "A00" Then
        Sheets("A00").Cells(1).Resize(1, 5).Value = Array("ORGANISATION_ID", "FILE_TYPE", "CREATION_DATE", "CREATION_TIME", "GENERATION_NUMBER")
    End If
    If myWorksheet.Name = "Z99" Then
        Sheets("Z99").Cells(1).Resize(1, 1).Value = Array("RECORD_COUNT")
    End If
    If myWorksheet.Name = "I56" Then
        Sheets("I56").Cells(1).Resize(1, 26).Value = Array("ORGANISATION_SHORT_CODE", "INVOICE_NUMBER", "INVOICE_TYPE_CODE", "BILLING_YEAR", "BILLING_MONTH", "INVOICE_AMOUNT", "INVOICE_VAT_AMOUNT", "INVOICE_GROSS_TOTAL", "PAYMENT_DUE_DATE", "VAT_CHARGED_TO_NWO", "VAT_CHARGED_TO_SHIPPER", "INVOICE_TAX_POINT_DATE", "NWO_VAT_ REGISTRATION_NUMBER", "NWO_BANK_SORT_CODE", "NWO_BANK_ACCOUNT_NUMBER", "NWO_BANK_ACCOUNT_NAME", "ISH_VAT_REGISTRATION_NUMBER", "ISH_BANK_ACCOUNT_NUMBER", "ISH_BANK_SORT_CODE", "NWO_SHORT_CODE", "NWO_VAT_REGISTRATION_NAME", "NWO_ADDRESS_LINE_1", "NWO_ADDRESS_LINE_2", "NWO_ADDRESS_LINE_3", "NWO_ADDRESS_LINE_4", "FILE_NAME")
    End If
    If myWorksheet.Name = "I05" Then
        Sheets("I05").Cells(1).Resize(1, 2).Value = Array("ISC_LINE_1_TEXT", "ISC_LINE_2_TEXT")
    End If
    If myWorksheet.Name = "I57" Then
        Sheets("I57").Cells(1).Resize(1, 8).Value = Array("INVOICE_ITEM_REFERENCE_NUMBER", "INCURRED_DATE", "CHARGE TYPE CODE", "QUANTITY", "UNIT_TYPE", "RATE", "INVOICE_ITEM_AMOUNT", "ANCILLARY_INVOICE_COMMENTS")
    End If
    If myWorksheet.Name = "K12" Then
        Sheets("K12").Cells(1).Resize(1, 4).Value = Array("GAS_ACT_OWNER", "CURRENT_METER_ASSET_MANAGER", "PROSPECTIVE_METER_ASSET_MANAGER", "PROSPECTIVE_MAM_EFFECTIVE_DATE")
    End If
Next myWorksheet

这方面的任何帮助都将不胜感激。

EN

回答 2

Stack Overflow用户

发布于 2020-05-01 14:26:24

创建一个名为Index的工作表,并像在图像中所做的那样填充它。

然后,下面的代码将遍历每个选项卡,如果在A列中找到选项卡名,它会将该单元格下面的整行复制到选项卡的第一行。

代码语言:javascript
运行
AI代码解释
复制
For Each myworksheet In Worksheets
    rowfound = Application.Match(myworksheet.Name, Worksheets("Index").Range("A:A"), 0)
    If Not (IsError(rowfound)) Then myworksheet.Range("1:1").Value = Worksheets("index").Cells(rowfound + 1, 1).EntireRow.Value
Next
票数 1
EN

Stack Overflow用户

发布于 2020-05-01 15:31:05

我认为我会通过执行下面列出的步骤来实现这一点,并对您的工作表进行以下假设。

  • 图像中的工作表被命名为“标题行选择”。
  • 图像中的工作表在标题列表之间将有空行,如图所示。
  • 图像中的第一列是A列。
  • 您希望标题从各个工作表的单元格A1中开始。

步骤

  1. 定义图示工作表的范围,我们将在其中搜索每个工作表的名称。
  2. 遍历集合中的每个工作表,在我们的搜索范围中查找其名称。
  3. 如果找到名称,请使用找到名称的范围的CurrentRegion属性定义一个范围。(The current region is a range bounded by any combination of blank rows and blank columns.)
  4. Count该range.
  5. Offset中向下一行的列(以排除工作表名称itself).
  6. Resize该范围为一行“高”且列数相同的列“宽”。
  7. 将目标工作表上的题头范围设置为单元格A1,并调整其大小以使其具有正确的列数。
  8. 将该题头范围的值设置为我们在“选择题头行”工作表上构建的范围的值。

代码语言:javascript
运行
AI代码解释
复制
    Dim myWorksheet As Worksheet

    Dim searchRange As Range
    Set searchRange = Worksheets("Selection of Header Rows").Range("A:A")

    Dim foundRange As Range
    Dim headerRange As Range
    For Each myWorksheet In Worksheets

        Set foundRange = searchRange.Find(What:=myWorksheet.Name, LookAt:=xlWhole)

        If Not foundRange Is Nothing Then

            Set headerRange = foundRange.CurrentRegion.Offset(1, 0)

            Dim headerColumnCount As Long
            headerColumnCount = headerRange.Columns.Count

            Set headerRange = headerRange.Resize(1, headerColumnCount)

            myWorksheet.Range("A1").Resize(1, headerColumnCount).value = headerRange.value

        End If

    Next myWorksheet
票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/61543726

复制
相关文章
Vue动态添加和删除组件的实现,子组件和父组件的传值实例演示
下面的卡片就是我单独封装的组件,保存的组件名为 Card.vue,代码中 mdb 开头是 MDBootstrap 框架里的组件。 内容较多,这里主要关注的点就是删除按钮还有给父组件传值的方法。 <mdb-btn color="primary" @click="remove_son">删除</mdb-btn> 是删除按钮。 绑定方法里的 this.$emit("remove_father"); 是用来给父组件传值的,remove_father 是父组件的方法名。
小蓝枣
2023/02/26
2.1K0
Vue动态添加和删除组件的实现,子组件和父组件的传值实例演示
vue父组件调用子组件属性_vue子组件获取父组件实例
但是在vue3中,很显然使用this.$emit() 已经开始报错了,为什么会报错呢?
全栈程序员站长
2022/11/10
2.2K0
React的Refs方法获取DOM实例 和 访问子组件方法及属性
React 支持一种非常特殊的属性 Ref ,你可以用来绑定到 render() 输出的任何组件上。
小弟调调
2018/10/18
5.1K0
Vue组件滚动加载、懒加载功能的实现,无限滚动加载组件实例演示
效果图如下: 可以看到随着不断的滚动,页面组件的数量不断的加载。 其实加载的是后端返回的数据,因为涉及隐私,没有给显示出来。 利用懒加载,可以防止大量渲染造成卡顿降低用户体验。
小蓝枣
2023/02/26
4.5K0
Vue组件滚动加载、懒加载功能的实现,无限滚动加载组件实例演示
Vue 父组件向子组件传递动态参数,子组件如何实时更新[通俗易懂]
项目问题介绍:父组件中填入各种查询条件,点击查询按钮查出符合条件的数据。其中,数据列表是引入的子组件。第一次加载的时候,子组件数据正常显示,再次查询的时候子组件怎么实现实时更新呢?
全栈程序员站长
2022/07/29
6.9K0
Vue 父组件向子组件传递动态参数,子组件如何实时更新[通俗易懂]
UIkit 分页组件动态加载简单实现
1. 问题描述 ---- 使用过UIkit分页组件的都清楚,UIkit的分页不能动态刷新数据,也就是不能在点击下一页的时候,动态从后台加载数据,并且刷新页数以及该页数上的数据,下面是一个简单实现,没有做任何优化,可以参考一下。 2. pagination.js ---- 动态修改页码的实现 // 改变页码 // obj: 页码ul对象, items: 记录总数量, itemsOnePage: 每页展示的数量, curPageNum: 当前所在页数 function changePagination(obj,
山海散人
2021/03/03
7440
vue -- 动态加载组件 (tap 栏效果)
在 vue 中,实现 Tab 切换主要有三种方式:使用动态组件,使用 vue-router 路由,使用第三方插件。
小蔚
2019/09/11
1.4K0
Vue父组件向子组件传递一个动态的值,子组件如何保持实时更新实时更新?
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/129742.html原文链接:https://javaforall.cn
全栈程序员站长
2022/07/30
4.6K0
权限管理模块中动态加载Vue组件
当前后端分离时,权限问题的处理也和我们传统的处理方式有一点差异。笔者前几天刚好在负责一个项目的权限管理模块,现在权限管理模块已经做完了,我想通过5-6篇文章,来介绍一下项目中遇到的问题以及我的解决方案,希望这个系列能够给小伙伴一些帮助。本系列文章并不是手把手的教程,主要介绍了核心思路并讲解了核心代码,完整的代码小伙伴们可以在GitHub上star并clone下来研究。另外,原本计划把项目跑起来放到网上供小伙伴们查看,但是之前买服务器为了省钱,内存只有512M,两个应用跑不起来(已经有一个V部落开源项目在运行
江南一点雨
2018/04/02
2K0
超级变变变,动态云组件加载实践
题目为动态组件,但为了好理解可以叫做远程加载动态组件,后面统一简化称为“远程组件”。
秋风的笔记
2021/08/27
3.4K0
超级变变变,动态云组件加载实践
懒加载 React 长页面 - 动态渲染组件
长页面在前端开发中是非常常见的。例如下图中的电商首页,楼层数据来自运营人员在后台的配置,楼层数量是不固定的,同时每个楼层可能会依赖更多翻页数据。在这种情况下,如果一次性将页面全部渲染,可想而知,我们的页面直出效率(fmp, fid)会受到影响。
用户3806669
2021/04/30
3.6K0
懒加载 React 长页面 - 动态渲染组件
如何使用 ref 属性获取子组件实例对象?
在 Vue 中,我们可以使用 ref 属性来获取子组件的实例对象。这个功能非常方便,可以让父组件直接访问子组件的方法和数据。本文将详细介绍如何使用 ref 属性获取子组件实例对象。
网络技术联盟站
2023/06/04
3.2K0
实现基于最新chrome的动态按需加载组件
chrome63 版本后支持动态import 加载js https://developers.google.com/web/updates/2017/12/nic63#dynamic
mafeifan
2018/09/10
8680
vue父组件向子组件动态传值的两种方法
在一些项目需求中需要父组件向子组件动态传值,比如我这里的需求是,父组件动态通过axios获取返回的图片url数组然后传给子组件,上传图片的子组件拿到该数组后进行遍历并展示图片,因为有时候获取到的会是空,所以这里要考虑到动态获取。 方法有两种, 方法一: props传值,这里注意一个问题,传过来的值需要用watch监听并赋值,否则这里获取到的是空数组   父组件: <uploadImg :width="200" :height="200" name="productImage" size="750px*750
蓓蕾心晴
2018/04/12
4K0
动态表单之表单组件的插件式加载方案
本文首发于政采云前端团队博客:动态表单之表单组件的插件式加载方案 https://www.zoo.team/article/dynamic-form-loading-method
政采云前端团队
2021/02/24
2.6K0
(二十一)获取DOM和子组件实例
vue 的数据流向是单项的从父组件流向子组件,也就是 props down, emit up 的原理机制,但是 vue 中提供在父组件中访问子组件实例的方法,ref 它可以访问到子组件的实例,也可以访问到 DOM 的原生对象,但是不到万不得已不推荐使用这个 ref 来访问子组件,因为这样会改变数据的流向,基本 99% 的业务用不到这个
老怪兽
2023/02/22
4250
vue 修改引入组件的样式_vue子组件的子组件布局
vue被广大前端推崇很重要一点就是组件封装,但是在组件封装的时候,组件可能在各处都要用到,但是在各处的样式可能不太一样,例如:按钮组件,这时怎么办,难道不同样式但是结构相同的组件进行多次封装么?很明显是很不合算的。
全栈程序员站长
2022/09/27
1.5K0
vue 修改引入组件的样式_vue子组件的子组件布局
Postgreqsql动态加载plpgsql钩子函数的实例(调试利器)
Postgresql的plpgsql提供了一套钩子函数支持运行时动态加载,非常便于调试plpgsql。本文总结使用方法和实例。
mingjie
2023/04/18
4520
vue 父组件调用子组件的函数_vue子组件触发父组件方法
项目里将element-ui的el-upload写成公共组件方便调用,官方的before-upload方法用于处理上传前要做的事,如:比较文件大小,限制文件类型等,通过返回true 或 false 控制是否上传。 当该组件调用父组件方法,并且要能获取到父组件方法的返回值,如何实现?
全栈程序员站长
2022/11/10
3.2K0
React router动态加载组件-适配器模式的应用
以上是最常见的React router。在简单的单页应用中,这样写是ok的。因为打包后的单一js文件bundle.js也不过200k左右,gzip之后,对加载性能并没有太大的影响。 但是,当产品经历多次迭代后,追加的页面导致bundle.js的体积不断变大。这时候,优化就变得很有必要。
我是leon
2019/08/28
1.8K0

相似问题

访问动态子组件

10

VueJS -动态加载子组件

13

Web组件:如何从父组件访问子组件实例

16

页面加载子组件的角度访问列表

15

在角5中动态加载子组件

10
添加站长 进交流群

领取专属 10元无门槛券

AI混元助手 在线答疑

扫码加入开发者社群
关注 腾讯云开发者公众号

洞察 腾讯核心技术

剖析业界实践案例

扫码关注腾讯云开发者公众号
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档