「RowSourceプロパティを設定できません。プロパティの値が無効です。」エラーについて
リストボックスのRowsourceでエラーが発生
上手くいっていたのがあるタイミングでNGになってしまいました。
下記は備忘録的ですが説明します。
なお、例のごとくVBAでは実行時エラーで同じエラー内容を吐き出す場合があります。そのため今回の事象で解決できない場合もある点に注意してください。
原因は複数のブックだった
Rowsourceプロパティで「アクティブでないシート」のデータを表示するときに、「シート名!データ範囲」とする必要がありますが、実際にその通りに設定していました。
しかしそれでは複数のブックを開いてた場合に対処できず、今回のエラーが発生します。
絶対パス？的対応で回避
そこで絶対パスのような書き方で対処しました。
「[ブック名]シート名!データ範囲」
‘———————————————
‘Book1のシート1のA1からD20をリストボックスに表示
‘———————————————
Me.ListBox1.RowSource = “[Book1]Sheet1!A1:D20”
‘———————————————
‘変数を使って汎用的にする場合
‘———————————————
With ThisWorkbook
Me.ListBox1.RowSource = “[” & .Name & “]” & .Worksheets(1).Name & “!” & .Worksheets(1).Cells(1, 1).CurrentRegion.Address
End With
‘———————————————
‘変数を使って汎用的にする場合2 見づらさを少し回避
‘———————————————
Dim Wb As Workbook
Dim Wsh As Worksheet
Set Wb = ThisWorkbook
Set Wsh = Wb.Worksheets(1)
Me.ListBox1.RowSource = “[” & Wb.Name & “]” & Wsh.Name & “!” & Wsh.Cells(1, 1).CurrentRegion.Address
End Sub
カテゴリ：VBA：実務活用
「Range,Cells」と「Resize」のセル範囲指定を比べてみる
動的なコントロールの「Enter」、「Exit」を疑似的に検知する
できるだけファイルをコピーされたくない時の対策について考える
Listboxに10列以上を追加するとき
Like演算子(「○○が含まれない」検索)で気を付けること
ListBoxに長い文字列を設定するとき
Excelで作ったツール・システムをできるだけ外部から管理する方法はあるか？
「RowSourceプロパティを設定できません。プロパティの値が無効です。」エラーについて
DictionaryでKey(キー)やItem(アイテム)をループして取得する方法3種類
◆お問い合わせ◆
原則3時間以内にご連絡
お問い合わせフォーム(SSL対応)
弊社ではお急ぎのお客差にもご対応できるよう、迅速な返信を行っております。
特にお問い合わせフォームの場合は業務時間外でもスタッフが確認できればご連絡するという体制をとっております。
◆VBAツール・システム◆
Excel VBAの基本・事例
VBAはExcelだけでなく、Word、AccessなどMicrosoft Officeで共通して使えるプログラム言語です。細かい部分ではExcelで使えてWordで使えないなどもありますが、文法的には同じです。
こちらのページではExcel VBAの基本やツール、システムの紹介しております。
◆Excelレッスン◆
Excelについて勉強をしたい方
Excelについて分からないところだけを優先にしりたい、教えてほしい等。
授業のテキストの通りではなく、必要なところだけを効率的に勉強されたい方などは下記のページからご覧ください。