Excel VBA 質問スレ Part80

**デフォルトの名無しさん** · 2023/05/31(水) 08:23:38.97

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

関連スレ
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/

※前スレ
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/

**デフォルトの名無しさん** · 2024/01/04(木) 17:35:33.92

>>317
糞!糞!糞!

**デフォルトの名無しさん** · 2024/01/04(木) 19:08:52.50

Pythonについてはどう思ってんのかな？

**デフォルトの名無しさん** · 2024/01/04(木) 19:31:16.02

>>319
もう糞(ふん)をして寝るわ

**デフォルトの名無しさん** · 2024/01/04(木) 19:44:33.23

5×５のセル内をソートして、左上が最大値でそこから昇順に右下が最小値にして数値を入れ替えるマクロって作れますか？

**デフォルトの名無しさん** · 2024/01/04(木) 20:28:44.78

>>321
そんな課題を出す学校があるのか
なぜできないと思うのかな？

**デフォルトの名無しさん** · 2024/01/04(木) 20:48:12.58

Excelのバージョンわからないけど、そういうのは今はマクロでなくてシート関数で出来るレベル。

**デフォルトの名無しさん** · 2024/01/04(木) 21:30:12.87

最大値から昇順は全データが同一の時のみ可能なので、初期状態で必ず昇順になっている
マクロも関数もまったく必要ない

**デフォルトの名無しさん** · 2024/01/04(木) 21:44:11.20

>>321
馬鹿は帰れ

**デフォルトの名無しさん** · 2024/01/04(木) 21:58:19.60

>>321
昇順だと最大値より大きな値はないんじゃね

**デフォルトの名無しさん** · 2024/01/04(木) 22:52:57.73

A1:E5まですでに埋まっていると
それを一旦作業列にでもコピーして昇順に並べ替えると
並び終わった順に5つずつA1:E1、B1:E2、・・という行ごとに埋めてくカタチなのか
A1、B1、A2、C1、B2、A3、・・と、ハスに埋めてくカタチなのか
A1:A5、B1:B5、C1:C5、・・と、列ごとに埋めてくカタチなのか
いや、いずれにしろA1:E5を入れ替えるなら関数は無理だろ　マクロやVBAでしかできない

**デフォルトの名無しさん** · 2024/01/04(木) 23:18:36.18

>>275
たいぶ亀だけど、最初に言った通り参照設定やApplication.Runを使用します。
まずBook2で選択状態のセルを取得するメソッド（関数）やプロパティを標準モジュールで作成して、
Book1のモジュール内で宣言したCellsに上記の方法で呼び出したその戻り値を割り当てます。
ただし、そもそも他のブックを見ているときに選択状態というのを認識してくれるのか検証してないです。

**デフォルトの名無しさん** · 2024/01/05(金) 11:28:46.79

>>327
ありがとございます！
一度べつのセルに並べてから昇順にして元のセルに入れなおせばいいんですね！

**デフォルトの名無しさん** · 2024/01/07(日) 14:25:39.45

シートコピーとシート名変更について質問なのですが

アクティブシートの7個左にあるシートをコピーして
アクティブシートの右側にシート名を明日の日付（例：24年1月8日）にして貼り付け
という動きをさせたいんですがどうすればいいでしょうか？

**デフォルトの名無しさん** · 2024/01/07(日) 14:34:54.50

「マクロの記録」でやりたい操作をコードにしてみ

**デフォルトの名無しさん** · 2024/01/07(日) 15:33:58.57

>>331
おお…なるほど
君がやりたい操作はこういう事でしょ？と
操作してみて表示させればいいのか
ありがとうございますその発想はありませんでした

**デフォルトの名無しさん** · 2024/01/09(火) 20:19:55.53

ファイル移動をするのにNameで変数を使ってやりたいけどうまくできません

**デフォルトの名無しさん** · 2024/01/09(火) 20:23:46.49

>>333 の続き

Sub rename()
Name "C:\A\1.txt" As "C:\B\1.txt"
End Sub
だと移動できるけど

Sub rename()
Name Cells(1, 1) As Cells(2, 1)
End Sub
だとうまくいきません(A1 ←"C:\A\1.txt"、A2 ←"C:\B\1.txt")

書き方の問題ですか？それともNameで変数は使えませんか？

