记得写好需求并提供附件表格，方便测试
练练手免得忘记

EXCEL功能有限只适合3000行以下文件计算
有大量文件和记录推荐acess保存数据，通过ado提取数据然后做计算。
10W+行高端用户上python
vba实现最最基本功能，用其他语言重制。
一定要附录表格，减少沟通成本
事情比较多，不保证时效哈。

帮顶！好人！

二楼收了

好人一生平安

EXCEL真的是，一段时间不用，就忘了怎么用

我刚好有个需求，不知道楼主可否帮忙写一个？
写服务器巡查表，应付检查用的，里面有一列类似这样的单元格：
C盘26G，E盘2G，F盘25G，G盘280G，H盘740G，I盘137G，J盘43G
这是记录硬盘使用情况。
服务器很多，每台的硬盘分区也不尽相同。要每个周期都写一份，全部去查肯定做不到。
现在打算这样，每一台定一个初始的数值，以后每次根据初始值发生个随机变化，变化范围10%，越接近初始值几率越高，这样让每次的数值都不一样就可以了

你如果是要求直接在操作系统，自动读取盘符和硬盘容量的话要看操作系统Vba对除win系统外的系统操作支持有限，如果你是说仅仅只是要个虚假的随机表格应付检查 那没问题

当然是假的，应付检查用的，做样子的
C盘35G，D盘59G
C盘35G，D盘33G
C盘26G，D盘88G
C盘26G，D盘140G
C盘38G，D盘142G，E盘785G
C盘42G，D盘45G，E盘216G
C盘42G，D盘62G
C盘49G，E盘19G
C盘27G，D盘1G
C盘26G，E盘2G，F盘25G，G盘280G，H盘740G，I盘137G，J盘43G
C盘27G，D盘66G
C盘39G，E盘162G
C盘34G，D盘44G
C盘19G，D盘30G
C盘19G，D盘35G
C盘27G，D盘171G
C盘28G，D盘206G


比如这样，以后每次都跟这个数值上发生点变化

lookup(rand(),{0,1.2;0.5,1.4;0.8,1.5,0.9,1.6;0.95,1.7})*A27
1.2倍盘增加量几率50%，1.4倍盘增加量30%，1.5倍盘增加量10%，1.6倍增加量几率10%，1.7倍增加量几率5%

基本函数法就是这个基本技术，你根据自己要求细微调整就可以

好的，谢谢~！

楼主好人

楼主好人 ，前排出售黄牛号～

前排占位

话说我想写一个随机生成装备，并且“穿戴”（替换）到指定孔位的模拟器~

Pandas不香吗？

站个位置

我站个前排

字典随机配对 发附件过来

vba练练手 直接python了

楼主好人阿

大佬 excel连接sqlserver和oracle查询有的搞么 ？
我按网上教的连接了一下oracle 每次进excel里都需要查询而且需要输入账户密码
能不能实现 打开excel后 自动完成预定sql的查询 也不需要每次都输入账户密码

用EXCEL链接ACESS 把密码用户名 用vba语句 可以实现自动登录 当时甲骨文的数据库没试过 要看看登录接口api

sqlserve是可以的

Vba连oracle我现在是装客户端用ado连接，用户名密码直接写在cnn open的user id 和password，前提是得在net manager中配置好服务命名

workbook的open事件丢进去不就可以打开运行了嘛

有什么excel vba交流的群么？

熟练 高手

排个队。。。

前排支持，先占座，工作中经常需要VBA

请教一下大佬；
有一个表格可以在2007使用，到了2016版本就无法使用了；
需求不是太复杂的，就是输入公式出结果；
但是公式可以忽略文字，比如说“今天19+明天20”，结果是39；

七八年前用VBA写过一个代码自动生成器
早就忘光了

正好问问大佬

表格b1的数据是 每天的数值不一样1
表格B2的数据是固定的B1的数加上不固定数2

我能不能把表格B2的值默认锁定成
=B1+
然后只要点击B2直接输数就行

现在是到B2上我的手动把每天的数不一样2选上才能填数

不知道大佬懂没懂我的意思

请教一下，能否互查到xx月xx日是当年的第几天。
比如2020年11月25日是2020年的第几天？2020年的第325天是几月几日？
纯属小白，不对题的话请忽略。

制作一个按键 或者快捷键，按一下完成功能如下：
复制目标单元格 上一行 的B至E列单元格内容到目标单元格所在行的对应列单元格内，完成后目标单元格定位到下一行A列。。不要简单下拉，谢谢大佬！

去年过年我花了几百块没搞定跨多个表格数据集合的工作。楼主能帮忙搞定的话，支付茶水费

估计是没找对人。。。vba收集数据还是很简单

帮顶，大好人

有需求
execl一个表复制同一列几个数据到另外一个表 复制粘贴后来个一键随机打乱顺序

楼主好人

赞一个

2007版本的vb是6.0版本，2016的版本是VB7.2
基本上这种版本好不同的代码要通用的话，要把简写的对象变量补全，默认VB常数也可能有变化，对变量逐个进行调试
功能简单还是比较好处理的

额，自动做资料?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = Range("b2").Address(0, 0) Then
Target = Target.Value + Range("B1").Value
End If

End Sub

表格发来，

插个队 。

插个眼看看

感谢 感谢

有表样 我想学习一下

我都是随用随查资料写一下代码，以前用R的感觉这类语言都是很直观可以理解，就像你在和计算机对话一样，告诉他做什么就行了。

=DATEDIF(DATE(YEAR(A1),1,1),A1,"d")

=DATE(YEAR(TODAY()),1,0)+A1