![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
関数で、
=ABS(MATCH(D$9,6:6,0)-COLUMN(D$9))
上記のような数式があります。
この数式を、VBAで書換たいのです。
Sub ズレカウント()
Dim j As Long
For j = 4 To 38 Step 2
With Application
Cells(10, j) = .Match(Cells(9, j), Range("D6:AL6"), 0) - Columns(Cells(9, j))
End With
Next j
End Sub
- Columns(Cells(9, j))
この部分を、記載すると、型が一致しませんとなります。
同じ数値なので、型が一致するとおもうのですが、
どこを修正すればいいでしょうか?
お手数ですが、ご教示を尾根がします。
No.3
- 回答日時:
COLUMN関数は列番号を返す関数なので、COLUMN(D$9)ではD列9行セルは「何列目?」と言う意味。
4列目なので、COLUMN(D$9)=4です。
一方のVBAでのColumnsは列を表すRangeオブジェクトを返すプロパティ。
4じゃ有りません。
jが列番号を表してるのですから、
- Columns(Cells(9, j)では無くて、単に-jです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Excelマクロでセルに値が入力されたら実行する 5 2023/08/06 11:03
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
vbaでworksheetfunctionでの複数関数がエラーになります
Visual Basic(VBA)
-
エクセルエラー13型が一致しませんの直し方教えて下さい。
その他(Microsoft Office)
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBAの日付チェックでオーバーフローを回避したい。
Access(アクセス)
-
6
ユーザーフォームが消えない
Excel(エクセル)
-
7
複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。
Visual Basic(VBA)
-
8
VBAのフィルター操作
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラミング
-
エクセルVBAコードで教えて下さ...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
VBAコードについて教えてくださ...
-
vba アクティブシートの名前変...
-
Excelのマクロについて教えてく...
-
Outlookの「受信日時」「件名」...
-
ユーザーフォームに別シートか...
-
Excelのマクロについて教えてく...
-
VBAで各列の"+"と"o"の合計数を...
-
Excelのマクロについて教えてく...
-
久しぶりのプログラミング
-
エクセルVBA
-
Excelのマクロについて教えてく...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
VBAの計算で@が出てしまう件
-
ExcelVBA シート名を複数セルか...
-
VBA UserFormからの転記で
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
VBA レジストリの値の読み方に...
-
Excelのマクロについて教えてく...
-
ユーザーフォームに別シートか...
-
VBAの計算で@が出てしまう件
-
エクセルVBAについて
-
Vba 実数および実数タイプの変...
-
【ExcelVBA】値を変更しながら...
-
VBA一覧取得 再投稿
-
VBA指定行削除
-
エクセルVBAについて
-
VBA ユーザーフォーム ボタンク...
-
VBA 何かしら文字が入っていたら
-
エクセルについて
-
2つのマクロでチェックボックス...
-
【マクロ】1つのマクロの中に...
-
ExcelのVBAコードについて教え...
-
VB.net(VB)で、フォームにExcel...
-
Vba SelStart、SelLen教えてく...
-
Excel-VBAのmsgBox()の不思議
おすすめ情報