VBA 如何输入①-⑩ 特殊数字符号。

ning84

笨办法用字典
  Set codeMap = CreateObject("Scripting.Dictionary")
   
    codeMap.Add "①", 1
    codeMap.Add "②", 2
    codeMap.Add "③", 3
    codeMap.Add "④", 4
    codeMap.Add "⑤", 5
    codeMap.Add "⑥", 6
    codeMap.Add "⑦", 7
    codeMap.Add "⑧", 8
    codeMap.Add "⑨", 9
    codeMap.Add "⑩", 10
   
    Debug.Print codeMap("①") ' 输出：1
    Debug.Print codeMap("⑩") ' 输出：10
******************************

1. '① -⑩
   
2. 
   
3. Sub GenerateSymbols()
   
4.     Dim i As Integer
   
5.     For i = 1 To 50
   
6.         Debug.Print 9311, i, 9311 + i, ChrW(9311 + i)
   
7.     Next i
   
8. End Sub

复制代码

结果

9311          1             9312         ①
9311          2             9313         ②
9311          3             9314         ③
9311          4             9315         ④
9311          5             9316         ⑤
9311          6             9317         ⑥
9311          7             9318         ⑦
9311          8             9319         ⑧
9311          9             9320         ⑨
9311          10            9321         ⑩
9311          11            9322         ?
9311          12            9323         ?
9311          13            9324         ?
9311          14            9325         ?
9311          15            9326         ?
9311          16            9327         ?
9311          17            9328         ?
9311          18            9329         ?
9311          19            9330         ?
9311          20            9331         ?
9311          21            9332         ⑴
9311          22            9333         ⑵
9311          23            9334         ⑶
9311          24            9335         ⑷
9311          25            9336         ⑸
9311          26            9337         ⑹
9311          27            9338         ⑺
9311          28            9339         ⑻
9311          29            9340         ⑼
9311          30            9341         ⑽
9311          31            9342         ⑾
9311          32            9343         ⑿
9311          33            9344         ⒀
9311          34            9345         ⒁
9311          35            9346         ⒂
9311          36            9347         ⒃
9311          37            9348         ⒄
9311          38            9349         ⒅
9311          39            9350         ⒆
9311          40            9351         ⒇
9311          41            9352         ⒈
9311          42            9353         ⒉
9311          43            9354         ⒊
9311          44            9355         ⒋
9311          45            9356         ⒌
9311          46            9357         ⒍
9311          47            9358         ⒎
9311          48            9359         ⒏
9311          49            9360         ⒐
9311          50            9361         ⒑


有印象，ASCII有代码，自动生成 ①-⑩ 的特殊代码。

Enocheasty

这些问题可以交给输入法啊，现在的输入法都可以很方便的输入这些特殊符号的吧。

ning84

1. Sub ll11()
   
2.    Dim Sld As Slide, Slds As Slides
   
3.    Dim Shp As Shape
   
4.         Set Slds = Application.ActivePresentation.Slides
   
5.         For Each Sld In Slds
   
6.               Debug.Print Sld.Name, Sld.Shapes.Count,
   
7.               For Each Shp In Sld.Shapes
   
8.                     Debug.Print Shp.Name,
   
9.                     If InStr(Shp.Name, "图片") > 0 Then
   
10.                           Shp.Delete
    
11.                     End If
    
12.               Next Shp
    
13.               Debug.Print
    
14.         Next Sld
    
15.         
    
16. End Sub
    
17. 
    

复制代码