我们都知道Excel单元格中可以存储各种文字内容。
 
如果我们选中了单元格里的部分内容，想在选中内容的前后分别插入不同的字符，这个用VBA怎么做呢？
 
这个直接在Excel单元格中操作是没有办法实现的，或者说实现难度非常之大。
 
我们可以换个思路，把单元格的内容体现在窗体文本框中，通过文本框来选择要操作的部分内容。
 
如下图所示
 

 
在文本框中选择要添加的部分内容，然后选择要添加的XML标签，单击”开始添加”即可在选中的文本内容前后添加要添加的文本内容，最后将添加后的文本返回到单元格中。
 
这里需要了解的是在文本框控件中，可以使用SelStart属性返回选中的文本内容的起始位置，SelLength属性返回选中的文本内容的字符长度，SelText 属性返回选中的文本内容。
 
核心代码如下：
 
Visual Basic
 
Private Sub CmdOK_Click()
 
With UserForm1
 
sText = .TextBox1.Text
 
sTag = .ComboBox1.Text
 
If Len(sText) > 0 Then
 
iStart = .TextBox1.SelStart
 
If iStart = 0 Then iStart = 1
 
sSText = .TextBox1.SelText
 
sNText = "" & sSText & "" & sTag & ">"
 
sText = Left(sText, iStart - 1) & VBA.Replace(sText, sSText, sNText, iStart, 1)
 
.TextBox1.Text = sText
 
Excel.ActiveCell = sText
 
End If
 
End With
 
End Sub
 
1
 
2
 
3
 
4
 
5
 
6
 
7
 
8
 
9
 
10
 
11
 
12
 
13
 
14
 
15
 
PrivateSubCmdOK_Click()
 
WithUserForm1
 
sText=.TextBox1.Text
 
sTag=.ComboBox1.Text
 
IfLen(sText)>0Then
 
iStart=.TextBox1.SelStart
 
IfiStart=0TheniStart=1
 
sSText=.TextBox1.SelText
 
sNText=""&sSText&""&sTag&">"
 
sText=Left(sText,iStart-1)&VBA.Replace(sText,sSText,sNText,iStart,1)
 
.TextBox1.Text=sText
 
Excel.ActiveCell=sText
 
EndIf
 
EndWith
 
EndSub
 
通过上述代码，就可以随心所意的选择要修改的部分文本内容，然后在其前后添加文本内容。
 
怎么样？今天介绍的思路你学会了吗？
 

 
Sub auto_Open()
 
Call CreateToolBar
 
End Sub
 
Sub CreateToolBar()
 
Dim ArrCaption(), ArrAction(), ArrFaceID(), ArrToolTip()
 
Dim i As Integer
 
ArrCaption = Array('查找', '功能二', '功能三')
 
ArrAction = Array('查找选定单元格内容', 'Action_Query', 'Action_MonthEnd')
 
ArrToolTip = Array('查找选定单元格内容', '待定', '待定')
 
ArrFaceID = Array(8, 25, 984)
 
With Application.CommandBars.Add(Name:='工具箱', temporary:=True)
 
For i = 0 To 2
 
With .Controls.Add(Type:=msoControlButton, temporary:=True)
 
.Caption = ArrCaption(i)
 
.OnAction = ArrAction(i)
 
.FaceId = ArrFaceID(i)
 
.Style = msoButtonIconAndCaptionBelow
 
.TooltipText = ArrToolTip(i)
 
End With
 
Next
 
.Visible = True
 
End With
 
End Sub
 
Sub 打开工具箱()
 
Application.CommandBars('工具箱').Visible = True
 
End Sub
 
Sub 关闭工具箱()
 
Application.CommandBars('工具箱').Visible = False
 
End Sub

 
文章目录
 
前言
一、用vba编辑单元格内容
二、合并两个单元格内容
总结

 
 
前言
 
本文实现两个步骤：
 (1)用vba编辑单元格内容；
 (2)用vba合并两个单元格的内容；
 前提：启用Excel开发工具
 
 
一、用vba编辑单元格内容
 
举例：
 代码如下：
 
Sub bianji()
  Content = Cells(9, 3)
  Cells(9, 3) = Content & " " & "Hello XiaoMing"
  MsgBox "bianji  completed"
End Sub
 
运行结果：
 
 
二、合并两个单元格内容
 
举例：
 

 将B7，B8内容合并到B9里
 
代码如下（示例）：
 
Sub hebing()
 Cells(9, 2) = Cells(7, 2) & vbCrLf & Cells(8, 2)
 MsgBox "hebin completed"
End Sub
 
运行结果：
 
 
 
总结
 
以上就是今天要讲的内容，本文仅仅简单介绍了vba的基本使用方法，而vba提供了大量能使我们快速便捷地处理数据的函数和方法。

获取代码如下
 
 
 

Sub Worksheet_SelectionChange(ByVal Target As Range)

    [a5] = ActiveCell.Cells   '获取选中单元格内容
    [a6] = Target.Address(0, 0) '获取选中单元格名称（字符名称 例如  C5 )
    [a7] = ActiveCell.Cells.Row '获取选中单元格的行编号  数值
    [a8] = ActiveCell.Cells.Column '获取选中单元格的列编号  数值
    

End Sub

 
 
 
下面是复制来的内容
 
excel vba单元格引用的三种方式
 　　vba单元格引用方法有几种，比如要引用A1单元格，
 写法可以这样的：range("A1")或者cells(1,1)或者[A1]。
  
 excel vba单元格引用写法一：
 
　　Cells(1, 1) = "abc123"
 
excel vba单元格引用写法二：
 
1.Range("单个单元格")
 
　　比如，Range("A1") = "abc123"
 　　注意：单元格地址要加双引号，而且双引号的输入必须是在半角状态下输入的，否则会出现错误。单元格地址不区分相对引用和绝对引用的，无论使用Range("A1")、Range("$A1")、Range("$A$1")还是Range("A$1")，都是引用同一个单元格。
 
2. Range("单元格区域")
 　　在VBA数组中，经常遇到arr=Range("A1:D10")这种数组赋予方式，而里面出现了Range("单元格区域")的这种单元格区域引用。
 　　"A1:D10"代表一个单元格区域的引用，其中A1是该区域的左上角上面的单元格，而D10则是该区域右下角下面的单元格。
 
　　又如：Range("B2:E6")(3).Select，这句代码的意思是选取B2：E6区域中的第三个单元格，即D2，而单元格的区域的读取一般是从左到右，然后再从上到下进行读取的，故该区域的前3个单元格分别是B2、C2、D2，而第3个单元格就是为D2。
 
excel vba单元格引用写法三：[A1]
 
　　比如， [A1] = "abc123"
 　　另外，[A1:D10].Select，表示选取A1：D10区域。
  
 
by anlog 
 
2021年6月4日