Microsoft WORDのマクロ機能（Visaual Basic6.0）を使って、Microsoft Wordの文章支援ツールを作成しています。
しかし、導入するPCがWindow Server2003英語版上のMicrosoft Wordで、このOSはSJISの文字コード対応していないようで、文字化けしてしまい、困っています。
このマクロは、ツリービューに表示した文字列を、Wordに挿入するだけのソフトですが、使用しているツリービュー（Tree View, Microsoft TreeView Control version 6.0）コントロールはSJISしか日本語を表示してくれません。しかし、WordにはSJISの文字列を挿入しても、文字化けします。このPC上の日本語はユニコードで入力されるようです。このPC上では、テキストファイル内の日本語やVisual Basic上の日本語コメントなどSJISで書かれた文字はすべてが文字化けします。
SJISをユニコードに変換してから、Wordへ挿入など試しましたが、依然文字化けして表示されます。
このマクロを別PCのWindows XP、VISTA上のWordで実行すると、文字化けせずに表示されます。
何かいい解決策はないでしょうか？
住所録を管理できるシステムを作っています。
２番目のシートを検索＆結果表示のシート、３番目～１０番目のシートにはユーザーフォームを使ってデータを入力して蓄積していくシートとしています。
検索はアドバンスフィルターを使っています。
Dim Rng As Range
Dim cRng As Range
Dim sh As Variant
With Sheets(2).Select.Range("A13:L10000").ClearContents
For Each sh In Array(Sheets(3), Sheets(4), Sheets(5), Sheets(6), Sheets(7), Sheets(8), Sheets(9), Sheets(10))
Set cRng = .Range("A65536").End(xlUp).Offset(1)
If cRng.Row < 13 Then
Set cRng = .Range("A13")
End If
sh.Range("A2:L3002").AdvancedFilterAction:=xlFilterCopy, _
CriteriaRange:=.Range("A6:L7"), CopyToRange:=cRng, _
Unique:=False
cRng.Resize(, 17).Cleaｒ
Next sh
End With
End Sub
このマクロでは、ユーザーフォームを使って入力していったデータを検索することはできるのですが、他のエクセルシートからデータをコピー＆ペーストしたり、直接入力をすると検索できません。
何が原因なのでしょうか。教えてください。
Microsoft WORDのマクロ機能（Visaual Basic6.0）を使って、Microsoft Wordの文章支援ツールを作成しています。
しかし、導入するPCがWindow Server2003英語版上のMicrosoft Wordで、このOSはSJISの文字コード対応していないようで、文字化けしてしまい、困っています。
このマクロは、ツリービューに表示した文字列を、Wordに挿入するだけのソフトですが、使用しているツリービュー（Tree View, Microsoft TreeView Control version 6.0）コントロールはSJISしか日本語を表示してくれません。しかし、WordにはSJISの文字列を挿入しても、文字化けします。このPC上の日本語はユニコードで入力されるようです。このPC上では、テキストファイル内の日本語やVisual Basic上の日本語コメントなどSJISで書かれた文字はすべてが文字化けします。
SJISをユニコードに変換してから、Wordへ挿入など試しましたが、依然文字化けして表示されます。
このマクロを別PCのWindows XP、VISTA上のWordで実行すると、文字化けせずに表示されます。
何かいい解決策はないでしょうか？
住所録を管理できるシステムを作っています。
２番目のシートを検索＆結果表示のシート、３番目～１０番目のシートにはユーザーフォームを使ってデータを入力して蓄積していくシートとしています。
検索はアドバンスフィルターを使っています。
Dim Rng As Range
Dim cRng As Range
Dim sh As Variant
With Sheets(2).Select.Range("A13:L10000").ClearContents
For Each sh In Array(Sheets(3), Sheets(4), Sheets(5), Sheets(6), Sheets(7), Sheets(8), Sheets(9), Sheets(10))
Set cRng = .Range("A65536").End(xlUp).Offset(1)
If cRng.Row < 13 Then
Set cRng = .Range("A13")
End If
sh.Range("A2:L3002").AdvancedFilterAction:=xlFilterCopy, _
CriteriaRange:=.Range("A6:L7"), CopyToRange:=cRng, _
Unique:=False
cRng.Resize(, 17).Cleaｒ
Next sh
End With
End Sub
このマクロでは、ユーザーフォームを使って入力していったデータを検索することはできるのですが、他のエクセルシートからデータをコピー＆ペーストしたり、直接入力をすると検索できません。
何が原因なのでしょうか。教えてください。
シート1には下記のようなデータが記載されています。
field1 field2 field3
A りんご 八百屋
B まぐろ 魚屋
C 豚肉 肉屋
D さんま 魚屋
E きゃべつ 八百屋
F 鶏肉 肉屋
G ばなな 八百屋
H ぶり 魚屋
I 牛肉 肉屋
次に、シート2には
任意のfield1のデータを複数入力されています。
例）
field1
A
D
F
H
シート2に一致するレコードをシート1から抽出して
シート3として作成するエクセルVBAの書き方が知りたいです。
例）
field1 field2 field3
A りんご 八百屋
D さんま 魚屋
F 鶏肉 肉屋
H ぶり 魚屋
すみませんが、ご教示お願いします。
Microsoft WORDのマクロ機能（Visaual Basic6.0）を使って、Microsoft Wordの文章支援ツールを作成しています。
しかし、導入するPCがWindow Server2003英語版上のMicrosoft Wordで、このOSはSJISの文字コード対応していないようで、文字化けしてしまい、困っています。
このマクロは、ツリービューに表示した文字列を、Wordに挿入するだけのソフトですが、使用しているツリービュー（Tree View, Microsoft TreeView Control version 6.0）コントロールはSJISしか日本語を表示してくれません。しかし、WordにはSJISの文字列を挿入しても、文字化けします。このPC上の日本語はユニコードで入力されるようです。このPC上では、テキストファイル内の日本語やVisual Basic上の日本語コメントなどSJISで書かれた文字はすべてが文字化けします。
SJISをユニコードに変換してから、Wordへ挿入など試しましたが、依然文字化けして表示されます。
このマクロを別PCのWindows XP、VISTA上のWordで実行すると、文字化けせずに表示されます。
何かいい解決策はないでしょうか？
