Excel総合相談所 132

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 12:40:48.85

このスレレベルが高すぎるんですが
エクセルのことに関して初心者でも相談できるスレないでしょうか
5ch内をスレタイ検索してみましたがうまく見つかりません

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 12:46:55.17

>>602
https://teratail.com/
曖昧な質問はできないけど。

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 13:04:19.02

>>602
ここで大丈夫ですよ。
エスパーでなくても答えられるように、具体的に、できれば例をあげながらお願いします。

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 13:05:43.09

>>602
別にここでも大丈夫だよ
たまに初心者にもマウント取りたがるやつがいるけど、5ちゃんねるはそういう所だと思って相手にしなければいい

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 14:27:50.50

つ yahoo知恵遅れ

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 18:52:39.95

>>602
学校の方が回答者優しいよ。レスポンスもめっちゃ早い

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 19:38:58.03

マクドナルド伝説の店長が教える、最強店長になるために必要なこと
https://www.youtube.com/watch?v=0wMbR7JIeeQ&;t=3154s
「最強の働き方」長時間労働やノウハウよりも大切なこと
https://www.youtube.com/watch?v=JnMHbI1-e3E&;t=3606s
ビジネスで優秀な人材育成する上司は何を教えているのか？
https://www.youtube.com/watch?v=apxtSqxjw08&;t=13s
美容師の楽しさ再発見！やる気スイッチが入る働き方セミナー
https://www.youtube.com/watch?v=DGzXQT799oY
もうダメだ…仕事が辛い時に乗り切るための３つの思考
https://www.youtube.com/watch?v=VEPf8viBpRU
視覚障がいを乗り越えた活法家
https://www.youtube.com/watch?v=6IuY_K3uFdo&;t=805s

**名無しさん＠そうだ選挙にいこう** · 2018/10/11(木) 21:50:52.48

>>604>>605
ありがとうございます
質問内容をまとめて近いうちに利用させていただこうと思います

**名無しさん＠そうだ選挙にいこう** · 2018/10/12(金) 21:14:54.37

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2016
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

「検索と置換」の検索履歴もしくは置換履歴の削除方法を教えていただきたいです

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 00:38:19.63

【1 OSの種類】Win10
【2 Excelのバージョン】2016
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】否

長い文章から特定の言葉だけを抽出し、その言葉をカウントする方法をお願いします。
例えばA1のセルに"あいうえお"が連続して入っている場合、"うおえ"の部分だけを
抜き取り、さらにその数を数えたい場合です
セルの部分は分割ではなく、A1のみに文章があるものとした場合です
よろしくお願いします

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 01:26:44.15

最近同じ質問と回答を見た記憶がある

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 07:15:27.90

んなのExcelでやるなよ、PowershellかVBSで一発だろ。

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 08:17:10.36

VBAもPowershell おVBSも使わんというなら

1)置換でA1内の改行を削除する
2)置換でうおえをうおえ[改行]に置換数る
3)A1セルでF2押下後、文字列をドラッグ選択して右クリック→コピー
4)B1セルに貼る。B列に末尾うおえ区切られた文字が別々のセルに入る
5)Ctrl+↓で最後のセルの行数を見る

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 08:19:34.81

なお置換ダイヤログでの改行文字はCtrl+Jで入る。表示されないけれど

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 09:36:33.30

>>611
つい最近どこかで見たな。
=(LEN(A1)-LEN(SUBSTITUTE(A1,"うえお","")))/LEN("うえお")
が最適解

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 13:29:04.49

「うおえ」は一つも含まれてないよな

**sage** · 2018/10/13(土) 14:29:05.28

【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2010
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】否

グラフのデータ元を自動更新(最下行6行)できずに悩んでおります
データ元を自動更新するのは、名前の設定でグラフの元データを選択しております
名前の設定では、(OFFSET(INDIRECT("A"&COUNTA(データ!$A$2:$J$A)+1),0,0,6,1))のようにしています
名前をPrint_areaにして関数が間違ってないのは動作確認済み
これを「元データ」のような名前にしてグラフの元データにするとうまくいきません
なにが悪いんでしょう？

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 16:00:34.79

「データ!$A$2:$J$A」がダメ

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 17:24:42.45

農協のひとかな

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 18:54:39.39

https://imgur.com/FAF05na.jpg

**sage** · 2018/10/13(土) 19:24:04.12

>>619

投稿時の誤字でした
ただしくは
「(OFFSET(INDIRECT("A"&COUNTA(データ!$A$2:$A$100)+1),0,0,6,1))」
ですね

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 20:35:34.87

611だけど皆ありがとう！
自分にはVBAとかパワーシェルは敷居が高いので614,616の
方法で試してみます

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 20:49:53.95

>>616
出来ました！凄い！感動！ありがとう！！

**名無しさん＠そうだ選挙にいこう** · 2018/10/13(土) 23:35:01.06

>>616
総文字数から "うえお"を除いた総文字数を引いて "うえお"×n回の総文字数が出るから、あとは"うえお"の文字数で割れば出現回数が分かるわけか

これ最初に気がついたひと頭いいな

普通の人なら検索繰り返したり、Forループ回して総当たりする方法しか思いつかない

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 08:35:02.69

最近、言葉の解析が多いね。
ツイートのメタ分析需要かな？

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 09:33:06.62

同じ人じゃないの

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 10:27:46.51

自分の回答がすごすぎてほめてほしいんだろう

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 10:33:08.50

>>618
ぱっと答えられるところで言うとこの辺？

他で同じ名前が使われてるとか
→確認
「元データ」をタブやセルに書かれていた文字をコピーしてしまってるとか
→見えていないスペースが入っている可能性があるので直接「元データ」と入力

今度Excel触れるときにまた確認してみる

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 17:08:45.21

