[[20050921123248]]　『Me.Controlを使うとエラーが出ます。』（Ｓｙｕｎｐｅ）　ページの最後に飛ぶ

『Me.Controlを使うとエラーが出ます。』（Ｓｙｕｎｐｅ）
次のようなマクロを書いたのですが、実行すると「ＭＥキーワードの使用方法が不正です」というエラーがでます。なぜでしょうか？ぜひ教えてください。

 Sub 印選()
Sheets("pri1").Select
i = 2
For k = 1 To 90
          If Me.Controls("checkbox" & k).Value = True Then
          Range("b7").Value = Sheets("pri2").Cells(i, 3).Value
          Range("a3").Value = Sheets("pri2").Cells(i, 13).Value
          Range("a4").Value = Sheets("pri2").Cells(i, 9).Value
          Range("c10").Value = Sheets("pri2").Cells(i, 10).Value
          Range("e10").Value = Sheets("pri2").Cells(i, 11).Value
          Range("g10").Value = Sheets("pri2").Cells(i, 12).Value
          Range("j1").Value = Sheets("pri2").Cells(i, 6).Value
          印刷
          End If
    i = i + 1
Next k
End Sub

初心者ですが、簡単な記述で、sheets("pri2")からｓsheets("pri1")へチェックボックスにチェックをいれたらデータを転写する、繰り返しマクロを書きたいのですが、どうしてもうまいこといきません、よろしくお願いいたします。ちなみにチェックボックスが９０ほどありますので、記述すると大変です・・・う～～ん困った

 「なぜでしょう。」って言われてもどんな種類のチェックボックスなのか
 全く解らないから、返事が返ってこないのだと思います。
 書き直した見たいですが、まだ情報が不足ですね。
 シート上にあるチェックボックスらしい事は、今度は何となくわかりますが・・・。

 こんな感じに直してください。（シート上のアクティブXコントロール）
 Worksheets("Sheet3").OLEObjects("CheckBox" & i).Object.Value = True
 BJ

すみません
確かに情報が少なすぎて分かりませんよね。
チェックボックス自体はユーザーフォームに記載しています。

sub 転写（）
if UseForm1.CheckBox1.value= true Then

    Sheets("pri1").Range("a1").value=Sheets("pri2").Range("a1").value
EndIf
if  UseForm1.CheckBox2.value= true Then
    Sheets("pri1").Range("a2").value=Sheets("pri2").Range("a2").value
EndIf
      .
      .
      .
if  UseForm1.CheckBox90.value= true Then
    Sheets("pri1").Range("a90").value=Sheets("pri2").Range("a90").value
EndIf
EndSub

こんな感じなんですが、ユーザーフォーム上のチェックボックスにチェックをいれたら、転写を繰り返す作業をしたいのです。どうでしょうか？
できれば簡単な記述でやりたいと思っているのですが、全部記載すると重くなるので、簡単にできないでしょうか？是非教えてください。

ひょっとして Sub 印選() を標準モジュールに記述してませんか？

Meを使うならフォームモジュール上に書かないと。
あるいはフォームを渡してあげないと。
「Meって誰？」状態。

（ご近所PG）

なるほど
ものすごくばかっぽいことでしたね。
さっそくやってみると出来ました！！感動です。ありがとうございました
また、聞くかもしれませんがよろしくお願いします。

コメント返信：

[ 一覧(最新更新順) ]

[[20050921123248]] 『Me.Controlを使うとエラーが出ます。』（Ｓｙｕｎｐｅ） ページの最後に飛ぶ

[[20050921123248]]　『Me.Controlを使うとエラーが出ます。』（Ｓｙｕｎｐｅ）　ページの最後に飛ぶ