ColorDict词典下载

词典下载
[url]http://abloz.com/huzheng/stardict-dic/[/url]

下载后用winrar解压,将同名的3个文件(*.dict.dz, *.idx, *.ifo)复制到/sdcard/dictdata下即可。
关闭程序后再次打开会自动装载词典索引。
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是VBA代码实现上述需求的示例代码: ``` Sub SortByColor() Dim ws2 As Worksheet Set ws2 = ThisWorkbook.Sheets("Sheet2") Dim lastRow As Long lastRow = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row Dim colorDict As Object Set colorDict = CreateObject("Scripting.Dictionary") Dim colorIndex As Long colorIndex = 1 Dim color As Variant For i = 2 To lastRow color = ws2.Cells(i, "B").Interior.Color If Not colorDict.Exists(color) Then colorDict.Add color, colorIndex colorIndex = colorIndex + 1 End If Next i Dim newWb As Workbook Dim newWs As Worksheet Dim fileRoot As String fileRoot = ThisWorkbook.Path & "\" For Each color In colorDict.keys Set newWb = Workbooks.Add Set newWs = newWb.Sheets(1) newWs.Name = "Sheet1" newWb.SaveAs Filename:=fileRoot & color & ".xlsx" For i = 2 To lastRow If ws2.Cells(i, "B").Interior.Color = color Then ws2.Rows(i).Copy newWs.Rows(newWs.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1) End If Next i newWs.Rows(1).Value = ws2.Rows(1).Value newWb.Save Dim outlookApp As Object Set outlookApp = CreateObject("Outlook.Application") Dim outlookMail As Object Set outlookMail = outlookApp.CreateItem(0) With outlookMail .To = color .Subject = color .Body = "Please find the attached file." .Attachments.Add fileRoot & color & ".xlsx" .Send End With Set outlookMail = Nothing Set outlookApp = Nothing Next color End Sub ``` 该代码会遍历WS2的所有行,根据B列的颜色创建新的工作簿,并且将相同颜色的行复制到新的工作簿中。然后,该代码会使用Outlook应用程序创建并发送电子邮件,其中每个颜色都会生成一个电子邮件,并且附件将是以该颜色命名的工作簿。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值