Tag: 移动

根据值移动单元格

对于excel来说，我对于VBA非常有帮助。 我有一个产品表，产品可以有多个类别。 链接到产品的类别可以包含子类别，它们位于其旁边的列中。 如果产品有多个类别，则这些类别位于产品下方一行。 见图1。 我想要实现的是：每次执行脚本时，产品信息行上的当前类别都需要用它下面的类别replace，直到到达下一个产品。 如果没有新的类别可replace，则产品行可以被删除。 （在这个例子中，我需要运行脚本3次）。 所以我最终会以此结束： 第一次运行脚本： 第二次运行脚本： 运行脚本第三次： 我到目前为止的代码是： Sub MoveEmpty() Dim i as Long, j as Long Application.ScreenUpdating = False j = Range("A" & Rows.Count).End(xlUp).Row For i = j to 3 Step -1 If Range("A" & i) <> "" Then Range("C" & i -1) = Range("C" & i).Resize(,3) Range("A" & […]

如果在不改变“选项”设置的情况下按下回车键，在Excel中移到右侧单元格

我试图找出如何进入正确的单元格后，无需更改选项设置中的input。 或者，如果没有，当按Enter键时，如何让工作簿中的每个工作表走向不同的方向。 （即表1：当你按Enter键时，它会转到右边的单元格，表2：当你按下Enter键时它会下降）。

excel vba将每个文本文件移动到一个新的目录使用文件名？

我正在使用以下vba代码将所有文本文件导入到Excel中的新行。 这个位工作正常，接下来我想要做的就是导入文本文件，我希望每个文本文件从一个目录'Z:\NS\Unactioned\'到另一个名为“动作'Z:\NS\Actioned\&Filename\'目录中'Z:\NS\Actioned\&Filename\' 。 并在该文件夹中创build一个文件夹从每个文件的文件名（减去文件扩展名），然后我可以将每个文本文件放在相应的文件夹。 所以，如果我的文件夹中有3个.txt文件Unactioned： 1.txt 2.txt 3.txt 那么每个txt文件都会像这样移动： Actioned/1/1.txt Actioned/2/2.txt Actioned/3/3.txt 有人可以告诉我如何做到这一点？ 谢谢 码： Sub Import_All_Text_Files_2007() Dim nxt_row As Long 'Change Path Const strPath As String = "Z:\NS\Unactioned\" Dim strExtension As String 'Stop Screen Flickering Application.ScreenUpdating = False ChDir strPath 'Change extension strExtension = Dir(strPath & "*.txt") Do While strExtension <> "" 'Sets Row […]

Node.js Web和移动应用程序 – 哪里可以读取excel文件？

我从节点j开始，我正在尝试构build一个Web应用程序和一个移动应用程序。 我的想法是build立一个Node API，然后创build一个Web应用程序（也许使用Angular）和一个Android应用程序。 其中一个主要function是使用Web应用程序从Excel文件加载数据，处理这些数据，然后在Web应用程序和移动应用程序中显示一些信息。 我不知道这是否是最好的方法去..我怎么能发送从Web应用程序的Excel文件的节点API，然后读取文件并处理它？ 我看过几个节点包来读取excel文件，这不是问题。 我只是不知道如何将Excel从我的networking应用程序传递给API。 谢谢。

VB.NET 4.5在运行时在Excel工作表上移动控件

我在64位Windows 8.1专业平台上在Visual Studio 2013中使用Visual Basic 2013与VSTO。 我创build了一个function区插件，允许用户通过该function区将控件放置在电子表格上。 我一直在试图添加额外的function，以便当用户点击/拖动一个控件（在这种情况下是一个Windows.Forms.Button）时，它可以被拖动（或者只是移动）到工作表中的另一个点上。 我根本找不到办法做到这一点。 我可以让它移动，但只有在其显示矩形（我认为），以便部分（或完全取决于我移动多远）button消失。 我无法发布任何有意义的代码，因为我已经尝试过/重试过，写过/重写了很多次，没有太多的成功。 你知道如何或如果我可以在一个表内移动这些控制/button？ 谢谢， 在下面添加了一些附加信息 我已经清理了一些代码，可以帮助你，如果你正在看这个问题。 下面的第一部分是mousedown和mousemove事件的事件处理程序。 这些允许移动控制button，但是您可以通过电子表格（显示矩形？）中的窗口看到它，如果按住鼠标button将其移动到查看矩形的边界之外，该button将消失。 Private Sub button1_mousedown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Dim sentButton As Button = CType(sender, Button) Dim a, b As Rectangle a = sentButton.ClientRectangle b = sentButton.DisplayRectangle xy = Control.MousePosition.X – sentButton.Location.X yx = Control.MousePosition.Y – sentButton.Location.Y End Sub […]

用模式search和复制移动单元格

我想在VBA中实现以下function Input Workbook1 Index Value 1 a 2 a 3 b 4 c 5 a 6 b 7 a 8 c 输出工作簿2 我想有以下格式的输出，以便我可以生成具有相同X轴的graphics Index Value 1 Value 2 Value 3 1 a 2 a 3 b 4 c 5 a 6 b 7 a 8 c 我使用了两个函数，第一个将两列从工作簿1移动到工作簿2 Sub MOVE() Sheets("Workbook1").Columns("A").Copy Sheets("Sheet1").Range("A1") Sheets("Workbook1").Columns("B").Copy Sheets("Sheet1").Range("B1")` end sub […]

为每个唯一代理创build一个新工作表并将所有数据移动到每个工作表

我有这个问题，我试图解决。 每天我都会收到一份包含我需要发送的数据的报告。 所以为了使它更容易一点，我试图find一个macros，创build一个新的工作表与代理的名称，并移动创build表中的每个代理的数据… 我find了一个可以做很多事情的人。 但是，由于这不是我的专业领域，所以我无法修改它来处理我的请求，甚至可能使其工作。 任何人有任何想法？ Const cl& = 2 Const datz& = 1 Dim a As Variant, x As Worksheet, sh As Worksheet Dim rws&, cls&, p&, i&, ri&, j& Dim u(), b As Boolean, y Application.ScreenUpdating = False Sheets("Sheet1").Activate rws = Cells.Find("*", , , , xlByRows, xlPrevious).Row cls = Cells.Find("*", , , , […]

通过.Copy（）创build一个新的Excel工作表并将其移动到最后的位置

我已经有一段时间了， 我想通过复制另一个来创build一个新的工作表。 这将新工作表放置在复印工作表之前。 然后我想把它移到所有表单的最后。 目标是按照该顺序将工作表称为> summary1> summary2> summary3 ..等等 这是我所拥有的（原谅简洁） $ex = New-Object -ComObject Excel.Application $ex.Visible = $true $wb = $ex.Workbooks.Add() for ($i = 1; $i -le 3; $i++) { $wb.Worksheets.Item(2).Copy($wb.Worksheets.Item(2)) $newSheet = $wb.Worksheets.Item(2) $newSheet.Activate() $name = "Summary$i" $newSheet.Name = $name $wb.Worksheets.Item($name).Move($wb.Worksheets.Item($i + 1)) } 它适用于第一个工作表，它重命名工作表，然后将其移动到最后，但每次达到.Move方法后，它都不会执行任何操作，只能激活（）原始“摘要”工作表。 我不知道如何解释这种行为。提前谢谢你。 编辑：改变$ wb.Worksheets.Item（“摘要”）。移动到$ wb.Worksheets.Item（$名称）。移动 编辑： 这是解决scheme： for ($i = […]