Excel VBA 質問スレ Part76

1 名前：デフォルトの名無しさん mailto:sage [2022/05/01(日) 02:23:41.78 ID:2t63WK/jM.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part75 https://mevius.5ch.net/test/read.cgi/tech/1644384272/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 327 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 08:22:04.62 ID:5eMIb3Vrd.net] イッピーカイエー、マザファッカー 328 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 08:49:54.54 ID:6bPCzkava.net] Excelできるヤツは禿が多い噂 329 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 10:02:36.84 ID:9WWLvtDBM.net] なんでわかった？ 330 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 10:14:24.43 ID:Yd1KWPfN0.net] ……君のような勘のいいガキは嫌いだよ 331 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 10:46:02.07 ID:111npCAX0.net] ハゲに関する英国法廷の判決と Calling a man ‘bald’ is sex-related harassment, employment tribunal rules (男性を「ハゲ」と呼ぶのはセクハラ、雇用法廷の裁定) https://www.theguardian.com/world/2022/may/13/calling-a-man-bald-is-sexual-harassment-employment-tribunal-rules 米イェール大法学部教授の反論 It’s Not Sexual Harassment to Call Someone ‘Bald’ (誰かを「ハゲ」と呼ぶのはセクシャルハラスメントではない) https://www.bloomberg.com/opinion/articles/2022-05-17/calling-someone-bald-is-not-sexual-harassment 後者の日本語訳論 https://courrier.jp/news/archives/288609/ スレチ、お粗末。 332 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 93ad-zgJ4) mailto:sage [2022/05/30(月) 11:31:07 ID:pTyzyEGo0.net] ユーザーフォーム上のボタンをクリックすると、 Private Sub CommandButton1_Click() End Sub のように挿入されますが、この挿入位置には法則性はありますか？ 333 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2bda-PinD) mailto:sage [2022/05/30(月) 12:13:30 ID:OyYzutpm0.net] じゃあ今度からこのスレのみんなの事を禿って呼んでええか？ 334 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 09ce-yO3c) mailto:sage [2022/05/30(月) 12:20:22 ID:wDXjGZuh0.net] 俺はExcel全然できないんだけど 335 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9917-rAsz) mailto:sage [2022/05/30(月) 12:20:41 ID:Yd1KWPfN0.net] 毎回豊田真由子口調で言うなら許す 336 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 13:30:00.03 ID:0Z9/8mJh0.net] >>328 自分で試すことってできませんか？ 337 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 14:03:07.86 ID:OgQlhvU6M.net] この、は♥げ♥ 338 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 14:03:43.38 ID:OgQlhvU6M.net] >>328 あります 339 名前：デフォルトの名無しさん [2022/05/30(月) 16:13:01.26 ID:ytFfApAu0.net] STAP細胞はありますか？ 340 名前：デフォルトの名無しさん [2022/05/30(月) 16:27:46.26 ID:Z6OL71NLa.net] >>330 https://www.youtube.com/watch?v=VctFTEm1XTE 341 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 93ad-zgJ4) mailto:sage [2022/05/30(月) 19:45:13 ID:pTyzyEGo0.net] 何か変な奴が増えたな。 前はまともな回答が得られたんだけど。 無職か 342 名前：デフォルトの名無しさん mailto:sage [2022/05/30(月) 22:28:34.36 ID:U5Ze+/Ia0.net] このハゲー 343 名前：デフォルトの名無しさん mailto:sage [2022/05/31(火) 05:25:49.12 ID:qZPc3K6R0.net] この禿げぇぇぇ！！ 344 名前：デフォルトの名無しさん mailto:sage [2022/05/31(火) 12:16:40.12 ID:e8W8kp4L0.net] 剃ってますが、何か？ 345 名前：デフォルトの名無しさん mailto:sage [2022/05/31(火) 15:23:45.24 ID:qZPc3K6R0.net] ツルッツル！ 346 名前：デフォルトの名無しさん mailto:sage [2022/05/31(火) 17:25:59.49 ID:1k2p4OCO0.net] 頭が守られなくなるから剃らない方がいいのに 347 名前：デフォルトの名無しさん mailto:sage [2022/05/31(火) 23:09:32.48 ID:rnWQ7LEg0.net] サマータイムめんどくせぇな… 今サマータイムかどうか表示したいんだけど誰か式作って笑 VBAでも数式でもどっちでもOK 348 名前：デフォルトの名無しさん mailto:sage [2022/05/31(火) 23:14:34.97 ID:0qvYGG5m0.net] サマータイムは国によって違うし年によっても違う あと自分で作らなくてもあるからぐぐれ 349 名前：デフォルトの名無しさん mailto:sage [2022/06/01(水) 10:31:55.12 ID:LqJbFkjG0.net] ググるでググれ 何回言われたか 350 名前：デフォルトの名無しさん mailto:sage [2022/06/01(水) 18:42:16.08 ID:4MDL/f8zd.net] 2022年のサマータイムはいつから？ 【開始】2022年3月27日（日）午前1時 → 午前2時へ1時間進める【終了】2022年10月30日（日）午前2時 → 午後1時へ1時間戻す（遅らせる）※スイスはUT1の国なので、上記時間にプラス1時間足した時間を基準とする。 ぐぐったらこれがでてきたからこれで計算すればいいのでは 351 名前：デフォルトの名無しさん mailto:sage [2022/06/02(木) 01:00:25.06 ID:ww3inSB20.net] VBAでやる意味がわからん 352 名前：デフォルトの名無しさん [2022/06/02(木) 11:08:01.45 ID:MPFVtYTLa.net] >>342 +1 いろんなものにぶつけやすいよなωωωωωωωωω 353 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 992f-SJsm) [2022/06/02(木) 13:37:12 ID:wjg1CkCV0.net] 会社ではVBAしか使わしてくれんのじゃ。 アルツハイマーでもこれくらい分かる。 354 名前：デフォルトの名無しさん mailto:sage [2022/06/03(金) 01:37:10.45 ID:d1WjLs5X0.net] 時刻の書かれたセルの編集するのか？ 355 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdb3-95+F) [2022/06/03(金) 02:52:19 ID:mOQ1024Gd.net] >>350 その程度の発想しか出来ない人は書き込みしなければいいのに 356 名前：デフォルトの名無しさん mailto:sage [2022/06/03(金) 05:47:43.61 ID:d1WjLs5X0.net] >>351 自力でサマータイム求められない奴に言えよ 357 名前：デフォルトの名無しさん mailto:sage [2022/06/03(金) 07:19:45.45 ID:XQuJ+afhD.net] >>352 このスレの多くの人が当てはまってしまう 358 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMab-yO3c) mailto:sage [2022/06/03(金) 11:29:40 ID:pHjmbkhpM.net] 夏が来れば思い出す 359 名前：デフォルトの名無しさん mailto:sage [2022/06/03(金) 15:31:03.54 ID:726WZH160.net] サマーソルトキック 360 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 05:59:25.84 ID:nF/95LMud.net] 海外ネトゲでサマータイムに苦しめられてるから VBAじゃないけどC#でちっこいの作ったわ 361 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 06:14:22.15 ID:nF/95LMud.net] Application.OnTime　使えば、一分ごとに表示変えるとかできるね あとは面倒だけどサマータイムに入る日時と出る日時計算する関数作って・・と 362 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 07:08:46.25 ID:wpuL0IDQD.net] サマータイムこれから実装なんて何回車輪の再発明するつもりだろう 363 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 14:35:11.71 ID:2NGB/tgF0.net] >>356 やってることruby厨と一緒だな 364 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1a3d-Xy6N) mailto:sage [2022/06/04(土) 15:02:27 ID:a2v34LYj0.net] VBAで自分自身のファイル名を持ってくる場合て、 エクセルVBAなら Debug.Print ThisWorkbook.Name パワポVBAなら Debug.Print ActivePresentation.Name だけど、 そもそも自分がエクセルなのかパワポなのかを判断することてできる。ActiveDocument 365 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 16:08:31.18 ID:a2v34LYj0.net] Excelとワードで同じVBAを流してみたんですが、挙動が異なる。 これってバグ？ https://i.imgur.com/oKs1K0l.jpg office2013です。 Set myDocument = ActiveDocument 'Set myDocument = ActiveSheet x = 110: y = 10: r = 100: h = 100 a = 0.3 Set shp = myDocument.Shapes.AddShape(msoShapeArc, x, y + r * (1 - a), r, r * a) With shp .Adjustments.Item(1) = -180 .Adjustments.Item(2) = 180 .Line.DashStyle = msoLineDash .Line.Weight = 2 End With Set shp = myDocument.Shapes.AddShape(msoShapeArc, x, y, r, r) With shp .Adjustments.Item(1) = -180 .Adjustments.Item(2) = 180 .Line.DashStyle = msoLineSolid .Line.Weight = 2 End With 366 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 16:13:58.10 ID:tUjUVaiz0.net] >>361 単に円の中心をどこにおいて描画するかって違いでしょ 仕様としか 367 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 18:56:04.34 ID:a2v34LYj0.net] >>362 確かに違う。 でも、なぜWordとExcelで仕様を変える必要がある？ どっかに明記してあったけ？ 368 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 19:07:16.56 ID:tUjUVaiz0.net] >>363 考え方が逆 エクセルとワードのオブジェクトが全然別物なのに、vbaのコードが似てる事が奇跡なんだよ 俺からすれば、よくぞ無修正で動いてるなってのが素直な感想。結果が同じなんて微塵も期待しない エクセルvbaをワードvbaに移植しようなんてそもそも思わない 369 名前：デフォルトの名無しさん mailto:sage [2022/06/04(土) 21:44:29.71 ID:a2v34LYj0.net] >>360 自己解決した。 Application.Caption でなんとなくわかる 370 名前：デフォルトの名無しさん [2022/06/04(土) 22:59:19.25 ID:6tY8trDcd.net] >>365 馬鹿は日記を書くな Application.Versionだろうが 371 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 00:15:07.27 ID:LBKd1m9qd.net] ファイル名がわかってるんなら拡張子を見れば？ 372 名前：デフォルトの名無しさん [2022/06/05(日) 05:39:30.94 ID:exW/DWN40.net] どっちも極端 Objectが別物だって理解していれば 使い回しが効く部分は使いまわせる EXCEL VBAの使える部分をACCESSで使ったり VBSの挙動確認のためにEXCELのVBAに 落とし込むなんてザラにあること。 373 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 06:24:20.21 ID:VDGjTDhq0.net] >>366 バカはお前だろ。 Application.Versionで何が区別がつく。 全部同じ値だ。 374 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 07:45:08.95 ID:vTlNlLry0.net] バカって言う方がバカなんですーの典型的な例 375 名前：デフォルトの名無しさん [2022/06/05(日) 09:11:03.70 ID:VKHbv3il0.net] ハゲって言う方がハゲなんですーもよく当てはまる例 376 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 09:42:13.57 ID:GrqOyp5w0.net] いいから仲良くしろください 377 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 10:32:25.90 ID:5rczsPhbD.net] セルの書式を配列に保存しておきたい場合、 Rangeオブジェクトの配列を使わなきゃダメですか 378 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 10:55:59.24 ID:vTlNlLry0.net] 設定の情報を文字列化すればstring型でもいけるんじゃないかな？ 保存したい情報が複数あるならカンマで結合してsplitで取り出せば良いだけだし 379 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 11:47:56.31 ID:eL6jNkf4d.net] 表示形式と背景色なら文字列にできるけど、書式って文字列に変換可能か？ 罫線って文字列で取れたっけ 380 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 13:43:06.66 ID:vTlNlLry0.net] 罫線の有無をTrue/Falseで判定すればいけない？ 381 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 14:12:04.89 ID:MGWqyCtZ0.net] >>375 > 罫線って文字列で取れたっけ 数値（列挙値）で取れるんだからテキトーに文字列化すればいいやん >>376 太さ、線種（鎖線とか）や色もあるから 382 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 14:15:50.06 ID:x/GFG4oyM.net] 罫線はRangeオブジェクト(のプロパティ)ではなくてBorderオブジェクト 383 名前：デフォルトの名無しさん [2022/06/05(日) 15:54:50.02 ID:udiiYXiVa.net] // n = 1, 2, 3 or 4 b = sheet.Cells(r, c).Borders(n) b.Weight 代入&参照 b.LineStyle 代入&参照 384 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 16:38:39.08 ID:MGWqyCtZ0.net] >>379 斜め線もあるしそもそもXlBordersIndexは1〜4じゃないぞ https://docs.microsoft.com/ja-jp/office/vba/api/excel.xlbordersindex 385 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 20:07:10.90 ID:dqA2RGZhd.net] 結局Rangeで格納した方が早いわな 配列が嫌ならコレクションとかでも行けるけど 386 名前：デフォルトの名無しさん mailto:sage [2022/06/05(日) 20:27:14.52 ID:GrqOyp5w0.net] 書式を保存するシートを別に作っておいたほうが楽じゃない？ 387 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 86da-fOeb) mailto:sage [2022/06/05(日) 23:49:37 ID:YrlocrIV0.net] 禿達ってなんですぐ喧嘩になるの？ お互い譲り合えば良いじゃん。 388 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 892f-M86+) [2022/06/06(月) 00:12:23 ID:RB7fKeqq0.net] おたがいハゲましあっていますよ 389 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdea-jate) [2022/06/06(月) 00:18:34 ID:fgz41eYud.net] >>383 みるみる毛が減るようになればわかるよ 390 名前：デフォルトの名無しさん mailto:sage [2022/06/06(月) 01:40:02.35 ID:CD+x4MGM0.net] 禿鷹のくせに 391 名前：デフォルトの名無しさん mailto:sage [2022/06/06(月) 01:45:08.65 ID:LVkl0QQt0.net] そこをなんとか、Excelでwebview2を使うことは出来ませんか? 392 名前：デフォルトの名無しさん [2022/06/06(月) 03:13:52.17 ID:fgz41eYud.net] >>386 馬鹿にするな！うっすらとまだ残っているわ！ 393 名前：デフォルトの名無しさん [2022/06/06(月) 05:44:12.69 ID:RB7fKeqq0.net] >>388 このハゲ！ 394 名前：デフォルトの名無しさん mailto:sage [2022/06/06(月) 10:06:09.33 ID:JILrjNOSM.net] >>387 無理、素直に.net使え 395 名前：デフォルトの名無しさん mailto:sage [2022/06/06(月) 13:21:31.23 ID:4DEc3eXi0.net] >>383 > お互い譲り合えば良いじゃん。 「ネコと和解せよ」 https://youtu.be/52fdqGMawwc (逆再生という指摘もあるが・・・) 396 名前：デフォルトの名無しさん mailto:sage [2022/06/07(火) 22:41:43.65 ID:mgVGi2C30.net] 'Word,Excel,Powerpointどれでも動くようにする Select Case True Case Application.Caption = "Word" Set myDocument = ActiveDocument Case InStr(Application.Caption, "Excel") > 0 Set myDocument = ActiveSheet Case Else Set myDocument = ActivePresentation.Slides(1) End Select 'あとはmyDocument.なんとかで操作すればどれでも動く。 397 名前：デフォルトの名無しさん [2022/06/08(水) 00:49:01.93 ID:cIjXs1I0d.net] >>392 馬鹿の日記はお断り 398 名前：デフォルトの名無しさん [2022/06/08(水) 00:54:12.05 ID:jfy5wCdsM.net] ハゲの日記なら大丈夫？ 399 名前：デフォルトの名無しさん [2022/06/08(水) 00:55:55.27 ID:cIjXs1I0d.net] 今日は毛が341本抜けました とか読みたい？ 400 名前：デフォルトの名無しさん [2022/06/08(水) 01:01:21.01 ID:cIjXs1I0d.net] 唐突ですが、30歳を過ぎて頭皮を去っていく髪の毛が増えてきました。 今までは粘着力の強いコロコロで定期的に取っていましたが、これが厄介で、頭からからは簡単に抜けるくせにカーペットからはなかなか離れようとしません。 また、いくら自分の髪とはいえ、毛の大群がまとわりついたコロコロを剥がすあの瞬間が最高に嫌いでした。 勿体無いかな…でも欲しいな…など思いつつダ〇ソンのハンディタイプを買おうと迷った事もありましたが、1/5のお値段で高評価のこちらの商品でとりあえず様子見することに。外箱が思っていたよりもかなり小さく、最初は失敗したかと思いましたが、開けてみると質感も良く、これなら部屋のどこに置いても邪魔にならなそうです。 そして肝心の吸引力ですが、あんなにコロコロで取れなかった脱走兵どもが綺麗に吸い込まれていくではありませんか！ ついでにいつぞやの晩酌の際に食べこぼしたクルミの欠片など、多少大きさのある物でも綺麗に吸い込んでくれます。もしかしたらダ〇ソンはもっと強力に吸ってくれるのかもしれませんが、私と同じような悩みをお持ちの方でしたら、これで十分でしょう。アタッチメントも布団用や狭いところ用のものもついていますので便利です。 もういっそ 401 名前：、頭に直接この掃除機をかけた方が早いんじゃないかと思ってしまう程です。 [] [ここ壊れてます] 402 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 02:36:31.18 ID:3hgKnM3d0.net] ち○毛や脇の下まで薄くなった俺は？？ 403 名前：デフォルトの名無しさん [2022/06/08(水) 07:20:52.11 ID:fAskgOC50.net] ここはHGのあつまりでつね 404 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 08:24:09.17 ID:0P23HUlSM.net] MGかPGが良いなぁ 405 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 09:48:44.91 ID:pnJSpG8Od.net] はげもげぱげ 406 名前：228 mailto:sage [2022/06/08(水) 17:24:59.25 ID:C2b/Gc96H.net] 以前こちらでお世話になったものですが、うまくファイルに転記できないためまたお力をお借りしにきました。。 ２つのブックがあって、別のブックにエリアごと（B列で判定）のデータをぺたぺた貼って保存すればOKなんですが 元データが10万行くらいあって、なぜかブックはエリアごとに保存は出来るのですが、あるはずの半分くらいのデータしかコピペできてないのです。 コピペで切り貼りしたコードで見づらいくて申し訳ありませんが、おかしいところがあれば教えていただけないでしょうか？？（H列が最右の列でTOTALにあたります） ■データのイメージ　延々と下に10万行くらいあります。 A列 B列　　　　C列　　　　　D列　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　TOTAL 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Distribution (PCW; Sales value) 0.01 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Market size (Value) 339,651.60 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Sales per store selling item (Unit) x1,000 5,744.20 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P473ML 4960405664923 Sales per store selling item (Value) x1,000 573,148.54 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Distribution (PCW; Sales value) 0.05 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Market size (Value) 697,424.54 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Sales per store selling item (Unit) x1,000 6,850.74 業態合算 全国 その他 OTHERS ｵｷﾅﾜﾓ ﾓﾘﾅｶﾞﾖ-ｺﾞ P946ML 4960405664947 Sales per store selling item (Value) x1,000 871,208.64 業態合算 東海 大容量 PKS SOYBIO ｿｲﾋﾞｵﾄｳﾆﾕｳY ﾌﾟﾚ-ﾝﾑﾄｳKP400 4589850822179 Distribution (PCW; Sales value) 41.70 業態合算 関東 大容量 PKS SOYBIO ｿｲﾋﾞｵﾄｳﾆﾕｳY ﾌﾟﾚ-ﾝﾑﾄｳKP400 4589850822179 Market size (Value) 197,839,014.22 407 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 17:26:49.54 ID:C2b/Gc96H.net] コードです　長いので分けます Sub Export_ExcelFile() '変数の定義 Dim Wb1 As Worksheet, Wb2 As Workbook, FileNam As String Dim xPath As String Dim key As String Dim i As Integer Dim Sh1 As Worksheet Dim Sh2 As Worksheet Application.ScreenUpdating = False 'ワークシートを指定する Set Sh1 = ThisWorkbook.Worksheets("Sheet1") 'データの始まり2行目を指定 Dim start As Long start = 2 Set Wb1 = ActiveSheet '元シートをActiveSheetにセットする '出力先のパスを指定 With ActiveWorkbook xPath = .Path & "\" 'ファイルが置いてあるフォルダからのパスを指定 End With 408 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 17:27:20.86 ID:C2b/Gc96H.net] 'エリアが空欄の位置までループ Do While Sh1.Cells(start, 2) <> "" Set Wb2 = Workbooks.Add ' 新規ブック作成 Set Sh2 = Wb2.Worksheets("Sheet1") '新規ブックのシートを指定 'ファイル名に付ける日付を取得 Dim strDate As String strDate = DateSerial(Year(Now), Month(Now), Day(Now)) strDate = Format(strDate, "yyyymmdd") 'Excelファイル出力 FileNam = xPath & Sh1.Cells(start, 2).Value & "" & strDate & ".xlsx" 'コピー元の最初のエリア名を取得 key = Sh1.Cells(start, 2).Value '同じエリア名が続く間はループ Sh1.Activate Do While Sh1.Cells(start, 2).Value = key 'データ行に色をつける Cells(start, 7).Resize(1, 1).Interior.Color = RGB(255, 0, 0) 'Cells(i, 7).Resize(1, 1).Interior.Color = RGB(255, 0, 0) i = i + 1 'コピー先の行を一つ下にずらす。 start = start + 1 'コピー元のエリア名行を一つ下にずらす。 Loop 409 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 17:27:41.62 ID:C2b/Gc96H.net] Dim mySheet As Worksheet: Set mySheet = ActiveSheet '赤く塗られた行をソートしてコピペする Dim myRange As Range: Set myRange = mySheet.Range("A1").CurrentRegion myRange.AutoFilter Field:=7, Criteria1:=RGB(255, 0 _ , 0), Operator:=xlFilterCellColor myRange.SpecialCells(xlCellTypeVisible).Copy Sh2.Activate Range("A1").Select ActiveSheet.Paste Sh2.Range("G:G").Interior.Pattern = xlNone mySheet.ShowAllData Sh1.Range("G:G").Interior.Pattern = xlNone '分割したファイルを保存して閉じる Wb2.SaveAs Filename:=FileNam ' 同一フォルダに保存して閉じる Wb2.Close '分割ファイルのブックを解放 Set Wb2 = Nothing Loop Application.ScreenUpdating = True MsgBox "終わったよ" End Sub 410 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 17:31:00.27 ID:C2b/Gc96H.net] 元データを少なくして全部で50行くらいにしたら上手くファイルを分けて保存出来てたんですが、、、 もし問題点がお分かりになる方いらっしゃったらよろしくお願いしたいです(>_<) 411 名前：デフォルトの名無しさん [2022/06/08(水) 18:24:26.53 ID:38a4SNrC0.net] integerの最大っていくつまでだっけ？ 412 名前：デフォルトの名無しさん [2022/06/08(水) 18:40:07.58 ID:lFvBESVva.net] 2 ^ 15 - 1 = 32767 じゃね 413 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 18:40:44.71 ID:mwMQbcQT0.net] ググれよ 414 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ c1da-/lmG) mailto:sage [2022/06/08(水) 19:08:37 ID:/v6Td7Qv0.net] >>396 面白いんですけど何で商品の話ですか 415 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa11-fRoS) [2022/06/08(水) 19:25:08 ID:2MMAQscUa.net] 32bitのexcelと64bitのexcelでintの範囲違うんだろうか (もちろんOSの話ではない) 416 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 19:34:40.24 ID:38a4SNrC0.net] >i = i + 1 'コピー先の行を一つ下にずらす。 ってあるから貼り付け先が integer 超えたらだめじゃねって思った 417 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 19:43:22.59 ID:60yE+Uw7d.net] Dim 残りの髪の毛 As byte Dim 抜け毛 As LongLong あとよろしく ↓ 418 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 19:45:48.83 ID:C2b/Gc96H.net] >>411 なるほど！どうりで最後まで貼られてなかったんだ(´;ω;｀)早速ありがとうございます。 ちょっと自分でやり直してみます！！m(__)m 419 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 19:46:53.74 ID:C2b/Gc96H.net] >>412 流れぶった切ってゴメンなさい でも考えすぎてハゲそうな勢いでした。。頭悪くてイヤになります。。 420 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 20:12:39.32 ID:C2b/Gc96H.net] ダメだ、integerをlongに替えてやってみたけど やはり半分以下しか貼られませんでした。 もう少し頑張ってみます 421 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 20:25:07.29 ID:C2b/Gc96H.net] 自己解決しました。1つのエリアの塊が飛び飛びになってたので 同じエリアのブック内で上書きされてたみたいです。 でも皆さんのおかげで解決出来ました。ありがとうございました！ またハゲそうになったらこちらに伺いたいです。。懲りずによろしくお願いいたしますm(__)m 422 名前：デフォルトの名無しさん mailto:sage [2022/06/08(水) 22:42:41.32 ID:3hgKnM3d0.net] また毛 423 名前：デフォルトの名無しさん mailto:sage [2022/06/09(木) 00:00:12.33 ID:XIUzPNKLM.net] ※よろず～ニュース 波平さん銅像に髪の毛戻る　引き抜かれてから５日の〝スピード植毛〟 https://yorozoonews.jp/article/14640597 杉田 康人 https://public.potaufeu.asahi.com/dd83-p/picture/26885823/46ac4b106abdd0873e85fa50ea6f8cbb_640px.jpg 東京都世田谷区の桜新町商店街にある人気アニメ「サザエさん」一家の銅像から引き抜かれていた髪の毛が８日、復活した。同商店街によると３日朝、波平さんのトレードマークとなっている貴重な１本毛が抜かれているのが見つかった。ワカメちゃんの頭頂部から跳ね出した〝アホ毛〟３本もなくなっていたが、商店街の依頼を受けた業者が８日午後までに修復した。 サザエさん一家は、桜新町に住んでいる設定。作者の長谷川町子氏の美術館・記念館おひざ元の桜新町商店街は、作品ゆかりのストリートとして知られる。銅像は２０１２年（平成２４）に建立したが、商店街の担当者によると波平さんはこれまでに６度、毛を引き抜かれる憂き目に遭っている。ワカメちゃんの髪が抜かれるのは初だという。 　銅像の髪の毛は、針金にビニールをコーティングしたもの。（略） ※省略していますので全文はソース元を参照して下さい。 424 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM39-M86+) [2022/06/09(木) 04:46:01 ID:CxlByAWLM.net] このハゲ 　　　　　　／￣￣￣￣￣￣＼ 　　　　／　　　　　　　　　　　　 ＼ 　　　/　　　　　　　　　　　 　 　 　 ヽ　 　 　 l:::::::::.　　　　　 　 　 　 　 　 　 |　 　 　 |:::::::::: 　　（●） 　 　 （●）　　 |　 　　　|::::::::::::::::: 　 ＼＿＿_／　　 　 |　　 　 　 ヽ:::::::::::::::::::.　　＼／　　　　　ノ 425 名前：デフォルトの名無しさん [2022/06/09(木) 19:07:14.80 ID:cD/wL2EQ0.net] いや お前らハゲ散らかし過ぎだろ 426 名前：デフォルトの名無しさん [2022/06/09(木) 21:45:50.80 ID:WYCVR9XP0.net] >>420 そんなつもりは毛頭ございません 427 名前：デフォルトの名無しさん mailto:sage [2022/06/09(木) 22:38:52.28 ID:pASwhhxq0.net] パソコンばっかやっているから禿るんだわ いい加減気がつけよ

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef