X

Excel総合相談所 133

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠そうだ選挙にいこう
垢版 |
2018/11/11(日) 21:12:25.75
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

▼━関連スレ━━━━━━━━━━━━

前スレ
Excel総合相談所 132
https://mevius.5ch.net/test/read.cgi/bsoft/1530415352/

Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/

【質問不可】Excel総合相談所スレの雑談・議論スレ4
https://mevius.5ch.net/test/read.cgi/bsoft/1489108851/
0533名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/23(日) 16:14:26.70
>>532
単純に

c=a÷b
d=c-(cの整数部)

d>0なら割りきれていないでいいんじゃないかな？
0535名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/23(日) 16:57:12.77
>>532
=MOD(A1/B1,1)=0
こんなんでいいんじゃないの
0536名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/23(日) 17:09:11.45
>>535
あ〜〜それ面白いね
気が付かなかった
少数部だけ取り出せるね
0539名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 08:43:08.22
エクセル2019およびオフィス2019っていつになったらパッケージ版が出るんですか？
なにか開発上のトラブルでも出てるのでしょうか？
0541名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 12:14:11.25
別にダウンロード版でいいじゃん
どうしてもDVDが欲しかったら焼けばいいし
焼く環境がなくて頼める友達もいなくて近くにネカフェもないなら待つしかないけど
0542名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 12:56:20.34
Excelと関係ないけど知恵をお借りしたい・・
昔のExcel2003とか、オプションをインストールせずにCD-Rで動かしたりしてましたよね？
それと似た感じで、古いハガキソフトなんだけど、イメージをデータDVDから読み込まなきゃならない
仮装ディスク化したり？PCに入れっぱなしにすることはできないだろうか？
0544名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 13:32:46.88
>>543
してなかったっけ？w
DaemonToolsというのがよさそうなので試してみます
0550名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 17:35:39.00
すみません、計算の質問なんですけど、
エックスの5％が1000の時、エックスはいくつなのかを求めたいです
EXCELでの計算式はどうなるのか分かる方居ますか？
0551名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 17:38:18.25
=1000/5%
0556名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 22:28:55.89
付加価値額＝（売上-経費）÷総時間
という計算式があり、付加価値額目標が100だが
現状は90です。
売上は変動せず、経費と総時間の削減によって100を達成したいのですが
経費と総時間をそれぞれ、または二つの削減をミックスして
どうすれば100を達成するかを色々試せる方法がしりたいです。
グラフや何かいい方法あったら教えてほしいです
0557名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/24(月) 23:02:54.38
>>556
まず、どちらかを任意に選ぶ
例えば総時間を選んだとする
そうしたら、現在の総時間から1%ずつ増やしたり減らしたりしながら、付加価値額が100になるように方程式を解いて経費を求める

総時間と経費の一覧をグラフにプロットするとわかりやすくなるかも
0559名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/25(火) 00:55:50.97
AVERAGEとMEDIANってどう使い分けてる？
とがったデータが有るならMEDIANていうのは分かるんだけれど
使い分けるシーンが良くわからない
0561名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/25(火) 09:44:01.28
Win7、Excel2010の環境がメインです。

あるフォームにフォーカスが移ったときのイベントってどう書くのか教えてください。

Aというブック開き、Application.Visible = False　という状態で、メニューフォームだけ表示している場合、
Bという別のブックを、別カーネルのエクセルで開いて操作して、それを閉じて、
また、Aのメニューフォームで操作しようとしたとき、どうも、Aブックがアクティブになってないようなんです。
なので、

Private Sub UserForm_フォーカス戻ったとき()
Dim ww As Window
Set ww = Application.Windows(ThisWorkbook.Name)
ww.Activate
Set ww = Nothing
End sub

↑
こんな感じのことを書きたいです。
教えてください。イベント名はどうしたもんでしょうか？
0562名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/25(火) 10:23:11.35
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/activate-deactivate-events
＞Activate イベントと Deactivate イベントは、アプリケーション内でフォーカスが移動された場合のみ発生します。
＞別のアプリケーションで、オブジェクトからまたはオブジェクトにフォーカスが移動されても、
＞いずれのイベントもトリガーされません。

アクティブにはなっているがトリガーされないって感じだね

