精华内容
下载资源
问答
  • vb表格控件

    2018-06-15 01:06:08
    vb表格控件, 很详细
  • vb 表格控件 可编辑

    2018-04-19 17:09:03
    vb 表格控件 可编辑 同excel类似 个很好的报表控件,用了很多年了,强大灵活
  • vb表格框控件源码 vb表格框控件源码
  • 内容索引:VB源码,报表打印,Grid,报表 这是一个使用VB编写的自定义Grid控件,是国外网站的一个作品,界面英文,使用方便简单,有兴趣的朋友可汉化一下,进一步扩展功能。
  • VB表格打印源代码,有打印设置及预览功能,改变listview的外观、MSFGrid、MSFHGrid等三种形式的列表数据打印,相信这对大家相当有用吧,不管是列表或是打印都是大家常用的。
  • VB 表格 I设计

    2013-11-15 08:35:16
    VB 表格控件
  • VB NET中用于更新IOS并粘贴思科系统中模板的应用程序包括TFTP服务器。
  • VB celltext.ocx 生成Excel的表格控件及实例,使用有mscroll.ocx控件,Visual Basic (VB6.0)自制“表格控件”,可以进行数据编辑、输入/输出,批量计算处理。该表格控件有如下功能(集成在右键弹出菜单中),其操作...
  • VB利用表格录入数据

    2021-05-08 23:28:06
    摘要:VB源码,数据库应用,MSHFlexGrid VB利用表格录入数据的一个实例,添加下列例程以初始化文本框,并将焦点从 Hierarchical FlexGrid 传递到 TextBox 控件:  Sub MSHFlexGridEdit(MSHFlexGrid As Control, Edt ...
  • vb 可以编辑表格

    2013-05-23 18:11:59
    一个基于MSFlexGrid.Ocx控件网格编辑增强扩展的解决方案。 你可以选种某个网格按回车进行编辑内容 你可以使用 EditOnMouse 属性设置鼠标 控制进行编辑的行数....户联系表示例. 注意:在‘数据库字段信息’示例中的‘ ...
  • 表格控件总览: </B><BR><BR> 在VB开发环境中,表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点,而且更重要的是它较高的信息表现率(就是相对于其他控件来说能够表达更多的信息)...
  • 解压密码:1 极少见的完全开源源码,可打印,支持打印预览的第三方表格控件。 由VB6开发的超漂亮表格控件ocx. 说见压缩包内说明
  • VB表格控件及实例-VB表格控件(celltext.ocx、mscroll.ocx),由于VB 内部表格控件有太多限制,不能直接编辑,不能直接进行数据的复制、粘贴,也不支持鼠标滚轮的滚动操作,非常不方便。该控件解决了这些问题,并增加...
  • 好用的 表格控件,vb6.0

    热门讨论 2011-12-20 10:01:10
    好用的表格控件。在使用中有很好的稳定性,不用注册即可使用。功能很强大,很好用,有良好的操作界面。
  • 利用VB可视化数据管理器制作access表格,利用VB中Adodc1控件和DataGrid1控件制作出的分类查询程序
  • VB中用此功能打印文件及界面,充分发挥VB的功能
  • 很不错的一个打印控件,功能很全面,很实用
  • 一款个性的表格效果,Vb源代码,简单有效的例子,请仔细看一下Picture1的ScaleMode属性的用法和定义,对学习Vb很有帮助的。
  • 包含VB6中MSHFlexGrid的几个常用方法,如标题行的自动列宽、隔行显示不同背景色、支持鼠标滚动等
  • VB6美化MSHF表格控件

    2018-03-08 10:12:20
    VB6美化MSHFlexGrid表格控件,做出非常精美的显示表格。每行都有注释,新手必备。
  • 一款支持数据编辑的Vb网格控件,界面英文,不过可修改成中文,还支持在VC 中调用。MODULE_REMARKS 基于MSHFlexGrid开发提供MIS系统中的单据子表输入操作,也可以做为属性列表框进行数据编辑MODULE_SUMMARY 可以编辑...
  • VB表格打印控件: 自动识别并支持ADO和DAO两种数据库链接,也可以不链接数据库.(可以链接数据控件,也可以链接数据对象dao/ado). 支持合并单元格、对齐、支持单元格斜线、支持多种单元格格式,可自动设置行高列宽. ...
  • 其实现在有些版本的excel或wps已经集成了根据某列数据自动拆分表格数据,不过有些老版本的仍不支持,搜集了网上前辈的资料,结合自身实际,使用VB实现了该功能。 Sub splitTable() Dim d As Object, sht As ...

    工作场景:从系统导出后人工处理完的excel数据,需要按照部门拆分并推送给各部门人员。

    传统的工作方式就只能人工一个个部门筛选,复制粘贴出来各自发送。

    其实现在有些版本的excel或wps已经集成了根据某列数据自动拆分表格数据,不过有些老版本的仍不支持,搜集了网上前辈的资料,结合自身实际,使用VB实现了该功能。

    Sub splitTable()
        Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x&
        Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd&
        Application.ScreenUpdating = False '关闭屏幕更新
        Application.DisplayAlerts = False '关闭警告信息提示
        Set d = CreateObject("scripting.dictionary") 'set字典
        Set Rg = Application.InputBox("请框选拆分依据列!只能选择单列单元格区域!", Title:="提示", Type:=8)
        '用户选择的拆分依据列
        tCol = Rg.Column '取拆分依据列列标
        tRow = Val(Application.InputBox("请输入总表标题行的行数?"))
        '用户设置总表的标题行数
        If tRow = 0 Then MsgBox "你未输入标题行行数,程序退出。": Exit Sub
        Set Rng = ActiveSheet.UsedRange '总表的数据区域
        arr = Rng '数据范围装入数组arr
        tCol = tCol - Rng.Column + 1 '计算依据列在数组中的位置
        aCol = UBound(arr, 2) '数据源的列数
        For i = tRow + 1 To UBound(arr) '遍历数组arr
            If Not d.exists(arr(i, tCol)) Then
                d(arr(i, tCol)) = i '字典中不存在关键词则将行号装入字典
            Else
                d(arr(i, tCol)) = d(arr(i, tCol)) & "," & i '如果存在则合并行号,以逗号间隔
            End If
        Next
        For Each sht In Worksheets '遍历一遍工作表,如果字典中存在则删除
            If d.exists(sht.Name) Then sht.Delete
        Next
        kr = d.keys '字典的key集
        For i = 0 To UBound(kr) '遍历字典key值
            If kr(i) <> "" Then '如果key不为空
                r = Split(d(kr(i)), ",") '取出item里储存的行号
                ReDim brr(1 To UBound(r) + 1, 1 To aCol) '声明放置结果的数组brr
                k = 0
                For x = 0 To UBound(r)
                    k = k + 1 '累加记录行数
                    For j = 1 To aCol '循环读取列
                        brr(k, j) = arr(r(x), j)
                    Next
                Next
                With Worksheets.Add(, Sheets(Sheets.Count))
                '新建一个工作表,位置在所有已存在sheet的后面
                    .Name = kr(i) '表格命名
                    .[a1].Resize(tRow, aCol) = arr '放标题行
                    .[a1].Offset(tRow, 0).Resize(k, aCol) = brr '放置数据区域
                    Rng.Copy '复制粘贴总表的格式
                    .[a1].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                    .[a1].Select
                End With
            End If
        Next
        Sheets(1).Activate '激活第一个表格
        Set d = Nothing '释放字典
        Erase arr: Erase brr '释放数组
        MsgBox "数据拆分完成!"
        Application.ScreenUpdating = True '恢复屏幕更新
        Application.DisplayAlerts = True '恢复警示
        
    '开始生成新excel文件
        Application.ScreenUpdating = False
        For Each sht In Worksheets
            sht.Copy
            ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close
        Next
        
        Application.ScreenUpdating = True '恢复屏幕更新
    End Sub
    
    

    运行过程如下:

    展开全文
  • 前提:一个偶然的机会要对一个已经开发比较完全的VB项目进行维护工作 整体代码量不高 大部分操作可以通过EXCEL的宏操作录制然后去复制 部分操作需要通过直接写代码去执行 这里涉及到一开始接触VB有代码基础的人观看 ...

    前提:一个偶然的机会要对一个已经开发比较完全的VB项目进行维护工作
    整体代码量不高 大部分操作可以通过EXCEL的宏操作录制然后去复制
    部分操作需要通过直接写代码去执行

    这里涉及到一开始接触VB有代码基础的人观看 涉及VB中的基本常用操作

    首先是碰到的问题
    VB程序在导入数据的过程中出现数据丢失的情况
    这里VB系统可以通过断点 F5 运行 F8逐步调试去试验代码流程
    在这里插入图片描述
    1、表格的选择
    Workbooks(“X.xlsm”).Activate X的表格当前置顶(设为活动表格)
    2、sheet表格的选择
    Sheets(“总表”).Select 配合第一条可以打开EXCEL后选择该表中的某条数据
    3、单元格的选择
    Cells(1, Y) 可以通过变量的方式选择单元格,变量和大写字母可能会混淆
    此时可以通过1-24表示A-Z或者用
    Cells(1, “Y”) 表示Y这一行
    4、列的选择
    Rows(“1,1”).select 列A选择
    5、行的选择
    columns(“1,1”).select 行A选择
    6、新建SHEET表格

     Workbooks("X_update.xlsm").Activate
           Sheets("Y").Select
          Worksheets.Add().Name = "临时文件"
    

    此3行代码可以解释为在X_update这个EXCEL表格的Ysheet表前生成一个叫做临时文件的sheet
    这里就可以避免直接生成的sheet被放到了第一个位置
    在这里插入图片描述
    否则直接使用Worksheets.Add().Name = "临时文件"
    会在图示位置的第一个位置生成一个SHEET
    这样如果代码中有Sheets(1).Select 则可能会发生冲突

    7、删除sheet

    Worksheets("临时文件").Delete
    

    同样搭配以上的选择表格使用

    8、复制粘贴

    Workbooks("X_update.xlsm").Activate
        Sheets("临时文件").Select
        Range(Columns(1), Columns(2)).Select
        Selection.Cut
        Sheets("总表").Select
        Range(Columns(1), Columns(2)).Select
        ActiveSheet.Paste
    

    打开表格 选择临时文件 复制1-2列 打开总表 在1-2列中粘贴

    Range(Columns(YXT_XM_L), Columns(YXT_XM_L)).Select
    

    此代码的意思是选中第YXT_XM_L列
    这个是防止用cells时出现变量无法选中的替代方法

    9、使用筛选功能

      Selection.AutoFilter
    

    10、升序排列

    Range("A1:HH6000").Sort Key1:=Range("J1"), Order1:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    

    选定A1-HH6000范围 并以J1列进行升序排序

    11、不为空方法

    If Not C Is Nothing Then '如果找到了
          XXXX
          End If
    

    如果C条件存在 则执行X方法

    12、

    If Not C Is Nothing Then '如果找到了
          XXXX
          ELSE
          YYYY
          END IF 
    

    如果C存在则执行X方法 如果没有则执行Y方法
    13、 For方法

    For I = 1 To YXT
           XXXX
        Next I
    

    这个是典型的For方法
    执行I从1-YXT这个变量
    如果符合则执行X方法
    这里和JAVA不同 方法内没有自加程序
    这里默认执行1-yxt整数增加

    14、

    GoTo  L1
    L1:
    
    XXXX
    

    在IF中举中嵌套GOTO方法
    然后在下面位置编写对应的方法
    完成方法的调用功能

    15、方法定义

    DIM x as Integer
    Dim y as string
    
    展开全文
  • VB中利用ListView控件来制作表格

    千次阅读 2019-11-09 20:49:53
    ListView控件是由ColumnHeader和ListItem对象所组成的,其中ColumnHeader对象的个数决定了控件的列数,而ListItem对象的个数则决定了控件的行数。 下面介绍一下ListView控件的两个对象及其add方法: ...

    ListView控件是由ColumnHeader和ListItem对象所组成的,其中ColumnHeader对象的个数决定了控件的列数,而ListItem对象的个数则决定了控件的行数。
    下面介绍一下ListView控件的两个对象及其add方法:
    ColumnHeader对象是ListView控件中包含标头文字的项目,ColumnHeader对象的数目决定每个ListItem对象可包含的子项目数目。
    利用ColumnHeader对象,用户可以:
        1、单击对象触发ColumnClick事件并根据数据项目将项目排序。
        2、拖动对象的右边框来调整列宽度。
        3 、在报表视图中隐藏ColumnHeader对象。

    ListItem对象是指控件中的一行(不包含标头行)的所有内容,它代表ListView控件中ListItem对象的数据。
    ListItem对象可包含任意多个的关联项目数据字符串(子项目),但每个ListItem对象子项目数目必须相同。每个子项目都对应于相关的列标头,无法直接向子项目数组添加元素,只有通过ColumnHeaders的Add方法添加列标头的方法 来添加子项目。

    以ListView1为例:
    增加列的Add方法:
    ListView1.ColumnHeaders.Add([index],[key],[text],[width],[alignment]) 
              index :唯一标识对象集合成员的整数。 
              key :唯一的字符串标识,可以用来访问集合的成员。 
              text :列标头中显示的文字。 
              width :列宽。是数值表达式,用来指定列的宽度。 
              alignment :决定 ColumnHeader对象中文本对齐方式的整数(lvwColumnLeft、lvwColumnRight、lvwColumnCenter)

    增加行的Add方法:
    ListView1.ListItems.Add([index],[key],[text],[icon],[smallicon])
              Index:指定在何处插入ListItem对象的整数。
              Key 插入列表项的关键字
              Text 插入列表项的文本
              Icon :当为图标视图时,要求显示的图标(从imagelist中选定要显示的图标)
              Smallicon:当为小图标视图时,要求显示的图标(从imagelist中选定要显示的图标)

     

    项目实例:

    1

    1

    1

     

     

     

    展开全文
  • VB 利用表格批量增加新记录,在操作时,ESC:隐藏焦点并将其返回 MSFlexGrid,同时使用PopupMenu方法创建了弹出菜单。  删除回车符,以消除嘟嘟声。这个功能可以再扩展,让用户通过表格快速导入数据到库中。  当...
  • 功能强大,超级好用的表格控件vsflex8, 可实现各种表格的编写使用方便。
  • VB 6.0 在DataGrid表格中实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格中,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了...
  • ReoGrid .NET Spreadsheet Component C# 和 VB.net 开源免费的表格控件, 界面很漂亮, 功能很强大
  • 通过单击按钮,文本中的信息将自动写入OLE的表格

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 19,445
精华内容 7,778
关键字:

vb表格