Tag: 位置

在Excel工作表中获取combobox的位置: 我有一张带有combobox的表格。在combobox的左边有一个列，用户可以使用“X”标记位置，如果其右侧的combobox应该做些什么（用dynamic范围内的值填充）。我正在考虑这样的事情，但我没有设法使其工作： Dim ComBx As ComboBox Dim ws2 As Worksheet Set ws2 = ActiveWorkbook.Worksheets("Tool") For Each ComBx In ws2.ComboBox If ComBx.Offset(0, -1).Value = "X" Then With ComBx 'do stuff End With End If Next ComBx 任何想法如何引用一个combobox的位置？我必须做类似的checkbox，它工作得很好，但是这逃避了我。

vbamacros用于复制工作表，然后从另一工作表复制一些信息到复制的工作表: 我有问题得到这个工作。我只想在第一张纸之前从左边复制第二张纸。然后将刚刚成为第二张的信息复制到新的最左侧的纸张。我在SELECTION.Copy上得到一个错误，指出有一个预期的variables缺失。 Sub GenerateInvoice() Sheets(2).Select Sheets(2).Copy Before:=Sheets(1) Sheets(2).Select Range("H2:N2").Select SELECTION.Copy Sheets(1).Select Range("E11").Select SELECTION.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

如何使vba中的位置variables？: Workbooks.Open ("C:\Users\**VARIANT**\Desktop\Excel Before Code Templates (BCT)\Data_BCT.xlsx") 我想使“变体”部分变成依赖于input的variables。我想这样做，因为它需要每个其他用户修改。

位置转换: 如果我有以下格式的位置： N51 46.981 W1 36.145 有没有简单的方法将其转换为经纬度？它写的内容并不重要，因为我需要运行一个脚本来转换其中一小部分。理想情况下，我会在Excel / Numbers电子表格中执行此操作。我最近尝试使用Excel中的MID命令将数据抓取到以下内容中： 51:46:981 01:36:145 然后乘以24得到一个纬度或经度值。我相当确信这是不正确的，因为它似乎失去了准确性。有没有更简单的方法来做到这一点？使用谷歌地图和search上面的第一个值我得到的结果： 51.783017, -1.602417 这基本上是我在找的东西。

XL VBA如何防止在第一个.Show中忽略UserForm的.Top和.Left属性？: 我有一个Excel 2007 VBA项目与几个用户窗体，其中之一是包含日历控件12.0对象的dateselect器。每当用户点击其他表单上的两个文本框控件之一时，dateselect器就被激活。我想控制dateselect器的启动位置，这样，当显示时，它与任何已经被点击的文本框控件一致。为此，date选取器userform（ frmDatePicker ）公开三个公共variables： xOffset ， yOffset和frmParent 。其意图是，在显示frmDatePicker之前，它的.Top和.Left属性将通过引用这三个variables来设置，这些variables本身是由调用子程序初始化的。（用户.StartUpPosition的.StartUpPosition属性也设置为零（即“手动”）以允许以这种方式控制其初始位置。）这工作完美…除了第一次显示dateselect器。第一次调用.Show方法时， frmDatePicker不会与单击的文本框alignment。从第二次起，这个问题就消失了。 frmDatePicker的代码如下： Option Explicit Public InitialDate As Variant Public xOffset As Double Public yOffset As Double Public frmParent As Object Private DateSelected As Boolean Function Execute() As Boolean If Not frmParent Is Nothing Then Me.StartUpPosition = 0 Me.Left […]

Excel VBA表单控件 – 重置列表框滚动条: 我写了下面的代码，从同一张纸上的六个列表框（多选）拉取数据，将select传递给一个模块进行计算，然后清除列表框select。尽pipe非常令人沮丧的唯一问题似乎微不足道的是获取列表框“滚动条”为每个列表框重置其位置列表的顶部。我曾尝试.TopIndex，但因为我使用的是一个窗体控件，而不是一个ActiveX控件，它返回“对象”不支持。有谁知道如何重置列表框滚动条位置顶部的窗体控件列表框？ Sub Listboxproperties_click() 'store selected items from listbox into an array Dim listarray() Dim J As Integer Dim R As Integer Dim i As Integer 'Add selected items into the array ReDim listarray(1 To 50, 1 To 6) 'Counter J = 0 For R = 1 To 6 Set lb = ActiveSheet.ListBoxes("ListBox" […]

为每个ActiveCell单击位置用户表单不同: 我有一个MonthView和DTPicker的用户窗体，将填充特定的单元格时单击。我将表单定位在第一个单元格的正下方，但希望它填充在我告诉它激活的每个活动单元格的正下方。我目前激活的代码来定位用户的forms是： Private Sub UserForm_Activate() With frmCalendar .Top = Application.Top + 340 .Left = Application.Left + 330 End With End Sub 和我的工作表select更改代码，这将启动用户窗体的某些单元格点击是： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("H10,H15")) Is Nothing Then frmCalendar.Show End If End Sub 我知道那里有插件帮助做到这一点，但我想弄清楚如何在不使用加载项的情况下将用户表单定位在上述单元格（H10，H14，H15）的正下方。我是否需要将代码添加到工作表子或激活子？那是什么代码？谢谢。编辑：我刚刚更改了激活子代码 Private Sub UserForm_Activate() With frmCalendar .Top = ActiveCell.offset(31).Top […]

Excel VBA图表自动形状左上angular位置: 我在Excel中有一个图表。我已经为图表添加了一个形状： excelChart.Shapes.AddShape(msoShapeRectangle, 0, 0, excelChart.ChartArea.width, 15) 我select了绿框，并运行下面的macros： Sub Macro6() Selection.ShapeRange.Left = 0 Selection.ShapeRange.Top = 0 End Sub 我期待绿色框被定位在橙色图表区域的左上angular，但是正如你所看到的，在顶部/左边零点坐标开始之前，似乎有某种边距。如何以编程方式将绿色框放在angular落里？

如何获得工作表中形状的相对位置: 如果你想到单元格，我们逻辑上知道第2行高于第100行。但是，如果我有两个形状（让我们说圈子），我该如何确定哪一个比另一个更高，还是比其他的更远？ UPDTAE 所有对象和方法/属性的对象模型在哪里？1.图表>>左上angular