実現したいこと
AG44〜63までにあるチェックボックスに✔︎を打ったものだけを下段にある転記セル(エクセルシートの赤枠で囲った部分)に転記したい
発生している問題・分からないこと
エラーメッセージ
error
1実行時エラー438 2オブジェクトは、このプロパティまたはメソッドをサポートしておりません。
該当のソースコード
特になし
試したこと・調べたこと
- teratailやGoogle等で検索した
- ソースコードを自分なりに変更した
- 知人に聞いた
- その他
上記の詳細・結果
解決しなかった
VBAとして機能できるようにしたい
補足
特になし
> AG44〜63までにあるチェックボックス
・「フォームコントロールのチェックボックス」と
「ActiveX コントロールのチェックボックス」の
どちらであるかが不明瞭。
(とりあえず前者であると仮定しますが)
> For i = 1 To Sheets("テスト用(部品発注)").CheckBoxes.Count
> If Sheets("テスト用(部品発注)").CheckBoxes("チェック" & i).Value = xlOn Then
・全てのチェックボックスに適用されている命名規則が
「文字列 "チェック" の後ろに 1 から始まる一意な整数連番を付加する」
であるとして、ワークシート上においてそれらのチェックボックスが
「連番の昇順(または降順)に」垂直方向に並べられているのか、
それとも「連番とは無関係に」並べられているのかが不明。
> 下段にある転記セル(エクセルシートの赤枠で囲った部分)に転記したい
・転記先となる範囲の開始行をワークシートの何行目からにしたいのかが不明。
(スクリーンショットからも読み取れない)
何にせよ、コードの添削を希望されるのであれば、ソースコードは
スクリーンショットで示すのではなく、モジュールに記述されてる
コードをそのままコピーアンドペーストして投稿されることをお奨めします。
![guest](/img/icon/icnUserSample.jpg)