我想将单元格的值和格式(文本颜色、字体大小、粗体等)从一个工作簿拉入/复制到另一个工作簿。
据我所知,使用标准的单元格引用是行不通的,你需要vba。
下面是一些在同一个工作表中将格式从a3复制到a10的vba代码:
Dim ping As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then
If ping = False Then
Range("A3").Copy
Range(&
是的,我是一个不称职的VBA。我只是在学习,我需要有人来看看这个,并给我指出正确的方向。我想为一系列单元格编写一条if语句。我希望宏查看每个单元格,如果单元格= 0,则清除单元格,如果单元格<>为0,则不执行任何操作,查看下一个单元格。
这是我可怜的尝试。
Sub MACRO6()
Dim VM As String
VM = Range("D29:E43")
Sheets("10").Select
For Each VM In Range
If cell = 0 Then ClearContents
我有以下切割和粘贴行的代码:
'Cut range from source row
Dim lSourceRow As Long
Dim lSourceStartColumn As Long
Dim lSourceEndColumn As Long
lSourceRow = t.Row
lSourceStartColumn = loSource.Range.Column
lSourceEndColumn = loSource.Range.Column + loSource.ListColumns.Count - 1
wksSource.Range(wksSource.Cells(lSo
我想使用vba将图像从剪贴板粘贴到excel单元格。我可以找到这样的代码:
If My.Computer.Clipboard.ContainsImage() Then
Dim grabpicture = My.Computer.Clipboard.GetImage()
PictureBox1.Image = grabpicture
End If
但在这里,grabpicture变量是一个对象。如何从图像对象更新单元格。像这样,
Sheet1.Range("D11").Value = grabpicture
我在Excel2003中有一个VBA项目。
这个VBA项目是用俄语写的,使用西里尔编码,所以在我的英文操作系统(WindowsXP)上所有的注释和消息都是不可读的。
因此,俄罗斯机器上的代码看起来像(OK):
Sub Select_I()
'Выделяет по текущей ячейке "построчный" диапазон для ввода данных по объекту
成为我的(不是OK)
Sub Select_I()
'Âûäåëÿåò ïî òåêóùåé ÿ÷åéêå "ïîñòðî÷íûé" äèàïàçîí äë
如何将E2: do 11的值粘贴到另一个工作表上的活动单元格中?
也就是说,用户在Worksheet2 > VBA上选择一个单元,从Worksheet1复制E2:a 11,并将所有内容保存到该单元格中。
下面的VBA将从A1开始的所有内容都存储到Worksheet2中,但我需要它粘贴到活动单元格中。
Sub Paste()
Worksheets("WS1").Range("E2:AJ11").Copy Destination:=Cells(ActiveCell.Row + 1, 1)
End Sub
非常感谢!
我是vba的初学者。如果单元格为空,则将其粘贴到主工作簿的单元格上,位置与原始工作簿相同(这些工作簿共享相同的格式)。这就是我所拥有的,我知道这是错误的。请帮帮我。非常感谢你的建议。谢谢。
Sub copycat()
Dim x As Range
Set x = ActiveCell
For Each Cell In
Workbooks("work2.xlsm").Worksheets("sheet1").Range("a1:j10")
If IsEmpty(Cell.Value) = False Then
我希望在同一列中交换选定的单元格范围,而不自动调整其他列中附加的公式。这些单元格范围几乎总是大小不等。
我找到了一个VBA代码,用于两个选定的单元格,但恐怕这对我没有多大帮助。
Sub SwapCells()
Dim sHolder As String
If Selection.Cells.Count = 2 Then
With Selection
sHolder = .Cells(1).Formula
If .Areas.Count = 2 Then ' Cells selected using Ct
我希望将包含俄罗斯字符的Excel单元格中的值读入VBA字符串变量或变体变量(用于矩阵)。假设在A1单元格中有俄语字符(正确显示)。
当我将它作为MyString=Range("A1").Value读取时,变量MyString读取为?????????????????????????????????150???50
同样,这个测试失败了:
? Activecell.Value
当我将字符串转储到使用以下代码进行文件时:
Dim myFile As String
Dim N As Integer
N = FreeFile()
myFile = "C:\MyFileName.
我在Excel中有数据。我想要复制标题和一些数据从中间的工作表到Powerpoint。我知道你不能在Excel中复制一些不相邻的单元格,但我的印象是它会与VBA一起工作。
我的尝试:
With Workbooks(1).Sheets(1)
Set rng = Union(.Range("B2:K3"), .Range("B45:K85"))
End With
我可以选择"rng",但是我不能将它粘贴到任何地方,因为我得到了不能粘贴不相邻单元格的错误消息。
我也尝试过这样做,但是它导致了整个表(B2:K85)被复制:
With ThisWo
我正在寻找一个函数,以便在Excel中有条件地连接一系列单元格。这一功能
Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
Conc