Excel VBA 質問スレ Part78

2022/10/30(日) 13:43:16.31

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

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

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

-
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2023/01/21(土) 20:08:19.63

>>780
あまりにも馬鹿過ぎるから馬鹿と指摘しているのだが
こんなのしか雇えないから零細企業のままなのか、零細企業だからこんなの雇っちゃうのか

2023/01/21(土) 20:10:55.81

>>782
あ、
(ﾜｯﾁｮｲ 53da-Jpma)

がスマホで書いてるだけか

2023/01/21(土) 20:12:17.60

今度は言い掛かりを始めた馬鹿

2023/01/21(土) 20:15:45.52

>>784
ほらバレて脊髄反射w

2023/01/21(土) 20:18:33.47

馬鹿の質問はそもそも馬鹿が考えることだから問題解決へのアプローチが間違えている
というか端的に言えば馬鹿だから馬鹿な発想しかできないから解決方法がややこしくなり何倍も何十倍も時間が必要になる

2023/01/21(土) 20:21:20.82

とりま馬鹿はNG

2023/01/21(土) 20:23:35.37

逃げた

2023/01/21(土) 20:23:44.73

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

他は全てワンボタンで済んだので
あと表示だけが手動なので
そのために時間掛ける価値があるかどうテンピンに掛けながら
でもこういうのは嫌いじゃ無いので学んでみます

2023/01/21(土) 20:28:47.01

>>786
わかる。こういう奴に任せるといつまで経ってもまともな成果が上がらない。

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/21(土) 20:34:39.84

>>789
なんかスレッドが熱いですけど気にせずがんばってください

配列はデータベースみたいなものなのでエクセルと相性がいいんです
とても便利ですので是非がんばってください

2023/01/21(土) 21:38:19.62

煽るヤカラに反応してるとスレが荒れていつも回答してくれる人も敬遠しちゃうぞ
月別のレイアウト範囲を決めるなら参考の表なら
開始は「月売上高表」の文字列が入っている行
最後は「納品予定」の文字列が入っている行を見つけて最後の金額が入ってる行を取得すれば>>747のコードが流用できるんじゃないの

2023/01/21(土) 21:55:48.52

>>791
早速、YouTubeの金子さんの動画を見ました
今まで外国語に見えてたのが理解出来て来ました

2023/01/21(土) 21:57:12.93

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

最終行に、色を白で「最終行」と入れて
それを拾おうかと

2023/01/21(土) 22:09:21.22

>>794
うざい

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/21(土) 22:31:20.27

>>789
もし嫌じゃないのなら才能というか適性あります
VBAから入ってある程度楽しいなって思えたら
pythonとかjava、C#とかやってみたらいいと思います

2023/01/22(日) 04:34:19.88

>>792
その印刷したい最後の行≒「途中の行」の場合はどのように指定したら良いんでしょうか？

売上先の数が毎月一定では無いので印刷したい最後の行が毎月変わってしまうのです

「売上最終行」「売上最終列」
「納品最終行」「納品最終列」
を透明な文字で埋め込んで認識させるのが良いのかなと

2023/01/22(日) 04:41:38.79

>>796
もともと1982年にマイコン（パソコン）を買ったくらいなので好きな方だと思います

2023/01/22(日) 06:11:47.65

>>797
vba 最終行
vba 最終列

でぐぐる

2023/01/22(日) 06:47:36.72

>>799
ありがとうございます
ググりましたが本当の最終行の説明しか無くて

上に書いた通り、実際には途中に存在する
任意の最終行（実際には途中の行）の説明が無いのですが

2023/01/22(日) 06:54:51.41

CSV などのテキスト処理なら、Ruby

2023/01/22(日) 06:55:38.90

>>797
どれを印刷したいのかよくわからんけど >>752-753 なら納品予定の列を見て空になった行のひとつ上、>>754 なら得意先名の列を見て合計となって行までを印刷すりゃいいんじゃないの？
って>>792は言ってるんだが？
そもそも
> 印刷したい最後の行≒「途中の行」
とか意味不明すぎる

2023/01/22(日) 07:02:04.85

マクロを使ってそのシートを新規シートにコピーしてから不要行や不要列を削除して、その後に最終行と最終列を指定して印刷すれば良いのかな

