Excel総合相談所 156

1 ：名無しさん＠そうだ選挙にいこう：2024/02/28(水) 14:46:32.64 .net

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

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

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

※前スレ
Excel総合相談所 155
http://mevius.2ch.net/test/read.cgi/bsoft/1692436189/

252 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 10:52:29.72 .net

>>248
=IF(ISODD(SEQUENCE(任意回数)),A1,D1)

253 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 12:16:13.92 .net

>>248
=TOCOL(IF(SEQUENCE(任意回数),HSTACK(A1,D1)))

254 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 12:25:26.93 .net

>245-246
ありがとうございます。いずれの数式も希望通りの結果が得られました。
シンプルなものから中身を確認していき、今後に活用していきます。

あえて複雑なように、連続してない独立した複数セルの繰り返しのパターンで質問させてもらいましたが、
単純な1列の同じ配列を任意の回数繰り返すパターンも、数式で表そうとすると難しくなるでしょうか・・・？
いただいた回答をもとに、B1:B4の範囲に繰り返したい文字列があったとして、
下記の数式で期待どおりの結果は得られたんですが、もしもっとスマートな式があればアドバイスをお願いします。
=CHOOSE(MOD(SEQUENCE(繰返回数)+3,4)+1,B1,B2,B3,B4)

255 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 14:24:39.57 .net

MSのCopilotにDax関数の質問をしたら、間違いを数回やってそのたびに謝られた。
3回目かでバッチリ成功したよと伝えたら、喜んでた。
なんかどこかのスレより人間ぽいなと。

別な質問でやっぱり誤答してきて、別に調べたら、どうやらPower BI版でしかできなさそう。
そのことを指摘すると、以後は壊れたレコードのように同じ内容の繰り返し。
これまたどこぞの国会答弁みたいで妙に感心してしまった。

256 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 19:28:43.35 .net

最近コパイロットがおかしくなってるよな

257 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 20:48:22.80 .net

>>253
正解
可読性と汎用性を両立するこの式の考え方が重要
>>252は繰り返し回数に2を掛ける必要があるのと汎用性が低いので△
>>248は可読性と実用性×、式の長さ的にも繰り返し回数1000くらいでエラー出るので×

>>254
>>253のHSTACK(範囲)をTRANSPOSE(範囲)に変えるだけ

258 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 21:25:48.72 .net

>>257
個人的には範囲の部分はTOROWが好きかな
2列になっても対応できる

259 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 21:33:00.94 .net

このスレは質問を装ってレベルの低い奴が試験を出すのか

260 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 23:16:05.36 .net

なるほどー
=TOCOL(IF(SEQUENCE(任意回数),TOROW((A1,D1),TRUE)))

261 ：名無しさん＠そうだ選挙にいこう：2024/04/23(火) 23:54:25.83 .net

>257-258
ありがとうございます！
シンプルな数式がわかってスッキリです。
確かにTOROWの方がより汎用性は高そうですね。検索方向も引数で指定できるので柔軟な対応もできそうです。

262 ：名無しさん＠そうだ選挙にいこう：2024/04/24(水) 17:53:14.04 .net

見積書の品名項 、例えばＡの1から50までの各セル（左右2セル結合）内の文字列を
新たなシート見積書のＢの1から50に一括コピペするにはどうすればいいですか?

わからなくて1セルづつコピペして疲れましたｗ

教えてください

263 ：名無しさん＠そうだ選挙にいこう：2024/04/24(水) 17:55:53.29 .net

>>262
まず知能検査してもらえ

264 ：名無しさん＠そうだ選挙にいこう：2024/04/24(水) 19:09:51.71 .net

>>262
マウスでドラッグして緑色の枠で選択してコピペ
…という部分が問題なら、あまりにも基本中の基本すぎて解説が見つからない
その段階なら、文章での説明を読むよりも、近くの誰かに教えてもらった方が速いかもしれない

数が多くて画面に収まらないときは、端と端をshiftで選択するか、ctrl+shift+↓でまとめて選択
https://www.yrl.com/column/wazaari_pc/excel_select_cells.html

セル結合が一緒にコピペされるのが邪魔なときは、形式を選択して貼り付け
https://www.pc-koubou.jp/magazine/42412

最近ようやくctrl+shift+Vで値だけ貼り付けられるようになった
https://forest.watch.impress.co.jp/docs/news/1527708.html

265 ：名無しさん＠そうだ選挙にいこう：2024/04/24(水) 19:16:38.69 .net

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

他ブックのシートのA1～H20のセルを転記するマクロが欲しいのですが、
その転記元ブックの場所は常に同じ場所にあるわけじゃないから、マクロを実行した時にコモンダイヤログっていうの？
名前をつけて保存するときに出てくるような小さな窓を出現させてファイルを指定したい
転記が終われば転記元ファイルは閉じて開かれてるExcelブックは転記マクロが入ったものだけ
動作的には転記元ファイル指定したら勝手に転記されてるように見えるのが理想です

