X

Excel総合相談所 151

■ このスレッドは過去ログ倉庫に格納されています
2022/09/29(木) 07:56:08.51
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。

スレッド作成は>>980がやります

※前スレ
Excel総合相談所 148
Excel総合相談所 150
https://mevius.5ch.net/test/read.cgi/bsoft/1654860173/
2022/10/17(月) 11:58:09.65
>>150
情報が少ないながらも答えました（>>154、>>155）
別に間違ってたっていい、そもそもの質問がそれなんだから
2022/10/17(月) 12:14:03.19
>>146
Z1～Z3を、=A1は=A2に、=B1は=B2に、=C1は=C2にしたいのなら

Z1～Z3をコピー、AA2に貼り付け、AA2～AA4を切り取り、AA1に貼り付け、
AA1～AA3をコピー、Z1に貼り付け、AA1～AA3は消す
2022/10/17(月) 17:43:54.58
>>150
データが何列あるかなんて関係無くね？列数で対処が変わるか？？
2022/10/17(月) 20:26:49.07
"Day1"│"Day2"│"Day3"
"山田"│"木下"│"佐藤"
"白石"│"山田"│"木下"

こういったシートから、たとえば"山田"と"白石"のみを表示するにはどんな方法がありますか？

"Day1"│"Day2"│"Day3"
"山田"│"山田"│　　　
"白石"│　　　│　　　
160名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/17(月) 21:30:29.47
>>159
Excelのバージョンは？
2021,365以降だと新しい関数がかなり増えててやり方が変わるので
2022/10/17(月) 21:50:53.05
>>160
基本的には365を使ってますが、どちらでもかまいません
本来はpythonで作ってみようと思っていたのですが、Excelで操作しやすいものが簡単にできてしまうのかな、と
例に上げた通りきっちりできなくても、理屈というか、アルゴリズムというか、大枠がわかれば問題ないです
162名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/17(月) 22:34:12.17
>>161
条件すらまともに書けない馬鹿
2022/10/17(月) 22:50:36.32
条件バカ
2022/10/17(月) 22:57:16.72
>>159
=FILTER(A2:A10,(A2:A10="山田")+(A2:A10="白石"),"")
165名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/17(月) 23:57:11.82
表示だからな

msgbox "山田"+"白石"
2022/10/18(火) 13:09:28.01
>>160
よう！無能
2022/10/18(火) 13:45:17.63
よう！兄弟
2022/10/18(火) 20:24:33.59
filter関数てすげーのね
2022/10/18(火) 23:04:57.17
sortn関数がマジでヤバい
2022/10/18(火) 23:06:12.48
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 office365
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

条件付き書式で数式で判定する時、他のシートのセルを含む数式を使えないのでしょうか？
171名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/19(水) 00:45:13.13
>>170
やったらできたよ
Sheet1で　=Sheet2!$A$1=1　こんな式
2022/10/19(水) 07:17:21.26
朝が寒くなりつらい
2022/10/19(水) 09:19:51.42
条件付き書式、別シート参照できるようになっていたのか
昔できなかったよね？
2022/10/19(水) 11:14:27.23
納品書なんですがbookにシートで31日分並べてます！同じ箇所に番号を順に入れたいんすがどうやるんでしょうかm(_ _)m
また、次の月にも反映させたいです^^;

さらに、、得意先10件全てで同じ番号のものが無いようできないでしょうかね┏○))
2022/10/19(水) 11:27:58.66
それはさすがに・・　設計間違ってる(個人の自由だけど)
ぜんぶの日付で納品書必要でも無いだろうし、明細どれくらいあるか判らんけど、スッカスカなシートの羅列に成り果てるのでは？
ひとつのBookに一社？全得意先分のBook？　も取り扱い面倒だろうし
https://www.timsoft.co.jp/stadium/denpyou/　こことかじっくり読んで参考にしたら？
https://tonari-it.com/excel-vba-invoice/　コッチは請求書限定だけど、改変したら納品書も可能だし
2022/10/19(水) 11:37:27.59
>>174
どういう風に運用してるかはわからないけど、
1日目は「101」、2日目が「102」にしたいなら、
一日目のシートのA1に「101」
と入れておき、
二日目のシートのA1に「シート1!+1」
でいい

そもそもの形をDBっぽくしてひっぱる形にするのがベストだけど、
まぁ無理だろう
2022/10/19(水) 11:37:41.96
二日目のシートのA1に「シート1!A1+1」
だった
2022/10/19(水) 11:43:53.84
bookにシートで31日分並べてます！　だから、それだと納品書発行しない日の対応で困るし
ぜんぶのシートの番号を個別に設定しなきゃならない　前の納品書見て手打ちした方がよっぽど早い
2022/10/19(水) 11:54:13.02
じゃあ金額が￥0なら番号を-1にするとか
+シート1!A1+1+if(b1=0,-1,0)

