あなたの映画力を試せる!POPLETA映画検定(無料) >>

昨日必要になってNETで調べながら分析ツール(アドイン)を追加して一応使えることを確認して終わったのですが、今日実際のデータを使って回帰分析しようとしたら、リボンから「分析」が消えています。
何度かアドインから設定しなおっしてみたのですが表示されません。
どなたか表示させる方法を教えてください。
一応NETで調べてみたのですがダメでした。

A 回答 (3件)

No.1 さんのは、Excel ではありませんね。



Google で調べると、真っ先にここに当たりましたが、
http://libanswers.walsh.edu/faq/147605
順を追って検討してみないと分かりません。
手順-
ファイル-オプション-アドイン (1)
分析ツール(クリック選択)-設定
アドインの画面が出て、選択(☑)(2) ダイアログボックス
---------------------------
これは、通常の設定です。私の考えているものとは違っています。

2016を調べてみると、ちょっとばかり、今までの分析ツールとは違う点があるような気がします。分析ツールは、以前は、ユーザーアドイン側に入れていた記憶があります。

これは、昔のExcelにもあった現象ですが、アドインの登録場所が2箇所あると、片方を読まないで素通りすることがありました。

これが読まれていない可能性があるのです。理由はよくわからないのですが、その場合は、アドインを登録し直してやらないといけないようです。

まず、アドインのXLLファイルは存在しているかどうか、エクスプローラー等で存在を確認してください。

*フルパス
C:\Program Files (x86)\Microsoft Office\root\Office16\Library\Analysis\ANALYS32.XLL
(違っていたら、ご自身のファイルの位置のアドレスを取得してください)
ただし、Program Files の Library または、C:\Users\[ユーザー]\AppData\Roaming\Microsoft\Addin の規定のフォルダー以外のアドインは、定位置(ユーザーアドイン)に戻してください。
後者が、ユーザーアドインで、前者のLibrary は、Microsoft 規定のものです。

それで、Microsoft 側にLibrary にあるフルパスをコピーして、(2)のダイアログの参照をクリックして開き、ファイルを開くで、コピーしたフルパスを貼り付けてやると、「置き換えますか?」
と聞いてきますので、Yes(はい)をクリックします。

これで、駄目でしたら、再度、考えてみます。
    • good
    • 0
この回答へのお礼

ご丁寧な回答痛み入ります。

実はその後も自分でググってみたり、ご回答のトレースを試行錯誤しているうちに表示されるようになりました。
直接の原因は良く分かりませんでしたが解決しました。
お手数をおかけしました。

お礼日時:2019/04/19 16:57

こちらはいかがでしょう?



データ分析ツールアドインをリボンに表示するには
https://hamachan.info/win10-excel-bunseki/
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。
ご回答のページ等当たってみてお手上げでの質問でした。

お礼日時:2019/04/19 16:53

グローバルファイルを削除した場合、「表示」メニュー、ツールバーが表示されません。



「分析ツール」バーをインストールするには、COM アドインを手動で「オフ」→「オン」
「表示」「ツールバー」「ユーザー設定」「コマンド」「分類」「すべてのコマンド」「コマンド」「ComAddInsDialog」Project のウィンドウに現在表示されているツールバーの 1 つにドラッグし、例「ComAddInsDialog」をクリックし「標準」 ツールバーの最後にドラッグし、そのコマンドのボタンが配置される場所を示す線がツールバーに表示され、マウスを離すと、ツールバーに「ComAddInsDialog」コマンドが追加される。
「ユーザー設定」「閉じる」
ツールバーに追加された「COM アドイン」「日付の調整」「Office 製品への図のコピー」および「PERT 分析」の各アドインのチェックを「オフ」にし「OK」。
「COM アドイン」をもう一度クリックし、「日付の調整」「Office 製品への図のコピー」および「PERT 分析」の各アドインのチェックを「オン」にし「OK」。
「表示」「ツールバー」「分析」、「分析 ツール」バーを表示。
詳細は参考URLをご覧ください。
https://support.office.com/ja-jp/article/-%E8%A1 …
    • good
    • 0
この回答へのお礼

早々のご回答ありがとうございます。
エクセルのバージョン(当方2016です)を書き忘れたのですが、ご回答の内容とは違っているようです。