アドバイスお願いします

266 ：名無しさん＠そうだ選挙にいこう：2024/04/24(水) 19:16:48.12 .net

ありがとうございます
普通にそれが出来なくて？？でした。
人の作った見積もりだったのでうまくいかなかったのかもしれません（恥）
もう一度やってみます

267 ：名無しさん＠そうだ選挙にいこう：2024/04/24(水) 21:27:54.81 .net

>>262
新シートのB1=(SHEET1,A1:A50)

268 ：名無しさん＠そうだ選挙にいこう：2024/04/24(水) 21:36:52.02 .net

Sub CopyDataFromExcelFile()
Dim filePath As String
Dim wb As Workbook
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim sourceRange As Range
Dim targetRange As Range
' ファイルを選択
filePath = Application.GetOpenFilename("Excel Files (*.xls; *.xlsx), *.xls; *.xlsx")
If filePath = "False" Then
MsgBox "ファイルが選択されていません。"
Exit Sub
End If
' ワークブックを開く
Set wb = Workbooks.Open(filePath)
' ソースシートとターゲットシートを指定
Set wsSource = wb.Sheets("Sheet1")
Set wsTarget = ThisWorkbook.Sheets("Sheet1")
' コピー元の範囲を指定
Set sourceRange = wsSource.Range("A1:H20")
' コピー先の範囲を指定
Set targetRange = wsTarget.Range("A1:H20")
' データをコピー
sourceRange.Copy Destination:=targetRange
' ワークブックを閉じる
wb.Close SaveChanges:=False
End Sub

269 ： 警備員[Lv.1][新][苗][芽]：2024/04/24(水) 22:23:27.74 .net

test

270 ：名無しさん＠そうだ選挙にいこう：2024/04/25(木) 01:28:12.01 .net

マクロのネタとかスレ違いだろ。マクロ板でやれや

271 ：名無しさん＠そうだ選挙にいこう：2024/04/25(木) 12:54:57.43 .net

しつもんか回答以外スッ込んでろ
>>265
xSHEET=(ySHEET,A1:H1)

272 ：名無しさん＠そうだ選挙にいこう：2024/04/25(木) 21:11:59.36 .net

氏ね

273 ：名無しさん＠そうだ選挙にいこう：2024/04/25(木) 21:20:26.69 .net

>>271
ほんまそれ

274 ：名無しさん＠そうだ選挙にいこう：2024/04/26(金) 21:13:14.81 .net

>>268>>271
ありがとう
やりたいことできました

275 ：名無しさん＠そうだ選挙にいこう：2024/04/27(土) 14:57:45.66 .net

えっ

276 ：名無しさん＠そうだ選挙にいこう：2024/04/28(日) 00:40:41.80 .net

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

Indexとmatch関数を組み合わせて入力値された値を元に値を見つけて返すようにしているのですが、特定の入力値のみ『＃N/A』が出てしまいます
参照先のデータに空白はなく、文字はもじとして、数字は数字として書式設定されていました 校閲タブのエラーチェックも引っかかりなく、入力値がおかしいのかとコピペして直しましたがそれでもNA表示のままです

また同じくindex matchで画像も表示するようにしているのですが、特定の入力値(上と同じ)のときは表示を更新してくれません。 そうなると入力値に使用できない文字が含まれているとかそういうことが原因なのでしょうか

277 ：名無しさん＠そうだ選挙にいこう：2024/04/28(日) 00:50:28.88 .net

申し訳ないです自決しました

278 ：名無しさん＠そうだ選挙にいこう：2024/04/28(日) 01:04:49.06 .net

早まらないで

279 ：名無しさん＠そうだ選挙にいこう：2024/04/28(日) 11:07:19.57 .net

>>278
ワラタw

280 ：名無しさん＠そうだ選挙にいこう：2024/04/28(日) 20:55:36.42 .net

>>276勉強のため 何が原因だったか教えて

281 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 00:12:53.67 .net

>>278
真矢ミキで再生される

282 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 08:10:31.75 .net

>>280
特定のセル値のみだったので色々調べてたら『~』(半角チルダ)が含まれているのが原因でした 初歩の初歩で申し訳ないです

283 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 14:35:11.81 .net

>>282
漢字変換の設定で漢字のエリアを選べるから
一番狭いやつにしておくのが良い
うちの職場ではそうしてる

284 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 17:32:12.92 .net

>>282
チルダの役割、知らなかった。ありがとうございました

285 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 18:26:38.31 .net

マクロの記録で作ったマクロに追加したい操作あるんですが、たしかコードの画面が出たはずです。これを触らず解決してみましょう

