[已解决]批量加书名号

张雄友

怎么批量加书名号?

最佳答案

月排行榜 / 总排行榜

1032446692

2013-6-9 19:06

Sub 批量加书名号()
On Error Resume Next

Dim st As Range

For Each st In Selection
      st = 加书名号(st)
Next
End Sub
Function 加书名号(st)
    加书名号 = "《" & st & "》"
End Function

跳转到最佳答案楼层

cjainwei

1. ="《"&A2&"》"

复制代码

公式来解决问题

1032446692

"《"@"》"

自定义格式就可以

1032446692

Function 加书名号(st$)
    加书名号 = "《" & st & "》"
End Function
自定义函数

cjainwei

用自定义格式

1. 0;0;0;"《"G/通用格式"》"

复制代码

张雄友

1032446692 发表于 2013-6-9 17:35
Function 加书名号(st$)
    加书名号 = "《" & st & "》"
End Function

帮我看看这个定义变量错在哪里？参数类型不符。

1. Sub 批量加书名号()
   
2. On Error Resume Next
   
3. 
   
4. Dim st As Range
   
5. 
   
6. For Each st In Selection
   
7.       st.Value = 加书名号(st)
   
8. Next
   
9. End Sub
   
10. Function 加书名号(st$)
    
11.     加书名号 = "《" & st & "》"
    
12. End Function
    

复制代码

张雄友

请看这个调用。

1032446692

Sub 批量加书名号()
On Error Resume Next

Dim st As Range

For Each st In Selection
      st = 加书名号(st)
Next
End Sub
Function 加书名号(st)
    加书名号 = "《" & st & "》"
End Function

1032446692

修改的方法有很多种
类型不符的原因是 自定义函数 ：加书名号(st$)  这样就定义了参数必须是字符。在单元格里引用时不会有问题，但是在VBA里调用就有问题了。

1032446692

Sub 批量加书名号()
On Error Resume Next

Dim st As Range

For Each st In Selection
      st = "《" & st & "》"
Next
End Sub

其实  这是很简单的问题  你非得做这么复杂  

我个人建议  初学VBA  尽量想简单的解决方法