質問編集履歴

2

追記2

2019/11/21 08:50

投稿

lovelywolf
lovelywolf

スコア8

test CHANGED
File without changes
test CHANGED
@@ -5,6 +5,8 @@
5
5
 
6
6
 
7
7
  下記test1のようにストレートに置き換えを書きましたが置き換えできずに終了。
8
+
9
+ **("シャアアズナブル=クワトロバジーナ" が できた に換わらずそのまま。エラー表示はなし)**
8
10
 
9
11
  test2で試してみたところ、置き換えはできましたが他の英数字やカタカナが
10
12
 

1

追記です

2019/11/21 08:50

投稿

lovelywolf
lovelywolf

スコア8

test CHANGED
File without changes
test CHANGED
@@ -89,3 +89,59 @@
89
89
  End Sub
90
90
 
91
91
  ```
92
+
93
+
94
+
95
+ 以下追記 *・。*゜・。・o゜・。*゜・。・o*゜・。*゜・。・o*゜・。*゜・。・o*゜・。・o*゜
96
+
97
+
98
+
99
+ 本番の流れは下記1~3をループでまわし、4で一括インポートする予定です。
100
+
101
+ 1.登録した全国の市区町村さんごとのURLを元に、最新の情報をWebクエリで取得。
102
+
103
+ 2.必要に応じて加工(パターンに応じてFunction作成、必要な部分を抜粋したり置換えたり)。
104
+
105
+ 3.一定の法則に基づいて、必要なデータを取得→作表。
106
+
107
+ 4.Accessにインポート。
108
+
109
+ です。ある時期に一斉に対象の市区町村さん(500くらい)のHPをチェック、更新されていればデータを取得しなければなりません。また更新されていなければ更新されるまで随時チェックする必要があり、あまりにも業務負担が重いためマクロで処理してしまいたいと考えています。
110
+
111
+
112
+
113
+ HPの情報はいろいろなフォーマットで作成されているので、2でデータを取得しやすく加工するところを書いています。現状は1と3はほぼ完成、2の部分が道半ば、4は未着手です。
114
+
115
+
116
+
117
+ 例えば、
118
+
119
+
120
+
121
+ A市
122
+
123
+ なお、○○○とは...、▲は◇から100円を引いた金額のことです。
124
+
125
+ ○○○(対象は...)=▲×■ 10,000円
126
+
127
+ ●●●
128
+
129
+ ▲+■ 50,000円
130
+
131
+
132
+
133
+ B町
134
+
135
+ ○○○は...、●●●...です。
136
+
137
+ ○○○は12,000円, ●●●は60,000円です。
138
+
139
+
140
+
141
+ 上記の他にもいろいろありますが、
142
+
143
+ A市の場合は不要な文章と必要そうな文章、必要なデータ部分を分けるため「○○○(対象は...)=▲×■」を「○○○」に置き換えて良いかを判定、OKなら「○○○(対象は...)=▲×■」を「○○○」に置換え。3で「○○○」や「●●●」のセルの横や下にある金額のみを○○○、●●●の金額として取得、データにしています。必要そうな文章は備考欄に記入する文章として取得します(全半角は保持したい)。全角イコールを使用する市区町村さんが多いのですが、まれに半角イコールを使う市区町村さんが。半角イコールが混じるとデータにできていないことがテストで発覚し対処方法を模索しています。
144
+
145
+ B町のパターンであれば、備考欄に載せる有無の判定とデータはSplitで分けて取得しています。
146
+
147
+ こんな感じで伝わりましたでしょうか。文章がヘタですみません。