我对一些Excel visual basic有一点困难。特别是,我希望根据单元格的值更改列的格式。这是我到目前为止所掌握的。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("$b$1") Then
If Range("$b$1") = "Date" Then
Range("d:d").NumberFormat = "m/d/yyyy"
El
如何使用自动筛选功能复制excel VBA中的特定列?我有一个从A到E列的工作表中的数据。Criteria列是A,并且我只想将C和D列复制到另一个工作表。 下面的代码复制了所有列,但我只需要两列C&D Dim ob as range
Set ob = Worksheets("ob").Range("a3:e27")
ob.Parent.AutoFilter.Range.Copy
With Sheet3.Range("a9")
.PasteSpecial Paste:=8
.PasteSpecial xlPasteVa
我想将两个excel文件(Book1.xlsx和Book2.xlsx)导入到access数据库表(Table1)中,其中有一个额外的列指示数据源:
1.xlsx
Name Age
Paul 30
2.xlsx
Name Age
John 20
Table1
Name Age Source
Paul 30 Book1
John 20 Book2
通过Access VBA或Excel VBA自动执行此操作的最佳方法是什么?我将有几十个excel文件,每个文件包含约50K行。
是否必须打开每个excel文件才能运行Excel VBA宏,然后使用ADODB
我正在尝试创建一个VBA,它将在一个表中将特定列/列范围的计算设置为手动,该表被设置为自动计算。
因为仪表板已经太慢了,所以我不希望这些特定的列/范围像表的其他部分那样自动计算。我正在使用这个vba,但是当我第一次将cust #加载到我的excel仪表板时,我的整个表仍然在自动计算。
Sub Recalc()
Selection.Calculate
End Sub
有什么想法吗?
我有这个Excel电子表格/工作簿,它分析一些数据并创建另一个精简的电子表格。问题是当工作表有超过255列时。当运行底部的VBA代码行时,它返回1,而不是258。似乎我正在开发的VBA脚本是为较旧版本的Excel编写的,对吗?我该怎么做才能让这件事正常运作?
Excel.Worksheet.Cells(1, MySheet.Columns.Count).End(xlToLeft).Column returns 1 when there are more than 255 columns
如何使用VBA查找Excel工作表中的已用列数?
Dim lastRow As Long
lastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastRow
使用上面的VBA,我能够找到行数。但是我如何在给定的excel文件中找到列数呢?
我希望从VBA启动/停止Excel中的“修订”功能。
通过网络搜索,我看到了一个名为TrackRevisions of ActiveDocument object的属性。假设在MS Word中编写ActiveDocument.TrackRevisions = True应该打开"Track changes“。
但在MS Excel中,此行显示424 Object required运行时错误。尝试使用ThisWorkbook时返回相同的错误。将其更改为ActiveSheet会带来438 Object doesn't support this property or method错误
我用VBA在Excel中过滤我的表,并将它保存在一个范围变量中。我有1000个字段,过滤后只有200个字段。我将数据保存在一个范围内,并随机选择这个范围内的一个数字。
在此之后,我想在过滤过的线路上更改信息。不过,我不知道该怎么做。例如,如果我使用Cells(Line, 10),vba会考虑所有行并打印出范围。
如何仅按数字或地址更改筛选的单元格?
Dim Rng As Range
ActiveSheet.Range("A1:AE" & tlast_row).AutoFilter Field:=1, Criteria1:="teste"
Set Rng=
在excel中,如何在A列中创建自动编号?例如:如果我用“比利”在D1中输入单元格值,A列将填充1,2,3.
我搜索并发现衣柜正在使用下面的公式,但无法完成我想要的,因为在C列中,我需要选择多个数据。
A B C
ABC JAMES
XYZ BOB
1 OXY BILLY
2 BNX BILLY
SDA MIKE
3 WXK BILLY
SAK JANE
以前有人用公式或vba做过这种事吗?感谢你的帮助谢谢。
我正在尝试编写一个宏以跳转到Excel中的一个单元格,在那里我会通过高亮显示来选择一个特定的列,然后跳转到包含来自不同列的搜索值的行。我知道如何制作宏和快捷方式,这只是我正在挣扎的vba代码。我发现这个宏只需要知道如何更改它,以便跳转到包含特定列中的搜索值的行,而不是输入的行号。
Sub JumpTo()
'Description: Select the specified row or column
'If row is specified, active column is used
'If column is specified, active row i
我希望在excel中有一个按钮,插入一行,然后合并前三列。
下面是我的密码。它生成行,但不合并列。我今天刚开始使用VBA,所以我认为这可能是语法错误。
有人能帮忙吗?干杯
我的vba代码:
Sub AddRow()
Dim rowNum As Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
Title:=&
我是用Excel编写VBA的新手。在Excel工作表中,我的事件发生在多个列的一行中。这些事件仅通过它们的颜色来表示(除了它们是空白单元格之外)。想象一下,单元格A1到G1为红色,H1到V1为蓝色。
我正在尝试写一个sub,当一个单元格改变颜色时,它会告诉我。使用我当前的代码,在下面的文本中,Excel停止响应并弹出错误代码“run-time error '-2147417848 (80010108)‘”。我不确定问题出在哪里。
Sub colorReader()
Set a = ActiveCell
Range("C8").Select
我是VBA的新手,我正在尝试删除从.csv文件中加载的不需要的列。我正在导入大量的数据,但是我会问用户他们希望通过"ID“保持哪些列。有许多列有不同的ID号。我想问用户他们想保留什么,然后删除剩下的。
问题是,我需要删除用户不想要的所有其他列,但我仍然需要保留前6列和最后两列,因为这是不同的信息。
以下是我到目前为止所拥有的:
Sub Select()
'the below will take the users inputs
UserValue = InputBox("Give the ID no. to keep seperating with a comma e.