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

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

前スレ
Excel総合相談所 129
https://find.5ch.net/search?q=excel

Excel VBA 質問スレ Part51
https://find.5ch.net/search?q=excel+vba

【質問不可】Excel総合相談所スレの雑談・議論スレ4
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80
0633名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/23(金) 09:30:13.14
>>632

Excel2010だけど
一緒だよ
0635名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/25(日) 03:18:56.11
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

前年比を知る表作成で質問があります。

https://prau-pc.jp/excel/growth-rate/#i-3
上記ページのC4の猫缶は
前年14,000から今年13,200に減り-6％でした。
この計算は理解できるのですが、


同じ表に、プラス成長とマイナス成長が混在する下記の様な状態の場合
http://www.kepco.co.jp/ir/financial/graph/images/graph_17.jpg
例えば
（A）14,000から13,200に減った値
（B）-14,000から-13,200に増えた値
が混在する場合、どのようにすれば良いのでしょうか？
（A）（B）共に-6％になってしまい困っております。
0636名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/25(日) 04:56:23.23
分母（基準値）は常に正にとる＝＞分母を絶対値にする
例えば
=(A1-A2)/abs(A2)
0640名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/25(日) 11:42:03.55
>>638
それは間隔尺度か比例尺度かを考えないといけない
上記の例は間隔尺度を前提。
比例尺度の場合は、温度で言えば分母に絶対0度（-273℃）のような
値の絶対値（abs(-273))が入る。

問題は分母が０の時だね。
この場合は"-"とかあるいはそのままエラー出しておく
しかないんじゃないかな。
0642名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/25(日) 13:47:04.23
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
１つのセルにtcp 80,81,90-101 udp 1000,1001とかあったとして（a1）
tcp 80 81 90 - 101 udp 1000 1001とそれぞれ別個のセル（a2〜a9）に入れる方法あったら教えて下さい
a1の 加工若干ならありです
0644名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/25(日) 14:21:28.42
>>643
2段階にして、90-101だけもう一度"-"をデリミタにしてやるといいような。
0646名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/25(日) 19:40:16.91
>>639
見た目（雰囲気）がちょっと違う。平べったい感じ。
一番わかりやすい違いは、複数のブックを開いて”整列”で並べたときに「それぞれのブックにリボンが表示される」ので
「縦に並べて表示」は、縦長ディスプレイ必須ってとこでしょうか。[Ctrl]＋[F1]でリボンを非表示にすればいいだけですが。
自分としては、2010の方が使いやすい。でもサポート終了まであと2年半ぐらいしかありません。
0650名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/26(月) 02:18:12.53
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 まあまあ
【4 VBAでの回答の可否】 可

数年ぶりにエクセルとVBAをいじっている者です。
フォームのボタンクリックで、他のファイルから情報とってきたり集計したりと忙しく働く
システム（ってほどでもない）を作ったんだけど、ちょっとした時間が待てずにやたら
その辺をクリックしたりガチャガチャキーボード押すバカのせいで動作が不安定になる。
これを何とかしたいです。
たしか、マクロ実行時に、「この件の実行が終了するまではユーザーの操作受付停止」
「っていうか、ユーザー無視して、ＰＣ資源をこのマクロ実行に集中させる」
というVBAの常套句があった記憶があるんだけど、わかる人いますか？
0654名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/26(月) 20:29:24.08
「29歳既婚、2年前に会社を辞めた。ボードゲーム作りを始めて3700万円を
売り上げたけど何か聞きたいことはある？」回答いろいろ
http://labaq.com/archives/51880196.html
日本ボードゲーム界の異端児に聞く！ボードゲームデザイナーとして生きていくには？
https://bodoge.hoobby.net/columns/00013
はじめてボードゲームを作ってはじめてゲームマーケットに出店した ので、ひとり反省会をしてみる。
http://datecocco.hatenablog.com/entry/2015/11/26/000000
はじめて作ったボードゲームを売った話
http://nrmgoraku.hateblo.jp/entry/2017/05/17/210000
ボードゲームイベント「ゲームマーケット」から業界が見えた！
https://entertainmentstation.jp/61107
ゲームマーケットに挑む人向けガイド
http://spa-game.com/?p=4830
ボードゲームはどう作るのか、自分なりに考えた
http://roy.hatenablog.com/entry/2014/07/09/124824
オトナも遊べるボードゲーム！自作するといくらになるのか
http://www.d-laboweb.jp/special/sp312/
ボードゲームの展示イベント「ゲームマーケット」の成長記録からこれからの
市場に必要なことを妄想してみた。6年間の来場者数推移（2016年4月時点調べ）
https://bodoge.hoobby.net/columns/00001
ボードゲーム市場がクラウドファンディングの出現で急成長を遂げ市場規模を拡大中
http://gigazine.net/news/20150820-board-game-crowdfunding/
0655名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/27(火) 00:07:55.91
Windows7、 Excel2010、VBA少しできます、できればVBAを使わない方法がしりたい