※b1は合計金額

何度も言うけど、そもそもの設計が酷いから表の形にしないとすごい大変だよ
2022/10/19(水) 12:17:52.90
ｗ　その if(b1 だって自シート参照じゃん　その前にシート1!も必要だし、納品書作成しない日が続いたら
前のシートの番号がそのままずっと表示を続けてくことに成る
そうやってゾロゾロ条件増えたのを31シート分×得意先分に設定してる間に手打ち入力してる方が
よっぽどマシだし、どっか途中の一ヶ所間違えてたらその間違い探しでムダな作業を強いられる
181174
垢版 |
2022/10/19(水) 13:23:36.99
回答ありがとうございましたm(＿)m
DB抽出化を覚えてまた来ますm((＿))m
2022/10/19(水) 17:49:29.42
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

SelectionChangeのイベントを、どのBookのどのシートにも適用させたいですが
どこに書けばよいのでしょうか。
183名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/19(水) 21:03:36.19
お願いいたします。

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

ある列に　12345スズキ　イチロウ　のように、
会員番号と名前がくっついて入力されています。会員番号の文字数（数値の桁数）は様々です。
VBAで、これの列の一番上から、ひとつずつ走査して、会員番号部分を除いた名前のみを右の列に
並べていきたいです。
桁数がバラバラなのでLeftやRightを使った抽出は難しいです。
10回置換して、半角数字10個を無くしてしまう、という方法はいかにも素人くさい気がするのですか、
一般的にはどうするんでしょうか？
2022/10/19(水) 21:11:43.64
>>183
VBAなら文字の置き換えReplaceをFor文で10回ループ
2022/10/19(水) 21:16:29.28
楽したいならval 関数で数字を抽出してその桁数分を元々の文字列から除く
Val関数自体は色々罠もあるので良く特性を理解して使うべし
2022/10/19(水) 21:50:26.72
>>182
ワークブックのイベント
187名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/19(水) 22:17:20.59
>>183
左から1文字ずつ取り出して数字か文字かを判定して、文字判定ならその繰り返した文字数だけ抜き取るとか
2022/10/19(水) 22:44:07.54
みなさまありがとうございました。
大人しくreplaceを10回やることにします。
2022/10/19(水) 23:14:03.27
excel 数字のみ抽出削除　でググるとSEQUENCEでやっているのがあるね
2022/10/19(水) 23:55:34.22
>>183
SUBSTITUTE 関数を10個ネスト
2022/10/20(木) 00:13:27.44
>>183
=TEXTSPLIT( REDUCE(A1,SEQUENCE(10),LAMBDA(a,b,SUBSTITUTE(a,b,""))),{" ","　"})
2022/10/20(木) 00:17:56.50
>>191 x
>>183
=TEXTSPLIT( REDUCE(A1,SEQUENCE(10,,0),LAMBDA(a,b,SUBSTITUTE(a,b,""))),{" ","　"})
193名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/20(木) 00:41:29.80
>>183
Excel2010でもＯＫ
=MID(A1,MAX(INDEX(IFERROR(FIND({0,1,2,3,4,5,6,7,8,9},A1)+1,0),)),LEN(A1))
2022/10/20(木) 00:57:54.22
フラッシュフィルではできない？
195名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/20(木) 08:03:41.20
>>183
どういうやり方がいいんだろうね
数値判定にiserror使ってるけど、もうちょいうまい方法ある気がする
数値だったら空白にする、ってなんかないかな

投稿できないので外部に数式
https://jsfiddle.net/sx7rwzno/
2022/10/20(木) 08:33:31.82
>>186
それって、これを設定してるブックを開いておけば他のブックでも実行されます？
やってみればいいところすみません、、、
2022/10/20(木) 08:41:03.03
>>183
正規表現で一発じゃね？
198名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/20(木) 12:19:40.94
>>196
できないね
オブジェクト指向ででクラスモジュールを使った方法ならできるけど俺には解説無理
199名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/20(木) 13:56:43.99
条件付書式で、日付を入力するセルに今日より過去を赤色塗りしたいので、セルの強調表示ルール→その他のルールで［セルの値］［次の値以下］［=today()］を設定したんですが、何も入力しななくも赤くなってしまいます。何も入力してないセルはルールを無視出来ませんでしょうか
2022/10/20(木) 16:34:09.82
未入力時はNullなのでそう判断されます
条件付き書式ボタンでドロップダウンされたメニューから「ルールの管理」を選択し
「ルールの編集」をクリック、次のダイアログで「数式を使用して、書式設定するセルを決定」をクリック
ルールの内容に　=AND(C5<>"",C5<TODAY())　のように入れてください　ここのC5は例です　必要なセル番地にしてください
ひとつ書式設定したら、そのセルをフィルで欲しい範囲全部に連続コピーしてもいいです
すでに日付が入力されていた場合は右ドラッグフィルで「書式のみコピー」にしてください　実施する場合は自己責任で
2022/10/20(木) 21:30:09.39
>>196
どのブックもか！
WithEventsでがんばろう
2022/10/20(木) 21:33:57.25
>>199
簡単です
以下のように指定してください
https://i.imgur.com/x0tIgiM.png

>>200
もいいけど、めんどくせーです
2022/10/20(木) 23:03:24.58
[次の値の間]
[1] [=today()]
2022/10/21(金) 10:16:54.10
>>201
そのキーワードを手掛かりに調べてみます、ありがとうございます。
他回答いただいた方もありがとうございます。
2022/10/21(金) 12:45:12.17
>>195
数字だったら空白にするって
=TEXT({"1","a"},";@")
2022/10/21(金) 20:50:31.24
どのブックもってマルウェアぽくなって使う方は怖いわ
207名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/22(土) 08:48:54.94
条件付き書式って、他のセルを参照評価
することってできないんだね
208名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/22(土) 08:55:03.37
できるでしょ
2022/10/22(土) 09:07:07.43
できる
2022/10/22(土) 09:33:21.01
カス

【愛知】「エクセル任せで点検不十分」　マイナス収支で「△三角」と誤入力　東浦町 [ぐれ★]
https://asahi.5ch.net/test/read.cgi/newsplus/1666340788/
211名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/22(土) 10:07:20.67
＞原因は、児童課と商工振興課が、一覧表の元となるエクセル表に
＞「-（マイナス）」ではなく、「△（さんかく）」と入力したこと。
＞両課の計7事業の数値が合計にカウントされなかった。マイナス額は
＞1687万円も少なかったが、財政課はエクセル任せで、十分な点検をしなかった。

直接入力したの…！？
普通はセルの表示形式を変えるでしょ…
212名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/22(土) 10:15:44.25
バカ事務員はどんなことでもやらかすからな
シート準備する側の想像を越えてくる
2022/10/22(土) 10:24:45.46
じぶんは高学歴で優秀だからじぶんのやることに間違いは無い　そう思い込んでるからタチが悪い
そして、そういった手合いはそこら中至る所に居る
2022/10/22(土) 11:45:57.17
>>183
一番簡単なのはこれじゃね？
selectionの中は適当に変えて
Replace(Selection,Val(Selection),"")
2022/10/22(土) 12:03:51.04
>>211
違う
普通は入力規則で数値以外を弾く
2022/10/22(土) 12:24:49.31
>>215
別セルからコピペして入力規則を消すって方法を取られたことがあったわ
2022/10/22(土) 13:20:47.06
https://excel-ubara.com/excelvba1/EXCELVBA426.html
https://excel-ubara.com/excelvba5/EXCELVBA244.html
https://excel-ubara.com/excelvba4/EXCEL_VBA_447.html
すごいですねw　どう入力されようと入力規則に従え！っていう強い意志が感じられます
ここまでしなきゃいけない職場環境って、逆にどうなんでしょ　やりたい放題なヤカラが居る限りは必要ですかね
2022/10/22(土) 13:44:36.45
バカでも使えるように作ったり、わかるように説明できて初めて優秀と言えるんよ
優秀な指導者や経営者はみんなそれができてる
部下は全員バカだと把握できてない時点で大したことない
2022/10/22(土) 15:40:06.17
Excelの計算結果は信用していいけど、入力値は信用しちゃいけない
2022/10/22(土) 15:55:42.90
>>219
は？
2022/10/22(土) 16:28:57.83
>>220
使用者や重要度などを想定して製作しないのか？
2022/10/22(土) 16:33:21.49
>>221
入力値が信用できないなら計算結果なんて信用できるわけないだろ？こんなこともわからないの？
2022/10/22(土) 16:43:06.22
>>222
入力間違いしないとは優秀なんだな
2022/10/22(土) 19:06:05.55
>>223
バリデイトがカスだからexceの出力は信用できないって
そんなことも理解できないの
2022/10/22(土) 19:39:52.17
システムも含めて完璧な動作を保証できるものってある？
多少許容して機転や応用をきかせて対処するのではないかな
2022/10/22(土) 20:10:06.98
>>225
あるわけ無い
PCはそもそも何回も検算して
100回のうち99回同じ結果になったからこれ信用して結果出すかｗ
ってクソみたいなシステム
2022/10/22(土) 20:13:59.40
>>226
ウソコケ
2022/10/22(土) 20:17:03.71
>>227
無能の自己紹介はいいから
2022/10/22(土) 20:23:16.78
高学歴は全てにおいて完璧だと思っていたわ
基本的な事ができてないんて
2022/10/22(土) 20:32:27.98
>>229
高学歴は答えの決まった試験で点数を取る能力が高いだけ
これって社会ではあんまり役に立たない
仕事ってのは答えのない問題を自分で解決すること
231名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/22(土) 20:36:28.82
馬鹿ってExcelの計算間違えてました、ﾃﾍｯ
とマイクロソフトが修正した件を知らんのか
CPUの演算ユニットにバグがあった件とか
2022/10/22(土) 20:36:56.88
>>230
ほとんどの仕事は決まった仕事を遂行するだけだよ
それすらできないのが低学歴
2022/10/22(土) 21:00:02.60
>>232
普通、やることが決まり切ったような仕事はバイトにやらせるもんだ
社員の仕事ってのは少なからず前例のない意思決定が必要になるんだよ
2022/10/22(土) 21:36:53.94
本当の高学歴って大学院卒と聞きましたが、先輩方はどう捉えてますか？
2022/10/22(土) 23:10:54.33
>>231
知っててそれと入力ミスとを関連付けるの？
それこそ馬鹿じゃない？
2022/10/22(土) 23:14:15.87
>>235
>>225
237名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/23(日) 00:09:24.23
>>235
219に対するコメント
2022/10/23(日) 10:49:48.28
>>216
この場合の対処あるの？
誰か教えてくれ
2022/10/23(日) 11:13:54.83
>>238　　>>217
2022/10/23(日) 11:18:35.42
クエリーに読込ませて整数に型変更して、
数値でなくてエラーになった行を吐き出させようかしら？
2022/10/23(日) 12:05:41.04
>>239
これ右クリックコピペしか効かなくてキーボードショートカットコピペはダメっぽい？
2022/10/23(日) 13:07:41.41
>>241
それはw　入力規則の[エラーメッセージ]でスタイルを停止(バッテン)　
タイトルを「アホボケカス」とか指定し　メッセージに「そういうことしたら責任持たないからね
後でトラブったら本人が責任とってね　被害が出たら賠償してね」とでも設定しておけば　VBA不要
2022/10/23(日) 13:15:20.49
出てくるメッセージには[再試行]と[キャンセル]と[ヘルプ]しか無いから入力不可
2022/10/23(日) 13:56:43.85
スマン クセで数式バーに Ctrl + V で貼り付けてたから気付かなかった
セルにダイレクトに Ctrl + V で貼り付けたらメッセージも出なかった
その場合は、入力時メッセージにマイクロソフトの使用許諾並みの細かい条項記載して注意喚起　←言い訳
2022/10/23(日) 17:12:46.66
>>238
changeイベントなどで、毎回入力規則が変わってるかどうかを取得して確認するとか
2022/10/23(日) 18:15:59.81
度々スマン　>>217 のでおｋだった
右クリックコピペもキーボードショートカットのコピペも両方弾く
貼り付けた途端にMsgbox出る　短い一言だけなのを欲しい文章にすりゃいい
247174
垢版 |
2022/10/23(日) 19:03:37.20
すみません、こんなの見つけたのですが、
https://i.imgur.com/mXpSRnj.jpg
定義の文字列の中に32ってあるんですがどんな意味でしょうね？
質問した納品書への番号振りに際し問題ないのかなと、、
2022/10/23(日) 19:28:37.87
マイクロソフト365でexcel使いたいのですが、今までのexcelだと印刷プレビューして戻ると印刷範囲が点線で表示されると思うのですが、365だとその機能はないのでしょうか？他に代替手段はありませんか？
249名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/23(日) 20:05:59.32
>>248
印刷範囲の設定をしても表示されないんですか？
2022/10/23(日) 20:19:18.27
>>247
知恵遅れの内容は扱わないよ
2022/10/23(日) 20:24:02.56
>>247
GET.CELL という関数、Excel4時代の関数みたいで「32」はアクティブシートの名前を返すみたいです。

今後を考えると別の手段でシート名を取得した方がいいですね。
2022/10/23(日) 20:52:36.03
>>249
今までのは自動的に点線で示してくれていたけど、365は能動的に、ここを印刷範囲とする！って設定する必要があるということですか？
253名無しさん＠そうだ選挙にいこう
垢版 |
2022/10/24(月) 04:03:07.02
あら。
自分は必ず印刷範囲を設定してから印刷してたので、範囲の点線が必ず出ていました。365ではありませんが…
2022/10/24(月) 16:40:01.94
>>240
入力規則やVBAでいろいろ仕込んで防ぐより、
クエリーで弾いてその都度指導した方が簡単で確実っぽい。
https://i.imgur.com/KuZSOjg.png
255174
垢版 |
2022/10/25(火) 08:26:05.48
>>251
シート名を取得、勉強になりました！！
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況