エクセルの学校：全文検索：Hyper Estraier：グラフ

Results of 1 - 1 of about 3685 for グラフ (0.002 sec.)

[[20060908214153]]: #score: 3272; @digest: ee1c3287160e989897e5140566f2c01f; @id: 25003; @mdate: 2006-09-13T08:54:03Z; @size: 8085; @type: text/plain; #keywords: 店グ (329344), フ", (184445), 員統 (85238), フ") (54741), 通店 (46493), 水店 (46493), 豊店 (46493), 橋通 (46493), 井店 (46493), 武豊 (41443), 袋井 (40327), 川店 (37857), 豊川 (35368), フ元 (31462), 大橋 (31204), 岡店 (30674), 時統 (29993), ＜15 (29010), 人員 (20267), routeworkbook (20163), 表", (19550), 時＞ (19290), 本店 (18009), myarr (17352), タ", (15058), 統計 (14292), ＞人 (13815), fn2 (13347), 清水 (13171), protect (11004), ラフ (8782), 静岡 (8105); 『初めまして。お助け下さい』（たろう）
只今仕事の関係でマクロを組んでいるのですが… ブックの中の一部のシートを別ブックにコピーし、それを別名で（自動命名）保存しているのですが、その別保存したシートを開いた時に「このブックには、他のデータソースへのリンクが設定されています」とアラートが出ます。この表示を出さないようにコピー&別名保存するにはどのような記述をどこにすれば宜しいでしょうか。 Sub Auto_Open() Application.ScreenUpdating = False Workbooks.Open , UpdateLinks:=0 ThisWorkbook.Close Application.ScreenUpdating = True End Sub 試しに、上記のような記述をそのブックの1枚目のシートに記述しましたが…ダメでした。素人で申し訳ありませんが、回答のほど宜しくお願い致します。 ---- 下記のコードではどうですか? 一度保存してから試してくださいこのBookと同じ所に保存されます Sub M_HOZON() Dim myPATH As String myPATH = ThisWorkbook.Path & "¥Hoge.xls" Workbooks.Add With ActiveWorkbook .Worksheets("Sheet1").Name = "保存先" ThisWorkbook.Worksheets("Sheet1") _ .Cells.Copy .Worksheets("保存先").Range("A1") .Close savechanges:=True, Filename:=myPATH, _ RouteWorkbook:=False End With End Sub (hime) ---- 早急なご回答ありがとうございます。この記述は、元のブックで保存するボタンに記述すれば宜しいのでしょうか。ちなみに申し遅れましたが、ユーザーフォームのコマンドボタンで「コピー&別名保存」をしています。 ---- ちなみにそのコマンドボタンの記述は以下のとおりです。 Private Sub HozonToziru_Click() Application.DisplayAlerts = False ActiveSheet.Unprotect Dim pt As String, fn As String, fn2 As String pt = "C:¥Documents and Settings¥マネージャー¥デスクトップ¥15時統計" With Sheets("＜15時＞人員統計表") fn = .Range("AE1").Value fn2 = .Range("AJ1").Value & .Range("AK1").Value End With Sheets(Array("メニュー", "＜15時＞人員統計表", "グラフ元データ", "本店グラフ", "清水店グラフ", "静岡店グラフ", "袋井店グラフ", "豊川店グラフ", "大橋通店 グラフ", "武豊店グラフ", "○○店グラフ")).Copy Sheets("グラフ元データ").Select ActiveSheet.Protect Sheets("本店グラフ").Select ActiveSheet.Protect Sheets("グラフ元データ").Select ActiveSheet.Protect Sheets("本店グラフ").Select ActiveSheet.Protect Sheets("清水店グラフ").Select ActiveSheet.Protect Sheets("静岡店グラフ").Select ActiveSheet.Protect Sheets("袋井店グラフ").Select ActiveSheet.Protect Sheets("豊川店グラフ").Select ActiveSheet.Protect Sheets("大橋通店グラフ").Select ActiveSheet.Protect Sheets("武豊店グラフ").Select ActiveSheet.Protect Sheets("○○店グラフ").Select ActiveSheet.Protect Sheets("＜15時＞人員統計表").Select ActiveSheet.Protect Sheets("メニュー").Select ActiveWorkbook.SaveAs Filename:=pt & "¥" & IIf(fn = "", fn2, fn) ActiveWorkbook.Close Application.DisplayAlerts = True Unload Toukei15Dlg Sheets("＜15時＞人員統計表").Select ActiveSheet.Protect Sheets("TopPage").Activate End Sub ---- 回答ではなく申し訳ないのですが、ここへの入力方法です。 (ご存じでしたらスルーして下さい） ------------------ '' テキスト整形のルール'' 通常は入力した文字がそのまま出力されますが、以下のルールに従ってテキスト整形を行うことができます。・空行は段落の区切りとなります。・HTMLのタグは書けません。・----のようにマイナス4つがあると、水平線になります。・行頭が半角スペースで始まっていると、その段落は整形済み扱われます。プログラムを書き込むときに使うと便利です。・http://www.hyuki.com/ のようなURLは自動的にリンクになります。 ------------------ (HANA) ---- あっ、申し訳ありません!(--; ありがとうございます! （たろう） ---- Sheets(Array("メニュー", "＜15時＞人員統計表", "グラフ元データ", "本店グラフ", "清水店グラフ", "静岡店グラフ", "袋井店グラフ", "豊川店グラフ", "大橋通店グラフ", "武豊店グラフ", "○○店グラフ")).Copy とシートをコピーするのではなく Private Sub CommandButton1_Click() Dim myArr As Variant Dim i As Variant myArr = Array("メニュー", "＜15時＞人員統計表", "グラフ元データ", "本店グラフ", _ "清水店グラフ", "静岡店グラフ", "袋井店グラフ", "豊川店グラフ", "大橋通店グラフ", _ "武豊店グラフ", "○○店グラフ") Workbooks.Add For Each i In myArr Worksheets _ .Add(after:=Worksheets(Worksheets.Count)) _ .Name = (i) Next Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete Application.DisplayAlerts = True End Sub のように新しいBookを作って元シートをコピーして新しいBookのしーとに貼り付けすればどうでしょうとりあえずコードは新しいBookを作る所だけですが試してみて下さい (hime) ---- とりあえず作ってみました保存先はBookと同じ所にしています。一度保存して下さいファイル名が分らなかったのでHoge.xlsで保存しています。シート名は元Bookと保存するBookと同じにしています。勘違いならすいません Dim myArr As Variant Dim i As Variant Dim pt As String Dim fn As String Dim fn2 As String 'pt = "C:¥Documents and Settings¥マネージャー¥デスクトップ¥15時統計" pt = ThisWorkbook.Path & "¥Hoge.xls" With Sheets("＜15時＞人員統計表") fn = .Range("AE1").Value fn2 = .Range("AJ1").Value & .Range("AK1").Value End With myArr = Array("メニュー", "＜15時＞人員統計表", "グラフ元データ", "本店グラフ", _ "清水店グラフ", "静岡店グラフ", "袋井店グラフ", "豊川店グラフ", "大橋通店グラフ", _ "武豊店グラフ", "○○店グラフ") Application.ScreenUpdating = False Workbooks.Add With ActiveWorkbook For Each i In myArr .Worksheets _ .Add(after:=.Worksheets(.Worksheets.Count)) _ .Name = (i) ThisWorkbook.Worksheets(i) _ .Cells.Copy .Worksheets(i).Range("A1") .Worksheets(i).Protect Next Application.DisplayAlerts = False .Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete Application.DisplayAlerts = True .Close savechanges:=True, Filename:=pt, _ RouteWorkbook:=False End With Application.ScreenUpdating = True (hime) ---- 申し訳ありません、まだ試していないのですが、早速やってみます! ここの方は親切な方ばかりですね…ありがとうございます!（たろう） ---- お世話になります。保存先なのですが、デスクトップの「15時統計」というファイルの中に保存します。また、保存名はシート名『＜15時＞人員統計表』の『AE1』と『AJ1』と『AK1』のセル内容を結合して保存名としています。この場合、どのように記述した方が宜しいでしょうか。（たろう） ---- Dim myArr As Variant Dim i As Variant Dim pt As String Dim fn As String Dim fn2 As String pt = "C:¥Documents and Settings¥マネージャー¥デスクトップ¥15時統計¥" 'pt = ThisWorkbook.Path & "¥Hoge.xls" With Sheets("＜15時＞人員統計表") fn = .Range("AE1").Value & .Range("AJ1").Value & .Range("AK1").Value & ".xls" End With fn2 = pt & fn myArr = Array("メニュー", "＜15時＞人員統計表", "グラフ元データ", "本店グラフ", _ "清水店グラフ", "静岡店グラフ", "袋井店グラフ", "豊川店グラフ", "大橋通店グラフ", _ "武豊店グラフ", "○○店グラフ") Application.ScreenUpdating = False Workbooks.Add With ActiveWorkbook For Each i In myArr .Worksheets _ .Add(after:=.Worksheets(.Worksheets.Count)) _ .Name = (i) ThisWorkbook.Worksheets(i) _ .Cells.Copy .Worksheets(i).Range("A1") .Worksheets(i).Protect Next Application.DisplayAlerts = False .Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete Application.DisplayAlerts = True .Close savechanges:=True, Filename:=fn2, _ RouteWorkbook:=False End With Application.ScreenUpdating = True でどうでしょう? pt・fn・fn2を参考にして下さい (hime) ---- 何度もありがとうございます。さて…保存ボタンに上記を記述したのですが、今度は必要なマクロとグラフが抜けた状態でコピーされてしまいました。。諦めて他の方法を考えた方がいいのでしょうか。。（たろう） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060908214153.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