VBA根据单元柜名称对板件名称排序

zhangmy66 · 发表于 2024-9-1 22:00

本帖最后由 zhangmy66 于 2024-9-4 20:00 编辑

根据单元柜名称对板件名称排序，板件名称柜1 柜2 的部件顺序是乱的，把柜1的部件放一起，柜2的部件放一起，会有柜3，柜4，柜5这样的情况，

这样VBA能处理不

ykcbf1100 · 发表于 2024-9-3 08:44

我没理解错的话，应该是工作表排序吧

附件供参考。。。

zhangmy66 · 发表于 2024-9-1 22:21

VBA根据单元柜名称对板件名称排序

闻启学 · 发表于 2024-9-1 22:25

Excel 里面有个自定义排序可以按照你设置排序

zhangmy66 · 发表于 2024-9-1 22:31

闻启学发表于 2024-9-1 22:25
Excel 里面有个自定义排序可以按照你设置排序

左边单元柜的顺序不变，板件名称上下调整，估计实现不了

Qs18 · 发表于 2024-9-1 23:29

Sub qs()
Dim conn
  Dim rs
  Dim strConn As String, SQL As String
  Set conn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  If Application.Version < 12 Then
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
  Else
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
  End If
  conn.Open strConn & ThisWorkbook.FullName
  SQL = "select * from [电子锯开料单$a3:n] order by 板件名称 desc"
  rs.Open SQL, conn, 1, 2
With Sheet2
.Range("A4").Resize(10000, 14).ClearComments
      .Range("A4").CopyFromRecordset rs
      .Cells.EntireColumn.AutoFit
End With
Beep
  rs.Close
  conn.Close
  Set rs = Nothing
  Set conn = Nothing
End Sub

Qs18 · 发表于 2024-9-1 23:29

试试............

Qs18 · 发表于 2024-9-1 23:30

试试........

zhangmy66 · 发表于 2024-9-2 22:25

Qs18 发表于 2024-9-1 23:30
试试........

这个条件1 单元柜名称顺序打乱了

zhangmy66 · 发表于 2024-9-2 22:30

Qs18 发表于 2024-9-1 23:30
试试........

这个库还不能运行，需要下载什么

		自动登录	找回密码
密码			免费注册

[已解决] VBA根据单元柜名称对板件名称排序

评分

评分

评分