2023/01/22(日) 07:03:38.95

>>802
言葉でそのように説明するのは簡単だけど
具体的にVBAで書けますｂｩ？

2023/01/22(日) 07:12:25.00

毎日
752のシートを毎日作成していて
そのシートを元に
753や754のような印刷結果としたいのです

上の画像が失敗したのは
確かに非表示で済むような画像になってしまいましたが
実際には列の非常時を使うと印刷したい列まで隠れてしまうので非表示は使えません

2023/01/22(日) 07:19:41.79

もう一度書くと

作成しているのはこの表

https://i.imgur.com/MNy37BM.jpg

2023/01/22(日) 07:21:57.46

>>806
806の赤い部分にも文字が入ってるとして

印刷したいのは806を元にして
これらが印刷結果となるように

https://i.imgur.com/JUP2t7B.jpg

https://i.imgur.com/LhkqS7p.jpg

2023/01/22(日) 07:28:29.54

実際の数字は販売管理ソフトから吐き出したデータをパワークエリとパワーピボットによってリアルタイムにデータを見ることは出来ています
その他の付随情報をEXCELで管理していて、そのEXCELデータと販売管理ソフトが正しいかどうかのチェックもそのEXCELファイルで行っています

2023/01/22(日) 07:32:21.84

20年前からパワークエリやパワーピボットが存在していれば、その結果を元に報告資料を作っていたんだろうけど、存在しない時代に手動で作成していたのでそれに合わせる事に苦労してるということです

2023/01/22(日) 08:09:47.45

>>804
>>807の表はできてるんだろ？
得意先名の列がB列としたら
Dim Row As Long
Row = 1
While Cell(Row, "B").Value <> ”合計"
Row = Row + 1
WEnd
ってやるだけだろ

2023/01/22(日) 08:52:06.84

BASIC知ってるはずなのに配列知らんのか

2023/01/22(日) 09:17:23.76

>>810
ありがとう
行か列を任意を指定してキーワードを見つければ良いんですね

>>811
BASIC自体を知ってるのでは無く
その当時、マイコンを買って
雑誌の記事を見て自分用にカスタマイズしただけ
主にカセットテープから20分くらいLoadしてゼビウスとかやってた

2023/01/22(日) 09:18:35.16

適当に打つとsyntax errorが出てくる事は知ってる

2023/01/22(日) 13:00:42.70

連想配列のコレクションを使いたいんだが、個別の要素が書き換えられない。
書き換えると全要素が書き関わってしまう？？？
これはどうしたらいい？
Set Yukkuri = New Dictionary '「Microsoft Scripting Runtime」を参照設定
Dim timeline As New Collection
Yukkuri.Add "Name", "霊夢"
Yukkuri.Add "serif", "霊夢です"
timeline.Add Yukkuri
'セリフを追加する
timeline.Add Yukkuri
Debug.Print "--before--"
Debug.Print timeline.Item(1)("Name"), timeline.Item(1)("serif")
Debug.Print timeline.Item(2)("Name"), timeline.Item(2)("serif")
'追加したセリフの変更
timeline.Item(2)("Name") = "魔理沙"
timeline.Item(2)("serif") = "魔理沙だぜ"
Debug.Print "--after--"
Debug.Print timeline.Item(1)("Name"), timeline.Item(1)("serif")
Debug.Print timeline.Item(2)("Name"), timeline.Item(2)("serif")

実行すると
--before--
霊夢霊夢です
霊夢霊夢です
--after--
魔理沙魔理沙だぜ　←こっちも書き換わってる
魔理沙魔理沙だぜ

2023/01/22(日) 13:08:27.56

>>806
自分が何もできないから100%他人任せにしてるような割りに態度が少し横柄なんじゃねと思わなくもないんだよね
少なくとも>>806の月別の表が何か月分も同じシートにあるのであれば
・シートを2つコピーして>>807用の2つのシートを作る
・それぞれのシートで1行目から最終行まで検索する
・月別の始点はA列？の「月売上高表」の文字列が含まれる行
　終点は次の月の「月売上高表」の文字列が含まれる行の-1
　※ただし最終月は翌月の文字列が見つからないので最終行でよい
これをもとにそれぞれのシートの行を非表示にしたり、列を非表示にして
印刷範囲決めたらいいだけなんじゃないの
ここまでの説明はマクロで可能
俺はやる気のあるコードを見せてくれたりする人には付き合う気はあるけど
100%他人任せには構ってられないから以降は他の人が回答してくれることを祈るわ

