精华内容
下载资源
问答
  • 窗体的QueryClose事件代码: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = TrueEnd Sub本段代码用于禁用登录窗口的关闭按钮,防止用户手动关闭后...

    我的目标:让中国的大学生走出校门的那一刻就已经具备这些office技能,让职场人士能高效使用office为其服务。支持我,也为自己加油!

    先来看下效果:1、双击工作簿后,弹出登录窗口,如果用户名或者密码有一个未输入,直接点击确定,会弹出一个警告框,显示用户名或者密码不能为空!

    ad9be9b8890983be19882dec79a4e031.gif

    2、如果用户名或者密码连续输入错误超过三次,则弹出警告框提示即将退出程序,关闭警告框后即关闭程序。

    e41011a3fc5e91a6f341f16980af458f.gif

    3、双击工作簿后,弹出登录窗口,点击登录窗口右上方的关闭命令不允许退出登录窗口。

    f1d0a6f917b6fb2e40c9db087f30d56f.gif

    4、输入正确的用户名和密码,点击确定后进入工作簿并激活Sheet1。

    2985eda20e0e2f690aca0dac9e59c561.gif

    本案例代码如下:确定按钮的Click事件代码如下:
    Private Sub CommandButton1_Click()Static i%If TextBox1.Value = "" Then MsgBox "用户名不能为空!", vbInformation, "警告": Exit SubIf TextBox2.Value = "" Then MsgBox "密码不能为空!", vbInformation, "警告": Exit SubIf TextBox1 = "wuxupeng" And TextBox2 = 123456 Or TextBox1 = "mihong" _    And TextBox2 = 123456 Or TextBox1 = "admin" _    And TextBox2 = 123456 Then    Unload Me    Application.Visible = True    Sheet1.Activate    Application.EnableCancelKey = xlInterruptElse    MsgBox "密码或者用户名错误,请重新输入!", vbInformation, "警告"    i = i + 1    If i >= 3 Then        MsgBox "输入错误超过三次,程序即将退出!"        Unload Me        Application.Visible = True        Application.Quit    End IfEnd IfEnd Sub
    本段代码主要用于验证用户名和密码,当用户输入用户名和密码错误三次以上时退出程序。窗体的QueryClose事件代码:
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    If CloseMode <> 1 Then Cancel = TrueEnd Sub
    本段代码用于禁用登录窗口的关闭按钮,防止用户手动关闭后登录窗口后进入工作簿。工作簿Open事件代码:
    Private Sub Workbook_Open()    Application.EnableCancelKey = xlDisabled    Application.Visible = False    UserForm1.ShowEnd Sub
    本段代码是打开工作簿时隐藏工作簿窗口并显示登录窗口。一共三段代码就可以实现案例中的效果了。本节知识点:1、静态变量的使用2、如何禁用事件3、Application的EnableCancelKey属性

    公众号后台资源库可获取更多资源:

    d1f0bb5ba704628a1dd40e82fde86b6f.png

    本节的分享就到这里,祝大家每天都有进步。

    1

    在线课堂在逐渐完善中,欢迎您的光临!

    1d9c1e9ecff481c2077920357edc543f.png

    f399e7a78777c132e6154e36daa58acc.gif

    点击下方“”即可进入云课堂学习!

    展开全文
  • Excel对特定化学式进行批量下表的窗体设计和VBA代码。 Function mynum(str0 As String) Dim mychar As String Dim i, j, k As Integer Dim mychars() As Integer i = 0 j = 0 k = 0 For n = 1 To Len(str0...

    Excel对特定化学式进行批量下标的窗体设计和VBA代码。

    在这里插入图片描述

    Function mynum(str0 As String)
    Dim mychar As String
    Dim i, j, k As Integer
    Dim mychars() As Integer
    i = 0
    j = 0
    k = 0
    For n = 1 To Len(str0)
    mychar = Mid(str0, n, 1)
    If IsNumeric(mychar) Then
        i = i + 1
    End If
    Next n
    ReDim mychars(1 To i)
    For n = 1 To Len(str0)
    mychar = Mid(str0, n, 1)
    j = j + 1
    If IsNumeric(mychar) Then
       k = k + 1
       mychars(k) = j
    End If
    Next n
    mynum = mychars()
    End Function
    Private Sub CommandButton1_Click()
    Dim str1, str2 As String
    Dim r, c, k, j
    Dim arr() As Integer
    str2 = TextBox1.Value
    j = Len(str2)
    arr() = mynum(str2)
    m = UBound(arr) - LBound(arr) + 1
    For r = 1 To ActiveSheet.UsedRange.Rows.Count
        For c = 1 To ActiveSheet.UsedRange.Columns.Count
            str1 = ActiveSheet.Cells(r, c).Value
            k = InStr(str1, str2)
            If k > 0 Then
            For i = 1 To m
               Cells(r, c).Characters(Start:=k + arr(i) - 1, Length:=1).Font.Subscript = True
            Next
            End If
         Next
    Next
    End Sub
    
    
    展开全文
  • MDI窗体设计

    2017-05-18 00:31:00
    1、MDI窗体是什么?  程序的用户界面一般分为两大类:单文档界面和多文档界面。   MDI是Multiple Document Interface的... 多文档界面的典型例子是Microsoft Office中的Word和Excel,允许用户同时打开多个文档...

    1、MDI窗体是什么?

      程序的用户界面一般分为两大类:单文档界面和多文档界面。  

      MDI是Multiple Document Interface的缩写,就是文档窗体的意思。它是和单文档SDI相对的。 

      C#允许在单个容器窗体中创建包含多个子窗体的多文档界面(MDI)。

      多文档界面的典型例子是Microsoft Office中的Word和Excel,允许用户同时打开多个文档,每个文档占用一个窗体,用户可以在不同的窗体间切换,处理不同的文档。

    2、MDI的设计过程

    •  首先,确定一个父窗体,也称为MDI容器窗体,将父窗体的属性IsMdiContainer为True。
    •  然后,创建子窗体,并设置父窗体MDI。

      子窗体就是一般的窗体,其上可以设计任何控件,此前设计过的任何窗体都可以作为MDI子窗体。
    只要将某个窗体实例的MdiParent属性设置到一个MDI父窗体,它就是那个父窗体的子窗体,语法为:
    窗体实例名.MdiParent=父窗体对象;

    3、子窗体在MDI窗体重的的排列方式


    父窗体的LayoutMdi方法可以改变子窗体在MDI父窗体中的排列方式,该方法的参数是一个MdiLayout类型的枚举值,通过这些枚举值来指定子窗体以何种形式排列在父窗体的工作区之中

    LayoutMdi(MdiLayout.TileVertical);
    LayoutMdi(MdiLayout.TileHorizontal);

     

    转载于:https://www.cnblogs.com/apollo-shen/p/6870308.html

    展开全文
  • Excel中输入固定记录时,...设计在VBA环境下创建如下窗体窗体的下拉菜单和文本框对应需要输入的字段,最下方放置两个按钮,分别用于保存和重置输入内容整体界面设计如下。在Excel中放入一个按钮控件,并指定宏如...

    095d8e4be2684dae0bb8d9380db957c2.png

    在Excel中输入固定记录时,会遇到一些重复字段,比如序号,日期;还会因为有些字段是固定的几个,输入不规范会影响后续统计等错做。为此可以设计一个数据录入窗体,以简化数据录入,同时可以规定一些固定字段的值,避免不规范输入。

    设计

    在VBA环境下创建如下窗体,窗体的下拉菜单和文本框对应需要输入的字段,最下方放置两个按钮,分别用于保存和重置输入内容整体界面设计如下。

    ea8d4b0540661e340e5d9f5908d4c4d4.png

    在Excel中放入一个按钮控件,并指定宏如下

     Sub 启动财务管理系统()
     ​
         AccountingForm.Show
         
     End Sub

    操作

    通过窗体录入相应信息,点击保存即可将记录记录进表中。

    2451467c44a5506fe3f5349eb2a1a1b3.png

    代码

    主体代码如下

     Private Sub btnSave_Click()
         
         Sheet2.Activate
         
         Dim emptyRow As Long
         emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
         
         If emptyRow = 2 Then
             Cells(emptyRow, 1).Value = 1
         Else
             Cells(emptyRow, 1).Value = Cells(emptyRow - 1, 1).Value + 1
         End If
             
         Cells(emptyRow, 2).Value = cboAccount.Value
         Cells(emptyRow, 3).Value = txtTime.Value
         Cells(emptyRow, 4).Value = txtName.Value
         Cells(emptyRow, 5).Value = cboDepart.Value
         Cells(emptyRow, 6).Value = txtL1.Value
         Cells(emptyRow, 7).Value = txtL2.Value
         Cells(emptyRow, 8).Value = txtDetail.Value
         Cells(emptyRow, 9).Value = txtContract.Value
         Cells(emptyRow, 10).Value = txtObject.Value
         Cells(emptyRow, 11).Value = txtValue.Value
         Cells(emptyRow, 12).Value = txtNote.Value
         
         MsgBox "保存成功"
         
         Init
         
     End Sub
     ​
     Private Sub btnReset_Click()
         
         Init
         
     End Sub
     ​
     Private Sub UserForm_Initialize()
         
         Init
         
     End Sub
     ​
     Public Sub Init()
     ​
         cboAccount.Value = ""
         txtTime.Value = ""
         txtName.Value = ""
         cboDepart.Value = ""
         txtL1.Value = ""
         txtL2.Value = ""
         txtDetail.Value = ""
         txtContract.Value = ""
         txtObject.Value = ""
         txtValue.Value = ""
         txtNote.Value = ""
         
         With cboAccount
             .AddItem "中国工商银行"
             .AddItem "中国农业银行"
             .AddItem "中国银行"
             .AddItem "中国建设银行"
             .AddItem "交通银行"
             .AddItem "中国邮政储蓄银行"
         End With
         
         txtTime.Value = Date
         
         With cboDepart
             .AddItem "行政"
             .AddItem "研发"
             .AddItem "市场"
             .AddItem "财务"
             .AddItem "销售"
         End With
         
     End Sub
    展开全文
  • 网络朋友奉献的不错的窗体设计实例
  • vba project截图 workbook代码块: Private Sub Workbook_Open() Dim TargetBar As CommandBar Dim NewMenu As Object Dim NewItem As Object Dim NewMenuTemp As Object Set TargetBar = Application.CommandBars...
  • 追加保存,然后在下三角旁边就可以看到设计模式,点击一下,按钮等窗体就可以编辑。 选中按钮,右键-->code表示可以转到vba(alt+F11)编辑模式中。 选中按钮,右键-->属性可以弹出属性界面,更改按钮的属性...
  • 上一篇,发布了可以自定义的设置的 Excel 聚光灯,通过表格来设置虽然很简单,但有些网友认为使用窗体或按钮来设置更好,因此,设计了一个窗体来设置聚光灯的效果。 基于该模板创建的工作簿打开时会自启动设置窗口。...
  • 主要内容:规划示例工程创建工作簿设计窗体编写代码验证数据测试工程规划工程一个Excel程序示例,你可能想在现实世界中使用用户窗体来帮助用户输入数据。当然,用户总是可以直接将数据输入到工作表中,那么为...
  • VBA 中的用户窗体就是指带 UI 的用户界面,在运行的时候会单独弹出一个窗口,类似于在 windows 系统中运行的一个可执行程序一样(这个说法不太严谨,因为可执行程序也可能是只有命令窗口而没有 UI 的)。再具体一点...
  • 学习Excel技术,关注微信公众号:excelperfect本文讲述如何连接用户窗体与ADO记录集,最终创建一个与Access窗体相似的用户窗体,可以导航至前一条记录、下一条记录、第一条记录、最后一条记录,等等。设计用户窗体在...
  • VBA 中的用户窗体就是指带 UI 的用户界面,在运行的时候会单独弹出一个窗口,类似于在 windows 系统中运行的一个可执行程序一样(这个说法不太严谨,因为可执行程序也可能是只有命令窗口而没有 UI 的)。再具体一点...
  • 学习Excel技术,关注微信公众号:excelperfect在Excel中,我已经创建了一个输入数据的用户窗体,用于在工作记录工作表中添加新数据记录。最近,老板提出了新的需求,要通过该用户窗体能够编辑数据记录,增强其功能。...
  • 麻烦是说由于设计器的使用不方便(如果您希望使用窗体设计器通过快速拖拽控件建立您的Java Swing GUI程序,请您使用MyEclipse 8.5以上版本,并且需要最高使用权限),所有代码都得手写,如果没有好的编码规范和注释...
  • 我有一个excel报告,里面包含了名为“图表1”的曲线图,现在想用vb.net设计一个窗体窗体包含: 1、一个按钮,点击即弹出“打开文件”窗口,选择excel报告(此部分已实现); 2、一个chart控件或者picturebox控件...
  • (1)建立窗体应用项目 (2)安装NPOI.选择项目并右键单击 (3)搜索NOPI,并安装 (4)在设计窗口处放上Button, Textbox, dataGridView三个控件,Name分别为button1, textbox1, dataGridView1 (5) 添加命名空间 ...
  • MDI窗体应用

    2017-10-06 10:42:00
    MDI就是多文档界面,是从win2.0的Excel表格开始引入的,为了给用户提供同时管理多张表格而设计的,在后来的WIN3.1得到扩展完善,比如任务管理器,就是MDI程序。 实践: 1,创建窗体 2,设定窗体为MDI窗体 ...
  • 【需求示例】:假设需要用Excel设计一套满意需调查问卷,员工只需在问题上做勾选,答题结果自动另一个Sheet中自动记录。【实现步骤】:Step1:借助控件,设置单选问题1) 输入题干 → “开发工具”→ 插入分组框 → ...
  • 一、MDI窗体设计 1.MDI简介 MDI(Multiple Document Interface)就是所谓的多文档界面,与此对应就有单文档界面 (SDI), 它是微软公司从Windows 2.0下的Microsoft Excel电子表格程序开始引入的,Excel电子表格...
  • 基本上,会用excel表格的,就可以操作access中的表格,二者还可以导入导出,贴来贴去,方便得很。在表的基础上,查询一建立起来,那么各种统计功能基本都可以轻松地实现了。但也有人说,access的表格和查询,设计者...
  • Windows程序设计中的MDI(Multiple Document Interface)官方解释就是所谓的多文档界面,与此对应就有单文档界面 (SDI), 它是微软公司从Windows 2.0下的Microsoft Excel电子表格程序开始引入的,Excel电子表格用户...
  • MDI窗体在很多软件中都作为母窗体进行设计,比如说我们常用的Wors、Excel等,那么什么是MDI呢? 所谓,MDI,是Multiple DocumentInterface的缩写,在VC++开发时,如果使用MFC,则创建工程时,一般会引导用户去选择...
  • 哈喽,大家好,我们已经用OnTime方法实现“世界杯”倒计时器的设计,感觉它还是蛮神奇的,不是吗?呵呵,今天我们继续分享在PPT里边实现这个倒计时器的设计。为什么我们还要在PPT里边继续分享这个倒计时器的设计呢?...
  • Winform-C#...一、窗体设计: 二、源码: using System; using System.Data; using System.Windows.Forms; using Microsoft.Office.Interop.Excel; namespace ExportExcel { public partial class Form...
  • 进度条设计打开VBE,插入一个用户窗体。1.在属性窗口中,将该用户窗体命名为urfProgress。2.设置其ShowModal属性为False,这样在该用户窗体处于打开状态时仍能继续运行程序。3.调整该用户窗体为合适的大小(高110*宽...
  • Excel_VBA教程

    2014-09-22 11:36:34
    二、VISUAL BASIC程序设计网络教学 1 第一课 VBA是什么 1 1.1 VBA是什么 1 1.2 EXCEL环境中基于应用程序自动化的优点 1 1.3 录制简单的宏 2 1.4 执行宏 2 1.5 查看录制的代码 2 1.6 编辑录制的代码 3 1.7 录制宏的...
  • Excel VBA开发

    2013-10-23 16:25:00
    一、Excel添加treeview控件 如果是以VBA中为窗体添加,菜单:工具->附加控件,从中选择“Microsoft TreeView Control”; 在控件工具箱中点击其它控件,从中选择“Microsoft TreeView Control”。 二、...
  • 自动生成VBA窗体菜单

    2010-08-16 15:23:46
    自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As...
  • 0 引言CAD中的文本会设计到与外部文件的交互,需要输出到Excel或是txt中进行统计分析,关于C#读写Excel和txt的方式有多种,可自行查阅相关资料。先上结果:如何实现,请见下文!1 输出到Excel添加一个Windows窗体...
  • 窗体设计如下图所示(注意:为了演示方便,已经填充了数据): 图21-11 窗体设计 在本例中还需要掌握的知识: 1、插入图片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen

空空如也

空空如也

1 2 3 4 5 ... 12
收藏数 238
精华内容 95
关键字:

excel窗体设计