VBA冷门方法整理&不完全研究

weiyingde

大灰狼1976 发表于 2019-9-28 14:59
1、Choose()
    Choose()用得很少，但能灵活运用的话能减少很多逻辑判断或多余的语句，参数可以是变量或 ...

据我使用的经验：
第二个以后的参数若是字符串，是不是长度有限制？
字符串比较短的，非常好用，而且也很正常，基本不出错；字符串若是二百多字的，是不是会出错，缩短后，又正常得风平浪静。

大灰狼1976

weiyingde 发表于 2019-10-4 07:18
据我使用的经验：
第二个以后的参数若是字符串，是不是长度有限制？
字符串比较短的，非常好用，而且也 ...

抱歉现在才回复，对CHOOSE这方面的研究不深，可能对字符串长度有255限制吧。其实用数组完全可以替代CHOOSE的。

大灰狼1976

YZC51 发表于 2019-10-1 19:28
祝您国庆节快乐！！！

自定义函数怎样操作单元格！

抱歉现在才回复！
你说的自定义函数操作单元格是什么样的操作能仔细说明一下吗，虽然不确定以我的知识能够回答。

YZC51

大灰狼1976 发表于 2019-10-11 20:34
抱歉现在才回复！
你说的自定义函数操作单元格是什么样的操作能仔细说明一下吗，虽然不确定以我的知识能 ...

不客气！比如，自定义函数改变单元格格式、边框、填写其它单元格等！

weiyingde

大灰狼1976 发表于 2019-10-11 20:32
抱歉现在才回复，对CHOOSE这方面的研究不深，可能对字符串长度有255限制吧。其实用数组完全可以替代CHOOS ...

是的，我发现可能还不知这一个函数是这样的。

YZC51

大灰狼1976 发表于 2019-10-11 20:34
抱歉现在才回复！
你说的自定义函数操作单元格是什么样的操作能仔细说明一下吗，虽然不确定以我的知识能 ...

例如：
Public Function sss(t)
    Selection.Borders.LineStyle = 1
    Selection.Borders.ColorIndex = t
    sss = ""
End Function

大灰狼1976

YZC51 发表于 2019-10-13 10:39
例如：
Public Function sss(t)
    Selection.Borders.LineStyle = 1

应该可以吧，家里没法测试，明天我试一下。

大灰狼1976

YZC51 发表于 2019-10-13 10:39
例如：
Public Function sss(t)
    Selection.Borders.LineStyle = 1

我尝试了以下两种方式，都是可以实现的。
方式1：

1. Sub test()
   
2. abc (3)
   
3. End Sub
   
4. 
   
5. Function abc(t)
   
6. Selection.Borders.LineStyle = 1
   
7. Selection.Borders.ColorIndex = t
   
8. End Function

复制代码

方式2：

1. Sub test_2()
   
2. Dim ads$
   
3. ads = Selection.Address
   
4. abc_2(ads) = 200
   
5. abc_2(ads).Borders.LineStyle = 1
   
6. End Sub
   
7. 
   
8. Function abc_2(ads$) As Range
   
9. Set abc_2 = Range(ads)
   
10. End Function

复制代码

YZC51

大灰狼1976 发表于 2019-10-14 11:41
我尝试了以下两种方式，都是可以实现的。
方式1：

谢谢老师指导！

大灰狼1976

YZC51 发表于 2019-10-14 13:12
谢谢老师指导！

老师不敢当！谢谢关注！