2023/01/22(日) 13:23:01.10

>>815
私ってサバサバしてるから

2023/01/22(日) 13:29:43.69

>>814
そりゃ連想配列の実体は１つしか作ってないから書き換えたら変わるわな
いまいちどういう結果を期待してるのかよくわからんけど片方が変わって欲しくないなら
timeline.Add Yukkuri
Dim Yukkuri1 As New Dictionary
Dim Key As Variant
For Each Key In Yukkuri.Keys
Yukkuri1.Add Key, Yukkuri(Key)
Next
timeline.Add Yukkuri1
のように中身をコピーして作る

2023/01/22(日) 14:10:36.46

また零細企業の馬鹿が粘着してるのか
しつこい馬鹿は迷惑

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/22(日) 15:30:30.53

>>749
Sub main()
Dim arr() As Variant
arr = dataArr

End Sub

Function dataArr() As Variant()
Dim cel() As Long
cel(0) = Cells(Rows.Count, 1).End(xlUp).Row
cel(1) = Cells(1, Columns.Count).End(xlToLeft).Column

Dim rw, col As Long
Dim datas() As Variant
ReDim datas(cel(0), cel(1))

For rw = 0 To cel(0) - 2
For cl = 0 To cel(1) - 1
datas(rw, cl) = Cells(rw + 2, cl + 1)
Next cl
Next rw
dataArr = datas
End Function

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/22(日) 15:30:46.23

これでmain関数の中のarrにすべてのデータが取り込めた
arr(0,1)はヨソバ〇カメラ
arr(1,5)は80000

2行目に、み〇なのさくら屋、売上金額、納品予定
3行目のE列に納品予定合計額を表示させたければ
cells(2,1)=arr(1,1)
cells(2,2)=arr(1,2)
cells(2,3)=arr(1,4)
と指定して表示し
合計はVBA内でfor分で合計値を算出するか
シートに転記後にworksheetFunction.sum()で合計を算出して表示すればどうでしょう

製品テーブル（略称含む）や顧客テーブル（略称含む）をシートで作って置ければ
さらに楽にできると思います

2023/01/22(日) 16:01:00.37

>>820
それはデータ取り込みのためのVBAですね？

印刷のための範囲指定は

Sub tes()
'
' tes Macro
'

'
Range("A1:I69").Select　←ここの部分を書き換えると
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$69"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$69"
Application.PrintCommunication = False
With ActiveSheet.PageSetup

　　　　途中省略

End With
Application.PrintCommunication = True
End Sub

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/22(日) 16:06:26.01

>>821
どの程度の大きさのデータを印刷したいのかわからないですが
サンプル程度のデータ量でしたら配列を使って取り込みと出力をして
印刷設定はエクセル側で行えば十分かと思いましたけど
それではあまり役立ちませんか？

2023/01/22(日) 16:17:39.68

>>822
印刷設定をEXCEL側とは？
毎回手動で設定して印刷という話ですか？
データ取り込みは苦労していないというか既に自動化は諦めてるので

未納品状態から納品済に変わった段階で
下から消して上に書き込む作業を行わないとならんので。。

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/22(日) 16:24:05.21

>>823
よく理解してなくてすみません
rangeの範囲指定だけ指定できたらOKなのでしょうか？

例えば、
Range("A1:I69")
printArea="$A$1:&i%69"
を指定したいってことでしょうか？

2023/01/22(日) 16:27:55.16

>>819
1オリジンのRangeオブジェクトと0オリジンの配列のやり取りはどうやっても混乱するから
セルを配列に取り込む場合は「array = Range(範囲).Value」のようにRange.Valueで取り込んだ方がいいよ
これでRangeで指定した範囲の値が1オリジンの2次元配列として取得できる
逆に配列をセルに書き戻す場合も、Rangeとarrayの要素数が同じなら「Range(範囲).Value = array」で済む
これはVBAでシートを配列で扱う場合の常識だと思うので一応

2023/01/22(日) 16:35:26.12

