回答編集履歴
1
追記
test
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
1
|
たとえばこんな感じでどうでしょう｡
|
|
2
|
+
|
|
3
|
+
（追記：ふりがな非表示の時は空白とする条件を追加しました。）
|
|
2
4
|
|
|
3
5
|
```VBA
|
|
4
6
|
|
|
@@ -10,7 +12,9 @@
|
|
|
10
12
|
|
|
11
13
|
f = StrConv(c.Offset(, -1).Phonetic.Text, vbHiragana)
|
|
12
14
|
|
|
13
|
-
|
|
15
|
+
'c.Value = IIf(f Like "[あ-ん]*", f, "")
|
|
16
|
+
|
|
17
|
+
c.Value = IIf(f Like "[あ-ん]*" And c.Offset(, -1).Phonetic.Visible, f, "")
|
|
14
18
|
|
|
15
19
|
Next
|
|
16
20
|
|