Excel総合相談所 132

1 ：名無しさん＠そうだ選挙にいこう：2018/07/01(日) 12:22:32.86 .net

▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

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

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

Excel VBA 質問スレ Part51(1000到達済み)
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

955 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 22:54:37.80 .net

>>948
作業列使えば、条件付き書式でいけるような気がする。

956 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 22:56:10.28 .net

欲を言えば漏れ、2重入力を別のシートに抜き出して一覧にできたらベストです。そしてそれを印刷して修正すると。
こういうのってVBAをかじれば簡単にできるんでしょうか？それなら勉強したいと思います。

957 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:06:21.45 .net

>>956
わかるだけでいいならこれでいいやろか
http://fast-uploader.com/file/7097414273356/

958 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:13:41.29 .net

VBA無しだと行挿入不可だから面倒だな
別シートに数式びっしり配置して元データを表示するしか無いのか？
日付の差が1か調べ
食後の時間差も調べる必要がある

959 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:13:47.83 .net

考えて頂いてるのに申し訳ないのですが、これですと元のデータと見比べることになり、修正時間が増えてしまいそうです。
理想は「○月○日昼なし、夕2重」みたいに、それを見てそのまま修正できる形です。

960 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:17:24.90 .net

基本ロジックは
行の上から処理する。
A列が空白の時はB列C列の内容をハッシュ配列に格納し続ける
A列の次の値にぶつかったらハッシュ配列内の朝薬、昼薬、夜薬の出現回数をチェックする。
各1で揃わなければエラー処理、揃ってればOK
配列初期化
のループ。

日付が連番や、投薬者の抜けもチェックするならもっと細かくなる

961 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:19:55.78 .net

>>959
別シートは元シートと全く同じ構成にして修正後に元シートに値をコピーすれば問題ないじゃん

962 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:20:35.70 .net

過去データをいぢるのは改竄ととられてもしょーもない事態に陥るがいいのか？
それより、今後・将来のことを見据えてキチンとした欠損の無い入力表を整えて
漏れの無い落ちの無い、かつ入力し易い環境をつくるのが
いっちゃん大事なんじゃないのか？

毎月末に翌月分の表を作りたい　とかいう方が百万倍誠意あると思えるがな

963 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:21:10.68 .net

投薬者の抜けは問題ありません、あくまで、その一日にそろっているかどうかだけです

964 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:23:01.42 .net

1/1
朝　投薬　山田
昼　投薬　鈴木
版　投薬　
1/2
朝　投薬　
昼　投薬　
版　投薬　

最初からこういう表にしておいて名前ｗ入れるだけにすれば二重はなしい漏れチェックも簡単にできるのでは？

965 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:23:47.64 .net

だから別シートに抽出がベストと答えてるじゃん、周回遅れはあかんよ

966 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:25:25.21 .net

>>962
全くその通りです。元々は紙にサインしてたんですが、最近端末に入力することになったんですが、漏れ、だぶりが出てきました。
今現在も紙にサインすることは続いているのですが、データと紙を一致させたい、かつ入力間違いを探して間違えた人に注意したいんです。

967 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:28:15.15 .net

それと、この入力というのがExcelにではなくiphon端末を腰からぶらさげて専用のソフトに入力する形です

968 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:29:27.24 .net

そのソフトのデータ表示をコピーしてエクセルに貼り付けたのが先にあげたサンプルです

969 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:32:55.54 .net

>>968
じゃあVBAダメってのは何で？

970 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:36:07.10 .net

そのiphoneアプリの設計ミスぽいな、抜けチェック無かったらヤバいじゃないの、人命直結なのに...

971 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:37:05.29 .net

>>969
いえだめではありません。
私が知らないだけです。

972 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:38:05.62 .net

She can't write VBA nowってだけの話、

973 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:38:58.13 .net

多分、投薬カレンダーの人だよな。現状がやっつけシステムで引継ぎなんかが大変なんだろう

なんか403エラーで書けん・・

974 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:39:43.36 .net

>>970
そこらへんは現物確認で入力と同じように投薬してないとか、2重で投薬するとかはないようになってます。
ただデータがズタボロなんですよ。

975 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:40:25.69 .net

>>973
？私は違います

976 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:43:11.20 .net

とりあえず病院だとvbaのチェックが厳しいッと思うから
これのマクロが動くか試して欲しい
http://fast-uploader.com/file/7097416471333/

マクロが動くならvba書くよ。vbaなら一瞬で終わる
数式でやるのはちょっとキツイ

977 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:43:25.46 .net

>>970
でもそうですよね。
例えば昼を入力してないなら、「昼が入力されてません。しましたか？」とかメッセージ出るとかにして欲しいですね

978 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:43:46.71 .net

ごめん、違ってたか。
これは出力結果かなにかで、手作業で修正しても意味が無いのであれば
毎回作業が入るぐらいならマクロ作るべきかな。

