我有一个代码,它创建到一个新工作表的超链接,该工作表是在另一个称为“管理”的工作表中创建的,位于单元格“A6”中。如何对其进行编码,以便每次创建新工作表时,都会创建到不同单元格的超链接?例如,为每个新工作表创建A7、A8、A9等。
这是我到目前为止掌握的代码
Private Sub Button8_Click()
Dim newSheet As Worksheet
Dim newName As String
Do
newName = Application.InputBox("What do you want to name the new sheet?", Type:=2
我正在尝试使用"CurrentRegion“构建一个二维数组数据。
Function ProcessData()
Dim dataList()
dataList = Range("A1").CurrentRegion
' TODO Process the dataList
End Function
当我在Visual Basic (Run/F5)中测试它时,它工作得很好;我的dataList构建起来没有任何问题。但是,如果我将工作表中的单元格设置为:
= ProcessData()
该函数在"CurrentRegion“步骤中静默失败。这一切为什么要发生
我有一个Access数据库,并且在Excel工作表中有数据。我需要使用Excel工作表中某些单元格中的数据来更新Access数据库中表中的单元格。
我很难获得到Excel工作簿工作表的连接。
我在努力
Sub test()
Dim xl As Excel.Application
Dim ws As Excel.Worksheet
Dim wb As Excel.Workbook
Set xl = CreateObject("Excel.Application")
Set wb = GetObject("H:/ggg.xls")
Set ws = xlWrkBk
事情是这样的。
假设工作表1包含数字数据。例如:
Country Population GDP ...
India V1 V4 ...
Russia V2 V3 ...
... ... ... ...
在表2、3、...、n上,每个国家都由一个单元格表示。
我想:-表2根据表1的第2栏对各个国家进行着色... -表n根据表1的第n列对各个国家进行着色
(类似于热图)
我找到了描述如何着色的链接:-依赖于包含的值的单元格(条件格式的简单使用)-依赖于同一工作表中另一个单元格的值的单元格
我需要的是一种根据另一个工作表
我可以使用以下VBA代码根据同一工作表中的单元格引用成功命名工作表选项卡:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
On Error GoTo Badname
ActiveSheet.Name = Left(Target, 31)
Exit Sub
Badname:
MsgBox "Please revise
我编写了下面的代码来匹配来自另一个工作表上单元格的单元格,这样我就可以在需要的地方偏移和粘贴更多的数据。 代码似乎只能找到工作表的顶行,而不能找到包含该值的单元格。 Sub Find_select()
Dim matchValue As Variant, FindCell As Long
Sheets("Booking Sheet").Activate
matchValue = Worksheets("Booking Sheet").Range("BE5").Value
FindCel
我正在使用宏在我的工作簿中创建一个临时工作表,用数据填充该工作表上的一堆单元格,将该工作表导出到新的工作簿,然后关闭新的工作簿。 这一切都运行得很好。我要做的是向临时工作表(以及新工作簿)添加一个下拉列表,该列表包含已添加到该工作表的单元格值的列表。因此,我在谷歌上搜索了如何做到这一点,并偶然发现了以下代码: Sub main()
'replace "J2" with the cell you want to insert the drop down list
With Range("J2").Validation
.Delete
'repl
我正在构建一个代码来重新格式化(下划线,着色)任何活动工作表的部分(不是一个特定的)。代码工作,但它是有限的,因为我是任意设置单元格。
也就是说,对于下面的第一个formatting function,我使用的是m=2 To 500 n = 2 To 200,我正在测试工作表中的宏,其中包含A1:L 150中的值。我真正需要的是动态定义活动区域(第一行和第一列除外),即有值的工作表区域。因此,例如,如果工作表的值在A2:M 1055范围内,则需要在此区域进行格式化。如果另一个工作表在区域A2中填充了单元格,则O 1500格式将覆盖后一个区域。因此,用户不必在理想情况下定义区域(除非没有其他方法
如果满足某些条件,我试图创建一个从原始数据中提取数据的表。我目前拥有的代码似乎不起作用。
Public Sub insert_rows()
Dim datasheet As Worksheet
Dim datasheet2 As Worksheet
Dim r As Long
Dim tableA As ListObject
Set tableA = Worksheets(Sheet7).ListObject(Preventable)
Set datasheet = Worksheets(Sheet7)
Se
我在一个工作簿中有51个独特的标签。每个选项卡都有一些代码,当51上的某些单元格发生变化时,这些代码将更新第52个选项卡。总之,它是51个选项卡中每个选项卡上2个单元格的审核历史记录。
我拼凑了以下代码,并将其放到每个worsheets VBA部分。问题是,我必须为工作簿中的每个工作表执行此操作。我想我应该只有一个普通的调用VBA的肉…
Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Or Target.Address = &
我想比较两个不同工作表中两列的值,如果值相等,则第一个工作表中的相应单元格将在第二个工作表中的相应单元格中采用相同的值。所以我使用了一个循环函数,但问题是我不能在第一个表的函数中定义和使用第二个表。
我将非常感谢指导我解决这个问题。
你会在下面找到我想要使用的函数:
Sub Test_V01()
Dim i As Integer
Dim j As Integer
Dim Bouira As Excel.Worksheet
For j = 3 To 100
For i = 3 To 120
If Cells(j, 3)