＞Bという別のブックを、
Bを閉じる前にAをアクティブにしたり、直接マクロを呼んでみてはどうかな

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ww.Activate　'など
End Sub
0564名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/25(火) 22:31:09.10
accessのデータを
excelに取り込みたい。
列名がaccessとexcelが合致しているもので紐づけて、
抽出条件はセルに規定する
0569名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/26(水) 18:06:57.17
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 いいえ
データシートには氏名と項目Aの値が記載されており、サマリーシートの方には氏名は記載されているが項目Aの値がないです
そのため、サマリーシートの一部の該当者のみに対してデータシートの項目Aの値を引き抜いてサマリーシートの項目のAの欄を埋めたいのですが、どうやって項目Aのデータを引き抜けばいいのでしょうか？
日本語が分かりづらかったらすみません
Vlookup、フィルター設定ではうまく出来ませんでした
0571名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/26(水) 20:41:29.21
＞データシートの項目Aの値を引き抜いて
テータシートは明細のように思われっるので、データシート項目Aは該当者ごとに複数ある、と思われるが、そのどれを持ってきたらいいのだろう。
それとも、項目Aは数値で、それをサマリーしたいんだろうか？


本質ではないが、
＞サマリーシートの一部の該当者のみに対して
サマリーシートにはデータシートの一部の該当者が記載されているのか、それとも
サマリーシートから一部の該当者を選んでその人に対してデータを抜き出したいのか。
0572名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/26(水) 21:46:22.04
>>571
やはり分かりにくかったですよね…

＞データシートの項目Aの値を引き抜いて
→データシートの項目Aは該当者ごとにひとつのみあります

また、>サマリーシートから一部の該当者を選んでその人に対してデータを抜き出したい、が正解です
以下のようなイメージです

データシート
チーム名 氏名 項目A
チーム対象 田中太郎 A123
チーム対象 鈴木花子 B456

サマリーシート
チーム名 氏名 項目A
チーム対象 田中太郎 △(空欄)→対象
チーム対象 鈴木花子 △(空欄)→対象
チーム対象外 安室奈美恵 △(空欄)→対象外
0573名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/26(水) 23:41:35.85
>>440
そのMAXだった範囲の中を違う列を基準に合計する方法ありますか？
1と入ってるとこだけ合計とか
0576名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 09:02:54.79
>>572

対象外にするかどうかは、人が決める？
それとも
データーシートにない人は、サマリーシートで対象外とする？
0577名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 09:32:53.50
>>576
チームによります
対象のチームと対象外のチームがあるという感じです
いくつかの関数を組み合わせようにも知識がなく困っています
0578名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 10:02:27.79
>>577
サマリーシートに"対象"、"対象外"という文字が入っていると
考えて良いわけね
0580名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 10:13:06.68
できたけど、いま画像アップできない〜
0581名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 10:17:52.90
ごめん、仕方ないんで文字で書いてみた。間違いないと思うんだが。

同じシート内で作ってみました　項目の並びは次の通りで見出しとして氏名、項目Ａなどがあるとする
＝＝＝＝＝＝＝＝＝＝
Ａ1:　氏名　
Ｂ1:　項目Ａ

Ｄ1:　対象有無　　　・・・文字として”対象”、”対象外”があるとする
Ｅ1:　氏名
Ｆ1:　項目Ａ
＝＝＝＝＝＝＝＝＝＝

F2: =IF(D2="対象",VLOOKUP(E2,$A$2:$B$4,2,FALSE),"")

データシートがA2:B4とした例です
0584名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 12:45:42.29
よかった
0585名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 20:39:31.69
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 不明
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

▼━関連スレ━━━━━━━━━━━━
日本語項目名_JName_20181227.xls
これの日付部分と最後のハイフンを消したい場合どうすればいいですか（日本語項目名_JName.xlsのようにしたい）
ワイルドカード使うと日本語項目名.xlsになってしまってできない
0587名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 20:46:03.42
>>585
585ですがこれ日本語項目名_JName_NipponKoumoku_20181227.xlsみたいにハイフンが3つになることもあります。
vba組むの慣れてなくてめちゃくちゃ時間かかってできたたんですが、excelでできたらなと思いまして…
0588名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 20:48:37.27
>>586
585です。
説明不足でした ああゆう感じのファイルが600くらいセルに貼ってあって（項目名と日付が全部違う）セル内の文字列を扱いたいです…
0589名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/27(木) 23:55:58.48
>>588
Ctrl + [h]

