大家都在搜：
扫描二维码安装房天下APP
手机浏览器访问房天下
> > 问题详情
100分麻烦高手修改Excel VBA排序代码,谢谢。
麻烦高手修改VBA排序代码，要求是：条件1：对以**班文命名的工作表总分1为降序排序；条件2：对以**班文命名的工作表总分2为降序排序。表中的排序代码无法正确排序，特请高手帮忙。请用VBA语句，不要用宏。谢谢。
浏览次数：0
手机动态登录
请输入用户名/邮箱/手机号码！
请输入密码！
没有房天下通行证，
ask:2,asku:1,askr:42,askz:16,askd:7,RedisW:0askR:1,askD：71 mz:nohit,askU:0,askT:0askA:73
Copyright &
北京拓世宏业科技发展有限公司
Beijing Tuo Shi Hong Ye Science&Technology Development Co.,Ltd 版权所有
违法信息举报邮箱：EXCELVBA学习笔记_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
EXCELVBA学习笔记
&&基础性的东西,对学习有帮助的
阅读已结束，下载文档到电脑
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩30页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢Excel VBA 为什么 End With没有with？程序如下_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
Excel VBA 为什么 End With没有with？程序如下
Private Sub CommandButton1_Click()
Dim n As Integer
If UserForm1.TextBox1.Text = && Then
MsgBox &请输入&
TextBox1.SetFocus
Set rng = Sheet1.[b:b].Find(TextBox1.Text, , , 1)
If Not rng Is Nothing Then
r = rng.Row
我有更好的答案
IF 条件 Then 语句 这个结构要在同行你现在的结构需要End IF来结束，编译程序在没有看到ENDIF的时候遇到了END With，所以认为不嵌套
采纳率：76%
来自团队：
.OptionButton1;&quot.Text
.OptionButton2.Cells(r;.Cells(r, 5) = TextBox5.Cells(r, 3) = TextBox3.TextIf UserForm1; ThenMsgBox &quot.SetFocusExit SubEnd IfSet rng = Sheet1.[b.Value = Ture Then
.Cells(r, 4) = &女&quot.TextBox1.Text = &修改成功&quot.Value = Ture Then
.Cells(r, 4) = &男&quotPrivate Sub CommandButton1_Click()Dim n As IntegerIf UserForm1; If UserForm1, 6) = TextBox6.TextMsgBox &quot:b].Find(TextBox1.Text, 1)If Not rng Is Nothing Thenr = rng.RowWith Sheet1
.Cells(r, 1) = TextBox2, ;请输入&TextBox1;End IfEnd IfEnd WithElseMsgBox &无此人&quot
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包Excel2010VBA语法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Excel2010VBA语法
网优工程师|
总评分4.3|
浏览量9271
用知识赚钱
&&Excel2010VBA语法基础
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩6页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢5098被浏览321320分享邀请回答3.4K148 条评论分享收藏感谢收起26232 条评论分享收藏感谢收起查看更多回答}