「信じるか信じないかは貴方しだい」と詐欺ノーザンコペルニクス
https://lavender.5ch.net/test/read.cgi/net/1538500425/

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 19:42:17.91

【1 OSの種類】Win10
【2 Excelのバージョン】2016
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】否

コントロール最小値1～最大値100の設定で、100パターンのデータを一つのシートでまとめているが、これらを一括でPDF化する方法を教えていただきたいです。
よろしくお願いします。

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 19:46:13.21

>>631
無理っぽい。
VBAなら簡単（多分）

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 20:19:56.11

>>631
＞コントロール最小値1～最大値100の設定で、100パターンのデータを一つのシートでまとめている
よーわからんが、IDを元にvlookupで引っ張ってきている感じ？>>632の通りvbaなら楽勝

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 21:25:21.22

>>618
範囲をindirectで指定するのがダメっぽい
offset($a$2,counta($a$2:$a$100)-6,0,6,1)で
下6個取ればいけました

**名無しさん＠そうだ選挙にいこう** · 2018/10/14(日) 21:30:33.70

http://office-qa.com/Excel/ex198.htm
ここにもindirectは使えないって書いてた

**sage** · 2018/10/14(日) 22:57:28.10

>>634

>>635
ありがとうございました
indirectが使えない理由…は、よくわからないけど、使わない方向ということで了解です
indirect自体がぼんやりとしかわかってませんが（笑）

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 01:09:19.11

>>636
indirectで指定する

=OFFSET(INDIRECT("データ!A"&COUNTA(データ!$A$2:$A$100)-4),0,0,6,1)

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 01:23:53.59

INDIRECTの範囲参照、
これ、参考にならないかしら？
http://office-qa.com/Excel/ex198.htm

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 09:24:36.34

送ってもらった漢字の名簿(xls)に、手作業でフリガナを追加しているのですが
もしかして元のファイルにかなデータがあるんではないかと思い
ホームタブの「ふりがなの表示」を押してみましたが出ませんでした。
PHONETIC関数を使っても漢字のまま表示されるだけでした。

しかし「ふりがなの編集」をするとそれらしいふりがなが出ました。
これはどういうことなのでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 09:32:37.32

Excelが勝手にふりがなを予想する機能があるんだよ。
どこかにデータが残っているわけじゃないよ。

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 10:13:34.44

なるほど、勝手に漢字を読んでるだけなんですね。

ではせっかくなので、ゼロから入力するのではなく、
この「編集」で表示されるものをベースにして入力することは可能でしょうか？
ちょっとやってみたところ、表示させて確定しても、スペースを足してみても消えてしまいました。

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 10:46:50.80

>>641
漢字のセルを選択してShift+Alt+↑を押すと推測のふりがなが表示されるので、Enterで確定
確定したら消えたように見えるけどセルを右クリ「ふりがなの表示」で出てくる

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 10:48:15.10

大量にある場合はVBAを使った方が早いよ

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 12:29:07.52

印刷でカラーにしたのにカラー印刷されないんですがどうすれば

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 12:30:11.59

少しずつ印刷するとカラーになったりならなかったりです

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 12:40:53.87

>>642-643
うおおお出来ました！感謝！

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 13:07:35.40

>>645
プリンターのトナーカートリッジを取り出して良く振る

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 13:27:15.38

>>644
おそらくプリンターの問題でしょう。
他のプリンターで試してみるか、無理ならpdfプリンター（仮想プリンター）入れてみたら？

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 16:22:25.09

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ

質問です。
２つのデータを１つにまとめる（統合？）方法を教えていただきたいです。
GPSログのデータと気温ログのデータなのですが、
同じ間隔でログを設定したのですが、GPSデータが微妙にずれていて、
直接コピペでまとめられません。
５秒間隔で、３秒以上ずれたら次のセルに～といった感じに、
近い時間のGPSログに、気温ログを統合させたいです。
人力でやろうと思っても、6時間分くらいあるので難しいです。
よろしくお願いします。

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 16:26:26.05

vlookupのtrueとif

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 16:38:04.84

>>650
ifで３秒以上ずれた時にvlookupで近い値を探して入力するって感じでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 16:50:11.33

>>651
lookup関数でダメですか？
データがどんな感じかイメージが難しいけど。

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 18:23:17.77

ベースデータを温度表A、ぶつける先を場所表Bとして、Bを時間で降順にする

１．　表Bの時間に対して、次の時間との中間値を保持
例)A3に =ROUNDDOWN( (A1+A2)/2, 10)

２．　表Aの時間からMATCHの「以上」設定で中間値を探す
※表Aの値以上の最小値の行が判る
=MATCH(表Aの時間, 表Bの中間値全部, 1)

３．その行の場所データを取る。

かなあ、VLOOKUPとかは近似値の上下どっちにあたるかランダムだし

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 18:23:39.18

こんな？
時間気温 INDEX(場所エリア,MATCH(時間,中間値エリア,-1),1)
11:00:00 28.3C 場所A
11:00:05 28.1C 場所B
11:00:10 27.9C 場所B
11:00:15 27.9C 場所C
11:00:20 28.4C ダミーED

時間場所 RoundDown(値,10)
11:00:20 ダミーED 12:00:00
11:00:19 場所D 11:00:19
11:00:14 場所C 11:00:16
11:00:07 場所B 11:00:10
11:00:01 場所A 11:00:04
11:00:00 ダミーST 11:00:00

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 18:28:12.53

うわ、基本仕様見落としてる。すまん馬鹿だった。場所と温度の親子関係逆じゃないか
＞近い時間のGPSログに、気温ログを統合させたい

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 18:55:14.94

>>649
気温データをちょっといじって
A列元の時間-1.5秒
B列元の時間+1.5秒
C列気温
みたいな表にしとく

