エクセルの学校：全文検索：Hyper Estraier：リンク

Results of 1 - 1 of about 6618 for リンク (0.004 sec.)

[[20100121145642]]: #score: 3107; @digest: 0fd2b0a084c4c5521c8bf970f887d4e1; @id: 47322; @mdate: 2010-02-05T06:54:15Z; @size: 12838; @type: text/plain; #keywords: 展示 (119740), 示表 (71948), 力シ (10823), 表シ (10329), 示シ (5841), 転記 (5403), リン (4409), 保存 (4362), ンク (4330), 別ブ (4257), ト保 (3817), data (3531), 表") (3074), fname (2537), ッセ (2202), メッ (2191), ブッ (2077), シー (2076), セー (1945), 入力 (1831), ート (1727), 解除 (1716), 記し (1590), て保 (1549), cells (1525), activeworkbook (1428), 更新 (1345), range (1292), 存し (1266), offset (1232), 手入 (1213), クは (1187); 『シート保存』（tt）
よろしくお願いします。 Sub データ保存() If Range("A1") = "" Then MsgBox " 番号を入れてください" Exit Sub End If Dim FName As String With Sheets("Sheet1").Range("A1") FName = "¥" & .Text & ".xls" Range("A1").ClearContents End With ThisWorkbook.SaveAs (ThisWorkbook.Path & FName) End Sub 見よう見まねでマクロを書いたのですがブックが保存されます。アクティブシートだけを保存したいのですが ThisWorkbook→ActiveSheetに変更してもエラーが出ます。 ---- アクティブシートを新しいブックにコピーしてから、その新しいブックを保存してください。 (semm) ---- (semm)さん大変遅くなり申し訳ありません。 Sub シート保存() Dim FName As String ActiveSheet.Copy If Range("A1") = "" Then MsgBox "番号を入れてください" Exit Sub End If With Sheets("Sheet1").Range("A1") FName = "¥" & .Text & ".xls" End With ActiveWorkbook.SaveAs Range("A1").Value & "" ActiveWorkbook.Close End Sub このコードでSheet1のみ別ブックに保存は出来るのですが保存先から開くとこのブックには他のデータソースのリンクが含まれています。更新する更新しないのメッセージが表示されます。このデータはコピー元ブックのリンクされたデータです。このメッセージを表示しないようにするにはどうすればいいのでしょうか? (tt) ---- そのリンクは解除してしまっても良いのですか? それとも、どうなれば良いのでしょう? また、Sheet1に入っている数式によってその様なメッセージが表示されているのでしょうか? その場合、どの範囲に入っているのでしょう? こちらで同じ様なシートが作れる様に詳細な情報を書いてみられてはどうでしょう。 (HANA) ---- (HANA)さん有難うございます。いつも大変なご指導お世話様です。 Sub 展示表へ転記() Dim data(1 To 6) With Sheets("入力") data(1) = .Cells(2, 2) data(2) = .Cells(5, 2) data(3) = .Cells(8, 2) data(4) = .Cells(11, 2) data(5) = .Cells(14, 2) data(6) = .Cells(17, 2) End With With Sheets("展示表") .Range("X" & .Cells(Rows.Count, 4).End(xlUp).Row).Offset(3) = data(1) .Range("C" & .Cells(Rows.Count, 4).End(xlUp).Row).Offset(3) = data(2) .Range("BD" & .Cells(Rows.Count, 4).End(xlUp).Row).Offset(3) = data(3) .Range("K" & .Cells(Rows.Count, 19).End(xlUp).Row).Offset(18) = data(4) .Range("N" & .Cells(Rows.Count, 12).End(xlUp).Row).Offset(11) = data(5) .Range("AX" & .Cells(Rows.Count, 12).End(xlUp).Row).Offset(11) = data(6) End With End Sub のコードで入力シートから展示表シートに転記し同フォルダに上記コードで展示表シートのみA1をファイル名として保存しています。保存先から勿論「入力シート」ではリンク解除は出来ませんが保存先ブックを開いた時にこのブックにはほかのデータソースのリンクが含まれております。・・・・・・・・・・更新する更新しないヘルプのメッセージが表示されます。このメッセージを表示させないようにしたいのです。 (tt) ---- いやいや、コードを載せられてもよく分かりません。タブン、そのコードは関係ないと思います。私が今分かっているのは「リンクの更新の確認が出るのだからどこかにリンクが有るのだろう」と言う事です。しかし、こちらではお使いのブックを見ていないので リンクが本当に有るのか。有るならどこにどう言った形であるのか分かりません。また、リンクは維持したままメッセージを表示のみ表示されないようにしたいのか リンクは解除してしまって良いのかも分かりません。ですから展示表シートは、数式が入っていませんか? 展示表シートは、リンクが設定してあるオブジェクトが有りませんか? 名前を付けて保存した時、リンクは解除されて良いのですか? 等、お伺いしています。＞＞こちらで同じ様なシートが作れる様に＞＞詳細な情報を書いてみられてはどうでしょう。これに関しては、説明の段階で ○○セルに××と言う数式が入っている △△セルの上に図形が有って、リンクが設定してある等が挙げられてくると思って書いてみました。同じブックを作成して、同じコードで同じ症状が出ればどの様な回避方法が有るのかも考えやすいです。新しいブックを用意して、シート名を「入力」「展示表」に変更。入力シートの必要な箇所にデータを入力して、((展示表へ転記))コードを実行その後、((シート保存))を実行して保存したブックを開いても リンクの確認は出てこないと思います。ですから、そのメッセージが出るのはこれまでのご説明に無い部分が原因だと思いますのでその部分はご説明して頂くのが良いと思います。 (HANA) ---- 有難うございます。 (セル結合しています） sheet("入力") B2:D3 リスト入力します。 B5:D6 手入力 B8:D9 リスト入力します。 B11:J12 手入力 B14:D15 手入力 B17:D18 手入力 sheet("展示表") C4:S10 ←B5:D6("入力シート") X4:BB10 ←B2:D3 BD4:BQ10 ←B8:D9 N12:AH17 ←B14:D15 AX12:BQ17←B17:D18 K19:BH23←B11:J12 次のコードで転記しています Sub 展示表へ転記() Dim data(1 To 6) With Sheets("入力") data(1) = .Cells(2, 2) data(2) = .Cells(5, 2) data(3) = .Cells(8, 2) data(4) = .Cells(11, 2) data(5) = .Cells(14, 2) data(6) = .Cells(17, 2) End With With Sheets("展示表") .Range("X" & .Cells(Rows.Count, 4).End(xlUp).Row).Offset(3) = data(1) .Range("C" & .Cells(Rows.Count, 4).End(xlUp).Row).Offset(3) = data(2) .Range("BD" & .Cells(Rows.Count, 4).End(xlUp).Row).Offset(3) = data(3) .Range("K" & .Cells(Rows.Count, 19).End(xlUp).Row).Offset(18) = data(4) .Range("N" & .Cells(Rows.Count, 12).End(xlUp).Row).Offset(11) = data(5) .Range("AX" & .Cells(Rows.Count, 12).End(xlUp).Row).Offset(11) = data(6) End With 展示表シートのみ同フォルダに保存しています。 Sub シート保存() Dim FName As String ActiveSheet.Copy If Range("A1") = "" Then MsgBox "番号を入れてください" Exit Sub End If With Sheets("Sheet1").Range("A1") FName = "¥" & .Text & ".xls" End With ActiveWorkbook.SaveAs Range("A1").Value & "" ActiveWorkbook.Close End Sub コピー元の展示表シートには入力シートからのデータがリンクされていますのでコピー先の展示表にも入力シートからのデータがリンクされた形になっています。 >また、リンクは維持したままメッセージを表示のみ表示されないようにしたいのか リンクは解除してしまって良いのかも分かりません。コピー先の展示表はリンク解除をしたいのです。 >名前を付けて保存した時、リンクは解除されて良いのですか? はいそのようにしたいのです。うまく説明が出来ませんがご理解いただけたでしょうか? (tt) ---- この部分をもう少し教えて下さい。＞コピー元の展示表シートには入力シートからのデータがリンクされていますので何処にリンクが有るのですか? ＞C4:S10 ←B5:D6("入力シート") ＞X4:BB10 ←B2:D3 ＞BD4:BQ10 ←B8:D9 ＞N12:AH17 ←B14:D15 ＞AX12:BQ17←B17:D18 ＞K19:BH23←B11:J12 これらのセルには、コードで転記しているのですよね? でしたら、リンクはしてないと思いますが。。。それとも、この範囲は「=入力シート!B5」の様にリンクがさせてあってコードで転記するのは別のセルの話でしょうか? 入力シートのデータを表示させるセルが決まっているなら「.Cells(Rows.Count, 4).End(xlUp).Row」なんてする必要もなさそうですし。。。? 一つ入力したら、その一つを転記して、別ブックとして保存と言う事でも無いのですか? 一つ入力したら、その一つを転記して、次のデータを入力。マクロの実行で転記してある続きに転記して、一区切りしたら別ブックとして保存って事なのかな。。。? 済みませんが、処理の流れも教えてみてもらえませんか? どう言った事に成っているのかまた、成れば良いのか分かるように成るかも知れません。 (HANA) ---- (HANA)さん有難うございます。用語を誤認識しているのでしょうか? Sheet1A1をSheet2B1に転記（貼付け）これをリンクしているといわないのでしょうか? もし間違っているのでしたらごめんなさい。 >一つ入力したら、その一つを転記して、次のデータを入力。マクロの実行で転記してある続きに転記して、一区切りしたら別ブックとして保存って事なのかな。。。? C4:S10 ←B5:D6("入力シート") X4:BB10 ←B2:D3 BD4:BQ10 ←B8:D9 N12:AH17 ←B14:D15 AX12:BQ17←B17:D18 K19:BH23←B11:J12 6つをすべて入力して転記しております。入力シートから転記された展示シートを上記コードで別ブックに展示シートのみ保存しています。別ブックに保存された展示シートのデータは数式バーにはセルのアドレスが表示されます。コピー形式を選択して貼付けで値を選択しますとアドレスではなくデータ（文字）が表示されます。データのすべてをこのように変更して上書きするとこのブックにはほかのデータソースのリンクが含まれております。・・・・・・・・・・更新する更新しないヘルプこのメッセージは出なくなります。 (tt) ---- (HANA)さんその後このファイルをテンプレート .XLTで保存し編集してもエラーメッセージが出ません。いろいろと長くお付き合い頂き有難うございました。 (tt) ---- ＞Sheet1A1をSheet2B1に転記（貼付け）これをリンクしているといわないのでしょうか? 転記は転記ですよね。 リンクとは違うと思います。例えば、A1セルに「イロハ」と入れて A1セルをコピーして、B1セルに貼り付けると転記 B2セルに =A1 と言う式を入れると リンク B1セルもB2セルもどちらも「イロハ」と成ります。ここで、A1セルの文字を「●△■」に変更した場合コピー・貼り付けをしたB1セルは「イロハ」のままですが A1セルにリンクさせているB2セルは「●△■」に変わります。「展示表シートのC4セルに入力シートのB5セルをリンクさせてある」と言えば、通常は、展示表シートのC4セルに =入力!B5 の様な式が入っている事を表すと思います。今回はマクロでデータを書き込んでいるので リンクが設定されているとは思えないのですが。。。解決されたようですが、もし宜しければ教えて下さい。＞別ブックに保存された展示シート＞のデータは数式バーにはセルのアドレスが表示されます。これは、((展示表へ転記))マクロを実行した後で既に数式が入っていると言う事ですか? それとも、その段階では値が入っているのにこのシートだけ保存しようと((シート保存))マクロを実行すると勝手に数式に成っているのでしょうか? 何となくこのマクロを実行して転記しているのではなく数式で入力シートの所定のセルを参照する式が入っているので入力シートに入力した物が表示されている状態って感じがするのですが。。。? (HANA) ---- ちなみに、ひとつ入力したらそれを転記して保存する（転記先のセル番地は決まっている）のなら、 End(xlUp).Row で、セルを探す必要は無いと思いますしどうせひとつずつしか書き出せないのですから変数に入れる利点は無いように思います。入力シートをアクティブにした状態で実行するなら '------ Sub 展示表へ転記() With Sheets("展示表") .Range("X4").Value = Range("B2").Value .Range("C4").Value = Range("B5").Value .Range("BD4").Value = Range("B8").Value .Range("K19").Value = Range("B11").Value .Range("N12").Value = Range("B14").Value .Range("AX12").Value = Range("B17").Value End With End Sub '------ こんな事でも良いのですか? どう言った事に成れば良いのか、今一分かっていません。この結果が私の認識ですので、違っている場合はそれを修正して頂けると、話が分からない部分が明瞭に成ってくるのではないかと思います。ただ、この様にセルが決まっているなら「入力したら、転記マクロを実行して保存マクロを実行する」なんて、二工程にするとどちらか片方を忘れそうなので展示表シートへは数式を入れてセルを参照する様にして（転記マクロは使わない事にする）保存のマクロで、シートコピー後 ◆所定のセルを数式から値に変更した後（現在のコードに、↑の処理を追加する）保存する様にしておいたほうが良いのかもしれません。 (HANA) ---- (HANA)さん有難うございます。やはりテンプレートにしても不都合がでます。今日は時間が取れませんので元に戻して解決することのほうがよい結果になるかも知れません (tt) ---- (HANA)さん色々ご親切に有難うございます。浅はかなスキルで転記・リンクの違いも理解せず申し訳ありません。(HANA)さんのご提示頂いたコードで解決いたしました。今後もご活躍をお祈りしております。また、このファイルについてまたお教えを請うこともあるかと思いますのでよろしくお願いします。 (tt) ---- えっと。。。転記をマクロで行う事にされたようですが＞＞二工程にするとどちらか片方を忘れそうなのでの部分は問題無いのですか? 因みに、((シート保存))の処理の流れですが先にコピーをして、A1セルの入力確認をしています。これは、A1セルの入力確認後にコピーした方が良いのではないかと思いますが・・・? でもって、転記マクロではなく、数式でリンクをさせておいてコピー後に Range("C4:BD12").Value = Range("C4:BD12").Value で値にして保存しておけば（↑おおざっぱなコードですが。。。）次に保存したブックを開いたときに リンクの確認が出ることもないと思います。 (HANA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201001/20100121145642.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