精易论坛

标题: LibXL4.2排序求解 [打印本页]

---

作者: 9902187    时间: 2025-6-22 00:10
标题: LibXL4.2排序求解
请大神指点一下libxL4.2的排序写法,屡试不成功

Snipaste_2025-06-22_00-06-44.png (7.56 KB, 下载次数: 3)

下载附件

2025-6-22 00:08 上传

4.2版的EC

---

作者: b0y    时间: 2025-6-22 00:17


4.2没用过  这个是3.9x的

---

作者: 9902187    时间: 2025-6-22 00:28

b0y 发表于 2025-6-22 00:17
4.2没用过  这个是3.9x的

里面的命令不一样, 原理应该是一样的,我再试试看

---

作者: 小路陆    时间: 2025-6-22 01:01
感谢分享

---

作者: APPLEUFO    时间: 2025-6-22 01:11

  

子程序名	返回值类型	公开	备 注
快速排序_代码之美_拷贝用			小到大   参数L 填写第一个成员，U 填写最后一个成员 （数组，1，取数组成员（数组）的样子）、、000001   拷贝用
参数名	类 型	参考	可空	数组	备 注
参数_数组	数据报				.. 000002  类型注意修改成合适的
参数_左	整数型				左
参数_右	整数型				右

变量名	类 型	静态	数组	备 注
n1	整数型
m	整数型			基准

如果真 (参数_左 ≥ 参数_右)
返回 ()

交换变量 (参数_数组 [参数_左], 参数_数组 [取随机数 (参数_左, 参数_右)])
m ＝ 参数_左
变量循环首 (参数_左 ＋ 1, 参数_右, 1, n1)  ' 这里是 i++ 的意思
如果真 (参数_数组 [n1] ＞ 参数_数组 [参数_左])  ' ....  000003     从大到小如果真 ()如果真 ()
m ＝ m ＋ 1  ' -            ++x 是要先加，然后再使用，x++ 则是先用X，然后再加1
交换变量 (参数_数组 [m], 参数_数组 [n1])

变量循环尾 ()
交换变量 (参数_数组 [参数_左], 参数_数组 [m])
快速排序_代码之美_拷贝用 (参数_数组, 参数_左, m － 1)
快速排序_代码之美_拷贝用 (参数_数组, m ＋ 1, 参数_右)

.版本 2<br /> <br /> .子程序 快速排序_代码之美_拷贝用, , , 小到大   参数L 填写第一个成员，U 填写最后一个成员 （数组，1，取数组成员（数组）的样子）、、000001   拷贝用  <br /> .参数 参数_数组, 数据报, 数组, .. 000002  类型注意修改成合适的<br /> .参数 参数_左, 整数型, , 左<br /> .参数 参数_右, 整数型, , 右<br /> .局部变量 n1, 整数型<br /> .局部变量 m, 整数型, , , 基准<br /> <br /> <br /> .如果真 (参数_左 ≥ 参数_右)<br />     返回 ()<br /> .如果真结束<br /> <br /> 交换变量 (参数_数组 [参数_左], 参数_数组 [取随机数 (参数_左, 参数_右)])<br /> <br /> m ＝ 参数_左<br /> .变量循环首 (参数_左 ＋ 1, 参数_右, 1, n1)  ' 这里是 i++ 的意思<br /> <br />     .如果真 (参数_数组 [n1] ＞ 参数_数组 [参数_左])  ' ....  000003     从大到小如果真 ()如果真 ()<br />         m ＝ m ＋ 1  ' -            ++x 是要先加，然后再使用，x++ 则是先用X，然后再加1<br />         交换变量 (参数_数组 [m], 参数_数组 [n1])<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> 交换变量 (参数_数组 [参数_左], 参数_数组 [m])<br /> <br /> <br /> 快速排序_代码之美_拷贝用 (参数_数组, 参数_左, m － 1)<br /> 快速排序_代码之美_拷贝用 (参数_数组, m ＋ 1, 参数_右)

把这改成你那个就是快速排序了
要修改的就是0001-03  三个地方

---

作者: 9902187    时间: 2025-6-22 01:17

b0y 发表于 2025-6-22 00:17
4.2没用过  这个是3.9x的

非常感谢提供的思路, 没有使用  XL筛选 ＝ XL工作表.取自动筛选 (),而直接使用的,XL筛选.添加列排序 (0, ) 怪不得不行.

---

