自分で作成したPG以外の動きを封じるため、
ツールバーの全非表示をしたいのですが、どのように
したらよいのでしょうか?
また、バックアップのため、ブックの別名保存の仕方
を知りたいのですが、ご存知の方、よろしくお願い
いたします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

>ツールバーの全非表示をしたいのですが、どのようにしたらよいのでしょうか?


切り替えるサンプルマクロです。終わる時に再度実行して元に戻します。
数式バーやステータスバーについても必要なら、これはマクロ記録ですぐわかるでしょう。

Sub CommandBars切り替え()
  Dim myCBar As CommandBar
  '使用可能・不可の切り替え
  For Each myCBar In CommandBars
    myCBar.Enabled = Not myCBar.Enabled
  Next
End Sub


>バックアップのため、ブックの別名保存の仕方を知りたいのですが
開いているBookの別名保存のサンプルマクロです。
バックアップファイルのファイル名の決め方は、ご自分で決めてください。
今は先頭に『bak_』をつけています。2回目、3回目と実行しても同じバックアップファイル名になります。
バックアップに履歴を反映する場合は、バックアップファイル名の付け方を明確に決めて、過去のバックアップと重複しないようにする必要があります。当然、コードは長くなってしまいます。

Sub BackUpSave()
  Dim myPath As String 'パス
  Dim bakFileName As String 'バックアップファイル名

  bakFileName = "bak_" & ActiveWorkbook.Name 'バックアップファイル名の決め方は例です
  myPath = ActiveWorkbook.Path
    If Right(myPath, 1) <> "\" Then '『\』があるか調べているだけ
      myPath = myPath & "\"
    End If

  '現ブックを別名でバックアップファイルとして保存する
  ActiveWorkbook.SaveCopyAs myPath & bakFileName
End Sub
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qハードディスクのバックアップツール

NortonGhostをつかって,ハードディスクのバックアップを試みましたが,
小生には敷居が高く,うまくできませんでした。
そこで,違うソフトでバックアップすることを検討しています。
使ってみてよかったソフトを教えてください。
小生のコンピュータは,win2000が入っており,
フロッピードライブ,CDRドライブはあります。
できれば,バックアップはCDRに書き込んで,
CDドライブから立ち上げて,
一気に元に戻せるようなのが簡単にできるのが希望です。

Aベストアンサー

それならネットジャパン者から発売されてる、パワークエスト社の
Drive Image for CDR 
が最適とおもいますが。自分ももう長く使っていますが、値段も安いし。使いよいですよ。品質も最高です。
これでリカバリーディスクつくれば、おかしくなってもすぐに最初の状態にもどせます。
確か実売価格で5800円ほどだとおもいます。

参考URL:http://www.netjapan.co.jp/support/index_support.html

Qエクセルのブックに「このシートを送信する」というツールバーができてしまいました

エクセルのあるブックに「このシートを送信する」というツールバーができてしまいました。

他のブックを開いても出て来ませんが、そのブックのみ出てきます。

ツールバーの一覧などに表示が無くこのツールバーを閉じることができないで困っています。
また、WEBメールしか対応してないパソコンなのでそのままウィザードを実行してみようとしてもエラーになってしまいます。

いつも書き加えたりコピーして使うファイルなのですが、「宛先」「CC」「件名」などと4行にもわたって画面のスペースを取られ邪魔で困っています。

このツールバーを閉じるにはどうしたらいいのでしょうか。

Aベストアンサー

「ファイル」「送信」「メールの宛先」で表示をon/offできます。

Qピボットテーブルとは抽出のためのツールですか

ピボットテーブルを使うと集計が簡単だという意見をネットでよく見かけます。
そこで自分も某サイトを見よう見まねで挑戦してみました。

しかし、肝心の合計金額が表示されません。
集計作業は綺麗に並んでいました。

私はこれを見て、ピボットテーブルは抽出のためのツールだとみたのですが、
私の見方は当たっているのでしょうか。

Aベストアンサー

>しかし、肝心の合計金額が表示されません。
> 集計作業は綺麗に並んでいました。
いや合計も出ると思いますが、一般的には
ピボットテーブルは
集計、分析のツール、ピボットグラフとの連携が出来る。

