質問編集履歴
2
追記２
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,6 +2,7 @@
|
|
|
2
2
|
(Win10, Excel2016)
|
|
3
3
|
|
|
4
4
|
下記test1のようにストレートに置き換えを書きましたが置き換えできずに終了。
|
|
5
|
+
**("ｼｬｱｱｽﾞﾅﾌﾞﾙ=ｸﾜﾄﾛﾊﾞｼﾞｰﾅ" が できた に換わらずそのまま。エラー表示はなし)**
|
|
5
6
|
test2で試してみたところ、置き換えはできましたが他の英数字やカタカナが
|
|
6
7
|
すべて全角になってしまうため、使い物にならず。
|
|
7
8
|
test3のように半角イコールのみを全角に変えて置き換えとしてみましたが、
|
1
追記です
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -43,4 +43,32 @@
|
|
|
43
43
|
.UsedRange.Replace "ｼｬｱｱｽﾞﾅﾌﾞﾙ＝ｸﾜﾄﾛﾊﾞｼﾞｰﾅ", "できた", xlPart
|
|
44
44
|
End With
|
|
45
45
|
End Sub
|
|
46
|
-
```
|
|
46
|
+
```
|
|
47
|
+
|
|
48
|
+
以下追記 *・。*゜・。・o゜・。*゜・。・o*゜・。*゜・。・o*゜・。*゜・。・o*゜・。・o*゜
|
|
49
|
+
|
|
50
|
+
本番の流れは下記1～3をループでまわし、4で一括インポートする予定です。
|
|
51
|
+
1.登録した全国の市区町村さんごとのURLを元に、最新の情報をWebクエリで取得。
|
|
52
|
+
2.必要に応じて加工（パターンに応じてFunction作成、必要な部分を抜粋したり置換えたり）。
|
|
53
|
+
3.一定の法則に基づいて、必要なデータを取得→作表。
|
|
54
|
+
4.Accessにインポート。
|
|
55
|
+
です。ある時期に一斉に対象の市区町村さん(500くらい)のHPをチェック、更新されていればデータを取得しなければなりません。また更新されていなければ更新されるまで随時チェックする必要があり、あまりにも業務負担が重いためマクロで処理してしまいたいと考えています。
|
|
56
|
+
|
|
57
|
+
HPの情報はいろいろなフォーマットで作成されているので、2でデータを取得しやすく加工するところを書いています。現状は1と3はほぼ完成、2の部分が道半ば、4は未着手です。
|
|
58
|
+
|
|
59
|
+
例えば、
|
|
60
|
+
|
|
61
|
+
A市
|
|
62
|
+
なお、○○○とは...、▲は◇から100円を引いた金額のことです。
|
|
63
|
+
○○○(対象は...)=▲×■ 10,000円
|
|
64
|
+
●●●
|
|
65
|
+
▲+■ 50,000円
|
|
66
|
+
|
|
67
|
+
B町
|
|
68
|
+
○○○は...、●●●...です。
|
|
69
|
+
○○○は12,000円, ●●●は60,000円です。
|
|
70
|
+
|
|
71
|
+
上記の他にもいろいろありますが、
|
|
72
|
+
A市の場合は不要な文章と必要そうな文章、必要なデータ部分を分けるため「○○○(対象は...)=▲×■」を「○○○」に置き換えて良いかを判定、OKなら「○○○(対象は...)=▲×■」を「○○○」に置換え。3で「○○○」や「●●●」のセルの横や下にある金額のみを○○○、●●●の金額として取得、データにしています。必要そうな文章は備考欄に記入する文章として取得します(全半角は保持したい)。全角イコールを使用する市区町村さんが多いのですが、まれに半角イコールを使う市区町村さんが。半角イコールが混じるとデータにできていないことがテストで発覚し対処方法を模索しています。
|
|
73
|
+
B町のパターンであれば、備考欄に載せる有無の判定とデータはSplitで分けて取得しています。
|
|
74
|
+
こんな感じで伝わりましたでしょうか。文章がヘタですみません。
|