易语言操作EXCEL的模块

ttt0410 · 发表于 2017-4-17 09:17:22

jneyxwry 发表于 2017-3-23 14:55
请问如何设置列宽？

我给了代码的吧？

ttt0410 · 发表于 2017-4-17 09:16:28

石门e客发表于 2017-3-28 22:30
感谢分享，有一个问题一直困扰我，希望大神解救：Excel表格数据设置为自定义hh：mm：ss，读入后变成了0.235 ...

没太懂，举例？

ttt0410 · 发表于 2017-4-17 09:14:48

Yakusoku 发表于 2017-4-4 22:36
感谢楼主的模块，让我减少了许多工作量，请问下该如何筛按条件选表格数据呢？我工作地的表格随便一张都是上 ...

自己加
.版本 2

.子程序置筛选, , 公开
.参数单元格区域, 文本型
.参数工作表序号, 整数型, 可空, 不填就是当前表
.参数第几列被筛选, 整数型, 可空, 默认为1，为单元格区域中第几列被筛选，如A:B中筛选B列，就填2
.参数筛选的文本, 文本型, 可空, 空为取消筛选
.参数与文本2是和还是或, 整数型, 可空, 1是和，2是或
.参数筛选的文本2, 文本型, 可空
.局部变量 Range, 对象

' EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域).查看 ()
.如果真 (是否为空 (工作表序号))
工作表序号＝取当前活动工作表索引 ()
.如果真结束

Range ＝ EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域)

.如果真 (第几列被筛选＝ 0)
第几列被筛选＝ 1
.如果真结束

.如果 (是否为空 (筛选的文本))
Range.对象型方法 (“AutoFilter”, )
.否则
.如果 (是否为空 (筛选的文本2))
      Range.对象型方法 (“AutoFilter”, 第几列被筛选, 筛选的文本)
.否则
      Range.对象型方法 (“AutoFilter”, 第几列被筛选, 筛选的文本, 与文本2是和还是或, 筛选的文本2)
.如果结束

.如果结束

.子程序置筛选高级筛选, , 公开
.参数单元格区域, 文本型
.参数被粘贴到的区域, 文本型, 可空, 如果是新位置，那么新位置在哪
.参数工作表序号, 整数型, 可空, 不填就是当前表
.参数高级筛选结果是放在原位置还是新位置, 整数型, 可空, 原位置是1，新位置是2，默认新位置
.参数高级筛选条件区域, 文本型, 可空, 请注意高级筛选条件区域的用法，如行为序号 1 2 1 2 1 筛选出1，那么条件区域为序号 1。如果想要筛选出不重复的选项，这里可以填空
.参数筛选结果是否重复, 文本型, 可空, 即同样的结果只显示一次还是所有的都显示，需要重复就填重复，不填或者其他都是不重复
.局部变量 Range, 对象

' EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Range”, “A1:A10”).查看 ()
.如果真 (是否为空 (工作表序号))
工作表序号＝取当前活动工作表索引 ()
.如果真结束

.如果真 (是否为空 (高级筛选结果是放在原位置还是新位置))
高级筛选结果是放在原位置还是新位置＝ 2

.如果真结束
' EXCEL.读属性 (“Range”, 开始查找单元格, )
.如果 (是否为空 (筛选结果是否重复) ＝真)
筛选结果是否重复＝ “True”
.否则
.如果 (筛选结果是否重复＝ “重复”)
      筛选结果是否重复＝ “False”
.否则
      筛选结果是否重复＝ “True”
.如果结束

.如果结束

Range ＝ EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域)
.判断开始 (是否为空 (高级筛选条件区域) ＝真)
Range.通用方法 (“AdvancedFilter”, 高级筛选结果是放在原位置还是新位置, , EXCEL.读属性 (“Range”, 被粘贴到的区域, ), 筛选结果是否重复)
.默认
Range.通用方法 (“AdvancedFilter”, 高级筛选结果是放在原位置还是新位置, EXCEL.读属性 (“Range”, 高级筛选条件区域, ), EXCEL.读属性 (“Range”, 被粘贴到的区域, ), 筛选结果是否重复)