excel VBA 给定数据按百分位打分 & 多表同时运作

最新推荐文章于 2022-05-28 23:09:06 发布
最新推荐文章于 2022-05-28 23:09:06 发布
阅读量826 收藏 1
点赞数 1
分类专栏： excel VBA 文章标签： VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_44384937/article/details/91660896
版权

excel 实现给定数据按百分位打分&多表同时运作

1. 出示图片如下

在这里插入图片描述

需要实现

对于每一个变量根据以下标准打分

分界点 得分
20百分位以下 1分
20-40百分位 2分
40-60百分位 3分
60-80百分位 4分
80-100百分位 5分

具体步骤：

  1. 给1，2和3列后各加一列
  2. percentile函数 设立各变量打分参考指标
  3. lookup函数 进行打分
  4. for循环运行多表

代码展示

  • 给1，2和3列后各加一
Sub add()
   Dim i%
   For i = 1 To 3
   ActiveSheet.Column(2 * i).Insert
   Next
End Sub

最低0.47元/天 解锁文章
Darian_Wong
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
用VBA做的根据自动模板批量生成新表格
12-16
用VBA制成的可根据模板工作表，批量生成新的工作表，并能自动编号及工作表命名。
excel宏条件计算机,使用具有多个条件的应用程序功能的Excel VBA百分位数(Excel VBA Percentile using Application Function with multi...
weixin_36146690的博客
07-28 342
I have the below formula working fine over large ranges of data in Excel 2007.In all cases Range1, Range2 and ArrayRange are the same start and end rows.Working:=PERCENTILE(IF(((Range1=Value)*(Range2=...
VBA 根据模板批量生成工作表
寻的博客
05-28 1398
Sub 生成测试() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Dim my_path As String my_path = ThisWorkbook.Path & "\生成的测试书" Dim i As Integer For i = 2 To 101 sheet2.Copy after.
Excel VBA系列：实现奖金比例计算+4种公式法
分享数据分析、数学、Python编程方面的知识
03-08 5612
作业要求：根据奖金规则，计算每位员工的奖励比例及销售奖金奖金规则：第一类方法：Excel公式法方法1：=HLOOKUP(C3,'练习6-奖金规则'!$C$3:$F$4,2,TRUE)方法2：=IF(C3>=20000,8%,IF(C3>=10000,6%,IF(C3>=5000,4%,2%)))方法3：=INDEX('练习6-奖金规则'!$C$3:$F$4,2,MATCH('练习...
Excel_VBA 向单元格输入分数
iteye_11020的博客
09-29 273
Public Sub 技巧4_127() Range("A1:A5").Clear '清除单元格数据 '输入一位分数 Range("A1").NumberFormatLocal = "?/?" Range("A1").Value = "1/3" '输入二位分数 Range("A2").NumberFormatLo
excel_VBA快速合并多表数据
12-04
自己学习VBA编程时，利用excel内VBA宏编写的简单命令，涉及一些基础的操作，亲测可用，初学者可以借鉴，也能利用其解决一些简单的办公问题。
excel数据透视表VBA搜寻多表路径.rar
05-15
excel数据透视表VBA搜寻多表路径.rar
VBA按模板填写数据拆分工作表.xlsm
最新发布
06-15
VBA按模板填写数据拆分工作表.xlsm 将数据表的每一行数据填入到模板表，然后生成一个工作表
VBA多列数据筛选输出提取表.txt
03-02
VBA多列数据筛选输出提取 数组形式，几十万数据可以快速处理完成 代码简洁
【VBA多个数据表汇总功能表】.xlsm
04-03
【VBA多个数据表汇总功能表】
VBA 比赛评分系统
06-30
基于VBA的非常好用的比赛评分系统。可以统计，汇总，排名等。
VBA代码实例---批量新建工作表模板
热门推荐
半个馒头
04-19 1万+
在工作中，经常需要用到一个操作：批量生成工作表，工作表名字指定。下面写一个VBA，希望能达成如下功能： 1、转移性好，可以直接复制使用； 2、不限制重复，并且以此排序； 3、批量新建工作表； ¤操作步骤¤ 第一步：打开工作表，并把需要新建的工作表名字放在第一列，并且A1单元格为标题； 第二步：菜单—开发工具—VisualBasic--召唤VBE（Alt+F11/Fn+Alt+F11）
vba脚本（通过模板和数据表生成多个表）
业余编程小白
02-21 1212
Attribute VB_Name = "模块" Sub 由模板生成() Attribute 由模板生成.VB_ProcData.VB_Invoke_Func = " \n14" Dim outdir As String 'outdir 输出文件目录 outdir = "D:\output\" If dir(outdir) = "" Then MkDir outdir End If If Sheets.C
20190321xlVBA_汇总表按模板生成明细表
weixin_30847271的博客
03-21 529
Public Sub 汇总表转信息表() '日期 '作者 Next 'QQ 84857038 Dim Wb, Sht, msht, NewSht, rng Set Wb = Application.ThisWorkbook Set Sht = Wb.Worksheets("Sheet2")...
VBA之正则表达式（9）-- 添加千分位（1/3）
神奇的BI
05-03 3606
环视的一个经典应用就是添加千分位，在正则表达式中有如下几种环视（断言），对于整数和小数分别创建正则表达式添加千分位。
Excel 2010 VBA 入门 061 按模板快速生成指定数量的工作表
复行数十步
04-19 2044
目录 示例 实现代码 工作表对象(Worksheet)及其表示方法 1．序号表示法 2．工作表名称表示法 3．对象名称表示法 工作表集合和工作表 工作表常用的基本属性 工作表的添加与复制 工作表对象(Worksheet)与单元格对象(Range)的关系 工作表的删除 Application. DisplayAlerts属性 示例 如图所示，该表为某公司在银行的余额汇总。现希望按照模板的格式生成若干张工作表，各工作表以银行名称作为表格名称，并将该银行信息填入表内。如何用V...
真·VBA秒算·统计学信息
Data_Python_VBA
10-29 1434
Excel-VBA求最大值，最小值，标准差，中位数，众数等等
Excel函数中求百分比
软件工程 plus 人工智能
07-05 3568
本文给大家介绍在excel中利用函数求百分比的实例。 　　下面是IT部落窝网站各栏目发布文章数量，求相关栏目发布文章占所有文章的百分之多少。 　　　　　　　　A           B           C 　　　　1　 栏目名称 　　发布数量　　 占百分比 　　　　2　 办公软件 　　21 　　　　　9% 　　　　3　 网页制作 　　39 　　　　　17% 　　　　
多个Excel表的合并计算优质资料.doc
12-01
本文主要讨论了在Excel中进行多个表的合并计算的方法和步骤。在公司内部，可能存在多个分公司或销售地区，每个分公司都有自己的销售报表和会计报表。为了全面了解整个公司的情况，需要将这些分散的数据进行合并，...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值