助けて下さい！！

あるセルに、

あいうえお（改行）　かきくけこ（改行）　さしすせそ（改行）　たちつてと（改行）
なにぬねの（改行）　はひふへほ（改行）　まみむめも（改行）
なにぬねの（改行）　はひふへほ（改行）　まみむめも（改行）

と入力されたとします。そして別のセルが選択され、入力受付状態じゃなくなったとき
そのセルのサイズが高さ３文字、幅10文字分だったとして、下の行の方の３行を表示、つまり
----------------|-------------
なにぬねの |
はひふへほ | （となりのセル）
まみむめも |
------------------------------
と表示されるようにすることって可能ですか？
どうしても行が足りないときは上の方から表示されることしかできませんか？
0660名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/27(火) 20:51:50.76
1行からはみでる時に、はみ出さずにセル内だけで諦めさせる方法も知りたい
右のセルに空白か何か入れれば出来るけど、書式で
0663名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/28(水) 10:09:37.96
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 使えない（抽出印刷のみコピペしながら使っている）
【4 VBAでの回答の可否】 可

入力規則のプルダウンリストについて

シート1
工事番号
1
1
2
2
0665名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/28(水) 10:26:51.66
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 使えない（抽出印刷のみコピペしながら使っている）
【4 VBAでの回答の可否】 可

入力規則のプルダウンリストについて

シート1
工事番号　工種
1　　　　　　掘削
1　　　　　　埋戻し
2　　　　　　溶接
2　　　　　　研磨

シート2に日報として、A1セルに工事番号1を入力した場合、B1のリストを
掘削、埋戻しにしたいです。

名前の定義ではシート1で工種が追加になることもあるので避けたいです。
シート1の列の配置はそのまま工事番号、工種で並べておきたいのですが、よい方法ございますか？
0667名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/28(水) 19:18:39.86
ドロップダウンリストって結局は入力規則の一種に過ぎなくて、
入力した後はただの文字列だし、入力後に規則が変更されても何の反映もない

リスト化されているなら、それぞれにコードを振って、
コードで管理すればいろいろデータ活用できるのに
0669名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/28(水) 21:42:59.51
(1)一行目をセルに入れてドラッグするだけで↓のようにしたいのですが

=VLOOKUP(D3,D3:F100,3,0)
=VLOOKUP(D4,D3:F100,3,0)
=VLOOKUP(D5,D3:F100,3,0)
=VLOOKUP(D6,D3:F100,3,0)
=VLOOKUP(D7,D3:F100,3,0)
=VLOOKUP(D8,D3:F100,3,0)
=VLOOKUP(D9,D3:F100,3,0)

(2)ドラッグすると↓のようになってしまします

=VLOOKUP(D3,D3:F100,3,0)
=VLOOKUP(D4,D4:F101,3,0)
=VLOOKUP(D5,D5:F102,3,0)
=VLOOKUP(D6,D6:F103,3,0)
=VLOOKUP(D7,D7:F104,3,0)
=VLOOKUP(D8,D8:F105,3,0)
=VLOOKUP(D9,D9:F106,3,0)

(1)のようにする方法教えていただけないでしょうか
0677名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/29(木) 15:28:41.40
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

https://i.imgur.com/BAJQU34.png

昨日の行動を名前の隣に表示させていのですが、良い方法はありますでしょうか？
Vlookupを試そうとしたのですが、こういった表示だと出来ませんでした。
0682名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/29(木) 18:45:50.19
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Office365
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