また、表示が消えたのはツールバーではなく、リボンの表示が消えました。
アドインとしては有効になっているのですがリボンへ表示が無いので使えない状況です。

お礼日時:2019/04/17 12:00

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

このQ&Aを見た人はこんなQ&Aも見ています

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

Qエクセル2016

本日エクセル2016にしたのですが
プレビューで見るときに画像のような数字が出てくるのですが
慣れていないせいか見づらく消去できないでしょうか

Aベストアンサー

ルーラーのチェックを外せばいいよ。

QCSVで文字化けしてしまうのを直すマクロ

いつもお世話になっております。
Excel2013を使用していますので
アドバイスどうぞよろしくお願いします。

"ファイル名"というシートのA列2行目からCSVファイルのファイル名が書いてあります。
日によるのですが、だいたい5~10件程度です。
そしてこのCSVファイルがくせ者でファイルを開くと文字化けを起こしてしまいます。下記のサイトを参考にマクロを作ったのですが、文字化けはしないものの文字に必ず""がついてしまい、また一行しか転記されません。

http://officetanaka.net/excel/vba/file/file10.htm

例 空白→""、 神奈川→"神奈川"

やりたいこととしてはファイル名とあるシートのA列2行目に書いてあるCSVファイルを開き、文字化けを直してSheet1にデータを表示させ、それをファイル名が書いてある最終行まで行いたいです。

Sub macro()
Dim i1 As Long, x As Long
Rbook As Workbook
Rsheet As Worksheet, Ssheet As Worksheet
Set Rbook = ThisWorkbook

Sheets("ファイル名").Select
Set Rsheet = Rbook.Worksheets("ファイル名")
For i1 = 2 To 10
If Rsheet.Cells(i1, 1).Value <> "" Then
Sheets("SHEET1").Select ’表示させるシート
Set Ssheet = Rbook.Worksheets("SHEET1")
Ssheet.Cells.Clear
Ssheet.Range("A1").Select

’文字化けを直す
Dim buf As String, Target As String, i1 As Long
Dim tmp As Variant, j As Long
Target = "¥アドレス" & Ssheet.Cells(i, 1).Value
With CreateObject("ADODB.Stream")
.Charset = "UTF-8"
.Open
.LoadFromFile Target
Do Until .EOS
buf = .ReadText(-2)
i = i + 1
tmp = Split(buf, ",")
For j = 0 To UBound(tmp)
Cells(i, j + 1) = tmp(j)
Next j
Loop
.Close
End With

’別のマクロ実行

End if
Next i1

’2行目、3行目と続く

End Sub

どうぞよろしくお願い致します。

いつもお世話になっております。
Excel2013を使用していますので
アドバイスどうぞよろしくお願いします。

"ファイル名"というシートのA列2行目からCSVファイルのファイル名が書いてあります。
日によるのですが、だいたい5~10件程度です。
そしてこのCSVファイルがくせ者でファイルを開くと文字化けを起こしてしまいます。下記のサイトを参考にマクロを作ったのですが、文字化けはしないものの文字に必ず""がついてしまい、また一行しか転記されません。

http://officetanaka.net/excel/vba/file/fil...続きを読む

Aベストアンサー

こんにちは。

>そのあと"buf = .ReadText(-2)"で止まり
>"パラメーターが間違っています"と表示されてしまいます。。。
>アドバイスどうぞよろしくお願いします。

ご指摘の部分は、残念ですが、想定外の問題で、ADODBを使って別のやり方はありますが、そのデータ自体の問題であり、原因は分からないままにコードを変えて何度も繰り返す可能性のほうが高いです。別のファイルでも、2番めに同じように起こりますか?

   Next j
  Loop
  .Close
 End With
 Set Strm = Nothing '←は入れたらどうでしょうか。
End Sub '←ここが最後の行

それと、私は、参照設定で、Adodb を入れていること。(Microsoft ActiveX Data Objects 2.8 Library)
Dim Strm As ADODB.Stream

これらは、あまり関係ないけれども、実際に自分がする時はこうします。もちろん、ご質問者さんが選んだ方法を完動するように書き上げただけですから、この延長上に、同様のエラーがなくなるという可能性は低いのではないかと思います。