オートフィルター、フィルターオプション、Vlookup関数などが
抽出のためのツールと分類されると思います。

Q複数のブックのデータを一つのブックにまとめたい

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page1.htm

↑の 7. 指定したフォルダ内にあるExcelファイルを検索して開く の部分のマクロを利用して、集計.xlsというブックで、複数のブックを開くようにしましたが、そのブックを開いた時にそのブックのSheet2の中のデータのみコピーして、集計.xlsに貼り付けたいのですが、どのようにすればよいのか困っています。

指定したフォルダの中には、回答01.xls 回答02.xls ・・・と16個のブックがあります。順番に開いてコピーをするときに、どのようにブック名とシート名を指定すればよいのかわからず困っています。

何か参考になるものがあれば教えてください。
よろしくお願いします。

Aベストアンサー

元のサンプルを修正して、開いたブックの"Sheet2" A1 の値を、マクロのあるブックの一番左のシートのA列に順番に転記しています。
この場で書いたのでテストしておらず、上手く動くか解りません。
試すならテスト環境でどうぞ。

Sub BookOpen_7()
Dim i As Long, wb as Workbook '←修正
    ・
    ・
' ↓下記2行は不要なら ' でコメントアウト
' Rec = MsgBox(FName & "を開きますか", vbYesNo)
' If Rec = vbYes Then
   ' ↓修正
   Set Wb = Workbooks.Open FName
   ' ↓追加
   ThisWorkbook.Worksheets(1).Rnage("A65536").End(xlup).Offset(1,0).value = _
       Wb.Worksheets("Sheet2").Rnage("A1").value
   Wb.Close
' ↓不要なら ' でコメントアウト
' End if
   ・
   ・

元のサンプルを修正して、開いたブックの"Sheet2" A1 の値を、マクロのあるブックの一番左のシートのA列に順番に転記しています。
この場で書いたのでテストしておらず、上手く動くか解りません。
試すならテスト環境でどうぞ。

Sub BookOpen_7()
Dim i As Long, wb as Workbook '←修正
    ・
    ・
' ↓下記2行は不要なら ' でコメントアウト
' Rec = MsgBox(FName & "を開きますか", vbYesNo)
' If Rec = vbYes Then
   ' ↓修正
   Set Wb = Workbooks.Open FName
   ' ↓追加
...続きを読む

Q複数ブックを新しいブックのSheet1にまとめたい

マクロ、VBAは全くの初心者です。
会社の売り上げのデーターが日付ごとに複数のファイルに分かれていまして、それを1枚のシートに貼り付けようとしています。かなり多くの数があり、最初はコピー貼り付けで行っていましたが数日かかりそうなので調べたところマクロでできるとのことでそれを行ってみましたが、何度やっても何も起こらなかったので質問させていただきます。

参考にしたのはhttp://oshiete.goo.ne.jp/qa/4225063.html

でした。

sheet1のセルA1にC:|\・・・と貼り付けましたが拡張子がわからず、いろいろと試しましたが何もおこらず。あと別シートを選ぶの意味が分からなかったのですがいろいろやってみても何も起きませんでした。

近くにパソコンに詳しい方がいないので困っています。

できれば詳しく馬鹿でもわかるようにやり方を教えてくれたらありがたく思います。

さらになんですけど入力した際にデータが入っている前の列に日付をそのまま入れられたら本当に助かるのですが・・どこまでexcelでおこなえるかがわからないので・・・

どなたか詳しい方がいらっしゃいましたらお願いいたします。

マクロ、VBAは全くの初心者です。
会社の売り上げのデーターが日付ごとに複数のファイルに分かれていまして、それを1枚のシートに貼り付けようとしています。かなり多くの数があり、最初はコピー貼り付けで行っていましたが数日かかりそうなので調べたところマクロでできるとのことでそれを行ってみましたが、何度やっても何も起こらなかったので質問させていただきます。

参考にしたのはhttp://oshiete.goo.ne.jp/qa/4225063.html

でした。

sheet1のセルA1にC:|\・・・と貼り付けましたが拡張子がわからず、い...続きを読む

Aベストアンサー

動物さんにも判るように説明するとなると、随分と冗長になってしまいます。我慢してよく読んでその通りに行ってください。