286 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 18:35:11.24 .net

変な質問なんですが、いらすとや以前の2000年代に町内会や学校や病院などのお知らせに使われていた
日本製のダサいクリップアートって今どうしたら入手できるんでしょうか？
何気なく見ていたあのダサいお知らせが懐かしくて再現してみたいんです
それで古いノートPCをにOffice2000を入れてもいかにもアメリカ的な日本では使い勝手が悪いクリップアートしか入っていません
いらすとやが出てくるまで定番だったサイトやCDROMの素材集があったんだと思いますが古すぎてググっても見つかりません
その頃によく使っていたサイトの名前とかCDROM素材集のメーカー名とか覚えていたらお願いします

287 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 19:00:25.39 .net

データではなく紙の本として出版されたイラスト素材集が元ネタで、それをスキャンしたりノリで貼って再コピーしてた場合が多いんじゃないか
蔵書が20年ぐらい更新されていなさそうな図書館に行けば見つかりそう
2000年代前半だとワープロ専用機もまだそれなりに現役で、ワープロ専用機の内蔵素材も使われていた

今だと、このあたりが近い雰囲気かな？
https://www.seishinsha.co.jp/sozai/

288 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 19:42:00.56 .net

>>286
お前はここは何のスレだと思ってるの？馬鹿なのか？

289 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 19:59:35.58 .net

>>286
霞むだろスッ込んでろ

290 ：名無しさん＠そうだ選挙にいこう：2024/04/29(月) 21:25:56.34 .net

[挿入]-[画像]-[オンライン画像]でBingでの検索に成るが　□Creative Commons のみ　のチェックを
外してどんどん下の方を手繰ってくと、それっぽいのが出て来る(こともある)

291 ：名無しさん＠そうだ選挙にいこう：2024/04/30(火) 01:33:33.54 .net

>>287
ありがとうございます
まさか本からスキャンしてたとは

292 ：名無しさん＠そうだ選挙にいこう：2024/04/30(火) 01:33:52.84 .net

>>290
ありがとうございます

293 ：名無しさん＠そうだ選挙にいこう：2024/04/30(火) 12:21:05.59 .net

A1セルに日付を含む文章が入ってる
これから日付を抽出したい
ググると
B1=lookup(10^10,left(A1,ROW($1:$20))*1)
ってあった
誰かエロい人解説お願いします

294 ：名無しさん＠そうだ選挙にいこう：2024/04/30(火) 14:01:39.20 .net

>>293
それは数字を1つ取り出してるだけだから、年と月の間に文字や記号が入ってたら使えない
20240430 あああ これならOK
2024/04/30 いいい これはNG 2024までしか取り出せない

295 ：名無しさん＠そうだ選挙にいこう：2024/04/30(火) 16:06:30.81 .net

"2024/04/30"*1
これが数値になることを利用している
そしてLEFTだから日付を含むじゃなくて日付で始まるだな

296 ：名無しさん＠そうだ選挙にいこう：2024/05/01(水) 20:58:23.33 .net

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

数式で、あるセルが参照している別シートのセルから◯◯の位置にあるセル、を参照できますでしょうか。
別のシートへの転記なのですが、並び順が違っています。ブロックごとに全てのセルに参照を手入力するのが大変で、例えばブロックの左上だけ指定すれば、他のセルには参照が入る…ようになればいいのですが

297 ：名無しさん＠そうだ選挙にいこう：2024/05/01(水) 21:11:50.83 .net

スクショは？

298 ：名無しさん＠そうだ選挙にいこう：2024/05/01(水) 22:26:19.65 .net

時間が10ミリ秒で入ってる表があって
=TEXT(J2/8640000,"mm:ss.00")
こんな感じにすると、目的の形式　(例)30:15.05　にできるのですが、
これを10秒後とか15分後とか、スタートをずらした値にしたいです　(例)全て15分後
無茶苦茶なんですが、【=TEXT(J2/8640000,"mm:ss.00")】-15:00.00みたいな感じでエラーなくやるにはどうすればよいでしょうか？

【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

299 ：名無しさん＠そうだ選挙にいこう：2024/05/02(木) 01:10:09.65 .net

>>298
エクセルで日時を表す文字列はそのまま数値演算できるらしいよ
=J2/8640000 -"15:00.00"
表示形式は[mm]:ss.00など

300 ：名無しさん＠そうだ選挙にいこう：2024/05/02(木) 17:20:33.05 .net

PC買って、脱衣AIで遊びまくってる：：
一日一回無料で使えるみたいｗ
https://mao.5ch.net/test/read.cgi/gymnastics/1322657462/98

301 ：名無しさん＠そうだ選挙にいこう：2024/05/03(金) 06:40:04.86 .net

エロビデオマニアのお前ららしいな