GPSデータの方でSUMIFSなりSUMPRODUCTなりで
A列<GPSの時刻<B列になるデータを拾う

俺ならこうする

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 19:47:27.61

ceiling()、floor()「俺たちのこと忘れないで！」

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 21:20:14.89

どうせ両方CSVだろうから自分だったらPowershellでスクリプト組んでマージするな

**名無しさん＠そうだ選挙にいこう** · 2018/10/15(月) 21:27:59.85

>>632
>>633
回答ありがとうございます。
>>633のおっしゃる通りです。
無理そうですね。実はデータはもっとあるのでどうにかしたかったです。

**名無しさん＠そうだ選挙にいこう** · 2018/10/16(火) 07:26:33.51

Accessの方が簡単に出来そうだな

**名無しさん＠そうだ選挙にいこう** · 2018/10/16(火) 17:17:38.90

>>649
配列数式っての初めて使って、上下比較して近似値にVLOOKUPしかける式作ってみたけど。説明めんどい

単純に以上か以下固定しちゃって、一番近い値ならすっげえ簡単。つか一発、そうしちゃえ

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 09:38:11.96

スレチだったらｽﾏｿ
Android版のExcelの｢画像から表を作成｣の機能ってまだ実装されてない？
office365のベータ入ってるけど見当たらない

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 09:49:42.34

そんな凄いけど実用性なさそうな機能あんの？

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 10:21:14.50

和文OCRって精度悪いよね、表組になると余計にバグる、英文なら精度高いけど

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 10:28:43.89

そりゃまあよく使われる文字は100種類ぐらいしかないし、スペルチェックあるしで条件が違いすぎる

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 10:46:51.22

海外の公式twitterみた感じだともう実装されてるっぽいんだけどなぁ
もしかしておま国？

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 11:34:33.23

【1 OSの種類　　　　 .】 Windows7,10
【2 Excelのバージョン　】 Excel　2007,2010
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

北海道　青森県　秋田県
札幌市　青森市　秋田市
旭川市　弘前市　男鹿市
函館市　八戸市　大仙市
小樽市　三沢市　仙北市
千歳市　むつ市
室蘭市　平川市
石狩市

岩手県　宮城県　山形県
盛岡市　仙台市　山形市
滝沢市　石巻市　上山市
一関市　大崎市　東根市
花巻市　栗原市　天童市
遠野市　　　　　　新庄市

上記のようなリストがあります。（このリストは画面をスクロールせずに全て見ることが出来きます）
A1にドロップダウンリストがあって
「北国A」を選択するとB1のドロップダウンリストには北海道の市が表示
「北国B」を選択するとB1のドロップダウンリストには青森県の市が表示
「北国C」を選択するとB1のドロップダウンリストには秋田県の市が表示
「北国D」を選択するとB1のドロップダウンリストには岩手県の市が表示

といった感じにしたいのですが、どのようにしたら良いのでしょうか？
厳密には北海道、青森県・・・山形県の部分は正式名称で、北国A、B・・・Dの部分は略称です
略称には正式名称の文字を含んでいなかったり、カタカナ表記で略しているのもあります

**667** · 2018/10/17(水) 11:50:37.34

北海道　札幌市　旭川市　函館市　小樽市　室蘭市　千歳市　石狩市
青森県　青森市　弘前市　八戸市　三沢市
秋田県　秋田市　男鹿市　大仙市　仙北市
岩手県　盛岡市　滝沢市　一関市　花巻市　遠野市
宮城県　仙台市　石巻市　大崎市　栗原市
山形県　山形市　上山市　東根市　天童市　新庄市

このように大項目と言える部分がA列にあれば、スレ内の質問にあった手法で出来そうなのですが
リストをスクロールせずに1画面に表示させる為にA1、B1、C1、A10、C10、B10に大項目があるので使えない感じがします
他にも正式名称と略称の紐づけもあって、どのように手を付けたら良いのか困っています

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 13:49:12.13

別シートに 668形式で値を保持してマスターデータに、ドロップダウンはそっちを利用する
667は見た目だけのシート、値は668シート参照してとってきてもいい

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 14:13:53.61

貴方がメンテする際だけでも667形式から668形式の変換マクロを使えれば便利だね

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 19:26:07.43

>>666
そう、2.3ヶ月遅れで実装される筈

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 20:19:27.68

このシフト表と同じものをExcelで簡単かつ早く作るとしたら、どうやりますか？
https://i.imgur.com/ume1DLM.jpg
漢字になってる所は「調」と読みます

思い当たるものは有るにしても素早く簡単と言う訳にはいかず、わかりません

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 20:37:30.66

>>672
シフトの法則は知らんねKドテキトーに作ったらすぐだぞ
http://fast-uploader.com/file/7095331779120/

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 20:51:23.12

何を知りたいのか全くわからんダメな質問の典型例

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 20:54:27.14

>>672
まずワークシート全体の書式を(左右)中央揃えにする
A1 B1 C1を結合して4/1と入れて書式を m"月"にする
A2に=A1と入れて書式をdにする
B2に=A2と入れて書式をaaaにする
C2に=IF(MOD(A2,7)>1,"○","休")と入れる
A2 B2 C2を選択したらフィルハンドルをつかんでずるずると下に引っ張る
A B C列をコピーしてD E F列に貼り付け
D1に=DATE(YEAR(A1),MONTH(A1)+1,1)と入れる
D E FをコピーしてG H I列以降好きなだけ貼り付け
最後に調の日だけ手動で入力

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 20:57:04.38

あ、あと31日の塗りつぶしも手作業でやって
自動でもできるけどちょっと手間がかかるから、手動のが早い
うるう年だけ注意して

**名無しさん＠そうだ選挙にいこう** · 2018/10/17(水) 21:14:55.48