システムからOUTPUTでExcelかCSVが出てきてるのであれば、Personalにマクロ作る

979 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:45:10.70 .net

>>977
それはiphoneアプリ開発者か総務を通して言ったほうがいい
普通に改良してくれるよ
ってか今のままじゃ使い門にならんだろ

980 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:45:58.99 .net

>>976
あーいえいえ、全然動きます。
個人のパソコンでやりますので

981 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:47:31.97 .net

>>979
他にも山のようにありまして、、、

982 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:51:53.00 .net

>>978
私のあげたサンプルというのが、専用ソフトの一覧表示させたものをドラッグしてコピー、EXCELに貼り付けただけのものです。
修正するのはまたiphon端末の修正という画面で修正します。

983 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:54:44.86 .net

完全にスレチじゃないの？

984 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:56:42.60 .net

元はDBがあるんだろう、そっちからSQLして、修正もSQLで流し込めれば楽だろうに

985 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:56:52.27 .net

>>983
もうここまで言えば別にいいんじゃね
俺もコード書いてるしそのうち回答するよ
値落ちしなければもうすぐ出来る

986 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:57:38.12 .net

>>983
スレチでしたか申し訳ない。
ただ関数では無理そうと分かっただけでも収穫です。
VBA勉強します。こんな夜更けにありがとうございます。

987 ：名無しさん＠そうだ選挙にいこう：2018/11/10(土) 23:59:57.48 .net

>>940
試してみます。ありがとうございました。

988 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 00:17:42.01 .net

ごめん、失敗した
B列が空白
一行下に”朝”、仁行したに”昼”、産業下に”夕”
が入ってれば挿入・・・じゃだめじゃん

続きは明日
http://fast-uploader.com/file/7097418549596/

989 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 01:04:20.59 .net

専用ソフトの表示をコピーしたものをメモ帳に貼り付けてテキストファイルを上げることはできる？

正直Excel使うケースでも無い気がするので他の方法を試したい
もちろん大体の環境で動くようなやつ

990 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 08:45:47.28 .net

>>947
出来た
http://fast-uploader.com/file/7097449026453/

先に重複削除しきってから行の挿入してくれ
重複削除しないとどっちが足りないか分からんからな

991 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 08:46:29.65 .net

>>989
専用ソフトっ作った奴に実装を頼めば良い

992 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 09:38:42.87 .net

>>986
>> 理想は「○月○日昼なし、夕2重」みたいに、それを見てそのまま修正できる形です。

別シートにこれを出していくなら関数でいけそうだかども
ただ今日はExcel触れないごめん

993 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 09:42:23.57 .net

>>940
試しました。
ありがとうございます。

値だけ行列入れ替えなら
alt→HVSVEで行けました。
（乗算なら末尾I）

Undoが効くようにショートカット登録する方法があれば教えてください。

994 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 11:45:11.12 .net

>>992
すんません、朝っぱらから

995 ：790：2018/11/11(日) 13:52:54.38 .net

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

（元データ）
,果物,,
,,りんご,
,,,王林
,,,つがる
,,すいか,
,,ミカン,
,野菜,,
,,はくさい,
,,だいこん,

↓
（作成後）
├─,果物,,
│,├─,りんご,
│,│,├─,王林
│,│,└─,つがる
│,├─,すいか,
│,└─,ミカン,
└─,野菜,,
,├─,はくさい,
,└─,だいこん,

上のような系統図をキャラクターで線引きをして出したいのですが
いい方法はないでしょうか

996 ：992：2018/11/11(日) 13:57:49.16 .net

範囲を指定して自動で線がひけるとうれしいです。

997 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 15:11:59.89 .net

>>943,947,992
マクロのコードだけ。Sheet1を調べてSheet2にエラーを出力します。
各日の朝昼夕の投薬回数が1回以外ならエラーとします。日付飛びもチェックしてます

https://pastebin.com/jViyuKGC

998 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 15:14:18.12 .net

>>995-996
ツリー表示　csv
辺りで検索たらフリーソフトでありそうな気もするんだが、見つからないな

999 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 15:44:01.56 .net

>>997
かたじけないです、ちょっとマクロ勉強してきます

1000 ：994：2018/11/11(日) 18:11:54.93 .net

>>999
最終日の検査を放置するバグがあったので手直しします。少々お待ちを

1001 ：994：2018/11/11(日) 19:54:22.10 .net

>>999 直しました。
https://pastebin.com/mD5Z7ttJ

1002 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 20:11:40.23 .net

頭の option VBASupport 1 は削ってください

1003 ：名無しさん＠そうだ選挙にいこう：2018/11/11(日) 21:08:40.17 .net

次は質問テンプレ変えるのかな

1004 ：2ch.net投稿限界：Over 1000 Thread

2ch.netからのレス数が1000に到達しました。