| |
こんばんわ
>大変申し訳ないのですがー教えていただきたい。
>sheet1にコマンドボタンを作って、他のsheetの表を表示させて、項目をクリックした番号をsheet1のセルに表示させたいのですができますかねー？
できますよ。
方法としては、Application.InputBoxを使うのが簡単だと思います。
１．別のシートを表示させる
２．Application.InputBox でセルを選択させる
３．元のシートに戻る
４．選択されたセルの値をシートに書き込む
という流れになります。
以下のサンプルは、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
|
|
でれすけ
- 05/9/16(金) 22:40 -