　　A　　　　　　　B　　　　　C　　　　D
1　　　　　　　　鈴木　　　　　　　　鈴木
2　　　　　　　　佐藤　　　佐藤
3　　　　　　　　　　　　　　山田　　山田
4　　　　　　　　五十嵐
5　　　　　　　　　　　　　　　　　　　乾
6　鈴木部長　　○　　　　　　　　　　○
7　佐藤課長　　○　　　　　○
8　山田主任　　　　　　　　 ○　　　○
9　五十嵐　　　　○
10　乾　　　　　　　　　　　　　　　　　　○

こんな感じの表で、関数の組み合わせで○を自動で埋めたいのですが可能でしょうか。
B-D列の1-5行までには、役職なしの名前が入っています。
A6-A10には、役職ありの名前が入っています。
1-5行までの名前がA列に存在すれば、該当する箇所に○を入れたいのです。
役職はあったりなかったりなので、LENやRIGHT等で機械的に文字列を取り出すことが
できませんし、名前も1文字から3文字まであるので、最初2文字という取り出し方も
できません。

VLOOKPUとかCOUNTIFとかいろいろ考えたのですが、どうにもうまくいきませんでした。
0685682
垢版 |
2018/03/29(木) 19:22:51.34
>>683
別のセルに役職のリストを作っておいて、if文でネストを作ってVLOOKUPということでしょうか？
できれば余計な情報を書いたセルやシートは作りたくないのですが
0687682
垢版 |
2018/03/29(木) 21:50:30.83
>>686
なるほど、substituteで役職部分を消した文字列を作ってvlookupするんですね
0688682
垢版 |
2018/03/29(木) 21:51:10.04
役職の数が多くなければ、それが一番わかり易いかな
0690名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/29(木) 23:23:00.06
>>660
その列のアルファベットの右線をダブルクリック
0692名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/29(木) 23:42:55.95
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

