Excel VBA質問箱 IV

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

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


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

【28865】コマンドボックスにて よくばり初心者 05/9/16(金) 18:24 質問[未読]
【28873】Re:コマンドボックスにて でれすけ 05/9/16(金) 22:40 回答[未読]
【28882】Re:コマンドボックスにて よくばり初心者 05/9/17(土) 10:15 質問[未読]
【28883】Re:コマンドボックスにて でれすけ 05/9/17(土) 10:29 発言[未読]
【28884】Re:コマンドボックスにて よくばり初心者 05/9/17(土) 11:37 お礼[未読]

【28865】コマンドボックスにて
質問  よくばり初心者  - 05/9/16(金) 18:24 -

引用なし
パスワード
   大変申し訳ないのですがー教えていただきたい。
sheet1にコマンドボタンを作って、他のsheetの表を表示させて、項目をクリックした番号をsheet1のセルに表示させたいのですができますかねー?

例 
 他のsheet
     
  番号  品目  詳細
   1 りんご  おいしい
   2 ぶどう  ジュクジュク
   3 バナナ  おおきい
   4 もも   かゆい
って感じの表を表示させて選択した項目の番号をセルに貼るって感じ。
んーうまく説明できない。
なんにしても、VBAのことはさっぱり分からない。
最初っからおしえてー私、がんばりますから。

【28873】Re:コマンドボックスにて
回答  でれすけ  - 05/9/16(金) 22:40 -

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

>大変申し訳ないのですがー教えていただきたい。
>sheet1にコマンドボタンを作って、他のsheetの表を表示させて、項目をクリックした番号をsheet1のセルに表示させたいのですができますかねー?

できますよ。
方法としては、Application.InputBoxを使うのが簡単だと思います。

1.別のシートを表示させる
2.Application.InputBox でセルを選択させる
3.元のシートに戻る
4.選択されたセルの値をシートに書き込む
という流れになります。

以下のサンプルは、Sheet1にコマンドボタンがあるとして、
Sheet2のA1から始まる表を表示させて
InputBoxで選択したセルのA列の値をSheet1のA1に書き込みます。
意味はヘルプで調べてみてください。

Private Sub CommandButton1_Click()
Dim aCell As Range

 Application.Goto Worksheets("Sheet2").Range("A1")
 Set aCell = Application.InputBox("セルを選んでください", Type:=8)
 Worksheets("Sheet1").Activate
 If aCell Is Nothing Then Exit Sub
 Me.Range("A1").Value = aCell.Rows(1).EntireRow.Cells(1, 1).Value

End Sub

【28882】Re:コマンドボックスにて
質問  よくばり初心者  - 05/9/17(土) 10:15 -

引用なし
パスワード
   ありがとうございました。
しかしながら、sheet名を変えた場合どうすればいいんですか?
あと、書き込みセルは、複数できないものですかね?

【28883】Re:コマンドボックスにて
発言  でれすけ  - 05/9/17(土) 10:29 -

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

>しかしながら、sheet名を変えた場合どうすればいいんですか?
どうすればいいと思いますか? 
クイズだと思って考えてみてください

>あと、書き込みセルは、複数できないものですかね?
「できる・できない」で言うならば、できるでしょう。

私の示したサンプルである程度やりたいことができたのであれば、
まず、サンプルコードを理解することから始めてください。

【28884】Re:コマンドボックスにて
お礼  よくばり初心者  - 05/9/17(土) 11:37 -

引用なし
パスワード
   ありがとうございました。
もっと勉強してがんばります。
また、よろしくね。

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