>>675>>676
凄い、そう言うの思い付かなくて…
たいへん参考になりました、ありがとうございます
後でご指摘通りに入力してみますね

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 08:11:58.87

やっぱり場数踏まないと効率の良い書式なんか思い付かないんだな

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 08:55:30.34

書式じゃないだろ手順だろ……

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 11:29:34.00

対象をファイルに保存してExcelでイメージを挿入・・
というボケが間に合わなかったー。

リモコンの電池カバーどうした

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 15:41:01.76

1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2010
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
エクセルの印刷について教えてください。

かなりの分量の資料を作成しました。
横26行以上、縦80行以上、その全てのセルに何文字も入っている資料です。

完成はしましたが、ここから印刷して渡さないといけないので、今エクセルの印刷の設定をしてますが、苦戦してます。

例えていうなら、Ａ4サイズ3枚で印刷したいとき、設定で縦3といれて、横を一枚にそろえるでやったところ、最初の2枚はギチギチですが、最後の一枚は上数10cmしか使ってないみたいな。
こうなるくらいなら、Ａ4三枚で全部ギリギリまで使ってもう少し文字大きくしてほしいんです。そういう拡大をしたいんです。

このシートをＡ4（もしくはA3）用紙一杯のものを○枚の状態で作りたいのです。
仕事上ページの指定は厳しくないので、列が全部収まってれば行はいくらでも構わない、ページ数も増えてもまあいいという感じです。
しかし、印刷設定で列を1ページにおさめるとかやるとどうしても縮小されてしまいます。

こういう分量多いものをきれいに印刷する方法を何でもいいから方法教えてください。

最悪入力したものを削って内容簡素化するのもありです。

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 15:49:35.88

列幅基準で縮小されるならその倍率にしないと全部の列入らないんじゃないの
それなのに拡大しろとか無茶言うなって話

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 16:01:22.99

行の高さを大きくする

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 17:41:35.03

683やね。

横26項目に文字いっぱい？A4じゃ見えないと思う。A3横が無難

１．余白は手動で全部０か、タイトルなどにギリギリまで寄せる
２．プレビュ表示モードにする
３．行の高さを広げていき、丁度いい具合で止める

自分のやり方だけど、縦は自動（文字サイズ次第）のままで
表の右、印刷範囲外の列を選択して「フォント△」で大きくする。フォントサイズに合わせて行が広がる
広げてる見出し行とか、改行入りでもともと広がってる行とかには影響しない

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 19:07:17.63

>>675
たびたびすいません、ご指摘通りに入力し
オートフィルでコピーしたけど連続でコピーされなくてオートフィルのオプションにも
「連続データで」の選択が無いのでA2のセルは「1」B2が「日」でしかコピー出来なくて困ってます
何が悪いのでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 21:38:06.73

>>685
A2 B2 C2をA3 B3 C3にコピーしたあと、A3を=A2+1に直してから下へ31日までコピーですな

**名無しさん＠そうだ選挙にいこう** · 2018/10/18(木) 22:02:22.38

>>686
ありがとうございます、やってみます

**名無しさん＠そうだ選挙にいこう** · 2018/10/19(金) 14:41:52.95

>>675
お手数ですが気が向いた時でいいので
IF(MOD(A2,7)>1,"○","休")が平日○土日休になる仕組みを教えて頂けますか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/19(金) 15:21:45.10

日付の内部データは1900/1/1 = 1、からの連番なので
７で割った余りが0なら土曜日、１なら日曜日　になる。水曜休みなら=4にする
今日2018/10/19は43392

※1900/2/28以前は１日ズレる問題はある、がどうでもいい

**名無しさん＠そうだ選挙にいこう** · 2018/10/19(金) 17:12:57.74

WEEKDAY()使おうよ

**名無しさん＠そうだ選挙にいこう** · 2018/10/19(金) 20:20:30.39

>>689
なるほど土曜日が7の倍数だから割ると0
日曜が8の倍数だから余り1になるわけか
ありがとうございます、納得しました

**名無しさん＠そうだ選挙にいこう** · 2018/10/19(金) 20:47:14.95

はああああ？

**名無しさん＠そうだ選挙にいこう** · 2018/10/19(金) 20:48:57.08

8の倍数わらった
日曜は7の倍数+1だよ

**ぴころ** ◆lHG3Yzo0a6 · 2018/10/19(金) 21:30:59.66

頭の悪い人には理解不能でしゅ（＾▽＾）

**名無しさん＠そうだ選挙にいこう** · 2018/10/19(金) 22:08:44.84

>>690
それも良いかも、少しは自身の頭で考えないと為にならないし

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 00:53:48.29

変数のオブジェクト型って情報量がすごく多いと思うんだけど消費メモリがLONG型と同じなのはなんで？

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 01:01:16.95

>>696
オブジェクトへの参照ポインタが入ってるだけだから

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 01:16:27.21

>>697
なっとくしました

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 06:00:46.20

複合参照を難しく考えすぎてしまい訳わかんなくなる

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 08:19:59.61

ポインタサイズってlong固定なんだな

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 10:47:44.38

そりゃあポインタがlong型だしなあ

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 12:32:36.50

マクロ初心者なんですが何回も同じ処理を使いたいんてすが
callで別プロシージャ呼び出して結果を元プロシージャの変数として使いたい場合functionでいいんですか？
もちろん別プロシージャを使わずに変数のセットを何回も書くって方法もあるとは思いますが、スッキリさせたいので

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 12:53:00.65

>>702
ok

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 12:54:43.82

functionの場合、呼び出しはcallではありませんけど

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 13:13:46.28

>>672
これをweekdayでやるとしたら
IF(weekday(A2,2)<6,”○”,”休”)にするのが良いのかも

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 14:17:32.23

多分裏側同じだろと、ふと数式200万セルで100万回 calculate 回してみた
mod 42.41秒　weekday 44.42秒　PCの状態より、weekdayが+1加算してるからかな

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 15:20:10.23

