お世話になっております。
A列の数字に対応したB列についているコメントをC列表示させる・・・
マクロで組んでいるのですが、
できれば、コメントの内容を取得できたらいいな、と思いまして。
Set 範囲 = Workbooks("あああ.xls").Worksheets("マスター").Range("A2:G4000")
ThisWorkbook.Activate
列番号 = 7
検索値 = (Worksheets("いいい").Cells(C + 10, 2))
Cells(C, 4).Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
Next C
といった具合に組んでいます。
調べたのですが、ヒットしなくて・・・
きっとできないのかな?思い最終手段として、こちらでご質問させて
いただきました。
宜しくお願い致します。
No.4ベストアンサー
- 回答日時:
コード全体の構造が判らないので、
Functionプロシージャにしてみました。
下記コードを本体のコードと同じモジュールに記述して、
本体のコードの
Cells(C, 4).Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
としている部分を、
Cells(C, 4).Value = CVLookup(検索値, 範囲, 列番号, False)
に変更すれば、ご要望のように動作するハズです。
'=================↓ ココカラ ↓=================
Function CVLookup( _
ByVal keyVal As Variant, _
ByVal orgRng As Range, _
ByVal rstCln As Long, _
ByVal optFlg As Boolean _
) As String
Dim rstRwn As Long
Dim keyRng As Range
Set keyRng = orgRng.Columns(1)
With WorksheetFunction
rstRwn = .Match(keyVal, keyRng, optFlg)
CVLookup = .Index(orgRng, rstRwn, rstCln).Comment.Text
End With
End Function
'=================↑ ココマデ ↑=================
例えば、下記のテストコードは、
A1:C10の範囲について、E1セルの値をA列からを検索して、
その行のC列のコメントを取得し、F1セルにセットします。
Sub test()
Range("F1").Value = CVLookup(Range("E1"), Range("A1:C10"), 3, False)
End Sub
ご参考まで。
すごいすごいすごいです!!!!!
できました。希望通りのものができました!
鼻息が荒くなりました。
ひとりで「すっげ~」とつぶやいてしまいました。
Functionプロシージャ、聞いた事もなく、
”CVLookup”はググっても、1件しか出てこなかったです。(日本語サイト)
どうにか勉強したいと思います!
有難うございました!!
No.3
- 回答日時:
For C=XXX To XXXXXが有りませんね。
Cells(C,4)は具体的にはマスターシートになりますね。
マスターシートでそのセルは指定の範囲に入っていますがそれでよろしいのですね。
この回答への補足
For C = 14 To 27
があります。すみません。記入漏れです。
足りなすぎですね。申し訳ないです。
Cells(C,4)はあああxlsのマスターシートのセルになります。
ThisWorkbookは、あああxls とは、別のブックになります。
No.2
- 回答日時:
コメントという言葉を不用意に使わないこと
(1)一般的な用法で、何か注釈や意見を加えた文章
(2)EXCELの場合はセルの属性としてのコメント
EXCELでも(1)の文章をセルの値として入力することは有るでしょう。だからややこしい。
ーー
もし(2)なら、EXCELの関数に関する重大な認識不足です。EXCELの関数は、主に他「セルの値」を使ってセルの値を1つ決める(計算が多いが)するものです。コメントはセルの属性の1つで、セルの値(VALUE)とは別世界です。その片鱗は「形式を選択して貼り付け」のダイアロウグの「貼り付け」に列挙されている区分に見られます。セルの値と「表示形式などの書式」も世界が違います。
だからVLOOKUP関数などつけるはずがない。
もちろん別のセルの値としてセルの値になっておれば、検索の対象になりますが、2重化して持つことがあるかどうか。
>A列の数字に対応したB列についているコメント
の対応したが、意味がはっきりしません。A列の数字に対応したコメントはそのセルに入っているのが普通ではないですか。飛び離れたセルに入っているはずは無いと思うが。
実例を挙げるとかして質問のこと。
質問の意味を推測で
A列に入っているコメントを同行右のD列にテキストとして表示したいなら
Sub test01()
Workbooks.Open "01化.xls" '同一フォルダとする
Set sh1 = Workbooks("01化.xls").Worksheets("Sheet1")
sh1.Activate
d = sh1.Range("a65536").End(xlUp).Row
For Each cl In sh1.Range("a1:A" & d)
MsgBox cl.Comment.Text
sh1.Range("D" & cl.Row) = cl.Comment.Text
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
尿検査前日に自慰行為した時の...
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
尿検査の前日は自慰控えたほう...
-
彼女のことが好きすぎて彼女の...
-
2つの数値のうち、数値が小さい...
-
勃起する時って痛いんですか? ...
-
これって喉仏ですか? 私は女性...
-
腕を見たら黄色くなってる部分...
-
excelでsin二乗のやり方を教え...
-
Excelで""で囲む方法
-
リンク先のファイルを開かなく...
-
小数点以下を繰り上げたものを...
-
EXCELで式からグラフを描くには?
-
エクセル指定した範囲からラン...
-
精子が黄色?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報