精华内容
下载资源
问答
  • 日常工作中经常要处理别人发来的excel附件,在工作簿中增加一个sheet来显示数据提取结果,但数据结构保护的工作簿会添加sheet失败。...VBA中判断工作簿是否结构、窗口保护,后重新指定判断结果输出位置
  • Excel VBA之立即窗口

    千次阅读 2020-06-03 11:46:20
    立即窗口介绍: 1.在VB编辑器窗口,选择“视图”-“立即窗口” 在决定使用在你自己的VBA过程之前,立即窗口可以用来试验VB语言中不同的指令,函数和运算符。...立即窗口允许你输入VBA语句,并且测试它们...

     立即窗口介绍:

     

     

    1.在VB编辑器窗口,选择“视图”-“立即窗口”
    在决定使用在你自己的VBA过程之前,立即窗口可以用来试验VB语言中不同的指令,函数和运算符。这是一个非常好的调试新语言的工具,你输入在这个窗口里面的指令,将会立即显示结果。
     

    立即窗口可以在VB编辑器窗口上任意移动,也可以设置为可连接的,这样它就会出现在相同的地方。可以通过选项对话框上的“可连接的”页来打开或关闭可连接设置。在VB编辑器窗口上按下Ctrl+G就可以快速访问立即窗口。立即窗口允许你输入VBA语句,并且测试它们的结果,而不需要写成一个过程。立即窗口就像一个草稿板,你可以用它测试你的语句。如果该语句输出了你希望的结果,你就可以将立即窗口上的语句复制到你的过程中去(或者,你也可以将语句拖曳到代码窗口,如果代码窗口是可见的)

    Worksheets("Tabelle1").Activate
    Range("A1:A4").Select
    [A1:A4].Value = 55
    Selection.ClearContents
    ?Selection.Address
    $A$1:$A$4
    Print ActiveWorkbook.Name
    Try.xlsx
    ?Application.Name
    Microsoft Excel
    ?Application.Name
    ?12/3
     4 
    ?3+2:?12*8
     5 
     96 
    
    

    如图 

     

    运行:

    你每次按下回车键后,Excel总是执行光标所在行的语句。如果你想要再次执行同一指令,那么点击该指令行的任意位置,回车。

    展开全文
  • VBA窗口乱了如何恢复默认设置

    千次阅读 2015-12-22 15:35:49
    在vbe编辑器中,有时候像本地窗口,监视窗口,对象浏览器窗口等等多个容易调整乱了。 我自己在使用这些窗口的过程中,甚至不知道什么原因把本地窗口整没了,就是说在视图 -——本地窗口 都无法弹出本地窗口。 碰到...
    在vbe编辑器中,有时候像本地窗口,监视窗口,对象浏览器窗口等等多个容易调整乱了。
    
    我自己在使用这些窗口的过程中,甚至不知道什么原因把本地窗口整没了,就是说在视图 -——本地窗口 都无法弹出本地窗口。
    碰到这样的情况我的解决办法一直是用修改注册表的方式:
    按照以下步骤即可:

      1.关闭Excel应用程序。

      2.开始→运行→输入 regedit 打开注册表编辑器,进入HKEY_CURRENT_USER>Software>Microsoft>VBA>6.0>Common>Dock,双击它并删除“数值数据”下的数据。然后数据将显示为“长度为零的二进位值”。重新打开Excel,进入VBA您将发现窗格已经恢复默认设置了。这个名为Dock的二进制值保存着VBA窗口中各窗格的各种信息。
       当然您也可以直接在vba中对注册表进行调用修改。
      以上是我学习vba过程中的一点心得和体会。希望能和大家分享
    展开全文
  • VBA 工作簿结构窗口保护

    千次阅读 2018-12-09 12:03:28
    工作中经常遇到别人发来的表格进行数据过滤,但针对有结构保护的工作簿无法插入新表格输出过滤内容,需要对工作簿状态进行判断,有保护的在原表格指定位置输出。主要针对状态判断(处理代码可自行完善) Sub 工作簿...

    工作中经常遇到别人发来的表格进行数据过滤,但针对有结构保护的工作簿无法插入新表格输出过滤内容,需要对工作簿状态进行判断,有保护的在原表格指定位置输出。主要针对状态判断(处理代码可自行完善)

    Sub 工作簿结构窗口保护()
    ActiveWorkbook.Protect Structure:=True, Windows:=False 'Structure:=True 结构保护设置为保护
    If ActiveWorkbook.ProtectStructure = True Then
    '处理代码。。。。。
    MsgBox “工作簿结构保护”
    '处理代码。。。。。
    Else
    MsgBox “工作簿结构未保护”
    End If
    If ActiveWorkbook.ProtectWindows = True Then
    '处理代码。。。。。
    MsgBox “工作簿窗口保护”
    Else
    MsgBox “工作簿窗口未保护”
    '处理代码。。。。。
    End If
    End Sub

    展开全文
  • 通过MOVE指令修改打开一个程序时的窗口大小,初始显示位置
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧80 在菜单栏指定位置添加菜单 12 技巧81 屏蔽和删除工作表菜单 12 技巧82 改变系统菜单的操作 12 技巧83 定制自己的系统菜单 12 技巧84 改变菜单按钮图标 12 技巧85 右键快捷菜单增加菜单项 12 技巧86 自定义...
  • 在这里最重要的问题是:color=DarkRed]无法得到下载CSV文件的具体地址,只能通过点击链接--点击保存--另存为来完成为了用VBA实现这一系列的功能,而且避免需要手动使用鼠标或者键盘进行保存操作...

    想要下载网页的 CSV文件 ,因为需要打开网页后,点击“SAVE AS EXCEL”的链接,出现“下载文件”的窗口,点击“保存”,出现“另存为”的窗口,修改文件的保存名称,点击保存。才算完成。

    在这里最重要的问题是:color=DarkRed]无法得到下载CSV文件的具体地址,只能通过点击链接--点击保存--另存为  来完成

    为了用VBA实现这一系列的功能,而且避免需要手动使用鼠标或者键盘进行保存操作,我想了很多办法。

    1.我试过QueryTable, 但因为所要下载的内容不是网页显示的数据,不能实现。

    2. 我也试过API 的 URLDownloadFile,也无法实现,因为没有需要下载文件的具体地址

    3. 我也尝试过右键获得文件的具体地址,但是无法实现。

    4. 试过IE 控件,这样将 ie.document.execcommand "saveas" 只是将网页“另存为”,而不是下载我所需要的文件。

    所以,我觉得可能只有用点击链接--点击保存--另存为的方法来实现所需CSV文件的下载。

    因为我要下载的文件是内部网的文件,所以无法把例子直接放上来。但是我在坛子里发现了一个类型的帖子,http://club.excelhome.net/viewth ... p;page=1#pid3360137, 我把那位楼主的例子拿来试一下,希望高手能够帮帮我。我觉得这个也是一个很典型的例子,因为网页下载需要用到鼠标控制的另存为,在坛子里还没有看到成功的例子。

    下面是链接的帖子中的yq7654提供的例子;

    超链接是个DOC文件,我现在要用MOUSE右键"目标另存为(S)"来下载这个文件

    下边是代码,请帮我瞧瞧红色的部分,是啥原因?

    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

    Private Const HWND_BOTTOM = 1

    Private Const SWP_SHOWWINDOW = &H40

    Private Const SWP_HIDEWINDOW = &H80

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long

    Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

    Private Const WM_GETTEXT = &HD

    Dim CADObject As Object

    Sub test()

    Dim myIE2 As SHDocVw.InternetExplorer '

    Dim n As Integer

    n = 0

    Set myIE2 = New SHDocVw.InternetExplorer '

    myIE2.navigate "http://club.excelhome.net/viewthread.php?tid=224784"

    myIE2.Visible = True

    Do While myIE2.Busy: DoEvents: Loop

    Do While myIE2.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

    myIE2.Document.all.tags("a")(51).Click

    h1 = FindWindow("#32770", "文件下载") '获取文件下载对话框句柄"文件下载

    ‘一直到这里都是成功的,这时候已经出现了"文件下载“的对话框,但是下面的程序就无法运行

    希望下面能够使用VBA 实现:   1. 自动点击”文件下载“对话框下的 ”保存“键

    2. ”保存“键后会出现”另存为“对话框,自动在”另存为“对话框中键入”mydocument" 为新的文件名称。

    If h1 = 0 Then MsgBox "不能下载!": Exit Sub

    SetWindowPos h1, HWND_BOTTOM, -100, -100, 0, 0, SWP_HIDEWINDOW

    SendKeys ("%s"), True         ' SendKeys ("%(s)"),

    SendKeys后,h2总为"0",啥意思?

    h2 = FindWindow("#32770", "另存为")  '获取另存为对话框句柄

    SetWindowPos h2, HWND_BOTTOM, -100, -100, 0, 0, SWP_HIDEWINDOW

    EditBox& = FindWindowEx(h2, 0, "ComboBoxEx32", vbNullString)

    e4& = FindWindowEx(EditBox&, 0, "ComboBox", vbNullString)             '这个是写文件名位置的那个下拉框

    e5& = FindWindowEx(e4&, 0, "Edit", vbNullString)             '这下才到文本框

    strCaption = String(1024, Chr(0))           '初始化字符串

    SendMessageByString e5&, WM_GETTEXT, 1025, strCaption           '向系统发送获得的“edit”栏中字符串的命令

    strCaption = Split(strCaption, Chr(0))(0)         '根据   默认文件名   长度得到   默认文件名   值

    txt = strCaption

    SendKeys "d:\" & txt, True                                                     '输入文件名

    SendKeys "%(s)", True         '         '保存

    SendKeys "%(y)", True         '         '替换

    MsgBox "您的文件已经保存!"

    End Sub

    展开全文
  • Sub yy()Dim sr As String, fd As Boolean, l As Integer, i As IntegerDim arr() As String, z As Integer, gt As Boolean, arr2() As Variant, arr3() As VariantApplication.DisplayAlerts = FalseApplication.Sc...
  • 1.案例说明在早期的Basic...在VBA中,Print 方法只能向“立即窗口”中输出程序的运行中间结果,供开发人员调试程序时使用。本例使用Print 方法在立即窗口中输入九九乘法表。2.关键技术.在VBA中,Print 方法只能应用...
  • 实际上,还可以通过编写一行简单的VBA代码实现这种功能。下面我们来看看具体操作。1、启动Excel并打开工作表,按“Alt+F11”键打开Visual Basic编辑器。创建1个模块,然后在该模块的代码窗口中创建两个过程并分别...
  • vba 插入图片

    2013-03-19 17:34:16
    根据某一列的值获取相应的图片名称,插入到某一列
  • VBA窗体最大化、最小化、调整大小

    千次阅读 2018-12-15 08:48:34
    VBA窗体最大化、最小化、调整大小 Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long ...
  • VBA窗体默认只有一个关闭按钮,没有最大化和最小化按钮,下面的代码可以方便的为窗体增加最大、最小化按钮,让窗口使用更方便。 调用方法 窗体最大最小化 Me 窗体最大化 Me 函数代码 '窗体的最大最小化 Public ...
  •  Range("B14:C14").Select '选择单元格 这里选中的是一个合并的... Selection.ShapeRange.IncrementLeft 41.2162204724 '设置图片位置  Selection.ShapeRange.IncrementTop 9.4594488189 '设置图片位置
  • VBA调用Shell

    千次阅读 2021-08-28 15:32:59
    VBA中执行Shell介绍,打开应用,执行python、bat、mysql;
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • 上周,我发了关于Excel VBA的第一篇文章后,社群里就砸开了锅 看到辣么多小伙伴们,辣么喜欢,我的干劲儿就更足了。于是,我准备把Excel VBA写成一个系列免费教程,撸完这个系列你也是VBA界的黑山老妖了。 今天是这...
  • 打开的Excle如何使用VBA查看当前窗口的宽与高呢?代码如下:Sub 查看宽度与高度() Dim myWidth As Double Dim myHeigth As Double myWidth = Application.Width myHeigth = Application.Height MsgBox "当前...
  • Excel VBA

    2021-10-13 11:32:37
    一、宏与VBA 什么是宏与VBA VBA(Visual Basic for Applications)是[Visual Basic](https://baike.baidu.com/item/Visual Basic)的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能...
  • 大家好,在第47和48讲中,我们比较详细地给大家讲解了各种模块的有效行为。大家可以窥探到各种模块的实质...关于VBA代码的调试,无论是标准模块的代码,还是窗体模块的代码,或者类模块中的代码,调试都是写代码工程...
  • VBA调用浏览器打开指定网页的几种方法下面的几段VBA代码都可以打开浏览器并打开指定的网页:方法一:用API打开默认的浏览器Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal ...
  • VBA研究】VBA代码的存放位置

    千次阅读 2011-07-18 17:51:29
    作者:iamlaosong 学习VBA一般都从录制宏开始,宏代码存放在模块中,第一次录制的时候,系统会自动插入一个模块。我在编写自己的宏时,开始代码只会放在模块中,后来,我才了解到代码还有很多地方可以保存。打开...
  • 摘要:本文通过利用Excel内嵌的VBA编程语言和Excel的宏功能相结合,实现了Excel下工资条的制作与工资查询窗口的建立。关键词:VBA;宏;办公应用中图分类号:TP311文献标识码:A文章编号:1009-3044(2008)14-20888-...
  • Excel VBA(08)窗体和控件

    千次阅读 2020-04-29 16:36:58
    基础部分 一、窗体的基本操作 1、窗体插入 2、运行窗体 ...要么用代码调用窗体的 show 方法 3、关闭窗体 代码关闭是 unload testform方法 ...背景图片:picture,代码里面可以...属性窗口里面可以查看 5、位置大小 to...
  • 获取当前文件夹的名称(CurDir 函数)当你使用文件时,经常会需要知道当前文件夹的名称,你使用CurDir函数轻易地获取该信息:CurDir([drive])Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。CurDir函数...
  • VBA窗体最大化最小化按钮实现

    千次阅读 2018-12-07 23:24:20
    如果此时运行,得到的效果如下所示,是没有最大化和最小化窗口的: 下面我们就来添加最大化最小化功能的实现。 双击窗体,进入代码编辑界面,输入以下代码: Option Explicit Private Declare PtrSafe Function ...
  • 如何在VBA中使用正则表达式

    千次阅读 2019-05-26 11:56:56
    VBA中的正则表达式应用  在VBA中使用正则表达式,可以通过下列途径实现: 创建正则表达式对象: 前期绑定: 在VBA代码编辑器中的"Tools"菜单中,选中"References…",然后引用Microsoft VBScript Regular ...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,844
精华内容 1,537
关键字:

vba窗口位置