>>706
とっさに確認しちゃうあたり、なかなかの愛ですなー

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 17:58:10.33

iExcel

**名無しさん＠そうだ選挙にいこう** · 2018/10/20(土) 18:41:48.42

>>706
大好き

**名無しさん＠そうだ選挙にいこう** · 2018/10/21(日) 11:36:42.27

>>689
1900年のバレンタインの曜日が間違えていると再提出命じた上司を思い出した
意地悪目的ではなく、新人に仕組みを学ばせるためだったようだが

**名無しさん＠そうだ選挙にいこう** · 2018/10/21(日) 12:50:21.03

難しく考えすぎると逆に効率的なやり方を思い付かなくなるんだ…
こっちは命令を出す側なのを意識して仕事の段取りをする事に集中するってか

**名無しさん＠そうだ選挙にいこう** · 2018/10/21(日) 13:11:02.44

>>709
ハズキルーペ

**名無しさん＠そうだ選挙にいこう** · 2018/10/21(日) 20:25:49.99

ビジネスで優秀な人材育成する上司は何を教えているのか？
https://www.youtube.com/watch?v=apxtSqxjw08&;t=13s
マクドナルド伝説の店長が教える、最強店長になるために必要なこと
https://www.youtube.com/watch?v=0wMbR7JIeeQ&;t=3154s
「最強の働き方」長時間労働やノウハウよりも大切なこと
https://www.youtube.com/watch?v=JnMHbI1-e3E&;t=3606s
美容師の楽しさ再発見！やる気スイッチが入る働き方セミナー
https://www.youtube.com/watch?v=DGzXQT799oY
もうダメだ…仕事が辛い時に乗り切るための３つの思考
https://www.youtube.com/watch?v=VEPf8viBpRU
視覚障がいを乗り越えた活法家
https://www.youtube.com/watch?v=6IuY_K3uFdo&;t=805s

2018/10/22(月) 10:58:54.75

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

お願いします

1月1日～1月31日　が一つのセル内にあって毎月"月"を変えたいのですが
数式で変えると末日の表示の所がうまくいきません
EOMONTH(TODAY(),0)を最後に組み込むとシリアル値そのままが返ってしまいます
セル書式設定はEOMONTH単独だと日付に変換されるのですが
1月31日の部分に入れると無効になりました
何か他の方法ありますでしょうか？

2018/10/22(月) 11:12:31.38

text関数使ってみるとか

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 11:25:49.25

ありがとうございます

ちょうど今試していて別セルに出したeomonth参照でなんとかできたのですが
月でIFを使い、間に文字列挟むので数式がめっちゃ長くなってしまいました
初心者なものでスリム化できなくて

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 11:28:16.84

A.　書式を「m"月1日～"m"月"d"日"」にして、価を =EOMONTH(TODAY(),0)
B.　=TEXT(EOMONTH(TODAY(),0),"m""月1日～""m月d日")

※個人的には式内にTODAY()は好きではないな
前月分、翌月分などを処理したい時に数式の中を書き換えたくないから
どっかに基準日セルを持ちたい

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 11:38:40.57

まさしく求めていたものでした
本当にありがとうございます
Aでやってみようと思います

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 12:59:32.40

>>714
式の長さじゃ無くてわかりやすさ重視でいくならchoose関数で12ヶ月分指定するのもありかな。閏年の考慮は必要だけど、式を見ただけで誰でもわかると思う

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 15:34:28.57

年間カレンダーを作成して特定の日にちを空欄にし
まとめて「休」の字を入れるのに何かうまいやり方無いですか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 16:12:02.96

休日タブ作ってVLOOKUP

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 16:12:58.09

>年間カレンダーを作成して特定の日にちを空欄にし
>まとめて「休」の字を入れるのに何かうまいやり方無いですか？

これの「どこ」を「うまいやり方」でやりたいの？
「特定の日にちを空欄にする」なら、「特定の日にち」を特定する方法が分からなければ
回答できないし、「空欄に『休』の字を入れる」だけなら置換するかジャンプ機能でできる。
「年間カレンダーを作成」なら、カレンダーの様式から不明なので、答えようがない。

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 18:27:02.36

１．まず日付、休有無、表示テキスト　の年間データを作ります
２．年間カレンダーのレイアウトを作ります
３．年間データの値を引っ張ってきます
４．データ表に入れたとおりに一瞬でカレンダーが完成

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 19:36:24.03

>>719
なにげにすごい

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 19:44:45.38

プログラマには無い発想で感心する(皮肉です)

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 19:58:09.01

上司のおっさんに「月を入力すると日数が出るようにするにはどうすれば？」と聞かれたのでコレを教えてあげた心温まる話
https://togetter.com/li/1279312

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 20:46:32.02

カレンダーはオフィスタナカ(表示名うろ覚え)にあるサンプルが一番適切
一年を1Sheetに日付順にずらずら並べて、土日のみならず、祝祭日も
ちゃんと(VBAで)判別してる　それを週・月・年とかのそれぞれのシートに
反映させてて見た目もそれなり　それを改良するのが一番手っ取り早い
年が変われば別にSheetを作って元日から大みそかまでを新規作成　という流れ

来年たぶん新たに増える祝日にも対応可
因みに春分・秋分は海上保安庁が確定させるので二年先は（予定）というのが正解

**名無しさん＠そうだ選挙にいこう** · 2018/10/22(月) 23:24:56.76

>>726
俺は「西向く侍」派

このクソ長い関数は１と入力すると31、2と入力すると28・・・・12と入力すると31になるのかな？
地味に耳が痛くなるかもね

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 00:05:22.46

>>727
担当者が居なくなって、ある日カレンダーがおかしあ！という話になって死亡

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 00:10:37.76

