Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5969 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【47973】実行時エラー”１００４”について ゴウ 07/3/28(水) 18:08 質問[未読]
【47974】Re:実行時エラー”１００４”について ぱっせんじゃー 07/3/28(水) 18:20 発言[未読]
【48002】Re:実行時エラー”１００４”について ゴウ 07/3/29(木) 18:47 お礼[未読]
【47975】Re:実行時エラー”１００４”について ichinose 07/3/28(水) 18:23 発言[未読]
【47976】Re:実行時エラー”１００４”について ichinose 07/3/28(水) 18:31 発言[未読]
【47991】Re:実行時エラー”１００４”について Jaka 07/3/29(木) 13:51 発言[未読]
【47985】Re:実行時エラー”１００４”について ゴウ 07/3/29(木) 10:54 お礼[未読]
【47973】実行時エラー”１００４”について
質問  ゴウ  - 07/3/28(水) 18:08 -
引用なし
パスワード
   ワークシートを２つ作り
一つのシートに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:実行時エラー”１００４”について
発言  ぱっせんじゃー  - 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:実行時エラー”１００４”について
発言  ichinose  - 07/3/28(水) 18:23 -
引用なし
パスワード
   こんばんは。

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

>ワークシートを２つ作り
>一つのシートに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:実行時エラー”１００４”について
発言  ichinose  - 07/3/28(水) 18:31 -
引用なし
パスワード
   >同じような質問が最近あったのですが・・・、
一ヶ月以上前なのに、最近っていうようじゃ、駄目だ、歳で・・・。
【47985】Re:実行時エラー”１００４”について
お礼  ゴウ  - 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:実行時エラー”１００４”について
発言  Jaka  - 07/3/29(木) 13:51 -
引用なし
パスワード
   こんにちは。

▼ichinose さん：
>>同じような質問が最近あったのですが・・・、
>一ヶ月以上前なのに、最近っていうようじゃ、駄目だ、歳で・・・。
私は、１年近く前のに使ってました。
HTTP://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=47989;id=excel
やっぱし、歳でしょうか？
【48002】Re:実行時エラー”１００４”について
お礼  ゴウ  - 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


シート１・２のセルを参照するルーチン
を作りたかった訳ではないです。
すいません、私の質問の仕方が悪かったと
思います。
しかしながら、真っ先にお答えしていただき
嬉しかったです。ありがとうございました。
ゴウ
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5969 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free