萌萌爸爸
魂淡若风
关注数: 35
粉丝数: 59
发帖数: 1,968
关注贴吧数: 69
跪求大佬帮助 当A1等于完成日期时,B1显示ok。当A1等于中文字符时,B1显示A1的中文字符,A1为空时则用今天日期减去申请日期得到的天数
跪求大神帮忙 当A1等于完成日期时,B1显示ok。当A1等于中文字符时,B1显示A1的中文字符,A1为空时则用今天日期减去申请日期得到的天数到B2
有兄弟上游戏了吗?还在更新吗?
大佬,求个代码 在表一鼠标左键点击A列某行后,触发宏把所在行的值或者字符引用或者复制粘贴到表2的b2单元格内,百度了一下午了,没能搞定,有大佬帮帮我吗?
大佬,求代码 在表一鼠标左键点击A列某行后,触发宏把所在行的值或者字符引用或者复制粘贴到表2的b2单元格内,有大佬帮帮我吗?
vba 复制问题 下面是代码,代码中是复制TRUE行所在的整行数据,能帮忙改成TRUE所在行的B:I列吗?感谢Sub CopyTrueRowsToSheet2() Dim wsSource As Worksheet: Set wsSource = ThisWorkbook.Worksheets("查找,复制整行") Dim wsTarget As Worksheet: Set wsTarget = ThisWorkbook.Worksheets("Sheet2") ' 找到最后一行 lRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row For i = 1 To lRow If UCase(Trim(wsSource.Range("A" & i).Value)) = "TRUE" Then rowToCopy = i Exit For End If Next ' 如果找到符合条件的行,则执行复制和粘贴操作 If rowToCopy > 0 Then wsSource.Rows(rowToCopy).Copy wsTarget.Rows(2).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False MsgBox "已将 Sheet1 中第 " & rowToCopy & " 行复制并粘贴到 Sheet2。", vbInformation, "提示" Else MsgBox "未找到要复制的行。", vbCritical, "错误" End If End Sub
下面是代码,代码中是复制TRUE行所在的整行数据,能帮忙改成TRUE所在行的B:I列吗?感谢Sub CopyTrueRowsToSheet2() Dim wsSource As Worksheet: Set wsSource = ThisWorkbook.Worksheets("查找,复制整行") Dim wsTarget As Worksheet: Set wsTarget = ThisWorkbook.Worksheets("Sheet2") ' 找到最后一行 lRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row For i = 1 To lRow If UCase(Trim(wsSource.Range("A" & i).Value)) = "TRUE" Then rowToCopy = i Exit For End If Next ' 如果找到符合条件的行,则执行复制和粘贴操作 If rowToCopy > 0 Then wsSource.Rows(rowToCopy).Copy wsTarget.Rows(2).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False MsgBox "已将 Sheet1 中第 " & rowToCopy & " 行复制并粘贴到 Sheet2。", vbInformation, "提示" Else MsgBox "未找到要复制的行。", vbCritical, "错误" End If End Sub
求助宏 求大神赐宏
求助宏 大神们求助啊,帮忙写个宏
数值调节按钮控件问题 怎么设置步进,能让数值1,5,10,15,20这样的调节呢,求大神支招
求助,求大佬赐教 在公式中添加A列没有值的B列不显示NO,显示空白 。=IF(COUNTIF(A:A,A2)>1,"YES","NO"),感谢各位大佬
求助大佬重复值公式 当A列有重复值,则在B列最后一个重复值显示yes,没有重复值的在B列显示no,感谢各位大佬了
大哥们求教 会有别的问题吗?
有大神给看看这是什么软件画的吗?
大神帮忙解决下问题,拜托了 红圈内是单独的拉伸,为啥和旁边的一体了,渲染会和剪头那边一个颜色,拜托了
求助,感谢各位大佬 🎉🎉🎉🎉🎉🎉 🎉💐 求助 💐🎉 🎉🎉🎉🎉🎉🎉
公司竟然备了这玩意,谁想试试?
雪图?我雪图呢?
有没有大佬,带我一把小岛 让我可以买个虎鲸
6级萌新,来人一起玩
有大佬知道第五中心医院下午几点下班吗?下班了还能拿验血报告吗 有大佬知道第五中心医院下午几点下班吗?下班了还能拿验血报告吗
萌新自强的有吗? 来几人一起自强!!!!
新人有一起玩的吗 新人有一起玩的吗
小苍云找个师父 小苍云找个师父
你们能玩吗
有一起吃鸡的吗
今天有被红衣军打了的吗?一群智障!! 今天有被红衣军打了的吗?一群智障!!
河口哪个网吧可以吃鸡!!!单排0杀吃鸡镇楼!可加id一起玩
如梦令-沧海月明-招各种亲友,所有装备按本职业优先roll,459499296企鹅群!镇楼抱各位大腿!!!
?? ??
彩笔一个,有歪歪一起玩的吗?7-10级车!
上下班有搭车的吗?免费 工农村到宏泰工业园(村元附近,顺路也可以带),1-2位,仅限女生!上8下16:30,单程也带!
04-19【水贴】来新手一起浪 5-7级车,我这俩人
818试炼本黑装备的纯阳 打完直接退组,黑了装备还理直气壮!各位团长注意啦!
开服有来帮会本的吗 来.8各种,支持双开!
出周年特效称号(傲岸)及宠物 只用金交易,3.5万称号,宠物都拿走!
收波亲友固定打本 十人及帮会本的,不用入帮也能打
五级中恶帮会收帮回本成员及同盟 每周可开十人弄装备
十观风教学团来各种 20:00开打,来各种
周日十人观风教学团来各种
周六有想开荒十人的吗 来各种.75选手
有想学纯招架t的苍云吗
白帝水宫4=1来1治疗 开服就打!带好开服监控!!白帝水宫4=1来1治疗,已有神喵T,1.8以上双天策,苍云!!
周四25英雄八连教学团来各种 要求非洞洞1.5万
皇宫,地瓜,烛龙来各种黑
来可以一起打本,或者一起做成就的小伙伴
1.5万出直升丸子,有两个
接飞狐面具,翼翻羽,月骐马具,代刷夜话白鹭!
帮会密境招收指挥以及团圆
收pve亲传徒弟
明天十人教学团来力道,身法,元气
收人!收人!!收人!!!
接夜话白鹭,黑天等代刷
中恶有一起同盟帮会秘境的吗
求個四級左右的中惡pve 同盟幫會,共同發展
來個中惡四級pve 幫會一起發展
95团本来不会打,想学习的小伙伴
求可以奔现的情缘
收徒 我黑本还是挺红的
来个纯任务满级代练
1
下一页