回答編集履歴

2

修正

2021/09/22 03:06

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -28,7 +28,7 @@
28
28
 
29
29
  Select Case c.Value
30
30
 
31
- Case "", "銀", "パール"
31
+ Case "", "と", "圭", "杏", "馬", "竜", "銀", "", "桂", "香", "角", "飛", "王", "金"
32
32
 
33
33
  c.Orientation = 90
34
34
 

1

追記

2021/09/22 03:06

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -11,3 +11,77 @@
11
11
 
12
12
 
13
13
  ```
14
+
15
+
16
+
17
+ ---
18
+
19
+ 後手の駒だけ漢字変換済みなら
20
+
21
+ ```vba
22
+
23
+ Function 後手反転(盤 As Range)
24
+
25
+ Dim c As Range
26
+
27
+ For Each c In 盤
28
+
29
+ Select Case c.Value
30
+
31
+ Case "金", "銀", "パール"
32
+
33
+ c.Orientation = 90
34
+
35
+ c.Font.Name = "@游ゴシック"
36
+
37
+ Case Else
38
+
39
+ c.Orientation = 0
40
+
41
+ c.Font.Name = "游ゴシック"
42
+
43
+ End Select
44
+
45
+ Next
46
+
47
+ End Function
48
+
49
+ ```
50
+
51
+
52
+
53
+ 漢字に変換する前に書式設定するなら
54
+
55
+ ```vba
56
+
57
+ Function 後手反転(盤 As Range)
58
+
59
+ Dim c As Range
60
+
61
+ For Each c In 盤
62
+
63
+ If c.Value = UCase(c.Value) Then
64
+
65
+ '大文字なら先手
66
+
67
+ c.Orientation = 0
68
+
69
+ c.Font.Name = "游ゴシック"
70
+
71
+ Else
72
+
73
+ '小文字なら後手
74
+
75
+ c.Orientation = 90
76
+
77
+ c.Font.Name = "@游ゴシック"
78
+
79
+ End If
80
+
81
+ Next
82
+
83
+ End Function
84
+
85
+
86
+
87
+ ```