[検索する文字列] ：　_

[すべて変換] ボタンをクリック
0590名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/28(金) 08:35:43.84
>>585
手動操作が入っていいなら、アンダーバー(_)を区切りにとして
データリボンの「区切り位置」でセルを分ける。
JName と 20181227.xls に分かれるので後ろを「ピリオド」で
分割すれば、JName 20181227 xls　の３つに分かれる。
これの頭に"_"が付けて＆でつなぐってのはいかがでしょう。

自動化したいなら、マクロで学習させればいいし。
0591名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/28(金) 08:39:23.42
>>590
ありがとうございます！やってみます！
0593名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/28(金) 08:58:24.94
なるほど、後ろからなら名前の長さに影響されないってことね。
とすると、xlsxが入っている場合も有ると考えると、それを変形して
=REPLACE(A1,FIND(".",B3)-9,9,"")
というのもありだね。
0594名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/28(金) 08:59:17.74
ごめん、修正ミスした

=REPLACE(A1,FIND(".",A1)-9,9,"")
0595名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/28(金) 12:54:55.89
>>594
できました。ありがとうございます
0597名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/31(月) 06:12:46.15
＞ハイフンじゃなくてアンダーバーよな

どうしたん？
0598名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/31(月) 12:31:01.85
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2003

xlsファイルの中にシートが10枚以上あって、シート１枚ずつファイル(csv)にして保存したいです。
尚、この作業を行いたいxlsファイルは100個ぐらいあります。

https://excelkamiwaza.com/sheets_save.html
ぐぐって出てきた方法がVBAを使う方法なんですが、xlsファイル１つずつこの作業をしていくのはつらいです。
何かうまい方法はないでしょうか？
0602名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/31(月) 13:24:02.16
>>598
はい、お年玉
フォルダ構成は以下のようにして、
sourcdeフォルダにエクセルファイルを入れてくれ
csvファイルに結果が出る

作業フォルダ
└マクロの入ったブック
└source
└csv

Sub foo()

Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder(ThisWorkbook.Path & "\source").Files
Set ワークブック = Workbooks.Open(f.Path)
For Each シート In ワークブック.Worksheets
シート.Activate
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\csv\" & f.Name & "_" & シート.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
Next
ワークブック.Close
Next
End Sub
0603名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/31(月) 13:34:55.84
>>598
僕からもお年玉

Sub 二つ目以降のブックのシートを分割保存()
Dim WB2 As Workbook
While (1)
If Workbooks.Count >= 2 Then
Set WB2 = Workbooks(2)
For Each シート In WB2.Worksheets
If シート.Name <> "macro" Then
シート.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\ " & WB2.Name & "_" & シート.Name & ".xlsx"
ActiveWorkbook.Close
End If
Next シート
WB2.Close
End If
DoEvents
Wend
End Sub
'新しいブックにこのマクロを書く
'マクロを実行
'このブックのシートに分割したいExcelファイルをドラッグアンドドロップ
'2つ以上を同時にでもOK
'止め方はVBEのリセットボタンを押してくれ

まだ大晦日やないかーーい
0604名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/31(月) 14:24:32.83
>>598
余計な話は重々承知しておりますが、
有償ツールを用意しておけば
その程度だと処理自体は全部で1分もかからず終わるんですけどね。
0605名無しさん＠そうだ選挙にいこう
垢版 |
2018/12/31(月) 17:10:22.69
>>603
あれれ　一度マクロファイルを保存しないと動かないな
修正


Sub 二つ目以降のブックのシートを分割保存()
Dim WB2 As Workbook
While (1)
If Workbooks.Count >= 2 Then
Set WB2 = Workbooks(2)
For Each シート In WB2.Worksheets
If シート.Name <> "macro" Then
シート.Copy
'ActiveWorkbook.SaveAs WB2.Path & "\ " & Left(WB2.Name, InStr(WB2.Name, ".") - 1) & "_" & シート.Name & ".xlsx"　'xlsx形式で保存する場合
ActiveWorkbook.SaveAs WB2.Path & "\ " & Left(WB2.Name, InStr(WB2.Name, ".") - 1) & "_" & シート.Name & ".csv", FileFormat:=xlCSV
ActiveWorkbook.Close
End If
Next シート
WB2.Close
End If
DoEvents
Wend
End Sub