作者: 豆豆灰常开心    时间: 2025-6-22 07:08
全都是大佬~

---

作者: 查过    时间: 2025-6-22 07:12
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: 一指温柔    时间: 2025-6-22 08:54
感谢分享

---

作者: a1533759138    时间: 2025-6-22 09:18
感谢分享

---

作者: 1184798949    时间: 2025-6-22 10:03
感谢分享

---

作者: a657938016    时间: 2025-6-22 15:54
感谢分享  精易有你更精彩

---

作者: 9902187    时间: 2025-6-22 20:16

APPLEUFO 发表于 2025-6-22 01:11
[e=2].版本 2

.子程序 快速排序_代码之美_拷贝用, , , 小到大   参数L 填写第一个成员，U 填写最后一个成 ...

感谢回复,你这个不是libxL吧

---

作者: lxn2wyf    时间: 2025-6-22 21:00
先点评加好评再送精币的说，真不错的做法！

---

作者: ttggnn    时间: 2025-6-22 21:16

感谢分享

---

作者: kike    时间: 2025-6-22 21:48
[ 本帖最后由 kike 于 2025-6-24 12:41 编辑 ]\n\n[ 本帖最后由 kike 于 2025-6-24 12:40 编辑 ]\n\n[ 本帖最后由 kike 于 2025-6-24 11:35 编辑 ]\n\n

  

变量名	类 型	静态	数组	备 注
book	XL工作簿类
sheet	XL工作表类
filter	XL自动筛选类

book.打开文件 (取运行目录 () ＋ “\测试读入表.xlsx”)
sheet ＝ book.选择工作表 (0)
filter ＝ sheet.取自动筛选 ()
filter.置自动筛选区域 (0, 0, sheet.结束使用行 ()-1, 0)  ' sheet.结束使用行 () 这个增加了一行！必须从0计算！
filter.置列排序 (0, 真)
sheet.置自动筛选 ()
book.保存文件 (“test123.xlsx”)  
book.释放 ()

.版本 2<br /> <br /> .局部变量 book, XL工作簿类<br /> .局部变量 sheet, XL工作表类<br /> .局部变量 filter, XL自动筛选类<br /> <br /> book.打开文件 (取运行目录 () ＋ “\测试读入表.xlsx”)<br /> sheet ＝ book.选择工作表 (0)<br /> filter ＝ sheet.取自动筛选 ()<br /> filter.置自动筛选区域 (0, 0, sheet.结束使用行 ()-1, 0)  ' sheet.结束使用行 () 这个增加了一行！必须从0计算！<br /> filter.置列排序 (0, 真)<br /> sheet.置自动筛选 ()<br /> book.保存文件 (“test123.xlsx”)  <br /> book.释放 ()

1.png (32.3 KB, 下载次数: 0)

下载附件

2025-6-22 21:51 上传

排序前

2.png (32.58 KB, 下载次数: 0)

下载附件

2025-6-22 21:51 上传

排序后

---

作者: 豆豆灰常开心    时间: 2025-6-23 07:18
感谢楼主分享！

---

作者: 查过    时间: 2025-6-23 07:23
全都是大佬~

---

作者: cunanhai    时间: 2025-6-23 16:21

kike 发表于 2025-6-22 21:48
[ 本帖最后由 kike 于 2025-6-23 08:20 编辑 ]\n\n[ 本帖最后由 kike 于 2025-6-22 21:52 编辑 ]\n\n[e=3]. ...

我这测试的时候 运行到 sheet.置自动筛选 () 就自动结束了....不知道是不是模块问题

---

作者: kike    时间: 2025-6-23 17:01

cunanhai 发表于 2025-6-23 16:21
我这测试的时候 运行到 sheet.置自动筛选 () 就自动结束了....不知道是不是模块问题 ...

excel.rar (1.25 MB, 下载次数: 3)

2025-6-24 12:57 上传

点击文件名下载附件
已修正
下载积分: 精币 -2 枚

---

作者: 豆豆灰常开心    时间: 2025-6-24 07:13
感谢楼主分享！

---

作者: 查过    时间: 2025-6-24 07:17
全都是大佬~

---

作者: please    时间: 2025-6-26 09:37
感谢分享，支持开源！！！

---

作者: bbks    时间: 2025-7-3 18:52
libxL4.2，要不要钱，需不需要注册啊

---

作者: 胖子葛格    时间: 2025-7-5 09:48
感谢大神分享~！

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4