Excel/VBA -将焦点和滚动设置为控件
Excel/VBA是一种用于Microsoft Excel的宏语言，可以通过编写VBA代码来自动化和定制Excel的功能。在Excel/VBA中，可以使用一些方法来将焦点和滚动设置为控件。
- 将焦点设置为控件：
- 使用
SetFocus方法可以将焦点设置为指定的控件。例如，如果有一个名为"TextBox1"的文本框控件，可以使用以下代码将焦点设置到该控件上：TextBox1.SetFocus - 另外，可以使用
Activate方法将焦点设置到工作表或工作簿上的某个区域。例如，以下代码将焦点设置到工作表的A1单元格上：Worksheets("Sheet1").Activate Range("A1").Select
- 使用
- 设置控件的滚动：
- 对于具有滚动条的控件，可以使用
Scroll属性来设置滚动位置。例如，如果有一个名为"ScrollBar1"的滚动条控件，可以使用以下代码将滚动位置设置为50：ScrollBar1.Value = 50 - 对于工作表或工作簿，可以使用
ScrollArea属性来限制可见区域并设置滚动位置。例如，以下代码将工作表的可见区域限制为A1:D10，并将滚动位置设置为A5单元格：Worksheets("Sheet1").ScrollArea = "A1:D10" Range("A5").Select
- 对于具有滚动条的控件，可以使用
Excel/VBA的焦点和滚动设置可以用于改善用户体验，使用户能够更方便地与Excel工作簿中的控件进行交互。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云官网：https://cloud.tencent.com/
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库MySQL版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云云存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发（移动推送、移动分析）：https://cloud.tencent.com/product/mps
- 腾讯云区块链（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云元宇宙（Tencent Meeting）：https://meeting.tencent.com/
相关·内容
我循环遍历电子表格上的ActiveX控件以实现选项卡控件。我的电子表格中有大约100个控件，所以不是所有的控件都能放在一个“页面”上(它们都在同一个标签中，你只需要向下滚动)。我可以使用Activate将焦点设置到下一个控件。但是，当我用tab键浏览控件并经过可视窗口的底部时，窗口不会自动滚动以显示具有焦点的控件。有没有办法让电子表格滚动，这样具
浏览 23提问于2017-01-24得票数 0
我有一些使用ActiveControl属性的访问VBA代码。这将抛出一个错误，如果碰巧没有控制与焦点。我是否需要担心，如果总是有可见的控件，可以有焦点？也就是说，在总是有可能有焦点的控件的情况下，没有控制有焦点的方法吗？
我看到其他关于一些相关问题的帖子。它们似乎表明，唯一的方法(如果我想让VBA阻止任何控件具有焦点)是将焦点设置为一些物理上隐藏
浏览 5提问于2019-09-28得票数 0
回答已采纳
我有一个接受键盘输入的WinForms UserControl，还有一个滚动条，一切都很好。最近，我将滚动条控件替换为自定义滚动条(也是UserControl)，现在在单击自定义滚动条之后，我的自定义控件失去了焦点，使其返回的唯一方法是单击不同的可聚焦控件(如TextBox)，然后在我的UserControl如果滚动条有焦点，并且我在UserControl内单击使它具有焦点，我注意
浏览 4提问于2022-07-21得票数 0
1回答
我无法找到如何通过将焦点从控件/字段移动到UserControls背景或其他位置来允许鼠标轮滚动，从而使用户鼠标轮可以滚动窗口。如何将焦点从任何控件/字段移到UserControls背景或其他位置，以允许鼠标轮滚动窗口/窗体/用户控件？编辑：--在Form.cs和停靠面板上，AutoScroll设置为False，但是，在每个
浏览 0提问于2018-09-17得票数 0
3回答
我有下面的代码，它可以在所有其他情况下工作，除了在单个情况下，它返回错误“无法移动焦点，因为它是不可见的，没有启用的，或者类型不接受焦点”。工作表中的数据仅由基本数字和单词组成。似乎excel没有识别出单元格中的任何内容，尽管实际上确实存在。有人知道为什么会发生这种情况吗？提前谢谢。
浏览 2提问于2013-10-15得票数 0
3回答
我有面板与控制和滚动.By默认我设置的焦点到面板。(我需要焦点到面板默认)如果我滚动面板到一些地方，最小化和最大化它的形式，它是设置的位置到顶部的形式。如果我选择任意一个控件并执行相同的操作，它将聚焦相同的控件。
我认为这里的控制焦点导致了问题。如何根据滚动设置控件焦点？或者如何在最小化和最大化窗体时显示相同的
浏览 0提问于2011-08-23得票数 0
回答已采纳
1回答
我在我的网站上有一个表格，当我点击提交按钮时，我想当有一个错误的页面滚动回有错误的字段。
有什么想法吗？
浏览 0提问于2016-04-08得票数 0
1回答
关于如何将滚动条/焦点保持在窗体顶部，有什么想法吗？
我有连续的表单，许多文本框和列表框使用户滚动表单，无论他们的屏幕分辨率大小。自从我用行源查询实现了Listbox之后，每次更改记录时，表单的垂直滚动条都会将焦点更改到表单的底部。我尝试将焦点更改为页面顶部的控件，或者更改更改所述列表框的行源的方式(使用listbox.RowSource = theSQLQUERY之类的vba代码或使用s
浏览 1提问于2013-12-28得票数 0
在TabCtl的OnChange事件中，我将第一个字段设置为setfocus...field1.setfocus，并将Field1.TabIndex设置为0。出现的问题是:当我单击选项卡切换到另一个页面时，底部的字段首先获得焦点，然后field1获得焦点。Access正在将焦点<
浏览 1提问于2020-02-16得票数 1
1回答
MSAccess VBA:假设在任意表单中，焦点设置为该表单上的MyControl。如何在不将焦点放到另一个控件的情况下“取消设置”焦点？
浏览 15提问于2020-06-02得票数 1
回答已采纳
4回答
帮助设置对父级的焦点
、、、、
当我单击usercontrol/form (将usercontrol/form改为焦点)：时，我希望取消对文本框的关注(离开) Protected OverridesMyBase.OnMouseClick(e) End Sub
为什么它不能在子文本框上工作，但是在非子 textbox上工作得很好(焦点放在textBox2上，然后单击面板将焦点从textBox2中移除)？
浏览 5提问于2010-01-06得票数 3
回答已采纳
2回答
在Windows Server 2003上的Excel 2007中，宏拒绝为我运行。功能区上的宏和visual basic图标将灰显。如果打开带有宏的工作簿，则会收到警告：“此工作簿已丢失其VBA项目、ActiveX控件和任何其他与可编程性相关的功能。”我还试着卸载并重新安装office和VBA，没有成功。我制作了一个启用宏的工作簿。我将工作簿的位置设置为受信任。我将</e
浏览 0提问于2009-03-30得票数 2
回答已采纳
我的应用程序中有一个DataGridView，我不能使用鼠标滚轮滚动它。以前它工作得很好。我不确定我做了什么导致了这个问题，因为我最近才注意到这一点，因为我对代码做了多次更改。
浏览 0提问于2012-06-26得票数 4
回答已采纳
我尝试将Properties->Font设置为Myanmar3 (缅甸Unicode字体)。在保存excel文件之前，这些字符在键入时是可见的，或者在文本框中具有焦点。
如何正确显示字符？我正在使用Windows 7(此windows版本尚未正式支持缅甸语言)
我使用Office 2010和VBA7.0
浏览 3提问于2015-01-09得票数 0
回答已采纳
在使用以下代码将焦点设置为跨多个浏览器的回发控件后，我试图保持滚动位置。在IE中工作很好，但是当我试图将焦点重置到导致回发的控件上时，在Chrome、Firefox和Safari中滚动会跳回顶部。我使用scriptmanager.setfocus(控件)方法设置焦点。注意:我指的是标签面板中的垂直滚动条，而不是主页滚动<
浏览 3提问于2013-08-29得票数 0
回答已采纳
2回答
我在Excel VBA项目的UserForm上的框架内放置了一个多行启用文本框。
MaxLength设置为0。IntegralHeight =真。Wordwrap = True。允许使用垂直滚动条。我仍然可以输入更多的文本，并且垂直滚动条可以很好地显示，甚至当我将文本框内容保存到工作表中的单元格时-所有文本都可以很好地保存。在设计时，我可以将Text属性(默认控件值)设置为我想要的字符数，并且它们在
浏览 0提问于2018-11-01得票数 0
我想在打开Excel工作簿20秒后显示一条消息。代码为：Private Sub Workbook_Open()End Sub
Public Sub SetTimer()ShowMsg" MsgBox ("my message")如你所见，代码非常简单，当用户不更新工作表或离开已更新/焦点的单元格时
浏览 2提问于2013-01-23得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