今、思いついたのは、Excel 関数のClean 関数を間に入れる方法はあるとは思います。
それは、エラーを起こすと予想されるバイナリコードを除去する働きがあります。ただし、エラーがバイナリコードであれば、という条件です。

しかし、こちら側では、根本的な解決策は見当たりません。が、何度もトライするよりも、ダメだったファイルが、どうしてだめだったか、エディターなどで調べていただいたほうが良いですね。そちらのほうが早いのです。
巨大なファイルではない限りは、文字変換で、UTF-8 から、SJISに変換するツールで、一旦変更してから、インポートするほうが楽だと思います。Vector で、Unix系のツールなどいくつかあるようです。

こんにちは。

>そのあと"buf = .ReadText(-2)"で止まり
>"パラメーターが間違っています"と表示されてしまいます。。。
>アドバイスどうぞよろしくお願いします。

ご指摘の部分は、残念ですが、想定外の問題で、ADODBを使って別のやり方はありますが、そのデータ自体の問題であり、原因は分からないままにコードを変えて何度も繰り返す可能性のほうが高いです。別のファイルでも、2番めに同じように起こりますか?

   Next j
  Loop
  .Close
 End With
 Set Strm = Nothing '←は入れたらどうでし...続きを読む

Qエクセル リストと完全一致するセルに色をつける

シート1のA列とB列に
aaa ccc
bbb ggg
ccc kkk
ddd ooo
と言うリストがあって、A1〜A4はAチーム、B1〜B4まではBチームと名前を付けています
シート2にAチームのリスト4個が続いているものがあればセルを赤、Bチームのリスト4個が続いているものがあればセルを黄色に塗りたいです
AチームとBチームの中には同じ品番がある時もあります
条件付き書式で設定は出来るでしょうか?

Aベストアンサー

(´・ω・`)
”○” の数を数えるんじゃないんだよなあ。

・・・本題・・・

条件付き書式ですよね。

シート2のリストの並び順は
 aaa
 ccc
 bbb
 ddd
では「Aチーム」と認識しないという事でよろしいでしょうか?
ならば、とても簡単です。

シート2の一覧において、

 判定するセル1
 判定するセル2
 判定するセル3
 色を付けるセル
 判定するセル4
 判定するセル5
 判定するセル6

という範囲について調べれば良いという事。

 判定するセル1
 判定するセル2
 判定するセル3
 色を付けるセル

 判定するセル2
 判定するセル3
 色を付けるセル
 判定するセル4

 判定するセル3
 色を付けるセル
 判定するセル4
 判定するセル5

 色を付けるセル
 判定するセル4
 判定するセル5
 判定するセル6

の4パターンについてそれぞれ調べれば良いだけ。

自分なら
 aaa-bbb-ccc-ddd
のようにシート1から文字列を作り、それが調べるセルで同じパターンになるかを調べます。
シート1はA5セルから、シート2はA11セルからデータが入力されているなら、

 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A11 & A12 & A13 & A14
 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A12 & A13 & A14 & A15
 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A13 & A14 & A15 & A16
 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A14 & A15 & A16 & A17

という条件になる。
この4つのうちの一つでも条件を満たせばセルに赤色を付ければいい。
「Bチーム」についても同様にすればいいので、
この場合、8つの条件式を設定することになります。

面倒でもこの考え方ができていないと、ちょっと条件が変わっただけで対処できずに終わります。
冒頭で「並び順」について書きましたが、並び順がシート1のリストの通りでなくとも色を付けたい場合でも、この考え方は必要ということです。

・・・
ちなみに厄介なのが、どちらのチームにも「ccc」がいるというところかな。
これが無ければ違う方法でシンプルにできるんですけどねえ。

(´・ω・`)
”○” の数を数えるんじゃないんだよなあ。

・・・本題・・・

条件付き書式ですよね。

シート2のリストの並び順は
 aaa
 ccc
 bbb
 ddd
では「Aチーム」と認識しないという事でよろしいでしょうか?
ならば、とても簡単です。

シート2の一覧において、

 判定するセル1
 判定するセル2
 判定するセル3
 色を付けるセル
 判定するセル4
 判定するセル5
 判定するセル6

という範囲について調べれば良いという事。

 判定するセル1
 判定するセル2
 判定するセル3
 色を付け...続きを読む

Qエクセル売価設定の変更