'新しいブックにこのマクロを書く
'マクロを実行
'このブックのシートに分割したいExcelファイルをドラッグアンドドロップ
'2つ以上を同時にでもOK
'元ファイルのフォルダに分割ファイルが生成される
'止め方はVBEのリセットボタンを押してくれ
0606598
垢版 |
2018/12/31(月) 18:53:38.85
ありがとうございます。
色々な方法があるんですね。

マクロはセキュリティの警告が出て、セキュリティのレベルを下げても直りませんでした。
マクロを実行できる環境になってないのかもしれないです。
で、>>601の1つ目のソフトで解決しました。
0610609
垢版 |
2019/01/04(金) 16:23:21.91
Ｘ　KB4464627
○　KB4461627
0613名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 03:12:41.13
【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Office 365
【3 VBAが使えるか　 　 .】 いいえ
━━━━━━━━━━━━━━━
Zが標準正規分布に従う時、次の値を求めよ。
１：P｛Z＞u1｝＝0.05を満たすu1の値
２：P｛Z＜u2｝＝0.005を満たすu2の値
３：P｛-u3＜Z＜u3｝＝0.99を満たすu3の値

Xが正規分布N（10, 5^2）に従う時、次の確率を求めよ。
１：P｛X＞20｝
２：P｛X＜5｝
３：P｛0＜X＜20｝
━━━━━━━━━━━━━━━
上の６つの問題を標準正規分布の数値表を用いずに、
Excelの関数で求めたいのですが、関数式を教えていただければ幸いです。
0614名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 07:50:38.50
>>613
それさ、宿題でしょうね。
まずさ、正規分布表を使って答えを書いてみて。
じゃなきゃ勉強にならないでしょ。
0615名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 14:35:28.66
１：数値表から u1=1.645
２：数値表より -u2=2.576 → u2=-2.576 （左右対称性）
３：これも左右対称性を用いて 1-2P｛Z＞u3｝　から P｛Z＞u3｝=0.005、数値表から u3=2.576

１：P｛X＞20｝＝P{(X-10)/5 > (20-10)/5}＝P{Z>2}＝0.0028
２：P｛X＜5｝は基準化と左右対称性を用いてP{(X-10)/5 < (5-10)/5}＝P{Z>1}＝0.1587
３：P｛0＜X＜20｝、これも２と同様にP{-2 < Z < 2}＝1-2P{Z>2}＝1-2*0.0028＝0.9544

「答えを書いて」と言われたので記しておきます。
この時期は学生さんからの質問が多いのでしょうけど、宿題ではないです。
0616名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 14:41:35.15
最初から「宿題でしょ」と決め付けてくる人に答えを見せた所で
今度は「答え丸写しでしょ？ｗ」って返してくるのがお約束だから別スレで質問した方がいいと思う
0617名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 14:44:19.48
>>609
>KB4461627
助かりました
0620名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 17:06:28.25
>>618
基本、関数はNORMINVと、NORMDISTの2つだけで
そこまでわかっていれば、容易に理解できますね。
上はNORMINV,下はNORMDISTで求められます。

引数は、ちゃんと用語が出てくるのでそれを見れば
どの引数にどれを与えるか、あなたなら理解できる。
数表と同じ結果になることで検証できますから。
0624名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 19:00:57.12
そのアップデートは何のためのモノだったんだろう？
0627名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 20:56:41.04
どうだろ。そういうレベルの話でもないんだよな。
0628名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 21:01:13.49
質問したら宿題は自分でやれって言う奴がいたり
式を教えてって言ってるのに関数だけ貼る奴がいたり
旗から見ると面白いやり取りしてるよな
0629名無しさん＠そうだ選挙にいこう
垢版 |
2019/01/05(土) 21:37:29.28
そういう話じゃないぜ
たとえば平均求めたいとして=Average(　と入力したら

=Average(範囲） と出てきたとしたとき「範囲はどこに入れるんですか」という
質問と同じ。

範囲は範囲と書いてあるところに入れる。
■ このスレッドは過去ログ倉庫に格納されています
ニューススポーツなんでも実況