作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
将一系列单元格转换为字符串的最佳方法是什么?
我有一个只接受字符串作为输入的函数,因此我需要将范围转换为字符串,同时保留尽可能多的格式(即它需要看起来像一个表格或列表,而不仅仅是一个字符串) .
我尝试过使用 CStr(),以及从范围转换为数组,然后再转换为字符串,但我只是得到错误。
编辑:代码尝试
Dim email_answer As Integer
email_answer = MsgBox("Do you want to be emailled a copy of this schedule?", vbYesNo)
If email_answer = vbYes Then
Dim wb As Workbook
Dim to_send As Range
to_send = Range("D3", "D10")
If Val(Application.Version) < 14 Then Exit Sub
Set wb = ActiveWorkbook
With wb
MailFromMacWithMail body content:=CStr(to_send), _
mailsubject:="Schedule", _
toaddress:="email address", _
ccaddress:="", _
bccaddress:="", _
attachment:=.FullName, _
displaymail:=False
End With
Set wb = Nothing
End If
最佳答案
要在一个范围内创建一个逗号分隔的单元格值列表:
Function RangeToString(ByVal myRange as Range) as String
RangeToString = ""
If Not myRange Is Nothing Then
Dim myCell as Range
For Each myCell in myRange
RangeToString = RangeToString & "," & myCell.Value
Next myCell
'Remove extra comma
RangeToString = Right(RangeToString, Len(RangeToString) - 1)
End If
End Function
Sub AnySubNameHere()
Dim rng As Range
Set rng = ActiveSheet.Range("A3:A10")
Dim myString as String
myString = RangeToString(rng)
End Sub
关于vba - 如何将范围转换为字符串 (VBA)?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41777996/
我是一名优秀的程序员,十分优秀!