Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6642 / 13644 ツリー ←次へ | 前へ→

【44016】テキストボックスへのコピー ミーナ 06/11/1(水) 12:24 質問[未読]
【44019】Re:テキストボックスへのコピー Jaka 06/11/1(水) 12:39 発言[未読]
【44025】Re:テキストボックスへのコピー ミーナ 06/11/1(水) 13:09 質問[未読]
【44026】Re:テキストボックスへのコピー Blue 06/11/1(水) 13:16 発言[未読]
【44028】Re:テキストボックスへのコピー Jaka 06/11/1(水) 13:24 発言[未読]
【44062】Re:テキストボックスへのコピー ミーナ 06/11/2(木) 7:55 お礼[未読]

【44016】テキストボックスへのコピー
質問  ミーナ  - 06/11/1(水) 12:24 -

引用なし
パスワード
   いつもおせわになります。煮詰まっています。
チェックボックス(新作チェック)にチェックが付いていると
印刷フォームというユーザーフォームが開き、
フォームの中のテキストボックス(テキスト入力)に
A列の一番下のセルに入力されている文字をコピーしたいです。
セルからテキストボックスへのコピーはわかるのですが、
今回は、セルの指定の仕方がわかりません。

If 新作チェック = True Then
印刷フォーム.Show
テキスト入力.Value = Me.Range("a65536").End(xlUp).Offset(1).Select.Value
End If

なんとか出来ないかと作ってみたのですが全然ダメでした。
よろしければ、ご教授お願いします。

【44019】Re:テキストボックスへのコピー
発言  Jaka  - 06/11/1(水) 12:39 -

引用なし
パスワード
   印刷フォーム.テキスト入力.Value = Me.Range("a65536").End(xlUp).Offset(1).Value
印刷フォーム.Show

【44025】Re:テキストボックスへのコピー
質問  ミーナ  - 06/11/1(水) 13:09 -

引用なし
パスワード
   ▼Jaka さん:
>印刷フォーム.テキスト入力.Value = Me.Range("a65536").End(xlUp).Offset(1).Value
>印刷フォーム.Show

ありがとうございます。やってみたのですが
.Rangeのところでメソッドまたばデータメンバが見つかりませんとエラーが出ます。
どこがおかしいのでしょうか?

【44026】Re:テキストボックスへのコピー
発言  Blue  - 06/11/1(水) 13:16 -

引用なし
パスワード
   これらのコードはどこに書いていますか?
対象のシートモジュールでない場合、

>Me.Range("a65536").End(xlUp).Offset(1).Value
~~~

を適切に替える必要があります。
たとえば、Sheet1が対象であれば

Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1).Value

のように。

【44028】Re:テキストボックスへのコピー
発言  Jaka  - 06/11/1(水) 13:24 -

引用なし
パスワード
   ▼ミーナ さん:
>>印刷フォーム.テキスト入力.Value = Me.Range("a65536").End(xlUp).Offset
>ありがとうございます。やってみたのですが
>.Rangeのところでメソッドまたばデータメンバが見つかりませんとエラーが出ます。
>どこがおかしいのでしょうか?
この Me. をつけている理由がわかってませんでしたが、
多分、シート上のアクティブXコントロールのコマンドボタンなのかなと思って、そのままにしましたが、違うなら必要ないです。
っていうか、シートを指定したいのならシート名も書いてください。

予断、少し前に、グラフタイトル変更の質問にて、グラフ作成時に変更するとは気づかずにすでに作ってあるグラフとして返答したこともあるので....。

また、このMeって何を指しているのか解って使用しているのでしょうか?

【44062】Re:テキストボックスへのコピー
お礼  ミーナ  - 06/11/2(木) 7:55 -

引用なし
パスワード
   ▼Jaka さん:
>▼ミーナ さん:
>>>印刷フォーム.テキスト入力.Value = Me.Range("a65536").End(xlUp).Offset
>>ありがとうございます。やってみたのですが
>>.Rangeのところでメソッドまたばデータメンバが見つかりませんとエラーが出ます。
>>どこがおかしいのでしょうか?
>この Me. をつけている理由がわかってませんでしたが、
>多分、シート上のアクティブXコントロールのコマンドボタンなのかなと思って、そのままにしましたが、違うなら必要ないです。
>っていうか、シートを指定したいのならシート名も書いてください。
>
>予断、少し前に、グラフタイトル変更の質問にて、グラフ作成時に変更するとは気づかずにすでに作ってあるグラフとして返答したこともあるので....。
>
>また、このMeって何を指しているのか解って使用しているのでしょうか?

Jakaさん、Blueさん、ありがとうございました。できました。
以前、同じようなコードを作ってそれを参考にしていました。
その時は同じシートモジュール内だったので、Meでできたので
そのまま使ってしまいました。勉強不足なので、もっと勉強したいと思います。

6642 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free