自动生成一列不重复数据库

Private Sub Worksheet_Activate()Dim d As Object
Dim arr
Dim x As Integer
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("a2:a" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row)
For x = 1 To UBound(arr)
d(arr(x, 1)) = ""
Next
Sheets("Sheet2").SelectRange("C2").SelectWith Selection.Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(d.keys, ",")'.Add 3, 1, 1, Join(d.keys, ",")End WithEnd Sub

posted on 2018-12-13 17:18 junior_one 阅读(...) 评论(...) 编辑收藏

转载于:https://www.cnblogs.com/wangzj12/p/10115216.html

自动生成一列不重复数据库相关推荐

WPF ListView中自动生成的列
目录介绍为什么我们在这里使用情况其他可选的视觉样式 ColWidth属性 ColSort属性 ColCellTemplate属性另一种样式选项--排序箭头颜色代码属性排序装饰器 Aut ...
如何：从 Windows 窗体 DataGridView 控件中移除自动生成的列
如果将 DataGridView 控件设置为根据其数据源中的数据自动生成列,则可以选择忽略某些列.可以通过调用 Columns 集合的 Remove 方法进行此操作.或者,也可通过将 Visible ...
Oracle 自动生成标识列, 比如订单编号,学生ID
Oracle 自动生成标识列, 比如订单编号,学生ID
JPA学习笔记---JPA实体Bean的建立+配置文件+junit测试+自动生成(对应实体Bean的)数据库表+插入数据
2013-02-03 1.第一个JPA:JPA的配置文件的配置 a.新建web项目:JPATest b.在src目录下新建META-INF文件夹 c.在META-INF文件夹下:新建 persis ...
在Reporting Services (RDL)中自动生成大量列
目录包含大量列的RDL文件背景设置使用代码包含大量列的RDL文件使用自动化无法创建包含大量列的SSRS报告.至少我能够找到.因此,在本文中,我将分享一些编写的代码,这些代码可以使用现有的S ...
mysql根据两列去重复_mysql对两列去重复数据库
{"moduleinfo":{"card_count":[{"count_phone":1,"count":1}],&q ...
如何使 Mysql自动生成序号列，序号自动增长
在Oracle中有ROWNUM 这个功能,可以很方便的得到序列号.但是Mysql中始终没有实现这个功能的函数,那当我们需要的时候该怎么处理呢? 使用Msyql的自定义变量 1. 自定义变量放在F ...
MyBatis 3 自动生成主键针对不同的数据库（oracle/sqlserver/mysql）
MyBatis自动生成的主键很多数据库支持自动生成主键的数据类型.不过这通常(并不总是)是个私有的特性.SQL Map 通过<insert>的子元素<selectKey>来支持 ...
wpf datagrid自动生成列时特殊字符转换
DataGrid控件可以根据DataTable自动生成行和列,但是如果列名包括一些特殊字符:'.','\','/','[',']','(',')'的时候,会出现无法显示出数据或者显示DataRowVi ...
Oracle自动生成ID，自动编号，自增补零填充
问题在pl/sql中,需将某个查询结果插入到一个新表tableNameA中时,如何通过sql自动生成ID列,且形如:ID0001,ID0002,ID0003--. 解决方案 insert into ...

自动生成一列不重复数据库

自动生成一列不重复数据库相关推荐

最新文章

热门文章