回答編集履歴

1

コメントへの回答の追記

2019/11/16 03:52

投稿

hatena19
hatena19

スコア34073

test CHANGED
@@ -25,3 +25,41 @@
25
25
 
26
26
 
27
27
  その後のコードで、「リスト」という名前の定義の範囲を再設定していますので。
28
+
29
+
30
+
31
+ コメントへの回答
32
+
33
+ ---
34
+
35
+ > ただ、個人種目シートのAS4セル(出場者氏名を入力するセル)に設定していた入力規則の日本語入力が「オン」から「コントロールなし」になってしまいます。
36
+
37
+ 入力規則の日本語入力を「オン」のままにするコードはないでしょうか?
38
+
39
+
40
+
41
+ 質問タイトルからは外れることなので本来は新規に質問しなおすべきですが、
42
+
43
+
44
+
45
+ ```vba
46
+
47
+ With Tg.Validation '入力規則を設定
48
+
49
+ .Delete
50
+
51
+ .Add Type:=xlValidateList, Formula1:="=リスト"
52
+
53
+ .ShowError = False
54
+
55
+ .InCellDropdown = True
56
+
57
+ .IMEMode = xlIMEModeOn 'これを追加
58
+
59
+ End With
60
+
61
+ ```
62
+
63
+
64
+
65
+ [IMEMode プロパティ (Excel) | Microsoft Docs](https://docs.microsoft.com/ja-jp/office/vba/api/excel.validation.imemode)