![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
niulity
ORACLE SQL优化 算法
展开
-
EXCEL的搜索扩展-图形中搜索
原创: 牛超2009-06-04OSAKA EXCEL本身的搜索功能有限,如何定位到图形中的文字,工作中的问题。试验了半天,解如下: find string from shapes in the worksheets with diagrams Function findInShape(str As String, Optional ByVal sel As Bool原创 2009-06-04 15:38:00 · 1328 阅读 · 0 评论 -
EXCEL遍历当前SHEET有效行,统计附值
原创: 牛超2009-05OSAKA 自动生成批处理名,规则为JOBID前三位+流水号如题,放置按钮,遍历行,统计JOBID数,设置结果值代码如下:Private Type job jobid As String cnt As IntegerEnd TypeDim job(100) As jobPrivate Sub CommandButton1_Cli原创 2009-06-12 10:15:00 · 4052 阅读 · 0 评论 -
Excel VBA Range对象基本操作应用示例(转贴,实用参考)
Excel VBA Range对象基本操作应用示例 作者:jiesoft 日期:2008-01-24比较全面,有的东西我还没有用过,收集了,大家一起学习下.[示例01] 赋值给某单元格[示例01-01] Sub test1()Worksheets("Sheet1").Range("A5").Value = 22MsgBox "工作表Sheet1内单元格A5中的值为" _& Work转载 2009-06-12 10:33:00 · 3086 阅读 · 0 评论 -
抽取并列表当前SHEET图框中的描述,制表符取代回车。
抽取图形中的文字,前面文章有提到,关注一下EXCEL中一个单元中的回车符Chr10而非CHR13CHR10 放置文本框,按钮,单击事件代码如下: Private Sub CommandButton1_Click()Dim strret(1) As StringDim strget, strtmp, strdd As Stringstrret(0) = ""strret(1)原创 2009-06-12 10:21:00 · 1187 阅读 · 0 评论 -
EXCEL中使用VBA取有效使用区域
原创: 牛超2009-06OSAKA 如题,修改原来的脚本,引用UsedRange Private Sub fillvalueauto(astr As String, curRow As Long)Dim svalue As StringDim sbatname As StringDim spgid As StringDim sbatnamew As StringDim i A原创 2009-06-17 09:20:00 · 5245 阅读 · 0 评论 -
根据EXCEL文件各数据表结构定义中创建ER图实体对象
原创: 牛超2008-06-17OSAKA 又要整理EXCEL文档了。。。如题,遍历EXCEL各SHEET(表定义),创建实体对象(框图),设置字体与间距。脚本如下: Option ExplicitPrivate Sub CommandButton1_Click() createRectsEnd SubPrivate Sub createRects()原创 2009-06-17 14:33:00 · 5414 阅读 · 0 评论