原文:https://blog.csdn.net/zutsoft/article/details/45441343 编程往往与数据库密不可分,一个项目往往有很多的表,很多时候通过excel来维护表结构,记录表名,字段,类型,注释等等信息,将表结构整理到excel已经是件很累的事了,如果整理好的表结构只是用来查字段当字典用,那就太浪费了,excel提供vba编程,我们可以通过一段小脚本来实现一键创建表结构.使用脚本创建的语句需要标准化每个sheet页的格式,格式根据自己需要来做,这里给出我使用的格…

※変数の定義を強制する方法: 一番上に.「Option Explicit」を追加して.変数の定義が必須となる. ソース Private Sub CommandButton2_Click() //スクリーンのロック Application.ScreenUpdating = False //異常の発生の場合.「TheEnd」へ移動 On Error GoTo TheEnd '----↓----変数定義----↓----' Dim xlTmpBook As Excel.Workbook Dim thi…

源码: Sub m() For i = 1 To 100 ActiveSheet.PrintOut copies:=1 Cells(1, 1) = Sheets(2).Cells(i, 1) Next End Sub…

最大行: Range("B" & Cells.Rows.Count).End(xlUp).Row 最大列 colu = Range("XFD2").End(xlToLeft).ColumnstrColu = Num2Name(colu) [VBA]列号与字母(列名)的相互转换 (自定义函数)…

[说明] 随机数.生成2个随机数m.n,取值范围为1~R.1~C Randomize m = )) + ) ' 1~R Random Int Randomize n = )) + ) ' 1~C Random Int…

[说明] B2开始到B?(中间不能有空格),定义一维数组Arr_approver() Dim R_sh As Worksheet Set R_sh = ThisWorkbook.Sheets("result") approver_row = R_sh.Range("B2").End(xlDown).Row Arr_approver = R_sh.Range()) For k = LBound(Arr_approver) To UBound(Arr_approver)…

[说明] Do While……Loop循环,遍历某列 i = Do While Trim(T_sh.Cells(i, NOTESID_COL)) <> "" If T_sh.Cells(i, KEY_COL) = "KEY" Then End If i = i + Loop…

[说明] 标准Sub/Function定义,带ScreenUpdating.On Error GoTo Sub AutoFillRole() '--------------- ERROR MSG------------------------------ On Error GoTo errorhandle: 'On Error Resume Next '--------------- ERROR MSG------------------------------ Application.Scre…

[说明] 全局数组定义(写在Module的最上面) 'Array Public Arr_approver Public Arr_delegator Public Arr_Role…

[说明] 全局常量定义 Public Const RESULT_SHEET As String = "result" Public Const APPROVER_START_CELL As String = "B2"…