おいおいおいおいｗ　まーたハナシが変わって来てるｗ　ま、それがこの人の個性っちゃあ個性だけどｗ
パワークエリやパワーピボットを駆使してマクロで一発で取り込むのは出来てる　とか、大法螺だったんだな

彼の目的はただ一つ　　会議資料として用紙の横書き印刷と縦書き印刷をしてる、その縦書き印刷を自動化したい　その一点
横書きとか縦書きとかは彼の独特な表現だからA4ヨコ印刷・A4タテ印刷に脳内変換してくれ　A版かB版か、4か3かは定かでは無いが、まあそんな風

で、彼のとっ散らかった説明･解説をまとめると以下の通りだ
販売管理ソフトで売り上げを管理 → 売上データをExcelに吐き出し(もしくはExcelから引っ張る) → そのデータをパワークエリやパワーピボットを
駆使して集計し、会議用資料のテンプレートに落とし込む https://i.imgur.com/MNy37BM.jpg → https://i.imgur.com/JUP2t7B.jpg これはヨコ印刷で
問題無し　https://i.imgur.com/LhkqS7p.jpg これのタテ印刷に苦心してる
何故なら　：
　　1] 二列不要だから削除したいが、削除すると「関数」が無くなって違算(エラー)←？？
　　2] 毎月行数の増減があるので最終行が決まらない ←必要なら「※」なり「最終行」なりを手入力してでもマクロを走らせるのの役に立てたい←？？？
　　3] 画像には無いが、この他に担当者別売上の表がある ←最初の画像の赤丸位置？それとも上下の表の中間？
　　4] これが1Sheetに1年12ヶ月分タテに並んでいるので各月自在に印刷するのは大変
ざっくりとこんな感じ

2023/01/22(日) 16:36:20.85

>>824
印刷したい印刷範囲の右下が毎回変わるので

例えばそこに
「END」という透明文字を書き入れておく場合にはどのような記述となりますか？

これさえ出来れば自分のやりたい事が出来そうです

2023/01/22(日) 16:43:18.47

>>826
同じ取引に対してデータ元が2つ有り

パワークエリとパワーピボットで自動取込をするのは販売管理ソフトのデータからが1つ目
こちらは自動的に取り込まれていて
簡単に得意先別、担当者別、商品別の合計や詳細は把握出来る

EXCELで報告資料を作る元データは、他の人が社内共有用に作っているEXCELファイルから

この2つのデータが合っている事を確認する必要もある

最初の質問から有りとあらゆる事を書き出すなんて無理だよ

後から話が違うと言われようが
説明するために簡便化した資料でやってるんだし
てゆーかあなたはVBAの技術は無いんだから無理に話に加わらなくても良いよ

2023/01/22(日) 16:47:09.62

で、それはVBAで出来るならそれでもいいけど、普通の機能でも十分賄える作業
範囲に名前を付けて（例えば01y とか01t とか）印刷時にページ設定のダイアログにその名前を入れて印刷するだけ
（もしくは、名前ボックスで選択して[印刷範囲に設定]でもいい　ソッチのが楽かも）
範囲が重複しても名前付けは出来るんだし、せっかくの機能を使わない手は無い
11月に成ったら11yや11tを入れてやるだけで広範囲のうちそこだけをプレビューしてくれる
範囲が増減するってなら Offset使った範囲にしとけば行が増えても対応してくれる　その名前付けを上手にできるかどうかがカギ

2023/01/22(日) 16:50:46.58

販売管理ソフトに全ての詳細情報を付加する機能が無いから、会社に必要な付随情報をEXCELで付与して管理させている

だから一つの取引に対して2つデータが存在してる

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/22(日) 16:53:25.56

>>827
Sub main()
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(2, 2)) '①

ActiveSheet.PageSetup.PrintArea = rng.Address
End Sub

みたいな感じで、①を都度指定したらできませんか？

2023/01/22(日) 16:53:33.27

>>829
そんな事するよりも

>>827
これを一発VBAに入れた方が楽じゃね？

2023/01/22(日) 16:55:27.93

EXCELのデータが正しい事もあれば
販売管理ソフトのデータが正しい事もあるので
二重にすることで間違いのチェックにはなっていると思う

2023/01/22(日) 17:00:57.08

一元管理されてない時点で最悪のデータ

