VBAの参照設定について

解決済

質問者：kyoutaro
質問日時：2008/05/01 13:56
回答数：3件

osは、Wxpで、エクセル２００３使用してます。
あるコードを実行したところ、コンパイルエラーメッセージが出て、
調べたところ、参照設定の中の、Microsoft Windows Common Controls
5.0(SP2)が、参照不可となっていました。たぶんこれじゃないかなと、
調べたりしたのですが、参照可能にする方法がわかりません。
可能になってるマシンでは、動作は正常で、不可になってるマシンでは、
正常に動きました。
参照可能にする方法を、どうか教えてください。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.1

回答者： FEX2053
回答日時：2008/05/01 14:43

VBEの中の「ツール」「参照設定」の中に出てくるならば、チェック

ボックスをチェックするだけで済む話なんですけど・・・。

見つからない場合は「参照」で該当する.dllなり何なりを組み込む
必要があるんですが、普通はMicrosoft Windows Common Controls
なんてものを「参照可能」にする必要なんてないはずなんですけど。

ただ、名前からすると、Windowsのインストール時に何かオプションを
付け忘れているだけのような気がしますねえ。

この回答への補足

ご回答ありがとうございます。
VBEの中の「ツール」「参照設定」の中の、
Microsoft Windows Common Controls5.0(SP2)
が参照可能か不可かによって、違ってくるんです。
もしも不可だと、下記のコードの最初の、
.View = lvwReport のところで、
「プロジェクト又はライブラリが見つかりません」というエラーが、
出ます。
また、コントロールツールボックスには、ListViewを割当ててます。

Private Sub 顧客リスト表示()
Dim lastrow As Integer
Application.ScreenUpdating = False
With ListView1
.View = lvwReport ''表示
.LabelEdit = lvwManual ''ラベルの編集
.HideSelection = False ''選択の自動解除
.AllowColumnReorder = True ''列幅の変更を許可
.FullRowSelect = True ''行全体を選択
.Gridlines = True ''グリッド線
''列見出しを追加する
.ColumnHeaders.Add , , "担当者", 50
.ColumnHeaders.Add , , "顧客コード", 50
.ColumnHeaders.Add , , "フリカナ"
.ColumnHeaders.Add , , "会社名", 150
.ColumnHeaders.Add , , "〒"
.ColumnHeaders.Add , , "住所：１", 120
.ColumnHeaders.Add , , "住所：２", 120
.ColumnHeaders.Add , , "〆日", 40
.ColumnHeaders.Add , , "支払日", 40
End With
リスト更新
Application.ScreenUpdating = True
End Sub

補足日時：2008/05/01 17:57

通報する

- 0
- 件

通報する

No.2ベストアンサー

回答者： KenKen_SP
回答日時：2008/05/01 18:53

こんにちは。

既にできあがっているものを動作させたいだけなら、VB5 または
VB6 のランタイムをインストールすれば動くかもしれません。

ベクターあたりで探せばすぐに見つかります。

　# 要するに、VBA 用のコントロールではないということです。

- 1
- 件

通報する

この回答へのお礼

ベクターでVB６をインストールしてみました。
すると、Microsoft Windows Common Controls5.0(SP2)が、
Microsoft Windows Common Controls6.0(SP6)に変わり、
参照可能となったうえで、試したところ、正常に動きました。
お蔭様で、助かりました。
本当にありがとうございました。

通報する

お礼日時：2008/05/04 11:29