vba oracle 查询数据字典,VBA 数据字典编程求助 - Excel VBA开发 - Excel精英培训网

楼主要求太麻烦，这样就行了吧

Sub xx()

Dim i%

Dim aa

Set d = CreateObject("Scripting.Dictionary")

Sheets("sheet1").Select

aa = [a1:e23]

For i = 1 To 23

If InStr(aa(i, 5), "品") > 0 Then

If aa(i, 1) <> "卖主A" Then aa(i, 1) = "国内"

aa(i, 5) = Mid(aa(i, 5), InStr(aa(i, 5), "品"), (InStr(aa(i, 5), "牌") - InStr(aa(i, 5), "品")) + 2)

d(aa(i, 1) & "_" & aa(i, 5)) = d(aa(i, 1) & "_" & aa(i, 5)) + aa(i, 2)

Else

d(aa(i, 1)) = aa(i, 5)

End If

Next i

Sheets("sheet2").[a1].Resize(d.Count) = Application.Transpose(d.keys)

Sheets("sheet2").[b1].Resize(d.Count) = Application.Transpose(d.items)

Set d = Nothing

End Sub

vba oracle 查询数据字典,VBA 数据字典编程求助 - Excel VBA开发 - Excel精英培训网 - Powered by Discuz!...相关推荐

excel调用python编程-用Python如何开发Excel宏脚本？新手必学
今天介绍一个叫 xlpython 的库,通过它我们可以用 Python 来开发 Excel 的宏脚本,真正实现在 Excel 中调用 Python. 基本环境操作系统:Windows 10 x64 ...
oracle查询和编写数据字典
在项目交付时如果需要编写数据字典,可以采用下面的方法,首先运行下面的sql语句 SELECT A.TABLE_NAME AS 表名,A.COLUMN_NAME AS 字段名,DECODE(A.CHAR ...
oracle查询哪些数据未压缩,求助大佬：向压缩表插入数据，压缩未生效
该楼层疑似违规已被系统折叠隐藏此楼查看此楼建表语句: create table ODS_M_ACC_BILL(month_id varchar2(6),...) compress PARTITIO ...
偏移变色lisp_渐进式多重偏移，见图片效果 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 偏移 - Powered by Discuz!...
本帖最后由荒野孤行于 2015-6-23 19:28 编辑渐进式多重偏移,图片效果如下: 附上源码: ;;; *****多重偏移程序开始***** (defun c:dcpy () (setv ...
LISP统计圆弧数量_统计圆数量并列表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 统计 - Powered by Discuz!...
想得到的效果: 1 框选图形,能统计所有圆的数量并列表. 2 圆的右下角以字母标记. 相同半径的圆分别以 A1,A2,A3,命名.以此类推. 不同半径的以B1,C1,,,,,表示. 3.要能过滤圆弧, ...
标注界址点号lisp_动态引线标注（改版） - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 动态 - Powered by Discuz!...
本帖最后由 958620832 于 2013-10-16 12:01 编辑兄弟贴:动态引线标注 http://bbs.mjtd.com/forum.php?mod=viewthread&ti ...
Oracle查询用户权限角色(dba_sys_privs)
Oracle查询用户权限数据字典 1.动态数据字典是以v$xxx开始的数据字典,在数据库中约有150个左右,这些数据字典反映数据库动态运行状况,在不同时间查询会得到不同的结果. 2.DBA数据字典是 ...
VBA各种查询方法介绍和应用举例
目录前言 1 Range对象的Find方法 2. Range 对象的 Filter 方法 2.1 AutoFilte自动筛选 2.2 AdvancedFilter 高级筛选 3.Instr 函数 4 ...
Excel VBA 链接 Oracle数据库
标题前言准备第一步远程数据库的准备第二步本地免安装客户端下载 1.下载基本包 1.1 包下载地址 1.2 网盘下载地址 2.配置oracle 网络文件 2.1tnsnames.ora 文件 ...

vba oracle 查询数据字典,VBA 数据字典编程求助 - Excel VBA开发 - Excel精英培训网 - Powered by Discuz!...

vba oracle 查询数据字典,VBA 数据字典编程求助 - Excel VBA开发 - Excel精英培训网 - Powered by Discuz!...相关推荐

最新文章

热门文章