Excel 第一行不见了,怎么弄出来

Excel 第一行不见了,怎么弄出来,第1张

、直接拖拉的方法:将鼠标移到隐藏的第一行的位置处,当变为上下拖拉的图标时,向下拖拉即可。

2、右键菜单法:先Ctrl+A或者点击最左上角的单元格区域全选,再单击鼠标右键,取消隐藏即可。

3、格式菜单法:先Ctrl+A或者点击最左上角的单元格区域全选,再单击菜单:“格式”-“行”-“取消隐藏”,即可。

4、快捷键法:先Ctrl+A全选,再Ctrl+Shift+9取消行隐藏;如果要取消列隐藏按Ctrl+Shift+0,即可。

5、VBA代码法:ALT+F11打开VBE编辑器,新建一个模块1,粘贴如下代码: Option Explicit Sub qxyx() Rows(1).EntireRow.Hidden = False End Sub 运行,即可。

慢慢看哦;正好我也有点兴趣,就说一下吧,过程中你肯定会遇到很多问题,我当时也一样,有问题在问我,那开始吧;

1、随便你在EXCEL中建立一个模块或窗体,输入以下代码:

Sub aa()

    Dim cn As New ADODB.Connection'必须语句,定义一个对象,连接用的

    Dim rs As New Recordset'必须语句,定义一个对象,查询用的

    Str1 = "select * from [zd_spzl]"'这个不说了吧,SQL的语句

   

strcn = "Provider=sqloledbDatabase=southernUid=saPwd=123456data source=127.0.0.1,1433"

’这里要注意了,我只改了数据库名,IP要你自己改;我是本地连接;所以用了IP为127.0.0.1

    cn.Open strcn

    rs.Open Str1, cn

'上面两句为查寻与连接

Dim i

For i = 1 To rs.Fields.Count

Cells(1, i) = rs.Fields(i - 1).Name’FIELDS是从0开始的,所以这里要-1

 '这里是为了把表中的字段取下来;放到第一行

 

  Range("a2").CopyFromRecordset rs

'这里是把数据一行,一行的放到EXCLE中;

Next i

重要注明:

1、代码执行下要在VB中引用,图片这个:

2、数据要开启可远程连接,打开1433端口;附件中有方法与教程,都是我以前测试过的,肯定可用的;收你5元,哈哈!

可以直接扣我,30687724


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/10857539.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-11
下一篇 2023-05-11

发表评论

登录后才能评论

评论列表(0条)

保存