何年も先まで、ノーメンテで祝日を正確に表示できるカレンダープログラムなんか存在しない
作成不可能

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 00:13:15.38

>730
webから取ってくる形にすれば存在するんだな、これが

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 03:05:22.57

結局そこに落ち着くんだよね、サイトが間違ってたらオワ
政府のページあたりに法定休日とかcsvで取れるページありゃ良いのに

政府のweb検索からデータ貰うマクロ組んだけど
1データ毎にブラウザ戻るが必要で困る
かけっぱなしでIEパカパカさせてる

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 11:53:52.50

URLやページ構成が変わったらアウトだから、結局ノーメンテにはならない
政府系のサイトだってしょっちゅうアドレスが変わるし、実際それで苦労したことが何度もある

確かに国が色々なデータを取得できるWebAPIとか用意してくれてもいいよね
できれば省庁をまたいで共通プラットフォームで

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 11:56:08.51

エクセル2016
vba可

あるアプリから抽出されたデータがエクセルのファイルとして出力される。
その中の表を、さらに集計したり加工したりするんだが、毎回手でやるのも面倒なので、別の既に関数入れたテンプレート的なファイルを開いて、表をコピー&ペーストして終わらせてる。

アプリから出力されたエクセルのデータを、既に関数の入ってるシートに自動でコピーしたい。

同じブック内なら簡単にvbaで出来るが、異なるファイル間でやる方法がよくわからない。
出力されるファイルの名前はランダム。
無理でしょうか？

PowerShellの領域かなとも思ったんですが、エクセルだけで完結できると助かります。

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 12:03:08.59

>>734
違うブックへデータをコピーすること自体はVBAで簡単にできる
ランダムでもファイル名を手動で入力すればいいんじゃない？
保存されるフォルダが固定なら、その中から更新日が最新のファイルを開くのもVBAで可能だけど

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 12:22:19.04

>>735
出力されたデータはどこかに保存されるわけではなく、そのまま開いた状態。
既に開いているエクセルのファイル（ファイル名不明）を別のエクセルで開いたブックからvbaで取得する方法があればと。

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 13:12:11.73

何からやろうがWin32APIの出番だな、

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 14:03:22.65

カレンダーって言うと職場の男は昔ヤクザやってたらしいが
悪い元先輩に「お前、俺等が出演してるカレンダー買えよ！」と言われ
一つ四万円でも無理やり買わされたって言ってたな
買ったのを見せてもらったがヤクザ達が刺青出してふんどしになり
海岸でポーズ決めてる写真ばっかりでクソワラタw

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 14:15:37.38

>>736
for eachで開いてるファイルを全部回す。
指定の形式に該当するファイルをコピペ。

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 15:52:20.57

>>736
VBAでWorkbooksコレクションオブジェクトというのを使えば、今開いているブックの一覧を簡単に調べることができます
あとは、セルの内容とかシート名などを頼りに、目的のブックを機械的に見つける方法があるかどうかですね

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 16:45:49.87

まあ、シート１の名前とかA1の値とか。なんか識別はできるだろう

もう１つの方法。自分だけしか使わない自分用なら
Personalにマクロ作って、開いた状態で実行して結果を別のBookにするとかでもいい
実行する時は「ペルソナー！」って叫ぶ

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 18:41:31.88