エクセル初心者です。

500円未満で仕入れた商品を ÷0.3の売価にし
500円以上で仕入れた商品を ÷0.5の売価なるように
数式を入力したいのですが、教えていただけますでしょうか?

Aベストアンサー

また「①未入力は空白で表示」を見落としてました。
=IF(A1="","",ROUND(A1/IF(A1<500,0.3,0.5),-1)) です。

Qコピー貼り付けについて

このようなことが、できるでしようか。お教え下さいませんか。
シート1のB2~P列の最終行を取得してコピー、シート2のA2のO列の間に貼り付けたい。
但し、シート1は関数処理していて、シート2には値だけを貼り付けたい時のマクロはどのようなコードにすればよいでしょうか。
また、罫線はそののままコピーして貼り付けたい。
更に、シート1のB2からB列の最終行までは、黄色のセルになっているので、それもシート2のA2~A列の最終行まで貼り付けることってできますか。
マクロコードをお教え頂けますでしょうか。よろしくお願いします。

Aベストアンサー

出来るけど・・・・

マクロでは無くて、貴方の操作でなら実現出来るのですか?
なら、マクロの記録でも行って、どういうマクロが記録されるか確認すれば如何様にでも応用できますね

そうやって自分で解決する方法を理解しないと
コピペばかりでは、いつまでたっても自分で問題解決出来ません

Q初期値をIF文で設定した後入力リストで入力を行いたい

セルの入力の時に、先ずIF文で初期値(この場合日曜だったら「法休」)を設定した後に、別に用意した入力リストに基いて入力がしたいのですが、入力リストによる入力規則を設定するとIF文が効かなくなります。この場合どうすればいいですか?

Aベストアンサー

どうにもなりません。数式があった場所に値を入力すれば数式は無くなりますし、値があったところに数式を書き込めば値は無くなります。一つのセルに入れられるのは一つだけです。

Qエクセルを閉じた時、ノッペラボウの画面が残ることがありますが、なぜでしょうか?

保存してあったエクセル・ファイルを開き、それを閉じた時、たまにノッペラボウの画面が残ることがあります。(添付画像の通り)
「また出た」とか言いながら、こちらも閉じていますが、この現象はなぜ起こるのでしょうか?

Aベストアンサー

その画面というのは、Excel の Application の画面ですよね。Application の終了の命令が出ていないか、邪魔されているということだと思います。これは、No.1 様のおっしゃっていることを言い換えただけですが、これは、プログラムで、非表示のプログラムが残っていることを意味します。

まず、エクセルのバージョンが書かれていませんが、Excel 2007 ではないと思います。
アドイン、個人用マクロブックなどが生きている可能性があるのではないでしょうか。
画面をみると、「活用しよう!エクセル(Microsoft Office ナビ)」というアドインがあります。これが原因ではないかと思います。使わないのでしたら、この場合はアンインストールしたほうが良いようです。

Excel 2007とExcel 2010以上では、組み込み方やベースの部分が違いますから、以前のものは確証がない限りは使わないほうがよいです。それと、複数のアドインが有効になって場合に起こるそうです。1つのアドインなら起こらないそうですが、私の場合は、全部オフにしています。

それと、画面をみると、開発タブが有効にして、これを外してみることで、どんな反応になるか試してみてください。
私の開発タブの状態。

その画面というのは、Excel の Application の画面ですよね。Application の終了の命令が出ていないか、邪魔されているということだと思います。これは、No.1 様のおっしゃっていることを言い換えただけですが、これは、プログラムで、非表示のプログラムが残っていることを意味します。

