花间一壶酒🍄
花无语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
下一页