首页 威武短视频文章正文

vba教程下载(郑广学vba教程下载)

威武短视频 2022年06月06日 09:36 111 威武短视频

目前应该是有很多小伙伴对于vba教程下载方面的信息比较感兴趣，现在小编就收集了一些与郑广学vba教程下载相关的信息来分享给大家，感兴趣的小伙伴可以接着往下看，希望会帮助到你哦。

安全生产过程中要随时进行隐患排查和治理工作，防止事故发生，这是安全生产的一个重点项目，是落实安全生产，安全第一，预防为主的主导思想的具体体现。

vba教程下载(郑广学vba教程下载)

那么我们在生产当中如何来进行隐患排查和治理工作呢！一些企业往往不知道从何入手，特别是一些新建企业，各类管理制度和执行工作都不到位，出现了许多安全漏洞。

隐患排查就是把这些漏洞补起来，更好地避免各类隐患事故发生。


隐患排查是整合生产过程中一个连续工作，无论生产是否正常进行，各类隐患的存在是不可避免的，只有解决了所有可能存在的安全隐患，才能做到安全生产。

制定隐患排查表，逐项检查，然后对各项存在的问题，按照问题严重性来进行分步处理，之后的生产工作就到了一个相对安全的状态。但是，也不能就此放松，因为，隐患排查是个动态过程，只要存在运行设备，就有可能出现安全问题。

各类制定的建设是保障整个企业整体平稳运行的前提，所以一般来说，检查要从制度开始，如果制度都有建立，那么生产一线就是一种无章无法状态，就不用看了，好也不会到什么地方。所以，制度要完善，所谓的没有规矩不成方圆，就这是个道理。

添加代码

Private Sub CommandButton1_Click()On Error Resume NextApplication.ScreenUpdating = FalseDim w As WorksheetDim iRow As Integer, iCol As IntegerDim R As Range, rang As RangeSet w = Worksheets("隐患治理记录")w.ActivateiRow = 2iCol = w.Range("A1").End(xlToRight).Column''''''''' 定义添加行Dim xValue()ReDim xValue(1 To iCol)Dim xobj As ObjectDim e As IntegerFor Each xobj In Me.Controls    If TypeName(xobj) = "ComboBox" Then           e = CInt(VBA.Replace(xobj.Name, "C", ""))            If e = 1 Then                xValue(e) = "=row()-1"            Else                xValue(e) = xobj.Value            End If    End IfNext xobjw.Rows(iRow).InsertSet rang = w.Range(Cells(iRow, 1), Cells(iRow, iCol))rang = xValueThisWorkbook.SaveMsgBox "添加成功！", vbInformation, "提示"End SubPrivate Sub CommandButton2_Click()Unload MeEnd Sub

窗体代码

Private Sub UserForm_Initialize()On Error Resume NextApplication.ScreenUpdating = FalseDim s As Worksheet, w As WorksheetDim iRow As Integer, iCol As IntegerDim R As Range, rang As RangeSet s = Worksheets("设置")Set w = Worksheets(s.Range("K3").Value)w.Activate iRow = w.Range("A65535").End(xlUp).RowiCol = w.Range("A1").End(xlToRight).ColumnSet rang = w.Range(Cells(1, 1), Cells(1, iCol)) With Me.Label1    .Top = 10    .Left = 0    .Width = .Parent.Width    .Height = 35    .Caption = s.Range("K3").ValueEnd WithDim Laobj As Object, Teobj As ObjectFor Each R In rangw.Activate    Set Laobj = Me.Controls.Add("Forms.Label.1", "L" & R.Column)        With Laobj            .Top = 30 * R.Column + 20            .Left = 100            .Height = 30            .Width = 80            .Caption = R.Value            With .Font                .Size = 12                .Name = "微软雅黑"            End With        End With    Set Teobj = Me.Controls.Add("Forms.ComboBox.1", "C" & R.Column)        With Teobj            .Top = 30 * R.Column + 20            .Left = 185            .Height = 28            .Width = 280            With .Font                .Size = 12                .Name = "微软雅黑"            End With            Select Case R.Column                    Case 1 '序号                        .Enabled = False                        .Value = w.Range("A65535").End(xlUp).Row                    Case 2 '编号                         .Value = ""                    Case 3, 4, 5, 7, 10, 12, 13 '分类                        .RowSource = getList(s, getiCo(s, R.Value))                        .Value = .List(0)                    Case 9 '                        .Value = VBA.Date            End Select        End WithNext RApplication.ScreenUpdating = TrueEnd Sub

函数

Function getList(w As Worksheet, iCo As Integer) As String'''''''''返回列表地

相关文章

发表评论

备案号：陕ICP备2022006270号-2 由网站地图强力收录 威武短视频