【1 OSの種類　　　　 .】 Windows7Pro
【2 Excelのバージョン　】 Excel2016
【3 VBAが使えるか　　 .】はい(マクロをボタンに登録して使うくらい）
【4 VBAでの回答の可否】可

vlookup参照をVBAで最終行まで繰り返し処理したいです

具体的には、
A4からA列の一番最後の行を調べて
C4=VLOOKUP(A4,H4:J100,3,FALSE)
をC列でA列の最後の行まで繰り返したい
H4:J100の範囲はH4からH列の一番最後の行のJ列までにしたい

前提としてA列とH列は途中に空欄ありません
H列に無くてA列にある値があります。その場合N/Aではなく空欄にしたいです

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 19:02:38.27

>>742です
文章では分かりにくいのでイメージのスクショを貼ります
右の古い客先一覧のJ列を左の新しい客先一覧のC列に転記したいのです
https://i.imgur.com/BsBGDg1.jpg

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 19:07:31.18

>>742
Sub Macro3()
Dim rowA As Long
rowA = Range("A4").End(xlDown).Row
Dim rowH As Long
rowH = Range("H4").End(xlDown).Row

Range("C4").Formula = "=IFERROR(VLOOKUP(A4, H$4:J$" & rowH & ", 3, FALSE), ""＼(＾o＾)／"")"
Range("C4").Copy Range("C5:C" & rowA)
End Sub

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 19:15:01.88

て、マクロにして毎回変わる行数へ使えるようにしたいのでは無かったのかw
１回で良ければ$付けてコピーすりゃ良い

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 20:03:06.38

>>744-745
>>742です
早速ありがごうございます
希望通りでした
古い客先一覧から客先の増えた新しい客先一覧に更新するのに
列で古い一覧で決まってる担当の列を新しい一覧に転記したかったです
なので毎回行が増えたり減ることもあります

ところで古い客先一覧で担当の列が空欄だった時、
新しい一覧に転記されて空欄になるのと0になるのがありますが
なぜか分かりますでしょうか？
古い一覧に白色で見えない0が入力されているのかと思いましたが
本当に空欄でした

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 20:11:51.37

お世話になっております
ご質問の問題について調査を行いましたところ
H列にありj列に無いケースについては要件定義に明記されていなかった事から、
想定外のケースであることがわかりましたが
変更およびテストの実施はリリースに間に合わない恐れがある為
しばらくは運用にて対処いただけませんでしょうか？
ご理解ご協力の程宜しくお願い申し上げます

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 20:40:27.16

>>747
お世話になっております
手入力でC列にVLOOKUP関数を入力コピペしても同じ結果になりました
J列に空欄があるとC列はそのまま空欄になると思うのですが
C列のVLOOKUPの結果が空欄になる時と0になる時があるのは何が原因でしょうか
データに問題があると思うので改善したいと思います

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 21:18:45.38

>>734
自分が良く使う方法はインプットボックスでセルを指定してそのrangeオブジェクトからparentでワークシートとワークブックを変数にセット

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 01:40:55.22

>>747
お世話になっております
>>746ですが自決しましたので下記ご報告申し上げます

Range("C4").Formula = "=IFERROR(VLOOKUP(A4, H$4:J$" & rowH & ", 3, FALSE), ""＼(＾o＾)／"")"
以上部分を
Range("C4").Formula = "=IFERROR(VLOOKUP(A4, H$4:J$" & rowH & ", 3, FALSE)&””””, ""＼(＾o＾)／"")"
に修正してJ列の空欄はC列に空欄で返すようにできました

ただVLOOKUPで参照先が空欄だった時スペースも入力されていないにも関わらず
0になる時と空欄になる時があるのが謎です
後学の為ご存じでしたらご教示いただけませんでしょうか

お忙しいところお手数ですがよろしくお願い申し上げます

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 05:20:18.89

御愁傷様…(‐人‐)

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 08:06:54.61

なんで自己解決のことを自決というようになったのか

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 09:57:52.95

【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2010
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

初心者です。
工事毎作成する複数のシート(※1)の数値をデータベース用の他ブックのシートに工事毎に転記しています。
現在は工事が発生する事に保存してある(※1)原紙を該当工事用に更新し、保存後データベースにハイパーリンクを設定していますが、
いちいちハイパーリンクの設定をするのが大変なので、一連の流れを自動化は出来ませんか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 11:00:33.20

出来ません

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 12:17:59.85

https://trumpexcel.com/list-of-file-names-from-a-folder-in-excel/

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 19:15:07.48

できるよ　要は単票フォームのデータをテーブルに保存／テーブルから読み出しできるようにしたいんだろ
Access使えない環境だとそういうのはときどきつくったりする　VBA必須だけどな

**名無しさん＠そうだ選挙にいこう** · 2018/10/24(水) 22:23:29.98

>>756
3が読めないのかおまえは
だからみんな出来ないって言ってんだよ
バカだろ

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 00:18:43.72

できるかできないかでいえばできる　ただしVBA使用が条件　別におかしくはない
このスレではひとりのことをみんなっていうのかな

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 00:25:30.96

このvbaが使えるかって設問、そろそろ見直したほうがいいかもね

・本人がvba使えるかどうか
こんなことどうでもよくて、覚えろって話

・職場環境的に絶対に使えない
じゃあ仕方ないね

となる

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 02:13:42.49

出来るかでいえば、VBAでペンタゴンハッキングできる人も居るかもしれないが

とりあえず、VBA無しの範囲＝数式とリボンの中のものとして
固定のデータソースから値を取ってきて計算まで

処理　となるとマクロコピペぐらい要るかなあ。

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 03:08:06.75

使える使えないってのは、本人が、の他に、環境が(会社が')、ソフトがって意味もあると思う

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 08:04:13.21

3.より4.でしょ
ちゃんとテンプレに従って
> 【4 VBAでの回答の可否】否
って書いてあるのにVBA必須の回答するとか頭おかしい

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 08:07:44.35

それは大体VBAでしか回答出来ないときだろう　

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 08:08:42.46

そもそもVBA使った回答なんかしてないだろう　どこにVBA記述してるんだ
できるって書くことすらだめなのか　なんなのこのスレ

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 08:20:13.07

VBA毛嫌いしてるヤツの気持ちもわかってほしい
コンプレックスの裏返しさ

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 08:29:43.45

出来ると回答したヤツ激おこ（）

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 09:01:57.13

少なくとも俺はバカとか頭おかしいとは書いてない　それはいいのか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 09:11:12.81

たった今書いたじゃん

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 09:16:39.81

文盲な756が発狂するスレになりました

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 09:18:08.46

>>768　小学生並みの煽りだな　バカ　頭おかしい　文盲←New！

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 09:18:24.22

あ　発狂も追加

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 10:24:29.05

VBA可で質問しているのに自己解決出来ないなら使わない方が良いんじゃね？と思う
職場なりで多数の人が使う場合は特に

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 11:44:13.38

>>762
ほんこれ

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 11:59:21.05

オフィス2019って一般人はいつ買えるんですか？
今後数週間のうちにリリースと、1ヶ月前に見た気がするんですが。
あと、excelしか使わないんですが、オフィス2019発売の際、バラ売りしてくれますか？
それともバラ売りは少し発売日が遅れる、もしくはバラ売り自体やらないんでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 12:23:56.77

会社で自分以外が使うブックには基本VBAは入れないな。
あいつらファイル参照や自動作表どころか単純な関数すら別のブックにシートコピーとかやって効かなくして壊れたと騒ぐ。

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 12:37:15.35

vba内にデータを持たせたり
参照しているシートはロックしたり隠したり手段はあるが
まぁ作る側は面倒だよな

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 12:53:22.39

フールプルーフの良い練習になるから、あまり不満は無いかな

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 13:07:13.85

Office2019は海外Amazonとかだともう売ってるんだよな
日本語版はまだらしい。いつになるかは分からなくてすまん
ただ、2019の新機能はOffice365にしてればアップデートでもう反映されてる

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 13:45:02.40

>>775
逆にそういうのをVBAで防ぐこともできるじゃん

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 21:19:54.82

>>775
マクロはロックしてます。公開後の修正はめんどいですが。

**名無しさん＠そうだ選挙にいこう** · 2018/10/25(木) 21:27:07.14

2019使ってるけど、正直そこまで・・・感
OCRもグダグダだし、SORT関数もそもそもVBAでさんざんやってきたこと
まぁ2019がデフォの世代はすごく生産性が高いだろうね

**名無しさん＠そうだ選挙にいこう** · 2018/10/26(金) 17:32:31.71

グラフ作りが詳しく解説されていますよ！
https://youtu.be/-dLhCOeEKjg

**名無しさん＠そうだ選挙にいこう** · 2018/10/27(土) 18:22:00.94

【1 OSの種類　　　　 .】すみません、分かりません…
【2 Excelのバージョン　】 Excel2016
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

分かる方いたら教えてください。
例
A1セル:10
B1セル:15
C1セル:5

であったときに、
①A1からC1の間で、一番大きい数のセルを選んでください。
②A1が1番大きかった場合はAを、Ｂ1が1番大きかった場合はBを、C1が1番大きかった場合はCを返してください。

この2つの関数を組み合わせたいのですが、教えて頂けませんか？
よろしくお願いします。

**名無しさん＠そうだ選挙にいこう** · 2018/10/27(土) 19:09:56.85

excelの差分ツール教えて
いままでAiperDiffexを便利に使ってたんだけど、
Win 10にしたら調子悪くなってしまった
スクロールすると波打つ感じ

**名無しさん＠そうだ選挙にいこう** · 2018/10/27(土) 20:06:40.35

>>783 どれがいいのかわからんかった
=MAX(A1:C1)
=MATCH(MAX(A1:C1),A1:C1,0)
=MID("ABC",MATCH(MAX(A1:C1),A1:C1,0),1)

**名無しさん＠そうだ選挙にいこう** · 2018/10/27(土) 21:46:16.79

rwat

**名無しさん＠そうだ選挙にいこう** · 2018/10/27(土) 21:51:22.55

>>783
書き込めない

https://dotup.org/uploda/dotup.org1677461.txt

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 07:35:47.74

>>785、787
785の方の3つめの式で解決しました！
ありがとうございました！助かりました！！
787の方も回答下さりありがとうござきました！

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 07:36:42.80

>>785、787
785の方の3つめの式で解決しました！
ありがとうございました！助かりました！！
787の方も回答下さりありがとうござきました！

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 14:33:15.29

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2010
【4 VBAでの回答の可否】可

シートにテーブルTable1がありまして列3と列5だけをCSVで出力したいのですが
よろしくおねがいします。
行数は日々変動いたします。

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 20:41:03.87

>>790
順番は？
C1,C2,C3 改行
E1,E2,E3 改行
でいいの？

**790** · 2018/10/28(日) 21:44:41.92

>>791
具体的にデータを作りました

テーブル1(Table1)
番号, 都市, 名前, クラス, 判定
1002, 東京, 山本, A組, o
1003, 千葉, 戸田, B組, o
1005, 東京, 鈴木, A組, x
　・
　・

これを下のようにCSVで出力です

名前, 判定改行
山本, o 改行
戸田, o 改行
鈴木, x 改行

アドレスではなくテーブル名と列名を使った構造化参照での回答がありがたいです

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 21:53:56.74

自分なら別ブックにデータを抜き出して　それをCSVで保存する

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 22:12:20.20

別シートに列コピーを2回やってCSVで保存だな
こんな単純な作業、VBAとかで自動化するまでもないと思うけど

**790** · 2018/10/28(日) 22:17:08.21

>>794
これと同じ操作がテーブル違い列違いで30テーブルくらいあるんですよ

**790** · 2018/10/28(日) 22:19:24.91

そして最低週１回以上のCSVデータの更新が必要でして

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 22:21:45.86

テーブルをどうやって指定するかとか、csvファイルの名前や保存場所をどうするかとか、色々ある。
inputboxで指定するのか、シートにテーブルは１つと決まっていてそれを自動で取得するのかとか。
自分で作らないと思うようにできなさそう。

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 22:40:01.87

データの抜き出しはコピペでもいいしピボットでもいいしvbaでもいいし　好きにやればいいと思う

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 22:40:08.59

【1 OSの種類　　　　 .】 Windows** 7
【2 Excelのバージョン　】 Excel** 365（体験版みたいなやつ）
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

今まで24型モニタDPI=100%で印刷していたのを
27型モニタDPI=117％で印刷しようとしたところ、印刷範囲がずれてました。

原因はDPIみたいで、最初に作ったのがDPI＝100ならば、それが基準になるので
新しい環境に変えてもDPI=100％しなければならないとの事で
これを踏まえての質問があります。

DPI=100％以外の数値でも、印刷範囲をずれなくする方法を
液晶モニタを変える　解像度を変える以外であれば教えてください

1年に十数ファイルも印刷するので、特定のファイルにのみ効果を及ぼす方法は駄目です。一度設定すると今あるファイルは勿論、今後作成するファイルにも
影響する方法が望ましいです。

Windows10にする　Excel2019にする　特定のシェアウェア　フリーウェアを導入する等、あらゆる方法をＯＫとします。

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 22:48:30.75

>>790
Sub TEMP()
Dim TBL As ListObject
Dim RowClient As ListRow

Set TBL = Worksheets("Sheet1").ListObjects("Table1")

Open "D:\TEMP.CSV" For Output As #1

Print #1, TBL.HeaderRowRange(3) & "," & TBL.HeaderRowRange(5)
For Each RowClient In TBL.ListRows
Print #1, RowClient.Range(3) & "," & RowClient.Range(5)
Next

Close #1
End Sub

**名無しさん＠そうだ選挙にいこう** · 2018/10/28(日) 22:54:32.85

>>799
印刷範囲はずれるものと思っておいたほうが良い
個人的には、vbaで改ページ合わせるしか無いと思ってる