vba排序，在excel vba 排序中，将三列数据按照规则排序，操作语言VBA。
点击联系发帖人
时间：2016-08-05 14:45
查看: 2468|回复: 6
VBA如何才能动态的选择多列数据,并对指定的列组合进行排序？
阅读权限20
在线时间 小时
QQ截图18.jpg (27.88 KB, 下载次数: 4)
00:05 上传
大师们,请求协助,我想在sheet中,每2列数据进行排序,排序结果 互不影响,为何会报错呢？
(27.88 KB, 下载次数: 4)
00:07 上传
阅读权限95
在线时间 小时
第一行 .sort删除
阅读权限20
在线时间 小时
感谢大侠的帮助,可惜还是报错？怎么办呢？如下所示：还清大师进一步指点,,感激不尽...
QQ截图09.jpg (14.62 KB, 下载次数: 0)
21:35 上传
阅读权限20
在线时间 小时
现在上传原始附件,恳请大师进行指点,调试?感激不尽...
324324.JPG (32.62 KB, 下载次数: 6)
09:00 上传
09:01 上传
点击文件名下载附件
20.61 KB, 下载次数: 59
阅读权限95
在线时间 小时
Order1:=1代码少个1
阅读权限20
在线时间 小时
哇,怎么犯那么低级的错误啊,非常感谢大师的指点,我想顺便问一下:这里面是否有检查VBA自带的&关键字&语法的工具或者小插件啊.因为,我们这些新手,在写代码时,总是不小心就会丢三落四的...嘿嘿.如果,能有检查,并提示推荐一些关键字、词,那就完美了.
阅读权限95
在线时间 小时
这个没有，错误信息就是一种模糊提示，要善加利用
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 714|回复: 7
想把字段相同的三个EXCEL表格的数据按记录合并到一个新表中并排序,用VBA该怎么实现?
阅读权限20
在线时间 小时
本帖最后由 jdfx 于
22:38 编辑
我相把字段\格式完全相同的三个EXCEL表格中&昆东直通&工作表的记录汇总到一个新EXCEL工作表中,并按日期列进行升序排列,用VBA该怎么实现,请坛内的大虾帮助!万分感谢!资料见附件!
该贴已经同步到
22:18 上传
点击文件名下载附件
221.04 KB, 下载次数: 10
阅读权限50
在线时间 小时
& & & & & & & &
Sub 汇总()
& & Dim MyPath$, MyName$, mc$
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & [a4:k65536].ClearContents
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & mc = ThisWorkbook.Name
& & Do While MyName && &&
& && &&&r = Cells(Rows.Count, 3).End(xlUp).Row + 1
& && &&&If MyName && mc Then
& && && && &n = n + 1
& && && && &With GetObject(MyPath & MyName)
& && && && && & endrow = .Sheets(&昆东直通&).Cells(Rows.Count, 3).End(xlUp).Row
& && && && && & arr = .Sheets(&昆东直通&).Range(&b3&).Resize(endrow - 2, 11)
& && && && && & Range(&b& & r).Resize(UBound(arr), 11) = arr
& && && && && & Erase arr
& && && && && & .Close False
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Loop
& & r = Cells(Rows.Count, 3).End(xlUp).Row
& & [b4].Resize(r - 3, 11).Sort key1:=[b4], Order1:=xlAscending
& & [a4] = 1: [a5] = 2
& & [a4:a5].AutoFill Destination:=[a4].Resize(r - 3)
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
End Sub
复制代码
阅读权限50
在线时间 小时
附件》》》》
(235.28 KB, 下载次数: 20)
23:57 上传
点击文件名下载附件
阅读权限20
在线时间 小时
feiren228 发表于
附件》》》》
各工作薄里面还有一个站停超时的表，也想进行汇总，排序，代码该如何改，能对代码加一下注释就更好了，本人菜鸟，感谢了
阅读权限50
在线时间 小时
Sub hz()
& & Dim MyPath$, MyName$, mc$
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & [a2:k65536].ClearContents
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & mc = ThisWorkbook.Name
& & Do While MyName && &&
& && &&&r = Cells(Rows.Count, 3).End(xlUp).Row + 1
& && &&&If MyName && mc And MyName && &直通汇总表.xls& Then
& && && && &With GetObject(MyPath & MyName)
& && && && && & endrow = .Sheets(&站停超时&).Cells(Rows.Count, 3).End(xlUp).Row
& && && && && & If endrow = 1 Then GoTo line
& && && && && & arr = .Sheets(&站停超时&).Range(&b2&).Resize(endrow - 1, 9)
& && && && && & Range(&b& & r).Resize(UBound(arr), 9) = arr
& && && && && & Erase arr
line:
& && && && && & .Close False
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Loop
& & r = Cells(Rows.Count, 3).End(xlUp).Row
& & [b2].Resize(r - 1, 9).Sort key1:=[b2], Order1:=xlAscending
& & [a2] = 1: [a3] = 2
& & If r = 3 Then Exit Sub
& & [a2:a3].AutoFill Destination:=[a2].Resize(r - 1)
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
End Sub
复制代码
阅读权限50
在线时间 小时
附件》》》
(257.5 KB, 下载次数: 18)
17:57 上传
点击文件名下载附件
阅读权限20
在线时间 小时
& & & & & & & &
感谢大神的帮助
阅读权限50
在线时间 小时
& & & & & & & &
jdfx 发表于
感谢大神的帮助
测试》》》
(446.97 KB, 下载次数: 8)
17:11 上传
点击文件名下载附件
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师怎么自动在Excel中添加一列并按规则填入相应的值 - VBA当前位置:& &&&怎么自动在Excel中添加一列并按规则填入相应的值怎么自动在Excel中添加一列并按规则填入相应的值&&网友分享于：&&浏览：135次如何自动在Excel中添加一列并按规则填入相应的值？原表为
证券&&&&&&
- DR .&&存托
- DREQ .&&&&股票存托凭证
- USD .&&&&&&&&美元
AU&US .&&&&&&&&&&ANGLOGOLD&ASHANTI-SPON&ADR
BVN&US .&&&&&&&&&&CIA&DE&MINAS&BUENAVENTUR-ADR
EC&US .&&&&&&&&&&ECOPETROL&SA-SPONSORED&ADR
FBR&US .&&&&&&&&&&FIBRIA&CELULOSE&SA-SPON&ADR
GFI&US .&&&&&&&&&&GOLD&FIELDS<D-SPONS&ADR
GGB&US .&&&&&&&&&&GERDAU&SA&-SPON&ADR
LKOD&LI .&&&&&&&&&&LUKOIL&OAO-SPON&ADR
MNOD&LI .&&&&&&&&&&MMC&NORILSK&NICKEL&JSC-ADR
NLMK&LI .&&&&&&&&&&NOVOLIPET&STEEL-GDR®&S
OGZD&LI .&&&&&&&&&&GAZPROM&OAO-SPON&ADR
PBR&US .&&&&&&&&&&PETROLEO&BRASILEIRO&S.A.-ADR
- EQ .&&股票
- EQ01 .&&&&普通股
- AUD .&&&&&&&&澳大利亚
AMC&AU .&&&&&&&&&&AMCOR&LIMITED
BHP&AU .&&&&&&&&&&BHP&BILLITON<D
FMG&AU .&&&&&&&&&&FORTESCUE&METALS&GROUP<D
IPL&AU .&&&&&&&&&&INCITEC&PIVOT<D
NCM&AU .&&&&&&&&&&NEWCREST&MINING<D
RIO&AU .&&&&&&&&&&RIO&TINTO<D
WPL&AU .&&&&&&&&&&WOODSIDE&PETROLEUM<D
- CAD .&&&&&&&&加拿大
AEM&CN .&&&&&&&&&&AGNICO&EAGLE&MINES<D
AGU&CN .&&&&&&&&&&AGRIUM&INC
CNQ&CN .&&&&&&&&&&CANADIAN&NATURAL&RESOURCES
证券&&&&&&
- DR .&&存托 DR
- DREQ .&&&&股票存托凭证 DR
- USD .&&&&&&&&美元 DR
AU&US .&&&&&&&&&&ANGLOGOLD&ASHANTI-SPON&ADR DR 共&3&页:
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有输入a,b,c三个数，按照从大到小次序排序 用VBA编程做_百度知道
输入a,b,c三个数，按照从大到小次序排序 用VBA编程做
t = bPrivate Sub UserForm_Activate()
a = Val(TextBox1;>.Text)
If a <.Text)
c = Val(TextBox3.Text)
b = Val(TextBox2; & Str(b) & ": b = t
If a <: c = t
If b & & Str(a)
End Sub这个编程做出来排序是0>: c = t
TextBox4; b Then
t =0&& c Then
t =&>: a = c.Text = Str(c) & ": b = c: a = b
提问者采纳
t As SingleDim a1;>, bPrivate Sub CommandButton1_Click()D", & b1 & ", b1; b Then
End IfEnd IfTextBox4;& b Thent = aa = bb = tEnd IfIf c & a Thena1 = cb1 = ac1 = b
If c <.Textc = TextBox3.Textb = TextBox2, c1 As Singlea = TextBox1.Text = a1 & ".TextIf a &"
来自团队：
其他类似问题
为您推荐：
vba的相关知识
其他3条回答
变量t 没有定义
应该怎么定义啊
integer（整型）dim b
integerdim c
integerdim t
你是所有的变量都没定义，系统默认为0
我在家userform里说当前范围内的申明重复
求完整的编码
其一：你的程序小于号&&&要全都变成大于号&&&或者大于号&&&全改成小于号&&&这样你的逻辑和结果才正确其二：不知道你的a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)是否有问题，我vba中，我没见过这种写法，我是基于excel中的vba，当然这个写法在vb中成立三：建议你把Private Sub UserForm_Activate()改掉，基本上问题出在这写个private sub aa()
写上上面的逻辑
end sub再用command_click控件执行
可不可以基于我的编码改进下发完整的给我
在vb用可以有excel中也可以但你的vba环境我不好说以下为vb中环境画控件text1,text2,text3,text4和按钮command1控件Private function aa(byval x as integer,byval y as integer,byval z as integer)dim a,b,c,t
If a & b Then
t = a: a = b: b = t
If a & c Then
t = a: a = c: c = t
If b & c Then
t = b: b = c: c = t
Text4.Text = Str(c) & &&& & Str(b) & &&& & Str(a)
End functionprivate sub command1_click()aa text1.text,text2.text,text3.textend sub
Private Sub UserForm_Activate()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a = b And b = c Then
TextBox4.Text = Str(a) & &=& & Str(b) & &=& & Str(c)
If a = b Or b = c And a && c Then
If a & c Then
TextBox4.Text = Str(a) & &=& & Str(b) & &&& & Str(c)
TextBox4.Text = Str(c) & &&& & Str(b) & &=& & Str(a)
If a = c Then
If a & b Then
TextBox4.Text = Str(a) & &=& & Str(c) & &&& & Str(b)
TextBox4.Text = Str(b) & &&& & Str(a) & &=& & Str(c)
If a & b Then
这个做出来是0=0=0
你是需要0&0&0的输出结果？ 以下就是没有等号的排序输出啦。例如2&2&0
0&0&0Private Sub UserForm_Activate()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a = b And b = c Then
TextBox4.Text = Str(a) & &&& & Str(b) & &&& & Str(c)
Exit SubElseIf a = b Or b = c And a && c ThenIf a & c Then
TextBox4.Text = Str(a) & &&& & Str(b) & &&& & Str(c)
TextBox4.Text = Str(c) & &&& & Str(b) & &&& & Str(a)
Exit SubEnd IfElseIf a = c ThenIf a & b Then
TextBox4.Text = Str(a) & &&& & Str(c) & &&& & Str(b)
Exit Sub Else
TextBox4.Text = Str(b) & &&& & Str(a) & &&& & Str(c)
End IfElse
If a & b Then
t = a: a = b: b = t
If a & c Then
t = a: a = c: c = t
If b & c Then
t = b: b = c: c = t
TextBox4.Text = Str(a) & &&& & Str(b) & &&& & Str(c)
End If End IfEnd If
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}
VBA如何才能动态的选择多列数据,并对指定的列组合进行排序？
阅读权限20
在线时间 小时
QQ截图18.jpg (27.88 KB, 下载次数: 4)
00:05 上传
大师们,请求协助,我想在sheet中,每2列数据进行排序,排序结果 互不影响,为何会报错呢？
(27.88 KB, 下载次数: 4)
00:07 上传
阅读权限95
在线时间 小时
第一行 .sort删除
阅读权限20
在线时间 小时
感谢大侠的帮助,可惜还是报错？怎么办呢？如下所示：还清大师进一步指点,,感激不尽...
QQ截图09.jpg (14.62 KB, 下载次数: 0)
21:35 上传
阅读权限20
在线时间 小时
现在上传原始附件,恳请大师进行指点,调试?感激不尽...
324324.JPG (32.62 KB, 下载次数: 6)
09:00 上传
09:01 上传
点击文件名下载附件
20.61 KB, 下载次数: 59
阅读权限95
在线时间 小时
Order1:=1代码少个1
阅读权限20
在线时间 小时
哇,怎么犯那么低级的错误啊,非常感谢大师的指点,我想顺便问一下:这里面是否有检查VBA自带的&关键字&语法的工具或者小插件啊.因为,我们这些新手,在写代码时,总是不小心就会丢三落四的...嘿嘿.如果,能有检查,并提示推荐一些关键字、词,那就完美了.
阅读权限95
在线时间 小时
这个没有，错误信息就是一种模糊提示，要善加利用
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 714|回复: 7
想把字段相同的三个EXCEL表格的数据按记录合并到一个新表中并排序,用VBA该怎么实现?
阅读权限20
在线时间 小时
本帖最后由 jdfx 于
22:38 编辑
我相把字段\格式完全相同的三个EXCEL表格中&昆东直通&工作表的记录汇总到一个新EXCEL工作表中,并按日期列进行升序排列,用VBA该怎么实现,请坛内的大虾帮助!万分感谢!资料见附件!
该贴已经同步到
22:18 上传
点击文件名下载附件
221.04 KB, 下载次数: 10
阅读权限50
在线时间 小时
& & & & & & & &
Sub 汇总()
& & Dim MyPath$, MyName$, mc$
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & [a4:k65536].ClearContents
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & mc = ThisWorkbook.Name
& & Do While MyName && &&
& && &&&r = Cells(Rows.Count, 3).End(xlUp).Row + 1
& && &&&If MyName && mc Then
& && && && &n = n + 1
& && && && &With GetObject(MyPath & MyName)
& && && && && & endrow = .Sheets(&昆东直通&).Cells(Rows.Count, 3).End(xlUp).Row
& && && && && & arr = .Sheets(&昆东直通&).Range(&b3&).Resize(endrow - 2, 11)
& && && && && & Range(&b& & r).Resize(UBound(arr), 11) = arr
& && && && && & Erase arr
& && && && && & .Close False
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Loop
& & r = Cells(Rows.Count, 3).End(xlUp).Row
& & [b4].Resize(r - 3, 11).Sort key1:=[b4], Order1:=xlAscending
& & [a4] = 1: [a5] = 2
& & [a4:a5].AutoFill Destination:=[a4].Resize(r - 3)
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
End Sub
复制代码
阅读权限50
在线时间 小时
附件》》》》
(235.28 KB, 下载次数: 20)
23:57 上传
点击文件名下载附件
阅读权限20
在线时间 小时
feiren228 发表于
附件》》》》
各工作薄里面还有一个站停超时的表，也想进行汇总，排序，代码该如何改，能对代码加一下注释就更好了，本人菜鸟，感谢了
阅读权限50
在线时间 小时
Sub hz()
& & Dim MyPath$, MyName$, mc$
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & [a2:k65536].ClearContents
& & MyPath = ThisWorkbook.Path & &\&
& & MyName = Dir(MyPath & &*.xls&)
& & mc = ThisWorkbook.Name
& & Do While MyName && &&
& && &&&r = Cells(Rows.Count, 3).End(xlUp).Row + 1
& && &&&If MyName && mc And MyName && &直通汇总表.xls& Then
& && && && &With GetObject(MyPath & MyName)
& && && && && & endrow = .Sheets(&站停超时&).Cells(Rows.Count, 3).End(xlUp).Row
& && && && && & If endrow = 1 Then GoTo line
& && && && && & arr = .Sheets(&站停超时&).Range(&b2&).Resize(endrow - 1, 9)
& && && && && & Range(&b& & r).Resize(UBound(arr), 9) = arr
& && && && && & Erase arr
line:
& && && && && & .Close False
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Loop
& & r = Cells(Rows.Count, 3).End(xlUp).Row
& & [b2].Resize(r - 1, 9).Sort key1:=[b2], Order1:=xlAscending
& & [a2] = 1: [a3] = 2
& & If r = 3 Then Exit Sub
& & [a2:a3].AutoFill Destination:=[a2].Resize(r - 1)
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
End Sub
复制代码
阅读权限50
在线时间 小时
附件》》》
(257.5 KB, 下载次数: 18)
17:57 上传
点击文件名下载附件
阅读权限20
在线时间 小时
& & & & & & & &
感谢大神的帮助
阅读权限50
在线时间 小时
& & & & & & & &
jdfx 发表于
感谢大神的帮助
测试》》》
(446.97 KB, 下载次数: 8)
17:11 上传
点击文件名下载附件
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师怎么自动在Excel中添加一列并按规则填入相应的值 - VBA当前位置:& &&&怎么自动在Excel中添加一列并按规则填入相应的值怎么自动在Excel中添加一列并按规则填入相应的值&&网友分享于：&&浏览：135次如何自动在Excel中添加一列并按规则填入相应的值？原表为
证券&&&&&&
- DR .&&存托
- DREQ .&&&&股票存托凭证
- USD .&&&&&&&&美元
AU&US .&&&&&&&&&&ANGLOGOLD&ASHANTI-SPON&ADR
BVN&US .&&&&&&&&&&CIA&DE&MINAS&BUENAVENTUR-ADR
EC&US .&&&&&&&&&&ECOPETROL&SA-SPONSORED&ADR
FBR&US .&&&&&&&&&&FIBRIA&CELULOSE&SA-SPON&ADR
GFI&US .&&&&&&&&&&GOLD&FIELDS<D-SPONS&ADR
GGB&US .&&&&&&&&&&GERDAU&SA&-SPON&ADR
LKOD&LI .&&&&&&&&&&LUKOIL&OAO-SPON&ADR
MNOD&LI .&&&&&&&&&&MMC&NORILSK&NICKEL&JSC-ADR
NLMK&LI .&&&&&&&&&&NOVOLIPET&STEEL-GDR®&S
OGZD&LI .&&&&&&&&&&GAZPROM&OAO-SPON&ADR
PBR&US .&&&&&&&&&&PETROLEO&BRASILEIRO&S.A.-ADR
- EQ .&&股票
- EQ01 .&&&&普通股
- AUD .&&&&&&&&澳大利亚
AMC&AU .&&&&&&&&&&AMCOR&LIMITED
BHP&AU .&&&&&&&&&&BHP&BILLITON<D
FMG&AU .&&&&&&&&&&FORTESCUE&METALS&GROUP<D
IPL&AU .&&&&&&&&&&INCITEC&PIVOT<D
NCM&AU .&&&&&&&&&&NEWCREST&MINING<D
RIO&AU .&&&&&&&&&&RIO&TINTO<D
WPL&AU .&&&&&&&&&&WOODSIDE&PETROLEUM<D
- CAD .&&&&&&&&加拿大
AEM&CN .&&&&&&&&&&AGNICO&EAGLE&MINES<D
AGU&CN .&&&&&&&&&&AGRIUM&INC
CNQ&CN .&&&&&&&&&&CANADIAN&NATURAL&RESOURCES
证券&&&&&&
- DR .&&存托 DR
- DREQ .&&&&股票存托凭证 DR
- USD .&&&&&&&&美元 DR
AU&US .&&&&&&&&&&ANGLOGOLD&ASHANTI-SPON&ADR DR 共&3&页:
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有输入a,b,c三个数，按照从大到小次序排序 用VBA编程做_百度知道
输入a,b,c三个数，按照从大到小次序排序 用VBA编程做
t = bPrivate Sub UserForm_Activate()
a = Val(TextBox1;>.Text)
If a <.Text)
c = Val(TextBox3.Text)
b = Val(TextBox2; & Str(b) & ": b = t
If a <: c = t
If b & & Str(a)
End Sub这个编程做出来排序是0>: c = t
TextBox4; b Then
t =0&& c Then
t =&>: a = c.Text = Str(c) & ": b = c: a = b
提问者采纳
t As SingleDim a1;>, bPrivate Sub CommandButton1_Click()D", & b1 & ", b1; b Then
End IfEnd IfTextBox4;& b Thent = aa = bb = tEnd IfIf c & a Thena1 = cb1 = ac1 = b
If c <.Textc = TextBox3.Textb = TextBox2, c1 As Singlea = TextBox1.Text = a1 & ".TextIf a &"
来自团队：
其他类似问题
为您推荐：
vba的相关知识
其他3条回答
变量t 没有定义
应该怎么定义啊
integer（整型）dim b
integerdim c
integerdim t
你是所有的变量都没定义，系统默认为0
我在家userform里说当前范围内的申明重复
求完整的编码
其一：你的程序小于号&&&要全都变成大于号&&&或者大于号&&&全改成小于号&&&这样你的逻辑和结果才正确其二：不知道你的a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)是否有问题，我vba中，我没见过这种写法，我是基于excel中的vba，当然这个写法在vb中成立三：建议你把Private Sub UserForm_Activate()改掉，基本上问题出在这写个private sub aa()
写上上面的逻辑
end sub再用command_click控件执行
可不可以基于我的编码改进下发完整的给我
在vb用可以有excel中也可以但你的vba环境我不好说以下为vb中环境画控件text1,text2,text3,text4和按钮command1控件Private function aa(byval x as integer,byval y as integer,byval z as integer)dim a,b,c,t
If a & b Then
t = a: a = b: b = t
If a & c Then
t = a: a = c: c = t
If b & c Then
t = b: b = c: c = t
Text4.Text = Str(c) & &&& & Str(b) & &&& & Str(a)
End functionprivate sub command1_click()aa text1.text,text2.text,text3.textend sub
Private Sub UserForm_Activate()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a = b And b = c Then
TextBox4.Text = Str(a) & &=& & Str(b) & &=& & Str(c)
If a = b Or b = c And a && c Then
If a & c Then
TextBox4.Text = Str(a) & &=& & Str(b) & &&& & Str(c)
TextBox4.Text = Str(c) & &&& & Str(b) & &=& & Str(a)
If a = c Then
If a & b Then
TextBox4.Text = Str(a) & &=& & Str(c) & &&& & Str(b)
TextBox4.Text = Str(b) & &&& & Str(a) & &=& & Str(c)
If a & b Then
这个做出来是0=0=0
你是需要0&0&0的输出结果？ 以下就是没有等号的排序输出啦。例如2&2&0
0&0&0Private Sub UserForm_Activate()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a = b And b = c Then
TextBox4.Text = Str(a) & &&& & Str(b) & &&& & Str(c)
Exit SubElseIf a = b Or b = c And a && c ThenIf a & c Then
TextBox4.Text = Str(a) & &&& & Str(b) & &&& & Str(c)
TextBox4.Text = Str(c) & &&& & Str(b) & &&& & Str(a)
Exit SubEnd IfElseIf a = c ThenIf a & b Then
TextBox4.Text = Str(a) & &&& & Str(c) & &&& & Str(b)
Exit Sub Else
TextBox4.Text = Str(b) & &&& & Str(a) & &&& & Str(c)
End IfElse
If a & b Then
t = a: a = b: b = t
If a & c Then
t = a: a = c: c = t
If b & c Then
t = b: b = c: c = t
TextBox4.Text = Str(a) & &&& & Str(b) & &&& & Str(c)
End If End IfEnd If
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}
我要回帖
更多推荐
- ·深夜为何容易emoemo文案,句句戳心窝
- ·苹果手机用什么软件可以免费看斗罗大陆苹果版下载？
- ·淘宝采集软件网安卓版软件介绍
- ·拼多多拼成功了是每个人都有吗多人团怎么拼团成功？
- ·怎么能进入百度竞价代运营公司后台?
- ·笔记本电脑ie仲裁协议无效效
- ·怎样怎么去人肉一个人人
- ·谁有嫁个老公过日子百度云电视剧全集，加百度云分享下吧。
- ·为什么联想s810t玩游戏老是弹出任务栏时老是跳出任务栏
- ·把TPLINK的路由器当主路由，把腾达n301v2路由器设置当副路由咋设置？
- ·有知道佳芯颜黛颜堂颜如玉创始人人的吗，他好像是一个微商，谁有他的微信？
- ·下载了2个微信还是说本年度微信限额20万
- ·龙的华工图像怎么样样?
- ·现在高通骁龙410怎么样+2GBRAM的手机会卡吗？
- ·微信三级网络分销平台可靠吗是什么？怎么加盟？怎么赚钱？可靠吗？
- ·像网上快3投注站在哪里这样的在哪里啊？？
- ·电动缝纫机断线顶线摆的断线是什么问题?
- ·公司有好全面两孩政策宣传标语没人信咋办
- ·qq照片墙有没有比较叼一些的
- ·vba排序，在excel vba 排序中，将三列数据按照规则排序，操作语言VBA。
- ·威的力电宝怎样风力充电宝
- ·我想开通夜间流量包的流量包。怎么哦弄？
- ·陌生人把我添加到如微信，我没有添加他，如何查看对方的微信号/手机号可以给陌生人吗？
- ·autocad autocadelectricall2010序列号和密钥谁给个正确的
- ·有三期内必开四肖 网站网站给我说一下
- ·我手机连上Wi-Fi但是没网、突然你就这样突然的出现的。
- ·征播奏捷传webox网络机顶盒如何
- ·我的手手机系统坏了怎么修复,自己能修复吗?
- ·中国电信红米2电信版没有信号号怎么回事
- ·ae软件如何把日文改日文翻译成中文软件
- ·百度一下左边有锁有锁机怎么解锁
- ·求悠然见田园百度云田居札记 百度云
- ·台式联想y900台式机黒屏出现二行英文怎么办
- ·百度知道怎么赚财富值上，别人要财富值。是单纯的分，还是暗指现金的多少？
