Excel総合相談所 132
レス数が1000を超えています。これ以上書き込みはできません。
▼━質問テンプレ (出来れば使ってね) ━━━
【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 ▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
A1の文字列の中で部分一致vlookupで別表を使いC1に表示する文字列を変えてます
例 A1:係長 C1:賞与係長級
しかし、昇格が有った場合、その時のみ
A:1 係長→課長 C1:賞与課長
になるようにしたいです。
vlookupで使う表には係長も課長もそれぞれあるため、係長で一致して引っ張ってきちゃいます
条件付き書式のように上位、下位の優先度みたいな感じの設定は出来ないんでしょうか？
もしくは「部分一致で2つ以上マッチした場合、後者・2番目を使うとかできませんか
現状A1を分けることは出来ません >>901
たぶん文字どおりa1に係長→課長と入力されていて、
課長を検索値にしたいってことかと思われる >>906
役職ついてても手作業だと同じだろ？何言ってんだ？ >>901
説明が拙くてすいません
>>903
ありがとうございます
仰る通りです
同じセルに設定された違う検索値が並んでる状態で
検索値を選べないのか、優先順位をつけれないのか、ということです
>>904
ありがとうございます
課長だけで特命課長、担当課長などあって、
係長も同様、主任、副主任と、とんでもないことになるんです(´Д`;)
>>905
ありがとうございます
はじめそれで作って部長に出したのですがそこを変えるなと言われました(´Д`;)
理由は謎です >>908
追記
課長だけで7つぐらいカテゴリが有ります
係長、主任、副主任と下がるごとにもっと増えていきます
他社との吸収合の歴史の名残だそうです･ﾟ･(ﾉД`)･ﾟ･｡ >>908
>>905だけど、ファイル見た？
区切るって複数セルに入れるんじゃなく、計算式の途中でfind()で分解してるだけだよ
A3に「係長→課長」が入ってるけど、「課長」で検索するようになっている 最後に級 が付くのと付かないのとの差は何？
矢印がある時だけ 級 を最後につけないって事？ 仕様はこうで良いのかな
・矢印で分割された最後の名称をキーにする
・賞与+キーをもとに、1番上の行を取得する。矢印の数は0または1のみ
匿名課長級があるなら課長の検索が出来ないので前付けた
課長代理もあったら、後ろもルール要る で、運用始めたらこんなデータもあるのがわかるんだよな、きっと
課長→暫定据え置き、課長→仮決定）部長級、課長（営業第一）
賞与特命課長補佐級、賞与課長補佐級、賞与課長級査定上
賞与特命課長級査定下、賞与冬課長級 >>915
ありそうで笑ったｗ
もう一個セパレータ作って、それを基準にするしかないかもね
賞与据え置きの場合
課長→部長☆課長 >>907
自分より年下がどんどん昇格していく情報を知るとつらいんだろ。
俺には経験が無いから分からんけど。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】可
ものすごく大雑把で申し訳ありません。スクショしてあるような上記、横並びのデータを下記、3列の表に入れて印刷したい場合、どういった方法がよろしいでしょうか。
上記のデータは、いつも100程ありExcelデータでもらいます。そのため表だけのシートを別に作り、最終的には印刷して商品に貼り付けたいです。
https://i.imgur.com/pw3V7mJ.jpg >>918
列は縦並びのデータだよ
見本の場合、9業11列
何が100ほどあるかわからない 横１列で来るリストを
印刷しやすい数で複数行に並べたいってことでしょう
カレンダーを一覧から７日区切りに変更したいとか、あるある
折り返しの数が決まってるなら参照を用意したシートに貼り付けるだけ だが
縦並びにして行数が データ数/３てことになると・・・
手作業で三分割して行列変えて貼り付け（おいｗ >>918
100列のデータを34行×3列にしたいってこと？
100列固定なら
C7: =C3
D7: =D3
E7: =E3
C8: =F3
D8: =G3
E8: =H3
C9: =I3
D9: =J3
E9: =K3
…
とひたすら数式入れたシート作って、貰ったデータをC3からに値貼り付けすればいいかと １列目：表示行が、INT((件数+2)/3)以下なら出力
データ１からOFFSETで、表示行-1分 列移動したデータ
２列目：表示行が、INT((件数+1)/3)以下なら出力
データ１からOFFSETで、INT((件数+2)/3) + 表示行-1分
３列目：表示行が、INT((件数)/3)以下なら出力
データ１からOFFSETで、件数 - INT((件数)/3) + 表示行-1分
計算式、これでいいのかな・・えーとうーんと。なんかExcel重いから作るのよろしく スレちかもしれんが１列づつ見出しつけてwordで差し込み印刷が手っ取り早い >>918
C7 =OFFSET($C$3,0,(ROW()-ROW($C$7))+((COLUMN()-COLUMN($C$7))*3)) >>918
vba可だから、条件さえしっかり提示されれば簡単そう。 >>918
Sub SubC3Right_to_C7vertical3Line()
Dim rSrc As Range '取得データ
Dim cntX As Long '１列の最大数
Set rSrc = Range(ActiveSheet.Range("C3"), ActiveSheet.Range("C3").End(xlToRight))
cntX = Fix((rSrc.Count + 2) / 3)
Dim N As Long
For N = 1 To rSrc.Count
ActiveSheet.Cells( _
7 + ((N - 1) Mod cntX), _
3 + Int((N - 1) / cntX)).Value = rSrc(N).Value
Next
End Sub 難しい質問ばかりの中、恥ずかしいのですが教えて下さい。
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 ほんの少し
【4 VBAでの回答の可否】 可
データ入力したい行を画面の一番上にして作業をしたいのですが、
例えばC5セルを選択している時に、C5セルを画面の一番左上にするショートカットはありますか？左上が無理なら画面の一番上でもよいです。
スクロールバーのボタンをマウスで押すのが面倒なので、どなたかご存知の方がいらっしゃったら教えて下さい。宜しくお願い致しますm(._.)m >>930
・ウィンドウ枠の固定。AB列と1-4行目を非表示にすると良いかも
・新しいウィンドウを開く
どちらか好きな方で実現できるよ VBAが使えるなら、Application.Goto ActiveCell, Trueでいけるんじゃないかな
それにショートカットキー割り当てとけばいけるにはいける 皆さま早速色々教えて下さって
ありがとうございます！m(._.)m
色々試してみます！！！ >>933
目から鱗！
思いつきませんでした、すごい！ 教えてください。
エクセル2013です。
普段、クイックアクセスツールバーに「値の貼り付け」などを設定しており、alt＋テンキーのショートカットキーで使っています。
同じようにクイックアクセスツールバーからショートカットキーで
・行列を入れ替えて値の貼り付け
・値を乗算して貼り付け
する方法はないでしょうか？ >>936
alt→H→V→S→M（乗算貼り付け）
Alt→H→V→S→E（行列を入れ替えて貼り付け）
それかマクロにしてショートカット登録をするか。Undoができなくなるけど。 すいません、教えて下さい。
例えば
2018-11-09｜
｜朝食｜Aさん
｜昼食｜Bさん
｜夕食｜Cさん
2018-11-10｜
｜朝食｜Bさん
｜夕食｜Aさん
2018-11-11｜
｜朝食｜Aさん
｜昼食｜Eさん
｜夕食｜Dさん
こういう表があるとします。
1年間続いています。
11-10の昼食がぬけてます。
ほかにも抜けているとして
その部分にセルを自動で挿入
して色付けする方法はないで
しょうか？ >>938
vba使える？
あとサンプルファイルアップロードして欲しい VBA使わない方法としては
2018-11-09 朝食
2018-11-09 昼食
2018-11-09 夕食
2018-11-10 朝食
2018-11-10 昼食
2018-11-10 夕食
っていう抜けのない表をつくっておいて、そこに元の表からVLOOKUPで内容を持ってくる それは却下だな、元表の日付が各日１回しか入ってないもの た・・担当者か。 名前が別のなにかだと思ってしまった
日付に抜けが無いと仮定。
テーブルの挿入からピボットテーブルで集計
行を日付、列を食事、値をMAX(名前)。 にすると日毎の表になります >>941 おお、おれも見落とした。そういうことか すいません、再度
2018-11-09｜
08:31｜朝薬｜Aさん
13:21｜昼薬｜Bさん
19:11｜夕薬｜Cさん
2018-11-10｜
09:00｜朝薬｜Bさん
18:45｜夕薬｜Aさん
2018-11-11｜
08:45｜朝薬｜Aさん
13:05｜昼薬｜Eさん
18:55｜夕薬｜Dさん
こういう表なんです。
何かといいますと、ある人に
薬を飲ませた時間と担当者の表です。
11-10の昼は飲ませてるですが入力
漏れです。漏れはほかにもありまし
て、それを見つけたい、と。 vba使えません。すんません。
サンプルあげかた調べます 今あげましたサンプルの最後に夕食後薬が二重で
入力してますが、それも間違いです。漏れと二重と
二種類の間違いがあるのです。 VBAなしでやれはツラたん、作れなくとも作って貰った物を使うことは出来るっしょ >>945
作業列使えば、条件付き書式でいけるような気がする。 欲を言えば漏れ、2重入力を別のシートに抜き出して一覧にできたらベストです。そしてそれを印刷して修正すると。
こういうのってVBAをかじれば簡単にできるんでしょうか？それなら勉強したいと思います。 VBA無しだと行挿入不可だから面倒だな
別シートに数式びっしり配置して元データを表示するしか無いのか？
日付の差が1か調べ
食後の時間差も調べる必要がある 考えて頂いてるのに申し訳ないのですが、これですと元のデータと見比べることになり、修正時間が増えてしまいそうです。
理想は「○月○日昼なし、夕2重」みたいに、それを見てそのまま修正できる形です。 基本ロジックは
行の上から処理する。
A列が空白の時はB列C列の内容をハッシュ配列に格納し続ける
A列の次の値にぶつかったらハッシュ配列内の朝薬、昼薬、夜薬の出現回数をチェックする。
各1で揃わなければエラー処理、揃ってればOK
配列初期化
のループ。
日付が連番や、投薬者の抜けもチェックするならもっと細かくなる >>956
別シートは元シートと全く同じ構成にして修正後に元シートに値をコピーすれば問題ないじゃん 過去データをいぢるのは改竄ととられてもしょーもない事態に陥るがいいのか？
それより、今後・将来のことを見据えてキチンとした欠損の無い入力表を整えて
漏れの無い落ちの無い、かつ入力し易い環境をつくるのが
いっちゃん大事なんじゃないのか？
毎月末に翌月分の表を作りたい とかいう方が百万倍誠意あると思えるがな 投薬者の抜けは問題ありません、あくまで、その一日にそろっているかどうかだけです 1/1
朝 投薬 山田
昼 投薬 鈴木
版 投薬
1/2
朝 投薬
昼 投薬
版 投薬
最初からこういう表にしておいて名前ｗ入れるだけにすれば二重はなしい漏れチェックも簡単にできるのでは？ だから別シートに抽出がベストと答えてるじゃん、周回遅れはあかんよ >>959
全くその通りです。元々は紙にサインしてたんですが、最近端末に入力することになったんですが、漏れ、だぶりが出てきました。
今現在も紙にサインすることは続いているのですが、データと紙を一致させたい、かつ入力間違いを探して間違えた人に注意したいんです。 それと、この入力というのがExcelにではなくiphon端末を腰からぶらさげて専用のソフトに入力する形です そのソフトのデータ表示をコピーしてエクセルに貼り付けたのが先にあげたサンプルです そのiphoneアプリの設計ミスぽいな、抜けチェック無かったらヤバいじゃないの、人命直結なのに... >>966
いえだめではありません。
私が知らないだけです。 She can't write VBA nowってだけの話、 多分、投薬カレンダーの人だよな。現状がやっつけシステムで引継ぎなんかが大変なんだろう
なんか403エラーで書けん・・ >>967
そこらへんは現物確認で入力と同じように投薬してないとか、2重で投薬するとかはないようになってます。
ただデータがズタボロなんですよ。 とりあえず病院だとvbaのチェックが厳しいッと思うから
これのマクロが動くか試して欲しい
http://fast-uploader.com/file/7097416471333/
マクロが動くならvba書くよ。vbaなら一瞬で終わる
数式でやるのはちょっとキツイ >>967
でもそうですよね。
例えば昼を入力してないなら、「昼が入力されてません。しましたか？」とかメッセージ出るとかにして欲しいですね ごめん、違ってたか。
これは出力結果かなにかで、手作業で修正しても意味が無いのであれば
毎回作業が入るぐらいならマクロ作るべきかな。
システムからOUTPUTでExcelかCSVが出てきてるのであれば、Personalにマクロ作る >>974
それはiphoneアプリ開発者か総務を通して言ったほうがいい
普通に改良してくれるよ
ってか今のままじゃ使い門にならんだろ >>973
あーいえいえ、全然動きます。
個人のパソコンでやりますので >>975
私のあげたサンプルというのが、専用ソフトの一覧表示させたものをドラッグしてコピー、EXCELに貼り付けただけのものです。
修正するのはまたiphon端末の修正という画面で修正します。 元はDBがあるんだろう、そっちからSQLして、修正もSQLで流し込めれば楽だろうに >>980
もうここまで言えば別にいいんじゃね
俺もコード書いてるしそのうち回答するよ
値落ちしなければもうすぐ出来る >>980
スレチでしたか申し訳ない。
ただ関数では無理そうと分かっただけでも収穫です。
VBA勉強します。こんな夜更けにありがとうございます。 >>937
試してみます。ありがとうございました。 ごめん、失敗した
B列が空白
一行下に”朝”、仁行したに”昼”、産業下に”夕”
が入ってれば挿入・・・じゃだめじゃん
続きは明日
http://fast-uploader.com/file/7097418549596/ 専用ソフトの表示をコピーしたものをメモ帳に貼り付けてテキストファイルを上げることはできる？
正直Excel使うケースでも無い気がするので他の方法を試したい
もちろん大体の環境で動くようなやつ >>944
出来た
http://fast-uploader.com/file/7097449026453/
先に重複削除しきってから行の挿入してくれ
重複削除しないとどっちが足りないか分からんからな >>986
専用ソフトっ作った奴に実装を頼めば良い >>983
>> 理想は「○月○日昼なし、夕2重」みたいに、それを見てそのまま修正できる形です。
別シートにこれを出していくなら関数でいけそうだかども
ただ今日はExcel触れないごめん >>937
試しました。
ありがとうございます。
値だけ行列入れ替えなら
alt→HVSVEで行けました。
（乗算なら末尾I）
Undoが効くようにショートカット登録する方法があれば教えてください。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【4 VBAでの回答の可否】 可
（元データ）
,果物,,
,,りんご,
,,,王林
,,,つがる
,,すいか,
,,ミカン,
,野菜,,
,,はくさい,
,,だいこん,
↓
（作成後）
├─,果物,,
│,├─,りんご,
│,│,├─,王林
│,│,└─,つがる
│,├─,すいか,
│,└─,ミカン,
└─,野菜,,
,├─,はくさい,
,└─,だいこん,
上のような系統図をキャラクターで線引きをして出したいのですが
いい方法はないでしょうか >>940,944,989
マクロのコードだけ。Sheet1を調べてSheet2にエラーを出力します。
各日の朝昼夕の投薬回数が1回以外ならエラーとします。日付飛びもチェックしてます
https://pastebin.com/jViyuKGC >>992-993
ツリー表示 csv
辺りで検索たらフリーソフトでありそうな気もするんだが、見つからないな >>994
かたじけないです、ちょっとマクロ勉強してきます >>996
最終日の検査を放置するバグがあったので手直しします。少々お待ちを 頭の option VBASupport 1 は削ってください レス数が1000を超えています。これ以上書き込みはできません。
