質問編集履歴

2

初心者アイコンの利用

2018/07/22 01:00

投稿

mariael
mariael

スコア9

test CHANGED
File without changes
test CHANGED
File without changes

1

コードの補足説明

2018/07/22 01:00

投稿

mariael
mariael

スコア9

test CHANGED
File without changes
test CHANGED
@@ -15,3 +15,71 @@
15
15
 
16
16
 
17
17
  以上、何卒、宜しくお願いいたします。
18
+
19
+
20
+
21
+
22
+
23
+ ユーザー様からのご指摘をいただき、以下に補足情報を追記させて頂きます。
24
+
25
+
26
+
27
+ 一つのSub procedure だけをご提示させて頂くと、以下のようになります。
28
+
29
+
30
+
31
+ Sub クリア()
32
+
33
+ Dim ws As Worksheet
34
+
35
+ Set ws = ThisWorkbook.Worksheets("キーワード検索")
36
+
37
+
38
+
39
+ 'キーワード検索シートのクリア
40
+
41
+ If ws.AutoFilterMode = True Then
42
+
43
+ ws.AutoFilterMode = False
44
+
45
+ End If
46
+
47
+
48
+
49
+ End Sub
50
+
51
+
52
+
53
+
54
+
55
+ 上記のマクロが書かれたツールでは、日本語(単語等)を入力し
56
+
57
+ 「ボタン」を押すと、それに対応する英語がその隣(同じシート)に表示されます。
58
+
59
+
60
+
61
+ 日本語に対応する英単語等は、別のシートに対応表として作成してあります。
62
+
63
+
64
+
65
+ そして、上記の「ボタン」と同じシートにある「クリアボタン」を押すと
66
+
67
+ 入力した日本語と出力された英語の両方がクリアになります。
68
+
69
+
70
+
71
+ この機能を実行するために、以下の構文がどのように
72
+
73
+ 働いているのかを理解したいと考え、ご質問させて頂きました。
74
+
75
+
76
+
77
+ If ws.AutoFilterMode = True Then
78
+
79
+ ws.AutoFilterMode = False
80
+
81
+
82
+
83
+ コード情報が足りないようであれば、追加させて頂きます。
84
+
85
+ 長くなりましたが、宜しくお願い申し上げます。