Excel総合相談所 144

2021/04/29(木) 12:13:05.69

!extend::vvvvvv::
!extend::vvvvvv::
【1 OSの種類　　　　 .】 Windows**
【2 Excelのバージョン　】 Excel**
【3 VBAが使えるか　　 .】はい･いいえ
【4 VBAでの回答の可否】可･否
【5 クエリが使えるか】はい・いいえ
【6 クエリでの回答】可・否
【7 Accessが使えるか】はい・いいえ
【8 Accessでの回答】可・否
【9 VBAの方が簡単で早くできる場合はVBAで回答】可・否

注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。
・絶対に関数で答えてほしい人はVBA使用不可と明記してください。

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

前スレ
Excel総合相談所
https://find.5ch.net/search?q=excel+%E7%9B%B8%E8%AB%87%E6%89%80
Excel総合相談所 142
https://mevius.5ch.net/test/read.cgi/bsoft/1607860077/
Excel総合相談所 143
https://mevius.5ch.net/test/read.cgi/bsoft/1608362765/

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

【質問不可】Excel総合相談所スレの雑談・議論スレ
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80

VIPQ2_EXTDAT: default:vvvvvv:1000:512:: EXT was configured

2023/01/10(火) 00:42:43.91

>>183
書式では無理
どんな式でも書式でも、丸めて0だと負号は必ず消えるから、自分で付け足すしかない
=IF(A1<0,"-","")&TEXT(ABS(A1),"0.0")

2023/01/10(火) 12:33:48.14

>>183
=TEXT(A1,"0.0;-0.0")
でどうだろうか。

**183** (ﾜｯﾁｮｲ 6e73-DWwd [113.158.56.108]) · 2023/01/11(水) 21:25:28.75

>>185
完璧です！ありがとうございました。

2023/01/17(火) 21:18:24.66

【1 OSの種類　　　　 .】 Windows11
【2 Excelのバージョン　】 Excel2016と2019
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 クエリが使えるか】いいえ
【6 クエリでの回答】否
【7 Accessが使えるか】はい・いいえ
【8 Accessでの回答】否
【9 VBAの方が簡単で早くできる場合はVBAで回答】否

工事写真を作成のため無料テンプレート使っています。
A4に3枚～8枚ほどの写真及び説明を書き込むのですが、マクロを全部削除した上で保存したいのですができません。
保存の際マクロなしなら「はい」をと出て「はい」を選択しますが、開いてみると画像周辺をクリックするとコード類が表示され残っている感じです。
数枚ならテンプレートを使わずに出来ますが、数十枚を並べたり削除したりしたいのでテンプレートを使用せざるを得ません。

お力添えお願いします。

2023/01/17(火) 21:42:42.09

>>187
シート全体を別の新規ブックにコピペして保存

2023/01/17(火) 22:43:06.23

>>188
試しましたがダメでした。
元々のExcelデータで右クリックすると写真を取り込む／削除／並び替え／などメニューが表示されるのでCtrl＋Cでコピー、新しいシートにペーストしても元々のデータのように色々くっついていってしまいます。。

2023/01/18(水) 09:02:10.45

>>189
.xlsxで保存したら？

2023/01/18(水) 11:44:39.48

>>189
VBEの画面はパスワード保護してあるだろうから別の手を。
LibreOfficeのCalcを「VBAを読み込まない/保存しない」設定(※)にしてからCalcで開いてxlsxで保存するのはいかが？
コピーでためしてみてください。
※オプション-読み込みと保存-VBA属性-Basicコードを読み込む/実行する/保存するのチェックを外す。

2023/01/18(水) 22:58:02.58

>>191
試してみました！
CalcDLし、Excel97-2003で保存したらできました。ありがとうございます。

2023/01/22(日) 08:20:34.59

余所でやってください。

2023/02/03(金) 15:44:37.68

歳をとっても新しいことに挑戦してください

2023/02/10(金) 08:41:12.21