2023/01/22(日) 17:04:14.11

一元管理は入力ミスがあるとそのまま行ってしまう恐ろしさがある

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/22(日) 17:04:15.06

>>827
最終行列を取得して範囲指定するのなら
cells(rowscount,1).end(xlup).row
cells(1,columns.count).end(xltoleft).column
で最終行列を所得できます

キーワードを使った場合、
cells.find('end')でオブジェクトを取得しますけど
他のセルにキーワードが紛れていたら終わりますので非推奨かもですね

キーワードを最終セルにするというのなら
findを使って最終セルを取得して範囲指定に利用できそうですね

2023/01/22(日) 17:06:06.74

>>831

単純に印刷したい範囲の右下に
ENDとか※とか右下とかの文字を入れ込んでおいてそれをVBAにするのは難しいものなのですか？

2023/01/22(日) 17:06:29.53

そもそもが、全体のデータをどう扱うかのイメージが出来ていない
都度継ぎ接ぎだらけの思い付き・間違ったインスピレーションで作業しているだけ　システムの九龍城砦を築いてるようなもの
毎月最終行に「最終行」って手入力することが自動化の助けに成ると思うならそうしてみりゃいい
その手間の時間で印刷終わってる　何月がいちばん上の月か知らんが、年度途中の月、7月とか8月でもそれで動作するシステム組めるのか？
ボタンを12ヶ並べるつもり？　年度途中の月を印刷するためにひとつのボタンで解決させるには、もっと苦労を重ねるけど？
プログラムを書くためにExcel使ってるんじゃ無い　楽するために使ってんだ　　

2023/01/22(日) 17:06:34.14

>>836
すんません
入れ違いで書いてしまいました

2023/01/22(日) 17:08:34.65

>>838
仕方が無いじゃん
自分で作ったシステムじゃないんだし
前任者が全て手動で半日掛かった仕事を5分で出来るようになっただけでもマシになったとは思う

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/22(日) 17:10:50.88

>>839
いえいえ、こちらこそ要領が悪くてすみません
findでキーワードを検索して、該当セルを取得したら
そのセルが何行目何列目なのかを取得できますので
それを>>821の範囲に利用してみたらいけるかもですね

2023/01/22(日) 17:11:53.93

>>838
月に一回だけ
ENDと入れるだけで
一ヶ月にかなりの時間を節約出切るのが分からない？？

行や列を挿入するだけだから
ENDと入れるのは一回だけ

なんなら前月のシートを使えば、それすら要らなくなる

ほんとお前は性格悪いね

2023/01/22(日) 17:13:22.05

>>841
キーワードを
ピロリちゃんとか
絶対に使わないであろう言葉を使えば良いかもですね

2023/01/22(日) 17:26:29.02

縦向きえんど
横向きえんど

この文字を透明色で埋めておけば良いかな
上書き出来ないようにセルを保護しておく？

そうすりゃ毎月何も設定しなくても良くなりますね

2023/01/22(日) 18:32:47.51

>>844
そんなことより「ハゲでも分かるExcel VBA入門」という本を読めばいい。
分かりやすくてすぐ上達。

2023/01/22(日) 18:34:23.97

>>835
入力チェックはまた別の話
帳票毎にデータが違う方が怖いわ

2023/01/22(日) 18:35:54.62

>>845
ワタシサバサバしてるので

2023/01/22(日) 18:36:29.31

>>846
別の話じゃないよ

2023/01/22(日) 18:51:11.61

>>817
レスサンクスです。
ということはYukkuriが100人いたら、
Dim Yukkuri?? As New Dictionaryを100行要るてことになるてこと？
timeline.Add Yukkuriのところで、timelineが使ってるメモリが追加でアロケートされ、
そこに連想配列が追加されるていう動きにならんのかね？
それか連想配列の実体をコピーできるとか。

2023/01/22(日) 18:52:29.42

ワタシフサフサしてるので

2023/01/22(日) 18:56:56.52

>>846
ところで会社で嫌われてない？
その方が心配だわ

2023/01/22(日) 19:04:19.40

日曜日に仕事？家に持ち帰りならブラック企業だな

2023/01/22(日) 19:13:06.03

>>848
別の話だろ
Excelと販管ソフトに個々に入力してるから安心とか言うならそれは単に二重入力してミスを見つけてるだけの話

>>851
まあこんなことを言い出すやつなんだろうけどw

2023/01/22(日) 19:20:26.34

>>849
だから何をやりたいのかいまいちよくわからんけど100個コピー作りたいならループで回せばいいだけ
新規のDictionaryはループ中で確保する
timeline.Add Yukkuri
Dim N As Long
Dim Yukkuri1 As Dictionary
Dim Key As Variant
For N = 1 To 100
Set Yukkuri1 = New Dictionary
For Each Key In Yukkuri.Keys
Yukkuri1.Add Key, Yukkuri(Key)
Next
timeline.Add Yukkuri1
Next

2023/01/22(日) 19:55:07.24

>>853
2つにそれぞれ意味があるから良いだろ
ソフトは客先に納品書や請求書をプリントしたり、EXCELは社内の全ての管理をしやすいように情報付与、そしてその2つが在る事でどちらのかの入力ミスを防げる
この仕組みで会社が儲かってるんだからケチ付けられんわ俺も

2023/01/22(日) 20:04:58.23

>>814は恐らく連想配列が欲しいわけではなく、
javascriptやpowershellにあるような動的なプロパティが欲しいんだろう
VBAではそういう便利なものはないので基本ノードデータにジャグ配列を使って
ノードの先頭にプロパティ名に相当するタグを付けていった方が記述量的にも混乱が少ないと思われる

2023/01/22(日) 20:21:20.32

>>814の意図を汲んだデータをジャグ配列のノードで表記すると恐らく以下の様になる
dim timeline_root
timeline_root = array("timeline" _
,array("Yukkuri", array("Name", "霊夢"), array("serif", "霊夢です")) _
,array("Yukkuri", array("Name", "魔理沙"), array("serif", "魔理沙だぜ")) _
)
配列の要素0に必ずタグ名が入るようにすれば、HTMLのDOMツリーのように一環した探索ロジックが組める

2023/01/22(日) 23:17:51.08

>>857
やろうとしてることは、ゆっくりムービーメーカー４の定義ファイルをVBAで編集すること。
ゆっくりムービーメーカー４の定義ファイルはJSONになってて、
VBAではJSONが使えないから、誰かが組んだVBA-JSONを使うと
JSONがVBAのコレクションやディクショナリー(連想配列)で作られたデータになる。
そこなかで、セリフが定義されてるを連想配列を複製してセリフ書き換えてくてことをやってるんだけど、
VBAのSETて参照するだけで、その参照したものを上位の配列にaddしても、
参照先情報みたいなものがaddされるだけで、別メモリーの情報がaddされるわけじゃない。
ただ、試行錯誤していたら
一旦同じ連想配列をaddしたものを作って、
それをjsonにして、またそのjsonを連想配列に戻してやれば、
別メモリが割り当てられた連想配列が出来上がった。
そのあとは個別に要素を書き換えられる。
javascriptとかは
.配列.push({...Yukkuri[0]})
とかやれば行けたんだが、VBAは無理なのか。

2023/01/23(月) 00:40:24.32

こんどはjavaかw
できるならそっちでやれよ

2023/01/23(月) 02:01:54.23

>>858
処理対象がjsonなら最初からそう書けばいいのに
いくつか手段はあるけどVBAでやろうとすると結局面倒だし特に理由が無いなら他を検討してみては
VBA-JSONの使い方の話なら俺は知らん

2023/01/23(月) 05:38:36.83

>Excelと販管ソフトに、個々に入力してるから安心
もし、この2つが異なった値なら、システムが破綻しているw

オリジナルは1つのみ！
そして、バックアップ用のコピーを持つべき！

**861** (ｱｳｱｳｳｰ Saa7-DmZS) · 2023/01/23(月) 05:45:42.29

例えば、銀行のシステムでも、2つのオリジナルを持たない。
3人が同時入力して、多数決でオリジナルを決める

サーバーでもそう。偶数個のノードにしない。
1:1, 2:2 などの分断が起きて、どちらがオリジナルか判断できなくなる

必ず、奇数個で判断して、オリジナルを決める。
そして、オリジナルのバックアップ用のコピーを持つ

そうしないと、システムが破綻する

2023/01/23(月) 05:47:16.87

