花间一壶酒🍄的个人资料 - RAT

花间一壶酒🍄 花无语1982

关注数: 114 粉丝数: 221 发帖数: 6,674 关注贴吧数: 15

VBA 单元格输入公式老是出现@这个符号，如何解决，谢谢大家主要是公式里座，输入不进去，LOOKUP(""座""）在加个双引号就可以了，但是会出现@ SUB SS Dim s As String s = "LET(A,TAKE(入库!$A$5:$B$10000,MATCH(LOOKUP(""座"",入库!$A:$A),入库!$A:$A)-4,2),B,TAKE(出库!$A$14:$B$10000,XLOOKUP(LOOKUP(""座"",出库!$A$14:$A$10000),出库!$A$14:$A$10000,ROW($14:$10000),,,-1)-13,2),GROUPBY(INDEX(VSTACK(A,B),,1),INDEX(VSTACK(A,B),,2),SUM,,-1))" Sheet5.Range("a1").Formula = "=" & s END SUB

这个动态工作表名称不好用吗百度贴吧官网

用函数能生成吗，大佬么

公式还能简化吗，谢谢大佬们

这个第二个参数能用数组吗，大佬们！！！谢谢

大佬们，还有其他公式代替吗？谢谢！！！

，这个函数现在用的啥问题没有，关闭工作簿，再打开就变成#VALUEL了，反复多次了！到底哪里出问题了

word如何用vba 清空表格某一个区域的内容 word里又没有resize,不想循环所有单元格，速度慢。想了几天了。清空灰色区域，谢谢啦

这个计算对的吗？算人的年月日的 TEXT(DATEDIF(E8,TODAY(),"d"),"YY岁mm月dd日")，比如2023-06-01到今天，计算结果是00岁01月08日，它是天数/366算的吗？

Wps函数有长度限制吗？百思不得其解不加len就好了，加了len或者其他任何函数都提示公式错误

正则求助，谢谢啊 268*250(100MM) ，需要提取268和250 （）里的不要。\d+\.?\d+

提取数据，思路找不到，请大神帮助下呢 TEXTJOIN(CHAR(10),1,IFERROR(VLOOKUP(T(IF(1,MID(D1,IF(MID(CHAR(10)&D1,ROW($1:$100),1)=CHAR(10),ROW($1:$100),""),2))),A1:B5,2,0),""))

钉钉函数问题 if("合格"="合格"，1，0)一直报错，钉钉函数设计的一塌糊涂

想弄个质检管理系统，要不要学习ACCESS 呢，有点纠结！

有个工作软件，只能通过下拉菜单选择,有办法用按键精灵吗？无法黏贴，按键精灵 sendstring 也用不上，有啥思路？

弄了半天。发现一个问题，请大神指教下呢! 3个编辑框，输入数字时，每次输入法都要切换成数字，好麻烦呢

这函数感觉写复杂了，有没有大神有简单点的公式阿！

这个函数怎么写的，谢谢！

python 在实际工作中有啥作用，想学点东西，每天无聊，王者抖音

谁会网抓数据，网址不变，点击按钮，数据发生变化！以前会，忘了有点小报酬！

python 好玩吗？闲着也是闲着，想多学点主要是问下，这个能解决工作中啥问题？

去EXCELHOME 第一题就不会做，郁闷

问个代码思路，大神们看看呢，有没有更加快的方法

常量数组过长，如何分行呢? 10f和11F 老是连在一起，求助大神们 Sub ss() Dim arr arr = Array("1f", "2f", "3f", "4f", "5f", "6f", "7f", "8f", "9f", "10f" & _ "11f", "12f", "13f", "14f", "15f", "16f", "17f", "18f", "19f", "20f", "21f", "22f", "23f", "24f", "25f", "26f", "27f", "28f", "29f", "30f", "31f", "32f", "33f", "34f", "35f") For i = 0 To UBound(arr) MsgBox arr(i) Next End Sub

如何快速加双引号，并用逗号隔开呢，求助大神们！几个手动添加，几十个呢，有没有快捷方法呢，函数能搞定这个么？

循环播放音乐，只播放一次就结束了！问题在哪，大神们 for 5 call 音乐路径 next 很短的代码，就是播放一次

遍历某目录下所有文件夹里的文件，请大神给个思路呢，谢谢！是不是DO DO LOOP LOOP ,这样啊，里面的DO loop 跳出来是不是EXIT DO ，我试了半天没搞定

后台鼠标左键单击，是不是bug，都没任何反应

如何获得子窗口的句柄我的父窗口里，一层套着一层子窗口，我要找第7层子窗口的句柄，只有一个套一个的方法吗？FINDEX

不玩了，出的都是什么题目，好玩的基本没有

网抓动态数据，有偿

获取网抓数据，AJAX 点击单选按钮，表格数据更新！微信红包50元

网抓数据，以前可以的.20元微信小红包，谢谢！我用的WPS Sub dd() Dim http Set http = CreateObject("Microsoft.XMLHTTP") http.Open "POST", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fchart.cp.360.cn%2Fzst%2Fssccq%2F%3F&urlrefer=ea688b0410799fe709a2063859aa9392 lotId=255401&chartType=dww5&spanType=0&span=1500&r=0.8655962816095906#roll_132", False http.send "" If http.Status = 200 Then Range("a1") = http.responseText End If End Sub

无法获得网页数据，以前好的 Sub dd() Dim http Set http = CreateObject("Microsoft.XMLHTTP") http.Open "POST", "http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fbaike.so.com%2Fdoc%2F2508820-2651079.html&urlrefer=f6a7309a5e9f7cbb1cd64e0bf0d32f96", False http.send "" If http.Status = 200 Then Range("a1") = http.responseText End If End Sub

网页抓取数据失败，请大神看一下吧，8个月没搞VBA了 Sub dd() Dim http Set http = CreateObject("Microsoft.XMLHTTP") http.Open "POST", "http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fbaike.so.com%2Fdoc%2F2508820-2651079.html&urlrefer=f6a7309a5e9f7cbb1cd64e0bf0d32f96", False http.send "" If http.Status = 200 Then Range("a1") = http.responseText End If End Sub

别了，EXCEL贴吧最近由于家里出了事情，我将永远离开百度贴吧了，一直很享受解题的快乐！再见了，秦时明月汉时圆，黄河3000，吃饭别玩手机等朋友，吧主，向你偷学了不少东西呢，再见了朋友们！

这是文件转PDF的代码，命名PDF时，提示错误。请各位大神指教一下 Sub DD() Sheet1.Select T = Time Range("A1:D54").Select ActiveWindow.SmallScroll Down:=-48 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Documents and Settings\Administrator\桌面\" & T & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

1 下一页