いつも大変お世話になっております。
下記コードでコメントを取得する際のコードがわかりません。
オブジェクトが必要ですのエラーが出ます。
ご教示お願い致します。
Dim n As Long, a As Variant, dmr As Integer
a =ListObjects("テーブル1").DataBodyRange
dmr = UBound(a, 1)
For n = 1 To dmr
If a(n, 1) = DateValue(Me.TextBox1.Text) Then
If TypeName(a(n, 3).comment) = "Comment" Then ←ココ ※ 「オブジェクトが必要です。」
Msgbox a(n, 3).comment.Text
End If
End if
Next
No.2ベストアンサー
- 回答日時:
こんにちは
回答はすでにされている通りです
取得、Msgbox出力のみならば、配列にしたり、わざわざListObjectを変数に代入する必要性もないように思います。
配列にしたい理由があるのでしょうか? 試しかな・・・
もし、配列を他の処理にも使いたいので流用するのなら
配列インデックスを使ってListObjectを操作すれば良いと思います
スマートでは無いかもですが、こうなりますよね
Dim n As Long, a As Variant, dmr As Integer
Dim Tbl As ListObject
Set Tbl = ActiveSheet.ListObjects("テーブル1")
a = Tbl.DataBodyRange
dmr = UBound(a, 1)
For n = 1 To dmr
If a(n, 1) = DateValue(Me.TextBox1.Text) Then
If TypeName(Tbl.Range(n + 1, 3).Comment) = "Comment" Then '←ココ ※ 「オブジェクトが必要です。」
MsgBox Tbl.Range(n + 1, 3).Comment.Text
End If
End If
Next
スマートでないついでにTbl.Rangeにしました。。同じが好ましいかな
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) テーブルを配列に入れて、元のテーブルの行番号を取得したい 1 2022/08/16 20:15
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) ワークシート内を検索 1 2022/12/19 23:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
テキストボックス中の文字列の...
-
ある文字列が全て数字であるか...
-
Excelでフィルタをかけると警告...
-
VBScriptでファイルの日時順(降...
-
VBAからPDFファイルにパスワー...
-
VBAで作成するメール(開封確認...
-
PowerPointVBAでスライドマスタ...
-
EXCEL VBA オートシェイプナン...
-
VBからExcelのセルの書式設定を...
-
VBAでWebページにセルの値を入力
-
VBA:オートシェイプの線の長...
-
VBAで Set wb = Sheets(1).Cop...
-
Shell.ApplicationのNameSpace...
-
VBAでオプションボタンの設定
-
エクセルVBAでFor each文
-
エクセルマクロエラー「'Cells'...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
PowerPointVBAでスライドマスタ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAについてです。 初心者です...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
このように書くべきですか? { ...
-
EXCEL VBA オートシェイプナン...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
おすすめ情報