まず準備として、集めたい複数のブックをまとめて入れておく、決まった置き場所(フォルダ)を用意します
たとえばあなたのマイドキュメントの中に「元データ」とでも名前を付けたフォルダを用意します
元データフォルダに、あなたが準備した複数のブックをまとめて放り込んでおきます。


フォルダを用意するのが分からないときは:
 マイドキュメントを開く
 右クリックして新規作成でフォルダを選ぶ
 「新しいフォルダ」という名前のフォルダの名前を元データに修正する

フォルダの名前の変更のやりかたが分からないときは:
 フォルダを選ぶ
 F2キーを押す
 名前部分が選択されるので、元データと書き換える



次に調査として、元データフォルダに入れた売上データブックの1つを右クリックして「プロパティ」を確認します
場所:欄に、元データフォルダまでのパスが表示されているので、間違えないようによく読み取ります
たとえば
c:\Users\<UserName>\Documents\元データ
といった具合に書かれています。ダイアログからマウスでこの文字列を選択して、右クリックしてコピーしてもOKです。



さて。
あなたのご相談では、次のような点が説明不足です。
1.売り上げデータが日付ごと記入されているそれぞれのブックには、いったい何枚のシートが入っているのか
  1冊のブックには1枚だけシートがあって、それを取ってくればいいのか
  実は1冊のブックに複数のシートがあって、イチイチシートをめくって取ってこなきゃならないのか

2.売り上げが記入されている各シートの、具体的にどこのセル範囲をコピーしたいのか
  具体的に何列からどこ列までなのか
  たとえば30行目までのように固定のセル範囲で決まっているのか
  それとも、シートごとに何行記入されているのかバラバラなので、イチイチ調べてコピーしたいのか
  調べるとしたら、いったいどこ列をみれば「この行が一番下の行だ」と判るようになっているのか



あなたもイチイチ言われて説明したくないでしょうから、勝手にこちらでこういう事だとして説明を続けます。ご自分で適切に修正してください。

○ブックには1枚だけシートが含まれている
○各シートはA列からJ列まで使っている
○A列の一番下が、その表の一番下の行になっている
○1行目にはタイトル行が記入してあり、2行目からデータがつらつら並んでいる
○1行目はコピーせず、2行目からのデータだけコピーしてきたい


ようやく本番です。
集約用のブックを1冊用意し、元データフォルダの隣に保存しておきます
間違っても元データフォルダの中に入れてしまわないように気を付けます

集約ブックを開く
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
 dim myPath as string
 dim myFile as string
 dim flg as boolean
 worksheets.add before:=worksheets(1)
 flg = true

’さっき調べたパスを下記に記入する。最後の¥を消してしまわないよう注意する
 mypath = "c:\Users\<UserName>\Documents\元データ" & "\"

 myfile = dir(mypath & "*.xls*")
 do until myfile = ""
  workbooks.open mypath & myfile
  range(iif(flg, "A1:J", "A2:J") & range("A65536").end(xlup).row).copy _
   thisworkbook.worksheets(1).range("A65536").end(xlup).offset(1)
  workbooks(myfile).close false
  flg = false
  myfile = dir()
 loop

 workbooks.open mypath & dir(mypath & "*.xls*")
 range("1:1").copy thisworkbook.worksheets(1).range("A1")
 workbooks(myfile).close false
end sub

ファイルメニューから終了してエクセルに戻る
ALF+F8を押してマクロを実行する。





それから
>入力した際にデータが入っている前の列に日付をそのまま入れられたら本当に助かる

どこに何をどこから取ってきてどうしたいのか、さっぱり意味不明です。
キチンと具体的な「目に見える」情報を添えて、何をしたいのか別途のご相談として改めて投稿してください。

動物さんにも判るように説明するとなると、随分と冗長になってしまいます。我慢してよく読んでその通りに行ってください。


まず準備として、集めたい複数のブックをまとめて入れておく、決まった置き場所(フォルダ)を用意します
たとえばあなたのマイドキュメントの中に「元データ」とでも名前を付けたフォルダを用意します
元データフォルダに、あなたが準備した複数のブックをまとめて放り込んでおきます。


フォルダを用意するのが分からないときは:
 マイドキュメントを開く
 右クリックして新規作成...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報