>>861
知らんがな
システムの良い悪いの判定なんてお前らに求めて無い事を察しなさい

俺以外の社員含めて理不尽な事をやってるなと思いながら仕事をしてるんだから

70歳の引退予定の上司に言ってくれ

そいつがいなくなればスッキリさせる

2023/01/23(月) 05:53:04.08

>>862
例えば3人で販管ソフトに入力したとして
その販管ソフトの仕様により、会社の必要とする情報を持てない場合はどうするんですか？
そもそも一人しか人的資源が無い場合はどうするんですか？

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/23(月) 06:43:46.30

>>872さんはキーワードで所望の範囲指定はできたのでしょうか？

2023/01/23(月) 06:47:14.18

>>872
答えな

2023/01/23(月) 07:03:42.58

>>865

変数を定義して範囲の右下のキーワードを拾って

ActiveSheet.PageSetup.PrintArea =

のところにその定義した変数を入れてやるという理屈で合ってますよね？

後はフサフサでも分かるEXCEL　VBAの本が到着してから勉強します

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/23(月) 07:11:24.85

よかったです、がんばってください！

2023/01/23(月) 08:50:43.95

>>858
> VBAのSETて参照するだけで、その参照したものを上位の配列にaddしても、
> 参照先情報みたいなものがaddされるだけで、別メモリーの情報がaddされるわけじゃない。
だから新規に作ってコピーしなよって書いたのに...
コードまで書いたのに無視するんならもうさじ投げるわ

2023/01/23(月) 09:10:22.34

>>869
新規に作るていっても、複雑な連想配列の塊をどうやって作る？
サンプルはたかだなNameとserifしかキーがないけど、
キーがいっぱいある構造のデーターをコード内でコピーするロジックを書くのは無理だと考える。
しかもその構造が動的だったらお手上げ。

2023/01/23(月) 09:18:38.98

質問スレに回答してくる人は善意でやってるだけで最終的に自分で解決できないならあきらめろって話

2023/01/23(月) 09:32:51.14

>>870
> キーがいっぱいある構造のデーターをコード内でコピーするロジックを書くのは無理だと考える。
> しかもその構造が動的だったらお手上げ。
お前にはお手上げなだけだろw
>>854 に "Name" とか "serif" なんて書いてない、キーを動的に取得してコピーしてることすら読み取れないレベルなら諦めたほうがいいと思うよ

2023/01/23(月) 09:42:01.99

マクロでやりたいなら行数が最大になるパターンで書式作っておいて、そこにデータ入力、不要な行の削除でそのまま印刷すればよくね？

2023/01/23(月) 09:55:52.06

>>872
すまんできたわ。
ありがとう。
Set Yukkuri1 = New Dictionary
を書く位置を間違えてた

2023/01/23(月) 13:24:02.41

またVBAが壊れた。
プロシージャの中でオブジェクト変数に割り当てる
ワークシート名やクエリー・テーブル名を
日本語にしているのはマズい？

2023/01/23(月) 15:15:51.75

インターネットが壊れた

2023/01/23(月) 17:40:15.92

vbaが壊れるという表現が分からない
プログラムは組んだようにしか動かない

2023/01/23(月) 18:35:46.07

先週までは問題なく動いていたブックを開くと、
すぐExcelが落ちて回復が入ってしまい、
回復ブックを開くと、プロシージャがモジュールごと丸々なくなっていた。

ワークシートのクエリーやテーブル、計算式やグラフは壊れていなさそうで、
新たにモジュールを作り直して
バックアップを取っていたプロシージャの記述をそのまま貼り付けたら、
一応、VBAも動くようになった。

過去には新たなモジュールすら作れなくなったことも。

2023/01/23(月) 19:12:29.48

自力で解決した自慢ですね、わかります

2023/01/23(月) 19:45:05.26

過去に学んでこの際だからぜんぶ変えてしまおう　またいつアプデ地獄に巻き込まれるか知れたもんじゃ無いし
https://qiita.com/Q11Q/items/7a9d4c89726cfaa7abd6

**デフォルトの名無しさん** (JP 0Hc7-j5s0) · 2023/01/23(月) 20:16:53.47

「VBAが消えてしまった！マクロが壊れて動かない！」
ってな感じで検索してみたら？