Results of 1 - 1 of about 295 for cell filename (0.001 sec.)
cell (1170), filename (1984)
- [[20090601182809]]
- #score: 11157
- @digest: af59b08cacc5aba7ab75843bc57f5347
- @id: 43725
- @mdate: 2009-06-01T23:17:07Z
- @size: 4829
- @type: text/plain
- #keywords: shtnm (14325), combo (8427), 団体 (5024), xlvertical (4777), oleobjects (3996), arrangestyle (3985), arrange (3623), newwindow (3200), ボボ (2950), ンボ (2071), sht (1860), object (1726), combobox1 (1654), indirect (1490), クエ (1420), ト名 (1302), stop (1275), filename (1271), thisworkbook (1066), workbook (1038), activewindow (1025), ダウ (1022), エリ (1011), 準備 (1009), cell (938), シー (917), 各シ (828), explicit (815), private (802), worksheets (799), モジ (758), コン (751)
- 『ワークエリアへの表示』（ポン太）
各シート名をワークエリア（例 A1セルへの表示）に表示する事って出来るんでしょうか? ワークエリアでプルダウンにてシート名を選択したら、選択したシートが表示されるようにしたいんですが・・・。 非常に難しいかと思いますが、いい方法がありますでしょうか? 各団体から送られてきた登録名簿を各シートとして追加して行き、シート1に集計表を作成したいんです。 で、団体名（シート名）を選択したら登録内容がわかるという風にしたいんです。 ---- 例えばです。 B2をプルダウンで選び、B2で選んだシートの内容をA3:E4に表示する方法です。 シート1 [A] [B] [C] [D] [E] [1] シート名 Sheet2 [2] [3] あ い う え お [4] か き く け こ Sheet2 [A] [B] [C] [D] [E] [1] あ い う え お [2] か き く け こ 作業列を用います。 シート1に下記を入力 D1=MID(CELL("filename",INDIRECT("Sheet2!A1")),FIND("]",CELL("filename",INDIRECT("Sheet2!A1")),1)+1,LEN(CELL("filename",INDIRECT("Sheet2!A1")))-FIND("]",CELL("filename",INDIRECT("Sheet2!A1")),1)) シート数に合わせてフィルダウン 次に、Sheet2等を実際のシート名に変更 B2はデータ>>入力規則より、リストを選び作成したD列の範囲を選択 これで、プルダウンでシート名が選択可能 A3=INDIRECT($B$1&"!"&CHAR(64+COLUMN())&ROW()-2) 必要範囲をコピペ こんな感じでどうでしょうか? indirect関数を多用しているので重くなるかもしれませんが… (1or8) はずしていたらごめんなさい ---- VBAで行う方法です。 新規ブックにて（Sheet1〜Sheet5ぐらいシートを作って置いてください）、 標準モジュール(module1)に '=============================================================================== Option Explicit Sub 準備() Dim sht As Object Dim g0 As Long With Worksheets("sheet1") .Rows("1:1").RowHeight = 21 .Columns("a:a").ColumnWidth = 21 With .OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False _ , DisplayAsIcon:=False, Left:=[a1].Left, Top:=[a1].Top, Width:=[a1].Width + 3, Height:= _ [a1].Height + 1.5) .Object.Style = 2 End With End With End Sub 上記、準備を実行してみてください。Sheet1のセルA1上にコンボボックスが作成されます。この コンボボックスでシート名を選択することで該当するシートにジャンプすることを考えます。 別の標準モジュール（Module2）に作成したコンボボックスにシート名を設定するプロシジャー '================================================================================ Sub set_combo() Dim g0 As Long Dim sht As Object With Worksheets("sheet1").OLEObjects("combobox1") Worksheets("sheet1").ev_stop = True .Object.Clear If ThisWorkbook.Sheets.Count > 1 Then ReDim shtnm(1 To ThisWorkbook.Sheets.Count - 1) For Each sht In ThisWorkbook.Sheets If sht.Name <> Worksheets("sheet1").Name Then shtnm(g0 + 1) = sht.Name g0 = g0 + 1 End If Next .Object.List = shtnm() .Object.ListIndex = -1 End If Worksheets("sheet1").ev_stop = False End With End Sub Sheet1のモジュールにコンボボックスでシート名を選択したときに発生するイベント '========================================================================== Option Explicit Public ev_stop As Boolean Private Sub ComboBox1_Change() Dim shtnm As Variant Dim awn As Window If Not ev_stop Then shtnm = OLEObjects("combobox1").Object.Text On Error Resume Next ThisWorkbook.Windows(2).Close On Error GoTo 0 Set awn = ActiveWindow With ActiveWindow.NewWindow.Parent .Sheets(shtnm).Select End With awn.Activate Windows.Arrange ArrangeStyle:=xlVertical End If End Sub 最後にThisworkbookのモジュールに ブックを開いた時や シートを追加した時や削除した時にコンボボックスを再構成するイベント '================================================================== Option Explicit Private sht As Object Private Sub Workbook_Open() set_combo Worksheets("sheet1").Select End Sub '================================================================== Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim delsht As Variant On Error Resume Next delsht = sht.Name If Err.Number <> 0 Then set_combo End If Set sht = Nothing End Sub '================================================================== Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Set sht = Sh End Sub '================================================================== Private Sub Workbook_NewSheet(ByVal Sh As Object) set_combo End Sub 一度保存して閉じた後、再度開いて確認してください。 ichinose... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200906/20090601182809.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608269 words.
訪問者：