まず、エクセルのバージョンが書かれていませんが、Excel 2007 ではないと思います。
アドイン、個人用マクロブックなどが生きている可能性があるのではないでしょうか。
画面をみると、「活用しよう!エクセル(Microsoft Off...続きを読む

QExcel2016で月ごとの合計を求めたいです

Excel2016を使用していますが、関数を使って表から特定の月の合計値を関数を使って求めたのですが、いい案が思いつきません。

表はこんな感じです。
商品名 入荷日付 売り上げ日付 売り上げ価格
いちご 2019/1/3 2019/1/5 500
メロン 2019/1/4 2019/1/5 000
バナナ 2019/1/13 2019/1/13 100
りんご 2019/2/2 2019/2/5 300

上記の表から1月に売れた商品の合計を求めたいのです。

A列     B列
──────────────────────────────────
│2019年1月 │ここに、いちご、メロン、バナナの合計値を代入されます│
──────────────────────────────────

文章だけではわかりづらいと思いますが、どなたかヘルプお願いいします。

Aベストアンサー

No.1です。

>集計の月日は年月までしかないため・・・

「集計」シート(前回の画像では「Sheet2」)のA列データはどのように入力しているのでしょうか?
そのまま 2019年1月 と入力しているのであれば
表示は「2019年1月」となっていても、実データはシリアル値で 2019/1/1 となります。
(A列セルを選択 → 数式バーを確認してみてください)
おそらくシリアル値になっていると思うのですが。

そうであれば
前回の数式のままで大丈夫のはずです。m(_ _)m

Q全てのシート見出しを一時的に非表示にする近道は?

Ctrl+Shift+U の近道(ショートカット)キー操作で「折りたたまれて1行表示の数式バーが展開され、または、数行に展開されていた数式バーが1行表示に折りたたまれる」ことは既にご存知のことかと。(Alt+WVF では数式バーの非表示/再表示が可能なことも?)
閑話休題
さて、全てのシートは表示させたままで、全シート見出しだけを一時的に非表示にする近道キー操作をご存知の方は教えてください。
(ワークシートのスクリーンショットを撮りたいときに、数式バーやシート見出しが邪魔になるときがあるので)

Aベストアンサー

コマンとしては[シート見出しの色]はありますが、希望している
シート見出しの表示・非表示はないみたいです。
No.2の回答者さんが書いている[オプション」の[詳細設定]にある
[シート見出しを表示する]へのチェックの有無で切り替えます。
https://support.office.com/ja-jp/article/%E3%83%AF%E3%83%BC%E3%82%AF%E3%82%B7%E3%83%BC%E3%83%88%E8%A6%8B%E5%87%BA%E3%81%97%E3%81%8C%E8%A1%A8%E7%A4%BA%E3%81%95%E3%82%8C%E3%81%AA%E3%81%84-42623d50-2f9b-4583-ad9c-f1b381185e48
どうしてもショートカットキーでの操作を希望するのなら、
マクロとして登録したものにショートカットキーを設定して、
それで切り替えるしかないと思います。
https://docs.microsoft.com/ja-jp/office/vba/api/excel.window.displayworkbooktabs?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vbaxl10.chm356089)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv15)%26rd%3Dtrue%26f%3D255%26MSPPError%3D-2147217396

マクロの例
Sub WorkbookTabs()
' シート見出しの切り替え
 If ActiveWindow.DisplayWorkbookTabs = False Then
  ActiveWindow.DisplayWorkbookTabs = True
 Else
  ActiveWindow.DisplayWorkbookTabs = False
 End If
End Sub

コマンとしては[シート見出しの色]はありますが、希望している
シート見出しの表示・非表示はないみたいです。
No.2の回答者さんが書いている[オプション」の[詳細設定]にある
[シート見出しを表示する]へのチェックの有無で切り替えます。
https://support.office.com/ja-jp/article/%E3%83%AF%E3%83%BC%E3%82%AF%E3%82%B7%E3%83%BC%E3%83%88%E8%A6%8B%E5%87%BA%E3%81%97%E3%81%8C%E8%A1%A8%E7%A4%BA%E3%81%95%E3%82%8C%E3%81%AA%E3%81%84-42623d50-2f9b-4583-ad9c-f1b381185e48
どうしてもショートカットキーで...続きを読む

Qエクセルについて、お救い下さい。

B1がC1が結合されている場合に、形が一致していません。とエラーになってしまいます。
結合を解除せずになんとか入力できないでしょうか?ご教示下さい。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
Cancel = True
If Target.Value = "□" Then
Target.Value = "■"
ElseIf Target.Value = "■" Then
Target.Value = "□"
End If
End Sub

Aベストアンサー

一番安易な方法ですが、Target.Value → Target(1).Value にすればエラーは回避できます。機能的にも問題は無いです。ただ、この後もコードを追加していくのであれば、やめておいた方が良いです。他の回答を待ちましょう!!


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

価格.com 格安SIM 料金比較