Excel VBA質問箱 IV

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

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


52693 / 76732 ←次へ | 前へ→

【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
1 hits

【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 お礼

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