2021年12月8日
vba实现对人名币玩家的抽奖功能
摘要： Option ExplicitSub 玉帝恩赏迎祥纳福() Dim i%, j&, k%, fname$, l% Dim r As Range, r1 As Range, b As Workbook, r2 As Range fname = "玉帝恩赏，迎祥纳福.csv" Set b = Workb 阅读全文
posted @ 2021-12-08 10:33 orientObject 阅读(108) 评论(0) 推荐(0)
vba筛选排序
摘要： Option ExplicitSub 天地齐寿日月同庚()Dim i%, b As Workbook, fname$, j2%, j3%, j4%, j5%, k%fname = "天地齐寿，日月同庚.xls"Set b = Workbooks.Open("C:\Users\admin\Deskto 阅读全文
posted @ 2021-12-08 10:32 orientObject 阅读(642) 评论(0) 推荐(0)
vba中实现每日充值额度的筛选
摘要： Option ExplicitSub 每日充值()'要使用excel中的vba，而不能用wps！Dim i%, j%, k%, fname$, l%Dim r As Range, r1 As Range, b As Workbook, r2 As RangeDim last, money''last 阅读全文
posted @ 2021-12-08 10:30 orientObject 阅读(91) 评论(0) 推荐(0)
vba中实现排行榜二
摘要： Option ExplicitSub 跨服消费排行()Dim b As Workbook, i%Dim gem, fname''gem代表最少要消费的元宝数量,fname代表要打开的文件夹名字gem = 48888fname = "消费累计排名.csv"Set b = Workbooks.Open( 阅读全文
posted @ 2021-12-08 10:29 orientObject 阅读(144) 评论(0) 推荐(0)
vba中对活动数据实现排行榜
摘要： Option ExplicitSub 跨服顶寻消耗活动()Dim b As Workbook, i% Set b = Workbooks.Open("C:\Users\admin\Desktop\跨服顶寻消耗活动.xls") b.Activate Windows("跨服顶寻消耗活动.xls").Ac 阅读全文
posted @ 2021-12-08 10:27 orientObject 阅读(266) 评论(0) 推荐(0)
vba中对活动数据筛选统计
摘要： Option ExplicitSub 返利在手剁手不愁()Dim b As Workbook, i%, j2%, j3%, j4%, j5% Set b = Workbooks.Open("C:\Users\admin\Desktop\返利在手，剁手不愁.csv") b.Activate Windo 阅读全文
posted @ 2021-12-08 10:26 orientObject 阅读(366) 评论(0) 推荐(0)
vba中对游戏礼包的统计代码
摘要： Sub 单一礼包统计()Dim b As Workbook, i%, giftname$, count&''giftname代表要打开的文件夹名字 giftname = "三界盛典礼盒.xls" ' Set b = Workbooks.Open("C:\Users\admin\Desktop\" & 阅读全文
posted @ 2021-12-08 10:24 orientObject 阅读(86) 评论(0) 推荐(0)