萌萌爸爸 魂淡若风
关注数: 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 下一页