excelに貼った画像が欠けて見えなくなることがよくあるですが、これは液晶の問題でしょうか？
マウスで画像をなぞると触っている部分が見えてくるんですがexcelのバグなのかな？
ちなみに2016です

2023/02/10(金) 11:54:21.50

>>195
表示デバイスではなく、PCのグラフィック部分の問題かと。
あるいは、当該画像が複数のセルにまたがっていたりしませんか？

2023/02/10(金) 12:44:18.23

>>195
その症状は割と色んなところで見かける
ディスプレイアダプターのドライバのバグだけど、なかなか修正されない
手っ取り早いのはOSごと再起動してディスプレイアダプターをリセットすること

2023/02/12(日) 07:13:10.81

>>197
もし本当にディスプレイドライバが原因なら、
Windows + Ctrl + Shift + Bのリセットで直りそう

2023/02/12(日) 19:32:18.99

~~-y(ёεё川ﾌｰ

2023/02/12(日) 19:32:23.98

~~-y(ёεё川ﾌｰ

2023/03/06(月) 22:59:10.03

>>198
Excel関係ないけど画面バグってそのまま死ぬこと多かったから助かる。

2023/03/08(水) 14:35:55.75

Excel初心者ですがどなたか計算式をご伝授ください
(※すべて1円の単位で四捨五入し10円の単位以上を表記する)

A1 定価
B1 39掛け
D1 定価×1割増し
E1 定価×1割増し×39掛け

【例】
A1 8250円(定価)
B1 3220円
D1 9080円
E1 3540円

OSはWindows7です

2023/03/08(水) 15:05:34.09

ROUND((A1*0.39/10))*10
ROUND((A1*1.1/10))*10
ROUND((A1*1.1*0.39/10))*10

2023/03/08(水) 17:35:31.79

>>202
ROUND(A1*0.39,-1)
ROUND(A1*1.1,-1)
ROUND(A1*1.1*0.39,-1)

2023/03/08(水) 17:48:20.01

そんなんできるんや。知らんかった

2023/03/08(水) 19:09:29.53

-1で小数点以下第何位の逆になるのかへえ～

2023/03/09(木) 05:44:55.43

同じEXCEL2021Professionalですが添付画像の①と②のデザインが違うのですが②の画像と同じにするにはどの様な設定にしたら良いですか？

【1 Windows11】
【2 2021 Professional】
【3 いいえ】
【4 否】
【5 いいえ】
【6 否】
【7 いいえ】
【8 否】
【9 否】

https://i.imgur.com/6nG25Hp.jpg
https://i.imgur.com/k0OWwwn.jpg

2023/03/09(木) 22:49:18.68

リボンの数の差じゃないんかえ？

2023/03/10(金) 08:39:23.55

>>208
今朝EXCELを使っていたら

新しいデザインが
使用出来るようになりました。

と表示が出で問題は解決しました。
ありがとうございます。

2023/05/13(土) 14:19:25.95

てすと

2023/05/16(火) 21:06:30.98

データ入力規則のプルダウンリストを設定してセルに値を入力した後、リストの元の値を変更した場合にセル入力値を最新のリストに一括反映することはできないでしょうか。
元の値"a,b,c"→プルダウンで"a"を選択→元の値を"d,b,c"に変更→セルを再選択せずに"d"に更新させたいです。

2023/06/03(土) 18:39:21.76

暑いなおまいら

2023/06/20(火) 17:27:37.56

office365
xlsファイルでチェックボックスの上にマウスカーソルを持っていくとマウスカーソルが消える
まるでチェックボックスの下にマウスカーソルがあるみたいな
対象方法を教えて下さい

2023/06/20(火) 17:35:37.01

>213ですが
xlsファイルをxlsxで保存しても同じです

2023/07/22(土) 06:38:59.45

スターソルジャーみたいじゃん
VBAで自力で描画してみるのは?

2023/07/22(土) 16:55:59.37

そのチェックボックスが普通のOfficeのフォームコントロールなのかActiveXなのか

2023/07/22(土) 22:34:29.32

ActiveXは使うなとどこかのトレーナーが言ってた記憶ある

2023/08/25(金) 01:27:43.88

1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2021
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 クエリが使えるか】いいえ
【6 クエリでの回答】否
【7 Accessが使えるか】いいえ
【8 Accessでの回答】否
【9 VBAの方が簡単で早くできる場合はVBAで回答】否

りんご
みかん
いちご
すいか
めろん
ぶどう
ばなな
れもん
すもも

と1列に並んでいるものを、

りんご　みかん　いちご
すいか　めろん　ぶどう
ばなな　れもん　すもも

という表にしたい(順番も)のですが、簡単にする方法はありませんか？
(実際には1000個くらいあり、とても手作業では出来ません)

2023/08/25(金) 02:48:54.37

ん・・・ttps://toushitsu-off8.com/excel-1retu-hukusuu/

2023/08/25(金) 03:56:56.46

>>218
2021なのでSEQUENCE使えると思うのでこんなのは。
A1から1000個データがあるとして
B1 =INDEX(A1:A1000, SEQUENCE(1001/3, ,1, 3) )
C1 =INDEX(A1:A1000, SEQUENCE(1001/3, ,2, 3) )
D1 =INDEX(A1:A1000, SEQUENCE(1001/3, ,3, 3) )
最後の方でデータがなくなるとエラーがでるけど、そのへんは値コピーしてデータだけにしてエラー値を消すなど手作業で。

Excel365なら =WRAPROWS(A1:A1000, 3) で終わる

2023/08/25(金) 04:32:43.72

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

2023/08/25(金) 04:48:39.90

別件で質問です
【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2021
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 クエリが使えるか】いいえ
【6 クエリでの回答】否
【7 Accessが使えるか】いいえ
【8 Accessでの回答】否
【9 VBAの方が簡単で早くできる場合はVBAで回答】否

メモ帳から複数のURLを貼り付け、

https://abc.com
https://def.com
https://ghi.com

となっていますが、この時点ではハイパーリンクにはなっていません
それぞれのセルをダブルクリックするとハイパーリンク化することが出来ますが、
一つずつダブルクリックするのが大変です
これらをまとめてハイパーリンク化することは出来ますか？

2023/08/25(金) 06:43:18.99

A列に貼り付けてB列に=HYPERLINK(A1,A1)

2023/08/25(金) 08:14:49.18

>>218
やり方はいっぱい考えられるけど
簡単にって考えると
人によって簡単の基準が違うから
タダのセル参照のフィルでもいけるし
テキストエディタの正規表現使った置換でもいけるし

2023/08/25(金) 20:33:13.38

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2019
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 クエリが使えるか】はい
【6 クエリでの回答】可
【7 Accessが使えるか】いいえ
【8 Accessでの回答】否
【9 VBAの方が簡単で早くできる場合はVBAで回答】否

別シートにあるテーブルに行を追加した時に自動的に別シートにある別のテーブルにも行を追加したいのですが
このような機能はありますか？

**218、222** (ﾜｯﾁｮｲW 4376-+YVU [118.21.139.12]) · 2023/08/26(土) 02:45:38.22

>>219
>>220
途中色々ありましたが、無事どちらのやり方でも出来ました
VBAも初めて使いましたが、とても勉強になりました

>>223
>>224
出来ました
ありがとうございました

2023/08/27(日) 20:02:57.01

>>225
追記
具体的には「データの取得と変換」でテーブルを別シートから参照してる時と同じ要領で、更新をリアルタイムでやってほしい感じです。

2023/08/28(月) 12:21:21.09

>>225
二つのテーブルの内容は一緒って事？

2023/08/28(月) 13:38:49.66

>>225,227

> 「データの取得と変換」でテーブルを別シートから参照してる時と同じ要領
ということは、テーブルをクエリー変換するように、
「全ての行・列について、ひとまず同じクローンを別シートに作りたい」
ということ？
そうだとすれば、その目的は？

> 更新をリアルタイムでやってほしい
って、ワークシート関数の計算速度レベルを期待している？

2023/08/28(月) 20:44:39.95

>>228
同じではない
シート1には元データに加えてシート1独自の列を設けて編集したいしシート2も同様
シート1とシート2はそれぞれ別の用途に使うので元データにすべての列を追加してしまうとすごく見にくくなるから分けたい

速度に関しては「=A1」のように入力して参照しているみたいに常に最新の状態でいるような感じを期待してる

ちなみに現状はシート1とシート2にテーブルを個別に作って多めに200行程度あらかじめ追加しておき元データをまるごと参照することで無理矢理対応してる
問題点としては
①多めに行を追加しておいたとしても今後元データがそれ以上の行数になる可能性が完全に排除できない
②最後の行と集計行の間に空行が生じるので手動で表示非表示を都度調整しなければならない
③

2023/08/28(月) 21:33:39.97

なんか偉そうだな

2023/08/28(月) 21:54:19.43

>>230
シート1の元テーブルの、
　行が変わるorデータが変わる
頻度は？
入力方法は？(どこからかExcelに引っ張らせるのか？手入力か？)

2023/08/28(月) 22:01:21.85

>>232
元データの行の追加と削除、データの更新は直接手入力の想定
頻度は具体的な数字にするの難しいけど結構頻繁
（パワークエリの自動更新の一分間隔だとちょっと作業しててストレスに感じる程度）

2023/08/29(火) 00:05:19.20

既にクエリー自動更新で試しているようだけど、
仮に、何らかの関数でシート2にリアルタイムで反映させるとしたら、
1文字入力するたびに計算が入って、さらに使いにくくくなる。
1時間値の年間8,760行とかで。

シート1の変更をトリガーにして、VBAのPrivate Subで、
クエリー更新するにしても同様。

元テーブルを素直にクエリーでシート2に転写し、
そのクエリーテーブルの右側に列を追加すれば、
ワークシート関数が構造参照で使えるから、
シート1テーブル変更の反映は、
バッチ処理方式のクエリー更新に止めておくのが吉かと。

2023/08/29(火) 00:30:40.51

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2016
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】否
【5 クエリが使えるか】いいえ
【6 クエリでの回答】否
【7 Accessが使えるか】いいえ
【8 Accessでの回答】否
【9 VBAの方が簡単で早くできる場合はVBAで回答】可

存在しないファイルを絶対パスで参照先にしたときに出る「値の更新」のファイル選択ウィンドウを出さないようにする方法はありますでしょうか?
ググってVBAで確認ウィンドウやエラーウィンドウを抑止するものは色々見つかりましたが、上記の確認ウィンドウを抑止するものが見つからず質問させていただきます。
よろしくお願いします。

**234** (ﾜｯﾁｮｲ 4376-1YZW [118.20.3.126]) · 2023/08/29(火) 01:09:06.68

> そのクエリーテーブルの右側に列を追加すれば、
> ワークシート関数が構造参照で使えるから、

これには要注意がうるため、追記。

元テーブルの行数増減に
シート2のクエリーテーブルも、更新かければ追従するけれど、
追加したワークシート関数の組み方によっては、
きちんと計算できない場合がある。
例：累計を単純に上セル番地指定で足している、等
（回避策としては、行番号列を追加して、index(match([行番号]-1)で前行セル値を足す、等）

できればクエリー内で
追加列の計算をステップで追加するのが吉。

2023/08/29(火) 03:35:51.08

>>230
Excel365 or 2021ならスピルで希望している事ができるかと。

2023/08/29(火) 03:57:23.59

>>237
それ考えたんだけど、
スピルでシート2に展開しようとして、
元テーブルの行が増えたとき、
F5再計算させなくても行、増えたっけ？

key列だけスピル展開で、index-matchで他の列参照するにも
テーブル内でスピルはエラーになって、
全列の行を自動伸縮するテーブル機能が使えなかったかと。

2023/08/29(火) 04:39:27.08

F5はジャンプ
再計算はF9だろ

2023/08/29(火) 05:20:48.96

>>238
オリジナルデータはテーブルで、テーブルからスピルでデータ参照する先はテーブルでない状態で。
key列でindexmatchしなくても =テーブル名でテーャuルの全データｂ烽ﾁてくるし＝A=テーブル名[覧ﾚ] で指定しｂｽ列データだけｂ烽ﾁてくる。

2023/08/30(水) 23:30:59.38

>>238

行数を可変で処理したい場合は、
例えば、最大処理可能な行数をあらかじめ5000行とか決めとく。
最初はその5000行をスピルで引っ張ってきくる。
そこから空白行を除いたものに縮め、行数を減らして処理するかな?
空白行は例えで、最終行が算出できればなんでも良いが。
計算を軽くするためにも可変にするのは意味あるかな。

2023/09/19(火) 14:09:24.44

エクセル2013

デスクトップに置いてあるエクセルのファイルクリックで開いてもグレーの画面になる。
ファイル→開くで開くと正常に開く

なんとかならんでしょうか？　DDEにチェックと入れてみたが変わらない

2023/09/19(火) 20:31:26.49

>>242
OSは何？
修復はやってみた？
https://faq.nec-lavie.jp/qasearch/1007/app/servlet/relatedqa?QID=014700

2023/09/20(水) 09:19:01.01

>>243
win10です。

修復でもだめ。再インストしてもだめ・・・

2023/09/20(水) 10:01:47.76

テンプレートファイルがぶっ壊れてるんだろ
一回消せよ

2023/09/20(水) 10:43:07.22

>>245
エクセルメニューのファイルから開くと、大丈夫なんだけど、
ファイル自体クリックして開くとどのエクセルファイルでもグレーになる。

2023/09/20(水) 14:02:19.06

>>246
ファイル→オプション→詳細設定
のところ
「Dynamic Data Exchange(DDE)を使用する他のアプリケーションを無視する」
にチェックが入っていれば外してOKクリック

大抵はこれで直ると思います
違ったらごめんなさいです

2023/09/20(水) 23:03:52.22

レジストリ壊れてるとか？
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel2013%E3%81%A7%E3%83%AA%E3%83%B3%E3%82%AF/58a8c30f-a13e-4314-9ca1-599d19f60961

2023/09/22(金) 15:06:33.98

>>247
ありがとうございます。直りました！

2023/10/09(月) 20:10:59.69

phonetic関数でふりがなが出てこなかったり修正必要なので
どうせ修正するなら関数じゃなくてwebで変換とか一覧表とかない?

2023/10/13(金) 20:15:10.95

何言ってるのかわからんけど、
phonetic関数がふりがなをどう表示するかは参照セルのふりがな設定に依存してる

2023/10/13(金) 20:18:33.04

アクセスキーはalt-h-g-tな

2023/10/17(火) 10:25:38.69

Webの事例からふりがな参照は
AIでも完璧にはムリだべ

同じ漢字でも親族の意向で
読みは変わるし
キラキネームみたいに当て字は多いし
一意的でない

2023/10/17(火) 13:51:30.95

>>253
主流のよみだけで良いのです
関数があまりにも使い勝手が悪いので

2023/10/17(火) 23:10:40.97

主流とする定義のリストを作ってそれから参照するしかないと思うんだけど

2023/10/18(水) 00:18:18.13

>>255
そのリストを0から作るのは大変だから
ネットに上がってないかな?

2023/10/18(水) 01:41:35.16

誰主観の主流なのかも問題になるし、
そんなのがあったらかなりの人が使ってるはず…
というかあったとしてもおそらくデータ量が膨大すぎて標準的な運用に耐えられないと思うんだけど

2023/10/18(水) 01:42:52.08

2行目訂正

そんな都合のいいのがあったらかなりの人が使ってるはず…

2023/10/18(水) 10:35:13.12

>>257
webで見つけたのは「あ」だけで何十ページもあって
全一覧表になってないから
1ページずつ収集するのに気が遠くなるので諦めました

2023/10/28(土) 20:31:40.46

【1 OSの種類　　　　 .】 Windows11
【2 Excelのバージョン　】 Excel2019
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 クエリが使えるか】いいえ
【6 クエリでの回答】否
【7 Accessが使えるか】いいえ
【8 Accessでの回答】否
【9 VBAの方が簡単で早くできる場合はVBAで回答】否

AA1に●、AB1に☆、AC1に□・・・といった記号をAE1まで入っています

A10からZ20までの各セルに、記号が一文字ずつ入っています
この記号は、AA1からAE1までの記号以外もあります

A10からZ20に入力されている、AA1からAE1までの記号の数を、縦列で数えたく
A21に、=SUM(COUNTIF(A10:A20,$AA$1),COUNTIF(A10:A20,$AB$1),COUNTIF(A10:A20,$AC$1),・・・
という関数を入れています

これで望む数は出せているのですが、もっと簡単にする方法はないでしょうか

よろしくお願いします

2023/10/29(日) 19:30:24.00

ピポットテーブルですぐできそう

2023/10/30(月) 19:53:12.35

すいません、excel2019の置換で質問ですが

0.1 → 0.03
に置換するとします
しかし、選択範囲内には0.167というのもあり
これを普通に置換すると
0.1 → 0.03
0.167 → 0.0367
となってしまいます

0.1だけを置換する方法ってありますかね？
実際は長い計算式の最後に0.1か0.167が入っています

2023/10/30(月) 20:09:24.51

>>262
0.167をハゲに痴漢
0.1を0.03に痴漢
ハゲを0.167に痴漢

2023/10/30(月) 20:11:05.91

書こうと思ったら書かれてた

2023/10/30(月) 20:42:55.29

>>262
置換ダイアログのオプションよく眺めて

2023/10/31(火) 10:38:34.43

>>263
げげっ！そんな方法が！
貴方は天才です！

エスケープシークエンスやワイルドカードでなんとか出来無いか、VBAで正規表現使うしか無いのかとか無駄な事をしてました＞＜

聞いて思い付きましたが、前処理で文字列置換では無く書式を設定する事でも同じ様な事が出来ますね
ありがとうございました

2023/10/31(火) 10:54:52.60

>>266
死ね
https://i.imgur.com/pOJB6Is.jpg

2023/10/31(火) 11:15:41.57

>>267
元質問をよく読め
数式の一部を置換だぞ

2023/10/31(火) 11:52:24.66

俺が死ぬわ

2023/10/31(火) 19:50:06.42

formulatextで文字列化した作業列作ってサクラエディタで正規表現置換して値貼り付けしちゃうなぁ

2023/11/01(水) 03:16:53.68

>>270
Shift+Ctrl+@

**名無しさん＠お腹いっぱい。** · 2023/11/02(木) 00:10:31.85

Excelって正規表現で置換とか出来ないんでしょうか

2023/11/02(木) 01:27:59.89

VBAを使えばできるよ

2023/11/02(木) 08:23:36.25

バージョン古くて使えない関数も組めば擬似的に使えるようにもできるしVBAは何でもできる

2023/11/02(木) 22:32:01.09

VBAで正規表現置換関数呼び出してセル内で関数として使ってるけどやっぱり重いよね
デフォルトの関数みたいに軽くならないかなぁ

2023/11/08(水) 19:13:05.50

win10
365
vba

vlsmファイルのショートカットからファイルを開いた時
マクロでどこにあるショートカットから呼ばれたか知る方法ある?