求助VBA代码

冰冰189 · 发表于 2024-5-9 18:44

麻烦那位老师能否将附表的信息转为VBA代码，非常感谢，详见附件，由于公式太慢了想通过VBA实现。

1、将A单元格的G1T07441，分列到B单元格，提取G1后面的T07441到B单元格.
2、需判断，当提取的字符大于6的时候不显示。
3、将A单元格的G1T07441，提取前2位，G1到C单元格里面。

4、K单元格引用B单元格的值，当B单元格长度等于6个人字符的时候，提取到K单元格来。
5、K单元格显示有字符或者数值的时候，L单元格显示日期

6、当L列显示日期的时候需统计当日的计数，当为奇数（如：1、3、5、7）的时候显示上班时间到M单元格来。
7、当L列显示日期的时候需统计当日的计数，当为偶数的时候（如：2、4、6、8）的时候显示下班时间，到N单元格。

使用触发事件

冰冰189 · 发表于 2024-5-9 18:54

这2条感觉有点难度

6、当L列显示日期的时候需统计当日的计数，当为奇数（如：1、3、5、7）的时候显示上班时间到M单元格来。
7、当L列显示日期的时候需统计当日的计数，当为偶数的时候（如：2、4、6、8）的时候显示下班时间，到N单元格。

shiruiqiang · 发表于 2024-5-9 18:57

6和7就mod 2判断

冰冰189 · 发表于 2024-5-9 19:02

shiruiqiang 发表于 2024-5-9 18:57
6和7就mod 2判断

老师人工能帮忙，可以帮忙写一下，谢谢！6和7需要根据当天的日期判断计数，然后在以奇偶数判断，获取到单元格时间，

冰冰189 · 发表于 2024-5-9 19:03

如果6和7难度高了，不写6和7也可以

shiruiqiang · 发表于 2024-5-9 19:05

m\n时间没看见

shiruiqiang · 发表于 2024-5-9 19:06

就mid、right、len、mod几个函数

冰冰189 · 发表于 2024-5-9 19:08

shiruiqiang 发表于 2024-5-9 19:05
m\n时间没看见

M/N就是需要L列的日期做计数统计做判断，奇偶数，当为奇数（如：1、3、5、7）的时候显示上班时间到M单元格来，当为偶数的时候（如：2、4、6、8）的时候显示下班时间，到N单元格。

冰冰189 · 发表于 2024-5-9 19:09

现在是用的函数，函数多了就是太卡了，看能否用BVA代码使其不卡顿。

shiruiqiang · 发表于 2024-5-9 19:23

本帖最后由 shiruiqiang 于 2024-5-9 19:25 编辑

很多数据没有，大致的写法

		自动登录	找回密码
密码			免费注册

[求助] 求助VBA代码

评分

浏览过的版块