条件付き書式で数値が奇数の場合のみ背景を青にする方法を教えてください。
条件適用の範囲はB2:B101です。よろしくお願いします。
0694名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 00:25:37.16
>>682
B6に
=IF(COUNTIF(B$1:B$5,"鈴木"),"○","")
B7に
=IF(COUNTIF(B$1:B$5,"佐藤"),"○","")
…
と入れていき、B6:B10の範囲を選択してフィルハンドルで右に伸ばせば簡単
0697名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 01:44:05.09
>>694
それだと、鈴木や佐藤を手打ちしてるわけだから、少しやりたいことと違うと思う。
ようは鈴木や佐藤を自動（関数を使って）取り出したいということなので（多分）。
別シートにでも役職リスト作って、substitute関数で名前を取り出すのが、一般的な方法かと。
ただし、役職の数だけネストする必要がある。
0700名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 03:33:54.08
>>692
奇数かどうか判定するには、整数かつ1の位が奇数(1,3,5,7,9)かどうかを調べればいいので
=AND((B2=INT(B2),OR(B2-INT(B2/10)*10=1,B2-INT(B2/10)*10=3,B2-INT(B2/10)*10=5,B2-INT(B2/10)*10=7,B2-INT(B2/10)*10=9))

俺の頭ではこれが限界だ
誰か、もっと難しい式をたのむ
0701682
垢版 |
2018/03/30(金) 05:08:56.43
>>697
そのとおりで、これを何に使っているかと言うと、大型連休の出勤当番を割り当てるのに使います
該当者は毎回変わるし、異動があれば役職も色んな人が入ってくるので、鈴木や佐藤を自動で
取り出してチェックしたいのです

別シートに役職リストを作る、というのは、内容的には式中に役職リストを作るのと変わりません
よね？　役職の数が増えたら、式中のネストは手作業で増やす必要がありますよね？
他の人がメンテする可能性を考えたら、式中に直接打ち込むほうがいいのかな

>>694のやり方だと確かにできますが、A列の人の名前が変わるたびにB列の式を変える必要が
出ますし、結果は「○」が出るかどうかだけなので、B列の修正忘れに気づきにくいのを心配して
います
0702697
垢版 |
2018/03/30(金) 05:35:18.31
>>701
自分なら役職リストを作る。
そのリストをもとに面倒だけど、substitute関数で役職の数だけネストする。
スマートではないけど、役職を少し多めに作っておけば、毎回関数を直す必要がない。
そんなに役職数増えたりしないでしょう？
現在ある役職が10なら、13くらいで作っておくとか。

リストを参照することで、役職名の変更には対応しやすい（例えば班長という役職が廃止されて主任になるとか）。
0704名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 06:22:40.19
>>702
読みながら、たしかにそうだろうな、想定できる役職を一通り書いておいて、さらに将来的な
空白セルの分まで参照して式をつくるべきかな、と考えていたら

>>703
これでバッチリできました！
どういう仕組で機能しているのかはわからないので、これから詳しく解析してみます
ありがとうございます
0705703
垢版 |
2018/03/30(金) 06:47:11.36
>>704
この式は「前方一致」だから、例えば"久保田部長"で検索するとして、
"大久保"はスルーするけど、"久保"はヒットしちゃうので注意が必要。
0706名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 07:05:11.09
>>705
それはもう仕方ないですね
役職を除外して参照するという処理をする以上、役職リスト等を参照しない限りは、参照したい
文字が含まれていればすべてカウントするという処理をするしかないでしょうし
0707名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 08:12:02.11
1日目 朝昼夜
2日目 朝昼夜
：

こういうデータシートから
朝昼夜朝昼夜…という並びでグラフ化するにはどうしたらよいですか？
0708名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 11:26:04.43
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

セルA1に1をセルB1に2を入力して印刷
セルA1に3をセルB1に4を入力して印刷
セルA1に5をセルB1に6を入力して印刷
これをA1が99、B1が100になるまで繰り返してるのですがVBAでできないでしょうか？
0710名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 16:58:52.86
>>709
簡潔に纏められ、分かりやすい解答だと思います。
0711名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/30(金) 17:07:23.58
>>700
それ本気？冗談？
0712709
垢版 |
2018/03/30(金) 17:53:26.88
いや、悪気はないです。
今PCが手元にないので。スマホでも書けそうだけど。

この場合、もしプリンターが複数あるなら、その辺もマクロで書いておく方がいいと思う。
プリンターの設定間違えてほかのプリンターで処理してしまうと50枚印刷されてしまうことになるので。
0714709
垢版 |
2018/03/30(金) 19:30:11.24
dim i as integer

for i = 1 to 50
cells(i,1)=(i * 2)-1
cells(i,2)=(i * 2)
activesheet.printout
next i

こんな感じでは？

loop until の方がいいような気もするけど、とりあえず。
0716名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/31(土) 03:19:03.12
どうでも良いけど印刷関係のマクロ作るなら、既定のプリンタをpdf,xdw,xpsあたりに変えておかないと、満足にデバッグ出来ない気がする
0717名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/31(土) 12:11:04.45
エクセルは、モッサリ感が半端ないのに、
50シート作ったら、仕事にならない感じがする。
0726名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/31(土) 19:08:51.25
データと出力を別けてればよくあるパターンだと思うよ。
1人一枚の出力で50人分とか。
VLOOKUPで社員コード引っ掛けて、データ拾って出力。
0727名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/31(土) 19:28:25.05
ほかのセルにはA1とB1を使った数式がいくつも入ってんじゃないの？
まあ番号札とかアンケート用紙みたいなのを印刷するだけの簡単なお仕事でも別におかしくはないけど
0728名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/31(土) 20:38:49.59
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
以下の条件に合致する場合、3列目にOKの文字を出力したいです
条件：1列目の数字が同じかつ2列目の数字がひとつ上の2倍

例）
1 1500
1 4000
2 20000
2 22000
↓（関数結果）
1 1500
1 4000　 OK
2 20000
2 22000

どなたか方法を教えてもらえませんでしょうか
0729名無しさん＠そうだ選挙にいこう
垢版 |
2018/03/31(土) 20:46:12.70
>>728
C2にこの式を入れて下にコピペ
=IF(AND(A1=A2,B2/B1=2),"OK","")

でも、その例で4000は1500の2倍じゃないよね
条件が「2倍」じゃなくて「2倍以上」じゃないの？
■ このスレッドは過去ログ倉庫に格納されています
ニューススポーツなんでも実況