実行時エラー438を解決してvbaとして機能させたい

Question

実現したいこと

AG44〜63までにあるチェックボックスに✔︎を打ったものだけを下段にある転記セル(エクセルシートの赤枠で囲った部分)に転記したい

発生している問題・分からないこと

エラーメッセージ

実行時エラー438
オブジェクトは、このプロパティまたはメソッドをサポートしておりません。

該当のソースコード

特になし

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

解決しなかった
VBAとして機能できるようにしたい

補足

特になし

Comments

[sk.exe]

> AG44〜63までにあるチェックボックス

・「フォームコントロールのチェックボックス」と
　「ActiveX コントロールのチェックボックス」の
　どちらであるかが不明瞭。
　（とりあえず前者であると仮定しますが）

> For i = 1 To Sheets("テスト用（部品発注）").CheckBoxes.Count
> If Sheets("テスト用（部品発注）").CheckBoxes("チェック" & i).Value = xlOn Then

・全てのチェックボックスに適用されている命名規則が
「文字列 "チェック" の後ろに 1 から始まる一意な整数連番を付加する」
　であるとして、ワークシート上においてそれらのチェックボックスが
　「連番の昇順（または降順）に」垂直方向に並べられているのか、
　それとも「連番とは無関係に」並べられているのかが不明。

> 下段にある転記セル(エクセルシートの赤枠で囲った部分)に転記したい

・転記先となる範囲の開始行をワークシートの何行目からにしたいのかが不明。
　（スクリーンショットからも読み取れない）

何にせよ、コードの添削を希望されるのであれば、ソースコードは
スクリーンショットで示すのではなく、モジュールに記述されてる
コードをそのままコピーアンドペーストして投稿されることをお奨めします。続きを読む ∨

Answer 1

このエラーは、xxx.yyy などの形式のyyyのところが間違えていると発生します。
その目で見ると、5行目 rows.cout が綴り間違えでしょう。

他にもあるかもしれませんので、よく確認してみてください。

Comments

[JUNYA]

全くの初心者でしてYouTubeを見ながら作ってみたのですが、上手くできませんでした。
チェックボックスに✔︎して転記するコードを、教えてほしいです。
※ボタンを作ってハイパーリンクさせる予定です！
以上、ご回答よろしくお願い致します。

[TakaiY]

全くの初心者ということであれば、動画などのWeb上の細切れの情報ではなく、初心者向けの書籍で体系的に学習してから着手することをお勧めします。

> コードを、教えてほしいです
これは難しいです。 Teratailはそういうところではありませんし。
プログラムの作成を希望するのであれば、要件を整理して文書にして、そういうサービスをしているところで依頼するのがいいでしょう。 ほとんどのところが有料ですが。