エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1239 for カレンダー (0.001 sec.)

[[20070216142954]]: #score: 6129; @digest: 9c73d43782c49c97cc1ae5e52bddf4f7; @id: 28781; @mdate: 2007-02-16T06:25:01Z; @size: 2216; @type: text/plain; #keywords: 院カ (69740), 師勤 (46493), 医師 (26343), 入院 (24273), 院¥ (15497), ハ病 (15497), 年. (14814), 西リ (14647), 院予 (14426), 棚¥ (14111), 表20 (13520), 書棚 (13442), 約: (12773), 表¥ (7675), 画停 (6953), fssvr (6766), u56 (6058), リハ (5861), 再描 (5357), 月") (4326), カレ (4067), 務表 (4044), 今月 (3989), ー& (3919), 石田 (3906), 病院 (3501), 関西 (3006), レン (2531), ンダ (2231), ダー (2067), savechanges (1947), 勤務 (1906); 『エクセルAで別のエクセルBを開いて、エクセルAの"今月”という名前のシートのA1と同じ値の名前をもつ、エクセルBのシートを選択するマクロを作りたいのです。』（石田）
いつもお世話になっております。説明が下手ですみません、以下に作りかけのコードをのせました。その中で・・「Sheets("2月").Select」の部分を、もともとアクティブにしているAのエクセルの「今月」という、シートのA1と同じ値のシートを選択する、というふうに置き換えるにはどうしたらいいのでしょう。行いたいことは、入院カレンダー&医師勤務表2007年.xlsのなかの1月〜12月という12 のシートのうち所定のシートを開きたいということなのです。ご指導お願いいたします。 Sub 入院カレンダーを開く() ' 入院カレンダーを開く Macro ' マクロ記録日 : 2007/2/16 ユーザー名 : 125007 ' Sheets("今月").Select Application.ScreenUpdating = False '画面の再描画停止 Workbooks.Open Filename:= _ "¥¥fssvr¥書棚¥入院予約:関西リハ病院¥入院カレンダー&医師勤務表¥入院カレンダー&医師勤務表2007年.xls" Sheets("2月").Select '⇒ この部分を置き換えたいのです。 Range("A2:U56").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Sheets("今月").Select Range("A2:U2").Select ActiveSheet.Paste Range("U56").Select Windows("入院カレンダー&医師勤務表2007年.xls").Activate ActiveWindow.Close SaveChanges:=False Application.ScreenUpdating = False '画面の再描画停止 End Sub (石田） ---- こんなことでしょうか? (ROUGE) '---- Sub 入院カレンダーを開くのだ() Dim wb As Workbook, a As String Application.ScreenUpdating = False a = ThisWorkbook.Sheets("今月").Range("A1").Text Set wb = Workbooks.Open(Filename:= _ "¥¥fssvr¥書棚¥入院予約:関西リハ病院¥入院カレンダー&医師勤務表¥入院カレンダー&医師勤務表2007年.xls") wb.Sheets(a).Range("A2:U56").Copy ThisWorkbook.Sheets("今月").Range("A2:U56") wb.Close SaveChanges:=False Application.ScreenUpdating = True End Sub ---- 老婆心ながら、ファイル名等は匿名性のものにされたほうが良いと思います。お気づきとは思いますが、最後のステートメントは Application.ScreenUpdating = True でしょうか。（おせっかい Mook） ---- 本当ですね^^; とりあえず、Trueに修正しました。 (ROUGE) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200702/20070216142954.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