Excel VBA質問箱 IV

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

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


5956 / 13645 ツリー ←次へ | 前へ→

【47973】実行時エラー”1004”について ゴウ 07/3/28(水) 18:08 質問[未読]
【47974】Re:実行時エラー”1004”について ぱっせんじゃー 07/3/28(水) 18:20 発言[未読]
【48002】Re:実行時エラー”1004”について ゴウ 07/3/29(木) 18:47 お礼[未読]
【47975】Re:実行時エラー”1004”について ichinose 07/3/28(水) 18:23 発言[未読]
【47976】Re:実行時エラー”1004”について ichinose 07/3/28(水) 18:31 発言[未読]
【47991】Re:実行時エラー”1004”について Jaka 07/3/29(木) 13:51 発言[未読]
【47985】Re:実行時エラー”1004”について ゴウ 07/3/29(木) 10:54 お礼[未読]

【47973】実行時エラー”1004”について
質問  ゴウ  - 07/3/28(水) 18:08 -

引用なし
パスワード
   ワークシートを2つ作り
一つのシートにCommandButtonを貼り付け
コードの記述をしました。
CommandButtonを貼り付けてあるのは
Sheets(2)です。


Private Sub CommandButton1_Click()

Sheets(2).Select
Range("A1").Select
Z = Selection.Value
MsgBox (Z)

Sheets(1).Select
Range("A1").Select 'ココでエラーが出ます
Z = Selection.Value
MsgBox (Z)

End Sub


CommandButtonを配置したワークシートとは
別のシートを参照しようとするとエラーがでると
いうことでしょうか???。
そんなはずは無いと思いますが・・・。
こうすれば良いという解決方法を教えてもらえないでしょうか?

【47974】Re:実行時エラー”1004”について
発言  ぱっせんじゃー  - 07/3/28(水) 18:20 -

引用なし
パスワード
   ↓でいかがでしょう?

Private Sub CommandButton1_Click()
Dim i As Integer
 For i = 1 To 2
  Z = Sheets(i).Range("A1").Value
  MsgBox (Z)
 Next i
End Sub

【47975】Re:実行時エラー”1004”について
発言  ichinose  - 07/3/28(水) 18:23 -

引用なし
パスワード
   こんばんは。

同じような質問が最近あったのですが・・・、

>ワークシートを2つ作り
>一つのシートにCommandButtonを貼り付け
>コードの記述をしました。
>CommandButtonを貼り付けてあるのは
>Sheets(2)です。
>
>
>Private Sub CommandButton1_Click()
>
>Sheets(2).Select
>Range("A1").Select
>Z = Selection.Value
>MsgBox (Z)
>
with Sheets(1)
 .Select
 .Range("A1").Select 'ココでエラーが出ます
’↑ Selectしなくても方法はありますし、そのほうが良いですが・・。
end with
>Z = Selection.Value
>MsgBox (Z)
>
>End Sub

としてみてください

www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=46598;id=excel#46617

理由は、上記のスレッドを読んで解明してください。

【47976】Re:実行時エラー”1004”について
発言  ichinose  - 07/3/28(水) 18:31 -

引用なし
パスワード
   >同じような質問が最近あったのですが・・・、
一ヶ月以上前なのに、最近っていうようじゃ、駄目だ、歳で・・・。

【47985】Re:実行時エラー”1004”について
お礼  ゴウ  - 07/3/29(木) 10:54 -

引用なし
パスワード
   ▼ichinose さん

ゴウです。
教えてくださりありがとうございます。

with Sheets(1)
 .Select
 .Range("A1").Select
end with

でエラーが出ずに動きました。

>www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=46598;id=excel#46617
>理由は、上記のスレッドを読んで解明してください。

こちらについては、読ませていただきました。
しかし、私の知識が低いのかよくわかりませんでした。
ですが、問題は解決しましたので、気にしない事にします。

教えてくださりありがとうございました。
ゴウ

【47991】Re:実行時エラー”1004”について
発言  Jaka  - 07/3/29(木) 13:51 -

引用なし
パスワード
   こんにちは。

▼ichinose さん:
>>同じような質問が最近あったのですが・・・、
>一ヶ月以上前なのに、最近っていうようじゃ、駄目だ、歳で・・・。
私は、1年近く前のに使ってました。
HTTP://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=47989;id=excel
やっぱし、歳でしょうか?

【48002】Re:実行時エラー”1004”について
お礼  ゴウ  - 07/3/29(木) 18:47 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:

お答えいただきありがとうございます。


>↓でいかがでしょう?
>
>Private Sub CommandButton1_Click()
> Dim i As Integer
> For i = 1 To 2
>  Z = Sheets(i).Range("A1").Value
>  MsgBox (Z)
> Next i
>End Sub


シート1・2のセルを参照するルーチン
を作りたかった訳ではないです。
すいません、私の質問の仕方が悪かったと
思います。
しかしながら、真っ先にお答えしていただき
嬉しかったです。ありがとうございました。
ゴウ

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