我正在遍历单元格,试图将单元格值的某些部分设置为粗体。我有一个包含内容的单元格: <b>This part should be bold</b> but this should not be 我可以将正确的部分设置为粗体,但下一步是删除标记。以下几行会导致问题: Cells.Replace What:="<b>", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=Fal
我正在尝试对工作簿中的工作表进行动态保护。我有许多不同的工作表,有时我会不小心删除我仍然需要的工作表。
如果单元格OP15包含值,这意味着我可以删除工作表以清理工作簿。如何为工作表创建保护,使其仅在单元格OP15包含值时才允许删除?
我在互联网上能找到的最接近的东西是这样的:
ActiveSheet.Unprotect
' your vba code here
ActiveSheet.Protect
我有一个包含动态单元格范围名称列表(拾取的)名称管理器的excel表格。当我单击该列表中的任何单元格时,vba代码将在另一个单元格中显示活动单元格值。如果只有$d$2 = 1,我想运行这段vba代码。 VBA代码如下。 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, [Picked]) Is Nothing Then
[ValPicked] = ActiveCell.Value
End If
End Su
我正在尝试获取我用vba指定的范围内的单元格的行号。我想要得到区域中单元格的行号,但我得到的是工作表中单元格的行号。 这是我目前使用的vba代码。我设置了一个范围,并在该范围内搜索包含文本字符串"C“的单元格。找到单元格后,我要对范围第二列中的值进行更改。 Sub trial2()
Dim ActiveWB As Workbook
Dim ActiveWS As Worksheet
Dim rng As Range, findCell As Range
Set ActiveWB = ActiveWorkbook
Set ActiveWS = ActiveWB.ActiveShee
我有一个单元格文本"12-3 0000 9 FLY AIR Make MY Trip“,我希望输出类似于12-3 0000 9的下一个单元格和下一个序列单元格"FLY AIR Make MY Trip”。
Public Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby20150306
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
F
所以我对VBA很陌生,我一直在努力为自己解决这个问题,但我似乎无法做到。我有一张有销售数据的表格。我试图编写的宏将遍历A列中的一个区域,让我们说"A5:A50“,当发现一个包含Bold文本的单元格时,将粘贴我的标题(假设在”C6:I6“中)在同一行中的2列。
这是我的尝试-
Sub Headers()
Dim Head As Range
For Each Head In Range("A5:A50")
If Head.Font.Bold = True Then
Head.Offset(0, 2).Paste ("c6:I6")
我的细胞有部分的划痕。为了方便阅读,我想删除它。
我找到了这个VBA,但是它没有保留颜色,或者粗体字符。
你能帮我这个忙吗?
PS:所有带有文本的单元格都以'开头
Sub DelStrikethroughText()
Dim xRg As Range, xCell As Range
Dim xStr As String
Dim I As Long
On Error Resume Next
Set xRg = Application.InputBox("Please select range:", "KuTools For
我正在寻找一种删除只包含文本/空白单元格的行的方法。我有一个工作表,其中的产品代码(字母数字)、说明(文本)和数量(数字)在不同的列中(不同的工作表之间不一致)。我试图找到一种方法来删除没有产品数量的行,因为它们不需要输入到系统中。我真的不知道如何解决这个问题,我对vba还是个新手
Dim nums As Boolean
For Each myRow In Range("A1:P200")
nums = True
For Each myCell In myRow
If IsNumeric = False Then
Set nums