**デフォルトの名無しさん** · 2024/01/09(火) 22:02:52.13

>>334
うちの環境では動いたのでなんか見落としているのではないかな

**デフォルトの名無しさん** · 2024/01/09(火) 22:31:05.76

セル内の文字の頭にシングルクォーテーションがついてるとか。

**デフォルトの名無しさん** · 2024/01/10(水) 00:45:29.03

うまくいかないと主張するだけで絶対にエラーを書かないタイプ

**デフォルトの名無しさん** · 2024/01/10(水) 11:25:08.02

罫線についての質問です。

連続した任意の選択されたセル範囲
（例えばA1,A2,A3,B3,C3,D3のようなL字型）
に外枠の罫線を描きたいのですが、
どのようにすればよいでしょうか

**デフォルトの名無しさん** · 2024/01/10(水) 11:32:15.87

＞　彼らはよく、社会に貢献したいと口にする。
＞　なんでも社会悪のネトウヨを自殺に追い込むことが、社会に貢献することなんだそうで。
＞　イジメや嫌がらせで社会に貢献できる教師や警官になるために、あえて帰化したんであって、祖国同胞を裏切ったわけではなく、心は●●人なんだそうだ。
＞　
＞　昔は帰化すると裏切り者と呼ばれたりしたが、祖国に国籍を残したまま帰化する方法が確立された現在では、社会に貢献するためにむしろ帰化することが推奨されている。
＞　拳銃所持で前科のある生粋の反日家ですら、今では普通に帰化している。
＞　
＞　●●学会などはネトウヨ認定した日本人を盗撮して、痴漢の写真だと言ってばらまいている。
＞　それらの写真は、集団ストーカーに使用される。
＞　彼らは集団ストーカーを、［地域で子供を守る安心安全パトロール］と称している。

**デフォルトの名無しさん** · 2024/01/10(水) 13:52:33.52

>>338
それはVBAに関係があるのか？

**デフォルトの名無しさん** · 2024/01/10(水) 14:42:52.94

必要なセルをCtrlキーを押しながら選択し、L字型を形成
右クリック－セルの書式設定－罫線タブ－スタイルで線種を選んでから[外枠]ボタンを押す
想定していない余計な位置にも罫線が引かれるので、同様に不要なセルを選択し罫線タブから[なし]を使って消す
　　2024年の方針　：　おっちょこちょいに要注意（要らぬ低評価に繋がり兼ねない）

**デフォルトの名無しさん** · 2024/01/10(水) 15:34:00.16

>>340
VBAで実現する方法を聞いてるんだろ

**338** · 2024/01/10(水) 16:34:51.12

>>338です。

>>341さんありがとうございます。

>>342さんご指摘の通りVBAでの実装方法を探しています。
いまのところ
Application.Union("Add_
>>341さんありがとうございます。

>>342さんご指摘の通りVBAでの実装方法を探しています。

いまのところ
Application.Union("Additional_Address", Selection).Select
を繰り返して複数のセルを同時に選択するところまではできています。
一方で、例えばA1,A2,A3,B3,C3,D3の順にAdditional_Addressを指定すると
選択範囲がA1～A3の縦３連とB3～D3の横３連に分割されて選択されるため、
xlEdgeLeft等の処理が縦３連と横３連それぞれで実行されてしまう状況です。
こうなるのを
┌┐
││
│├──┐
└┴──┘
こうしたい
┌┐
││
│└──┐
└───┘

セルごとに隣接判定をして罫線を描く／描かないの処理を
するしかないのでしょうか

**デフォルトの名無しさん** · 2024/01/10(水) 16:39:20.24

>>343
そう、それしかない

**338** · 2024/01/10(水) 18:00:56.27

>>344さん
やはり愚直に処理するしかないのですね。
ありがとうございます。

**デフォルトの名無しさん** · 2024/01/10(水) 18:06:26.38

A1:D3選択で範囲の外枠を描画　
B1:D2選択で範囲の左端・下端に枠線を引き　範囲の上端・右端の枠線を消す
の二段構えなら可能
描きたい枠線が上記だけじゃ無いだろうしL字だけとも限らないだろうけど創意工夫で

**338** · 2024/01/10(水) 18:49:21.47

>>346さん
ありがとうございます。
L字だけだったらこれもありですね。

今回は範囲が動的なので愚直にやろうと思います…

**デフォルトの名無しさん** · 2024/01/10(水) 21:34:25.26

A1:A3外枠描いてからB3:D3の外枠左辺抜きのが楽だった
その他、右辺抜き、上辺・下辺それぞれ抜きのを、全枠と合わせて五つのマクロだけで
L字の左右反転でも上下反転でも、E字F字H字T字それぞれ上下左右反転だろうと対応できたわ

全周
　Sub all4()
Selection.BorderAround True
　End Sub
上辺抜き
　Sub nontop()
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
　End Sub
下辺抜き
　Sub nonbottom()
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
　End Sub
あと、左右は上下の真似してそれぞれxlNone するだけの、都合五つのマクロで自由自在
罫線の色とか種類を変えたいなら、それぞれに加工加えて

**338** · 2024/01/11(木) 10:04:37.01

>>348さん
ありがとうございます。
参考にします。

**デフォルトの名無しさん** · 2024/01/11(木) 21:32:22.23

>>348
そんなことするなら素直に
>セルごとに隣接判定をして罫線を描く／描かないの処理
を実装すればいいんじゃねえかと
Sub test()
Dim r As Range
Dim r2 As Range
Set r2 = Selection
For Each r In Selection
If Not isSelect(r, xlEdgeTop) Then r.Borders(xlEdgeTop).LineStyle = xlContinuous
If Not isSelect(r, xlEdgeBottom) Then r.Borders(xlEdgeBottom).LineStyle = xlContinuous
If Not isSelect(r, xlEdgeLeft) Then r.Borders(xlEdgeLeft).LineStyle = xlContinuous
If Not isSelect(r, xlEdgeRight) Then r.Borders(xlEdgeRight).LineStyle = xlContinuous
Next
End Sub
Function isSelect(testRange As Range, index As XlBordersIndex) As Boolean
On Error Resume Next
Dim r As Range
For Each r In Selection
Select Case index
Case xlEdgeTop
If r.Address = testRange.Offset(-1, 0).Address Then isSelect = True
Case xlEdgeBottom
If r.Address = testRange.Offset(1, 0).Address Then isSelect = True
Case xlEdgeLeft
If r.Address = testRange.Offset(0, -1).Address Then isSelect = True
Case xlEdgeRight
If r.Address = testRange.Offset(0, 1).Address Then isSelect = True
End Select
Next
End Function
こんな感じか。行数制限あるからやってるけど、１行If は推奨しないぞ

**デフォルトの名無しさん** · 2024/01/11(木) 21:35:04.35

ああ
Dim r2 As Range
Set r2 = Selection
の２行はいらん

**デフォルトの名無しさん** · 2024/01/12(金) 11:23:51.46

>>350
さすがです

**デフォルトの名無しさん** · 2024/01/12(金) 16:52:25.20

さすがだ。良い書き方してる

**デフォルトの名無しさん** · 2024/01/12(金) 18:08:01.72

For i =1 to 500
Sheets("A").Cells(1,1)=i
Sheets(Array("A", "B", "C", "D", "E")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\out.pdf"
next
というふうに、シートAのA1セルにiを入れたあと、複数シートを一つのpdfにすることを500回繰り返したいのですが、150回くらい行うと「この操作を完了するにはメモリが不足しています。扱うデータ量を減らすか、他のアプリケーションを終了してください。使用できる目盛りを増やすには、以下を検討してください。・64ビット版のMicrosoft Excelを使う。」というエラーが出ます
これを解消することはできないでしょうか？
ネットで検索してもSetしたものをNothingすればいいと書いてあるのですが、そもそもSetしてるものがないので‥

**デフォルトの名無しさん** · 2024/01/12(金) 20:43:53.34

>>354
試してないけどPDFを作成するたびにビューアが起動するから？
OpenAfterPublish:=False 'ビューアー起動の有無設定
を追加してみたらどうかね

**デフォルトの名無しさん** · 2024/01/12(金) 21:09:33.72

>>355
レスありがとうございます
すみません、記載省略してしまったのですが、ビューワーの起動はしないようにしています

**デフォルトの名無しさん** · 2024/01/13(土) 01:36:13.45

チャットgptに聞いたところ、ActiveSheet.ExportAsFixedFormatはメモリを使用するので、複数回やればエラーになる可能性があるとのことでした。しかし新しいブックを作成し、そこに貼り付けてpdf化、新しいブックを閉じることによって、メモリの使用を抑えることができるとことでした
それで試してみたのですが、結果は変わらず‥
新しいブックを開いてそこで作業して閉じたとしてもメモリの使用量は変わらないのでしょうかね？

**デフォルトの名無しさん** · 2024/01/13(土) 08:06:25.09

>>354
Win10,Excel365,64ビット版でそのサンプルコードを動かしたけどエラーが出なかった。
64ビット版にすれば？

あとは実際のワークシートの内容、コードの内容にもよると思うけど、
・シートA～Eは毎回選択する必要はないかと。Forの前に持っていったらどうなる？
・PDFを出力するコードの下に「DoEvents」を追加してみる

**デフォルトの名無しさん** · 2024/01/13(土) 10:46:37.60

どなたかコードを作成いただけませんでしょうか。マクロ初心者で恐縮です。
やりたい作業としては
・範囲指定してある部分の印刷
・.pdfで印刷→デスクトップに保存
・保存ファイル名がセル(I8)の値を入れたい

よろしくお願いします。

**デフォルトの名無しさん** · 2024/01/13(土) 10:50:05.61

>>358
職場のパソコンなので環境を変更するのは難しいです
doeventsを入れたところ、エラーは出ないのですが、やはり150回ほどループしたタイミングで強制再起動となってしまいました
タスクマネージャーで見ていたところ、メモリがどんどん増えていきます
色々調べたのですが環境によるものみたいです
素直に、100回ループさせたら一度EXCELを終了させ、メモリを解放してから再度EXCEL起動して続きからマクロを回すことにします
ありがとうございました

**デフォルトの名無しさん** · 2024/01/13(土) 14:05:15.65

32bit→64bitでどのくらい支障がでるんだろうか
顧客とのやり取りとかで支障がでるのが嫌で移行できないでいる
逆に64bitで32bitでの作成物を扱うのには特に支障はないのかな？

**デフォルトの名無しさん** · 2024/01/13(土) 14:05:21.54

Sheet対象を辞めてRange対象にしてみたらどうか
いきなりout.pdfに出力するのを辞めて新規ブックに追加していって、最後にそのブックをpdfでは
メモリ不足から逃げる手立てを一考

**デフォルトの名無しさん** · 2024/01/13(土) 16:41:42.38

>>362
なるほど‥
新規ブックを開いて、pdf化したいシートを順々にコピーしていき、最後に一回だけpdf化するということですね
デメリットとしてはpdfが一つにまとまってしまいますが、運用に支障はないのかもしれません
ありがとうございます
関係者に聞いてみて、それでも問題ないならその方向で行こうと思います

**デフォルトの名無しさん** · 2024/01/13(土) 19:24:41.20

出来上がったpdfを分割までやればいいだけでは？
コマンドラインで動く外部ツール使えばできるような

**デフォルトの名無しさん** · 2024/01/13(土) 20:34:27.31

>>364
後出しで申し訳ないのですが、実は出来上がったpdfをメールで送って、相手方で印刷するのが今回の運用だったのです
なので「pdfを全て開いて印刷するのは結構面倒だよなぁ」とは思っていました
しかし一つのpdfにできるのであれば、その問題も解決できるので、一つの方が今回は都合が良かったりします
pdfを分割して置かなければならない別の機会があれば、そのようなことも検討したいと思います
ありがとうございました

**デフォルトの名無しさん** · 2024/01/13(土) 21:55:24.12

頭の悪い人は解決方法自体を間違えている
いつもの

**デフォルトの名無しさん** · 2024/01/13(土) 22:36:38.78

そういうことを平気で衆人環視の環境で書き込める人は　間違い無く病んでる

適しているかどうかは実際にやってみないといけないでしょ？
最後の大きく成ったブックをPDF化するときにエラー吐いて完走しなかったら
元も子も無いんだし　単なる思い付きで書いただけなので検証を
相手が居るならすり合わせも大事だし　ダメ出しされたら再検討だし

ところで、初手のout.pdf(このネーミングも如何なものか、とちょっと思った
Outputの意味なのか、Out of Orderとかの意味なのか、いずれにしろ経営陣から
したら眉を顰めてしまう単語　ま、それは置いといて)には、どう蓄積されるのか
興味があった　これ走らせたらC:\out.pdfにページが追加されてく？
C:\out.pdfが(2)(3)(4)・・とか増えてく？　　誰か教えて

**デフォルトの名無しさん** · 2024/01/14(日) 01:10:58.98

>>367
すみません、out.pdfというのはネットから適当に拾ったコードなので、自分のコードではチキンとした名前をつけています
これを走らせるとout.pdfが上書きされ、一番最後のpdfしか残りません

また、さっそく一番最後だけpdf化を試してみたのですが、ダメでした
50個回分をシートに蓄積してpdf化を繰り返したところ3回目まではうまく行ったのですが、4回目(160ループ目)くらいからpdfが文字化けしてしまいました
どうもpdf化の回数は関係なく、どれくらいのデータ量をpdf化したかによって上限が来て、それ以降は文字化けするような仕組みみたいです
.ExportAsFixedFormatを使用せずにworksheet.printoutメゾットでpdfに印刷するようにしたら、画質は劣るものの、全てpdf化できました
長々とありがとうございました

**デフォルトの名無しさん** · 2024/01/14(日) 07:32:56.45

次は添付ファイルのサイズ制限に引っかかって、結局分割することになると見た
そしてVBAからメールを連続送信する方法を聞きに来て、最後にPDFがいくつあっても簡単に一括印刷できることを知るまでがセット

**デフォルトの名無しさん** · 2024/01/14(日) 08:46:41.57

>>367はコマンドラインツール使ったことなさそう

**デフォルトの名無しさん** · 2024/01/14(日) 11:11:31.44

>>359
それくらいならChatGptが良いコードを書いてくれるはずだよ

**デフォルトの名無しさん** · 2024/01/16(火) 19:30:09.09

それならそのコードを貼ってあげなよ

**ぐううさ** · 2024/01/16(火) 21:08:30.59

業務でvba上手くいかないので質問させてもらってもよろしいでしょうか？

**ぐううさ** · 2024/01/16(火) 21:08:36.00

業務でvba上手くいかないので質問させてもらってもよろしいでしょうか？

**デフォルトの名無しさん** · 2024/01/16(火) 21:09:02.93

先輩に聞け

**ぐううさ** · 2024/01/16(火) 21:17:31.47

エクセルシートで他システムから吐き出したデータの列の位置や内容がバラバラのため、整理してからまた、他のシステムにデータを取り込むため、列の削除や移動をマクロと変数を使って、ユーザにパラメータを入れてもらって実行することをしたい。
変数にパラメータの値を入れられるが、その後のデータセットからデータの型がとエラーに、なりうまくいかない。
変数はstringsです。

**デフォルトの名無しさん** · 2024/01/16(火) 21:59:35.09

致命的に説明が下手くそなやついるじゃん
376みたいなやつねw

**デフォルトの名無しさん** · 2024/01/16(火) 23:15:06.93

>>376
なにしようとしてるかよくわからないけど、列番号とか指定したいならInteger型にしないといけないんじゃない？

**デフォルトの名無しさん** · 2024/01/16(火) 23:21:40.56

これに下記コードを〇〇できるように書き換えてくださいってソースコード貼付ければいい感じに直してくれるよ
https://www.perplexity.ai/

**デフォルトの名無しさん** · 2024/01/16(火) 23:33:44.09

>>379
ありがとうございます。
会社でやっているのですぐにはわかりかねますが、再度説明し直して書き込ませていただきます。

**デフォルトの名無しさん** · 2024/01/17(水) 02:48:46.43

馬鹿な会社の馬鹿社員
早く潰れろや

**デフォルトの名無しさん** · 2024/01/17(水) 07:28:15.10

自分の能力以上のことを要求されたら
断るのも仕事ですよ

**デフォルトの名無しさん** · 2024/01/17(水) 08:40:16.63

断る勇気も必要ですよ　と書きたかったんだろうけど、断ってばかりじゃ評価下がるしな
どんどん周りの人間の評価が上がり続けちゃったら、遠く無い将来に窓際に追いやられるし
おちんぎんもらってチャレンジできるなら、やらないよりはやった方が自分のためにも成る

もらったデータがどういうファイル形式なのかに依りけり
csv(Comma Separated Valuesの略で、各項目がカンマ（,）で区切られたテキストデータ)なのか
txt(中身が文字だけのデータ)なのか、それ以外の形式なのか
より実務に即した回答が欲しければ、じぶんの環境を提示するのもだいじ　取り敢えず叩き台で
https://www.crie.co.jp/chokotech/detail/264/　　こんな作業をしていてどこで躓いてる、とかを

**デフォルトの名無しさん** · 2024/01/17(水) 09:18:18.18

そんなあなたにPower Query

**デフォルトの名無しさん** · 2024/01/17(水) 10:15:06.17

できないものはできない
請け負った仕事には責任があるんだから最後までやりとげる
能力がないなら評価も低いのは当たり前

**デフォルトの名無しさん** · 2024/01/17(水) 11:50:01.48

今日から始めた初心者ですが
予測変換の決定でエンター押すと改行されてしまうのですが、
それをさせない方法ありますか？
スペースで決定なのはわかるのですが、慣れません。

**デフォルトの名無しさん** · 2024/01/17(水) 12:03:19.97

>>386
それVBAの話？

**デフォルトの名無しさん** · 2024/01/17(水) 14:40:54.05

>>387
VBAのVBEの話ですね

一般的なエディタと挙動が違うので混乱してますが
慣れれば問題ないですかね

**ぐううさ** · 2024/01/17(水) 18:16:44.75

376ですが自力で本日できました。
回答頂いた方ありがとうございました🙇

**デフォルトの名無しさん** · 2024/01/17(水) 19:12:31.19

質問の意味も分からなければ、
回答も役立たず
ただのスレ汚し

**デフォルトの名無しさん** · 2024/01/18(木) 00:33:52.88

VBAの質問なのですが
運送系事務でコース表の各店舗に数量を記入する作業があるのですが
この数量記入を例えば入力用というシートを作り一元管理したいのですが
配送を４社に振り分けている関係で月曜日でも月曜①、月曜➁、月曜➂、月曜④、と
シートが４つに分かれておりシステム上これは変えられないと言われました
店舗も例えばセブン、ローソン、ファミマ、サンクス、ミニストップ、と色々あり
100店舗ほどあるのを該当店舗があるシートへ移動し数量を入力するという…

現状でやり始めた事はデータベースを作りキーワードで検索できるようにし
ドロップダウンリストでセブンを選んだらセブン全店が表示されるようにしました
これを利用してオプションボタン等で月曜を指定し店舗名の右セルに数量を入力すると
月曜日シートにある同名店舗の右セルに入力した数量が反映されるという形にしたいのです
ここまで書いて思ったけどこれってVBAで解決させる物でしょうか？
vlookupとかの関数の領域？　すいません素人に毛が生えた程度の知識しか無いもので
ご教授いただけると幸いです

**デフォルトの名無しさん** · 2024/01/18(木) 01:53:45.90

>>391
ある程度複雑になるとVBAを使わないと何処に何があるかわからなくなって積む
特に他人からするとブラックボックス化する
ドキュメントを残すことができるなら良いけど

**デフォルトの名無しさん** · 2024/01/18(木) 04:26:25.22

ワークシートの内容が固まりきってもう変更は無い、新しいものの追加はない、ならVBAでもいいけど自分なら関数で作る。
VBAで作った方が後々のメンテナンスが大変になる。

**デフォルトの名無しさん** · 2024/01/18(木) 10:41:22.24

>>391
現状を正しく理解できないからなんとも言えないけど、関数かvbaかって質問なら、関数でできるなら関数、できないならvbaってしか答えられないと思う
関数って言っても組み合わせ次第では色々出来るから、vbaでしかできないと思っていても、工夫したら関数でできましたって事なんか腐る程あるし

**デフォルトの名無しさん** · 2024/01/18(木) 11:06:18.05

現行のシステムの改良/改善なのか？　それをベースによりよいシステム化をしてもいいのか？
月曜だけで4シートとあるが一週間分で28シートが現状で存在するのか？
100店舗ほどもあるシートに移動して入力した数量はどこの何に反映されるのか？
入力元のデータは指示書のようなカタチでまとまったものがあるのか？
或いは各店舗からの要請があって、それを元に質問者側が曜日で振り分けているのか？
4社に振り分けているとは？下請けの意味？配送コースの4車輛の意味？

コンビニを例えに出しているが、例示が悪いのかどうか、コンテナ(カゴ)に種々雑多な商品が詰め込まれた
イメージが付きまとってしまい、面倒臭いのはもっと他にあるだろうにと思ってしまうが、
あくまでも4社への振り分けが面倒なだけで、積み荷はもっと単純なものなのか(一店舗に一品とか)
全体のボリュームも知りたいところ
物流の観点から言うと、ピッキングなのか仕分けなのか　似たようなものだろと言われるかも知れないが
そのどっち側なのかでも設計も変わるし成果物も変わる　　↓参考までに
https://www.keyence.co.jp/ss/products/autoid/logistics/role/function-safekeeping.jsp

**デフォルトの名無しさん** · 2024/01/18(木) 12:03:28.39

なげーよ

**391** · 2024/01/18(木) 12:31:08.59

曖昧な情報で皆様を混乱させてしまい申し訳ありません
現状でやっている作業の前提条件としては

曜日毎のコース表シートが4つあり
1シート内に曜日毎に決められた店舗の組み合わせで4~5コース存在している
店舗に出荷される数量が前日に確定し全店舗数量一覧が"紙ベース"で来る
数量一覧を元に該当店舗に出荷数を順次入力していく

月曜①～月曜④と分かれているのは下請け配送会社4社に振り分けた形で
月曜①にはA社担当コース、月曜➁にはB社担当コースという形になっています
各曜日シートに数量を記入したらその4つのシートが完成版で共有されます

完成版シートの仕様は変えられないと言われてしまったので
せめて数量入力を一元管理して効率化したいと思っていますが
>>391で作った入力用シートの入力情報を各曜日に転記さたいと思い
ChatGPTを使ってみましたがどうしても上手く行きませんでした
上記作業を持ち回りでやっている人間が3人いて入力作業効率化の提案をしても
「良く分からないからいい」「新しい作業を覚えたくない」「そうやって楽する事ばかり考えるな」
作ったという意見を頂いているのでシステムがブラックボックス化しても問題ありません
他作業と並行しながら2～3時間かかる入力作業を続けたいそうです

**デフォルトの名無しさん** · 2024/01/18(木) 12:51:09.85

>>397
ごめん、結局最終的に何がやりたいのか全然分からないからアドバイスができない
「他作業と並行しながら2～3時間かかる入力作業を続けたいそうです」って言うならそれでいいんじゃない？
と思うけど、聞きたいのは多分そういうことじゃないよね？
言葉で説明されてもこっちはシートがどうなってるのか分からないからなんとも言えない
「東京から大阪まで行きたいけどどう行けばいいですか？」って聞かれても新幹線もあるしバスもあるし飛行機もあるから、なんとも答えられないよね？
それが「東京から大阪まで◯日◯時までにつくように新幹線で行きたいんですけど、どの新幹線に乗ればいいですか？」って聞かれたら答えられる
まずは関数なりvbaなりで自分でやってみて、分からないところのみを聞かないと誰も答えられないと思うよ

**デフォルトの名無しさん** · 2024/01/18(木) 12:59:01.97

あと、無駄な情報が多すぎ
ここは質問をして答えるスレなんだから運用までは面倒見きれない
完成版を変えちゃだめとかブラックボックスが～とかは運用の話であって、その話をされても「はぁ」って感想しかでない

**デフォルトの名無しさん** · 2024/01/18(木) 13:04:56.76

【VBA作成依頼】
５ちゃんねるHTMLを WEBクエリしたんだが、見づらい。
タグ『＜＞』で改行させるVBAコードを誰か作ってください。無料で。
https://i.imgur.com/XMdGvUd.jpg

**デフォルトの名無しさん** · 2024/01/18(木) 14:58:45.62

曜日毎のコース表シートが4つあり　：　それ、火曜日水曜日って続かないってことだよね？
28シートあるのか？の問いに応じずに同じことを繰り返すってことは、そういうことだろ？
つまり、曜日毎は関係無くて、4コース用に4シートがあるだけ　
面倒だけどそれぞれの店舗シートに入力したら、その4シートに反映される　ということだろ？
その100店舗前後のシートを探すのが面倒だから入力用に新たに1シート設けて、そこに入力したら
店舗のシートに反映されて、尚且つコース用シートにもまとめられる　と？　そおゆうのが欲しいと？

**デフォルトの名無しさん** · 2024/01/20(土) 11:31:50.99

>>397
結論から言うとそんなの余裕でできる

その前に、あのさ、君結構アタマいい人でしょ？
話を聞く人の労力もうちょっと考えてわかりやすい説明しようよ

・曜日7日
・コース4～5
・下請け4社
・コンビニ5社（セブン・ローソン・ファミマ・サンクス・ミニストップ）

この4次元マトリックスがどういう風に表になってるのか
口だけで上手に説明するのって難しいし、読む側の読解力にも依存する
ひな形でもいいから自分で簡単なの作ってスクリーンショットとってあげるぐらいしなって

読んでる方はいろんな形式の表が頭に浮かぶんだけど、一体どれなのか特定できないもんだからまともなアドバイスできないわけよ
いろんな人からいろんなアドバイス聞きたいなら、まずどうやればできるだけ多くの人に正しい情報を伝えられるのか工夫しな

https://i.imgur.com/cf3VhMk.jpeg

**デフォルトの名無しさん** · 2024/01/20(土) 12:01:23.58

>>400
タグをvbNewLineに置換するだけ

自　　分　　で　　や　　れ　　

.

**デフォルトの名無しさん** · 2024/01/20(土) 12:04:37.73

Excel VBAでAIは作れますか？

**デフォルトの名無しさん** · 2024/01/20(土) 19:05:48.23

>>404
はい
チューリング完全なので

**デフォルトの名無しさん** · 2024/01/21(日) 03:02:30.89

みんなの環境は32bit? 64bit?
世間はどっちが多いんだろう

最近は64bitにしても影響少なくなったと聞くけどどうなんだろう？

**デフォルトの名無しさん** · 2024/01/21(日) 03:14:48.63

MacのVBEの中だけ、
controlキーを使ったショートカットが無効になってるんですが
仕様ですか？
カーソル移動のショートカットが使えないので困ってるのですが
Macの方はどう対応されてますか？

**デフォルトの名無しさん** · 2024/01/21(日) 08:52:16.21

>>406
逆に今32bit選ぶ理由って何？

**デフォルトの名無しさん** · 2024/01/21(日) 11:25:30.02

2021年以降は32bit版のWindowsが原則販売されなくなったんで、Officeも64bit化が急速に進んでると思われる

**400** · 2024/01/21(日) 12:07:31.28

https://i.imgur.com/h1EsLS7.jpg
https://i.imgur.com/QL7Cbdy.jpg
ここまで作った。　ほめて～

**デフォルトの名無しさん** · 2024/01/21(日) 13:35:45.91

>>410
あんたすげえなマジで。

**デフォルトの名無しさん** · 2024/01/21(日) 21:54:39.11

>>408
まだまだ32bit使って所が多いから

以前64bitにしたら客先で原因不明のエラーでまくったことがあってトラウマに
そのころはMSも32bitを推奨してた

ただ自分の周りくらいしかしらないから世間一般ではどんな感じなのかなと思って
ちなみに取引のある某測定器メーカは外に出すファイルは未だに「xls」に変換するなんてルールが残ってる

**デフォルトの名無しさん** · 2024/01/21(日) 21:55:41.57

>>409
そうなんだ、混在によるトラブルが少なくなってきてるなら自分も64bitに変えたいな

**デフォルトの名無しさん** · 2024/01/21(日) 22:45:54.49

取引先が無数にあると、とんでもない環境が残ってるところがあるもんなあ
うちの下請けにもWinXPのとこがあるし
業務用アプリと機器がVista以降サポート外で、それを作ってた会社もなくなってリプレースできないそうだ

**デフォルトの名無しさん** · 2024/01/21(日) 23:16:41.24

64bitの方が高速なんでしょ。わ

**デフォルトの名無しさん** · 2024/01/22(月) 13:22:08.13

32bitのほうが省メモリなので場合によっては32の方が速い

**デフォルトの名無しさん** · 2024/01/23(火) 13:00:26.55

>>416
もしかして、まだWindows95使ってる？
それならその意見も一理あるね