Excel VBA 質問スレ Part69

1 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 00:22:23.67 ID:Fd224klc0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付ける ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part68 https://mevius.5ch.net/test/read.cgi/tech/1598756127/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 321 名前：デフォルトの名無しさん mailto:sage [2021/01/23(土) 12:56:50.53 ID:E44LngeNd.net] MsgBox でTESTと表示できたときの感動ったらなかったね！ これから、少しずつ勉強するぞ 322 名前：デフォルトの名無しさん mailto:sage [2021/01/23(土) 18:45:02.47 ID:H5pOJUEN0.net] >>305 それIEでも使うな。 よくわからんけど、F12で中が見られない子ウインドウが出るサイトとかある。 323 名前：デフォルトの名無しさん mailto:sage [2021/01/23(土) 21:45:57.51 ID:AoWSUa07d.net] >>321 それ単なる画像じゃね？ 324 名前：デフォルトの名無しさん mailto:sage [2021/01/23(土) 23:31:46.72 ID:H5pOJUEN0.net] >>322 ObjectFromLresultとgetElementByで値取れるから画像じゃないと思う。 どういう仕組みのウインドウなのか知らんけど。 325 名前：デフォルトの名無しさん mailto:sage [2021/01/24(日) 05:01:50.09 ID:O96X//w/0.net] 田中君 広瀬君 桜井君 松岡君 326 名前：デフォルトの名無しさん mailto:sage [2021/01/24(日) 11:41:17.66 ID:NPfUvm+L0.net] >>323 それで取れるならF12でも取れるんじゃね? それかF12押してる対象が違うか。 327 名前：デフォルトの名無しさん mailto:sage [2021/01/25(月) 00:06:00.16 ID:bvf1oedN0.net] >>325 クリックして、アクティブ&最前面にしてF12押しても何も出てこないんだよね。 328 名前：デフォルトの名無しさん mailto:sage [2021/01/25(月) 01:12:50.11 ID:YwFiLI6Vd.net] >>326 エロサイトでも怒らないから、ちょっとそのサイト晒して 329 名前：デフォルトの名無しさん mailto:sage [2021/01/27(水) 02:51:52.41 ID:jiG8/Aof0.net] >>326 Fが12個表示されてないか？ 330 名前：デフォルトの名無しさん mailto:sage [2021/01/27(水) 08:04:15.56 ID:rs7ltanux.net] F*ck F**k FFFFF**k 331 名前：デフォルトの名無しさん mailto:sage [2021/01/27(水) 16:24:41.99 ID:q3mmuO0LH.net] 下記の４行で問題なくIEでURL開けたのですが、 Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "aaa.com/bbb.html" 保存する部分のプログラムがネット上で見つかりません。 hogehoge.htmlでc:\でもエクセルファイルパスでも。 開ききるまでの Do Loop とか、参照の追加とか、 他の必要な事項はわかったのですが、「保存」だけがわかりません。 お願いします。 332 名前：デフォルトの名無しさん mailto:sage [2021/01/27(水) 16:48:32.96 ID:PEXoVVseH.net] >>330 URLDownloadToFile https://tonari-it.com/excel-vba-windowsapi-urldownloadtofile/ 333 名前：デフォルトの名無しさん mailto:sage [2021/01/27(水) 19:08:59.20 ID:SKP56GPf0.net] コレクション便利すぎワロタ 334 名前：299 [2021/01/27(水) 23:35:24.32 ID:L0AdvpAm0.net] とりあえず個人のPCでSelenium BasicとChrome Driverをダウンロードして、VBAでChromeを操作してみました。 構文の違いを理解するのにちょっと時間がかかりましたが、VBAでIE操作と同じようなことができました。 しかし、IEに比べてかなり遅いですね。。 とくにFor-nextとかFor eachとかで複数個あるClassを一個ずつ取得してくのがかなり遅い・・。 335 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 05:46:17.68 ID:u8tdLuFb0.net] >>330 最近のWindows には、curl コマンドも入った コマンドプロンプトで、where curl と入力すると、 C:\Windows\System32\curl.exe これとは別に、PowerShell にも、curl コマンドがあるけど、 これは別のコマンドのエイリアスだけど 336 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 10:11:50.01 ID:ecmWwtyQH.net] >>331 ありがとうございます。無事目的は果たせました。 ただし、２点、罠が潜んでました。解消しましたので謎解きは不要です。 １　コピペで張り付けたとき、URLを指定してる行が赤くなって、VBAに否定されました。 　　URL"のあとのセミコロンがお気に召さなかったようです。削ったら赤い表示は消えました。 　　コピペしたときに改行コードがかわった？ ２　取りに行く相手が社内サーバのドメイン持ちだったのでドメイン指定したら、なんかダメで、 　　MACも以前そんな反応したことを思い出して、IPアドレス（192.168.*.*）で指定したら動きました。 >>334 curl について調べましたが、数か所で見た説明自体がわかりませんでした。（泣） お手数かけました。 337 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 10:21:40.83 ID:8thmnp2a0.net] >>315 熟練者はそれだけ分かるのかー そもそもvbaのマニュアルというものがないしやりたいことのプロパティやメソッドは皆どうやって調べてるのか気になる まあ今はネットあるけどネット普及してなかった90年代はF1で調べてた？ 338 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 10:58:39.20 ID:3f25njR4H.net] >>336 90年代はみんなマニュアル本を買ってた 中身は英語のオンラインヘルプを翻訳して印刷しただけの物なんだけど、誤植と誤訳だらけ VBAに限らず、1冊3000円〜8000円ぐらいのぶ厚い本が大きい本屋のパソコンコーナーに並んでた 339 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 11:18:10.18 ID:3f25njR4H.net] こういう辞書みたいなやつ、みんな持ってた https://i.imgur.com/D0Vbidw.png 340 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 11:56:54.04 ID:RkzGmpaJd.net] あ、そうなのか こうゆう辞書みたいな本はマイクロソフトから情報もらって作ってたのかなね 英語ヘルプで試行錯誤で作ってたのかね 341 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 11:58:15.69 ID:8m13k+420.net] これじゃないけど分厚いの1冊持ってるわ 342 名前：デフォルトの名無しさん [2021/01/28(木) 15:38:23.08 ID:jA4rpiExM.net] 今のExcel VBAって日本語ヘルプ付いてないの？ 343 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 15:51:32.46 ID:zfNxSqnZd.net] >>339 発売前に英語版のヘルプが入ったCDをMSから送って貰って、それを手分けして翻訳した Officeじゃないけど翻訳のバイトしてた >>341 あるけど、今はオンラインヘルプに飛ばされるからネット環境がないと見れない 昔のバージョンはローカル化できたけど今は無理だと思う 344 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 15:53:40.51 ID:8m13k+420.net] F1ヘルプはあんま役に立たない 345 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 15:55:46.33 ID:8thmnp2a0.net] >>342 バイトすごいですね 今は何の職業？ 346 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 19:35:23.37 ID:1VXsvNu50.net] Ｅｘｃｅｌのハイパーリンクをクリックするたびに ＭＳのサイトにアクセス先の情報を送って そこからリダイレクトしていたという 衝撃の事実を今日知った。 １０年以上つかってて気が付かなかったよ 死ねこいつら 347 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 20:13:31.96 ID:RkzGmpaJd.net] >>345 え、これマ？ 348 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 20:18:19.29 ID:cYs3zIiO0.net] ソースを 349 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 20:26:06.12 ID:1+p+qv3s0.net] これ買っとけばいいみたいなど定番の本はある？ ネットでやりたいことをちょこちょこパクって繋げてるけど限界だわ 汎用性の高い一つの大掛かりなVBAを組もうとしたら圧倒的に知恵がない 350 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 20:34:03.81 ID:8m13k+420.net] ネットで調べても書き方が人それぞれだったりちゃんと整理されれなかったり 肝心の自分の目的を書いてなかったりそんなんばっかだからな。 それらの無駄とストレスを減らすために、辞書は1冊あった方がいいな。 書き方と順序が統一されてるだけでも有用。 351 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 20:35:31.88 ID:8m13k+420.net] できる大辞典は定番ではある 他の本はいらん これにないなら諦めて他で調べればいい 352 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 20:54:55.16 ID:8thmnp2a0.net] vbaでIEとかChromeとか操作できるのは最近分かったけど(やったことはない)、他に操作できるアプリってどのくらいあるの？？ 353 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 20:55:48.34 ID:8m13k+420.net] エッジもできる 354 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:05:03.93 ID:8thmnp2a0.net] あ、ブラウザー以外でおねがいしゃす 355 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:09:54.36 ID:eBfsAdOM0.net] >>345 それExselとか書いてないかい？w 356 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:27:46.20 ID:1VXsvNu50.net] https://superuser.com/questions/444984/excel-hyperlink-not-redirecting-properly-bug This is a known Microsoft bug where hyperlinks are redirected to another page if: You are using Microsoft Internet Explorer: with a proxy server while using a firewall that does not allow HTTP requests on your local network Internet Explorer is not your default browser. The ForceShellExecute registry key is not present or is not set to 1 You can apply the fix from here: support.microsoft.com/kb/218153 バグなんてもんじゃねえ 357 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:31:23.39 ID:ABoKcn6c0.net] >>351 参照設定の中に入ってるのは普通に動かせるし、 WindowsAPIとUIAutomationとSendKeysがあるから、 マウスとキーボードで動かせるようなものなら大抵。 極端な例を言うと、VBAで仮想のファミコン(エミュ)を作ってマリオ動かす人もいる。 358 名前：デフォルトの名無しさん [2021/01/28(木) 21:34:15.56 ID:46r/uxOM0.net] >>348 ｢一度死んでみた｣ 359 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:37:00.50 ID:ABoKcn6c0.net] って書いてて思ったんだけど、 IRモジュール使ってVBAでテレビとかエアコン動かせる人いる? 360 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:50:11.88 ID:O9WqV6fA0.net] 俺さ、VBAのソース書いてて インテリセンスが糞だと思ってたけど 上には上があるんだなぁ 今ClassicAspとかいう昔の組んでるんだけど HTMLとJavaScriptとVBScriptで出来てて テキスト編集ツール使って テキストファイルで作ってる もちろんインテリセンスなんて全く効かない そうなると一番怖いのが文法エラー VBAなんかだと一発で分かるけど 最初っからコンパイル自体されないので どこでエラーになっているか 全く分からない 361 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:57:01.68 ID:SI9VK8hs0.net] ブラウザの開発ツールの使い方を知らないだけでは 362 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 21:58:09.32 ID:8thmnp2a0.net] >>356 vbaでエミュってエミュをvbaで起動してるってことではなく？ 何をどうやったら作れるのか不思議 vbaでIoTの組み込みや操作も可能なのだろうかー 363 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 22:02:50.14 ID:TxA55uF+M.net] 元々仕事でなんとなしに触らざるを得なくなってコピペやらその場限りのググりで生きながらえてきたんだけどちゃんと筋道立てて1から勉強したいというときに適した本やサイトはありますか？ 364 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 22:04:15.85 ID:8m13k+420.net] 本はある サイトはない 365 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 22:04:36.53 ID:8m13k+420.net] 本も当然、1冊では終わらん 入門編から順に買うことになる 366 名前：デフォルトの名無しさん [2021/01/28(木) 22:05:55.11 ID:46r/uxOM0.net] >>359 馬鹿は黙っていればいいのに 367 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 22:49:59.34 ID:TfrdJEz20.net] >>362 慣れてきて半人前くらいになってきたな、と思うならこの本 入門レベルでは決して足りない実務に必須のスキルとは ExcelVBA 実戦のための技術 368 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 23:07:43.56 ID:ABoKcn6c0.net] >>361 VBAでエミュ。 今は消えてるけど、以前ここにワードで動かしてる動画があった。 https://www.nicogame.info/ja/watch/sm28022855 UPされた当時は実機並みのスピードは出てなかったけど、 今のハイスペックPCで動かしたらどうだったか・・。 369 名前：デフォルトの名無しさん mailto:sage [2021/01/28(木) 23:11:02.95 ID:8thmnp2a0.net] >>367 謎技術 370 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 00:41:18.26 ID:R2RLQXG+0.net] VBAって当たり前だろうけどエクセルの基本的な知識がないと使えないよね？ エクセル全然知らないから大変だな… 371 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 00:42:02.94 ID:SG5MocSx0.net] それじゃ役に立てる場所がないじゃん 実践で使わないと上達しないぞ 372 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 00:49:19.50 ID:SG5MocSx0.net] 未来の開拓のため！つっても普通 「よし、エクセルを覚えるぞ」からだろそれは… PCにエクセルをインストールしてエクセル入門の本を買うところからだな 書式とか関数とかピボットとかスイスイできるほどに覚えてからだなVBAは でないとプログラムの意味も理解できない 373 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 01:35:07.55 ID:R2RLQXG+0.net] >>371 助かります！ 374 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 02:08:08.30 ID:R2RLQXG+0.net] エクセル初歩から覚えるなら絶対買っとけ！って書籍やサイトはありますか？ 375 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 02:35:09.20 ID:SG5MocSx0.net] 「絶対」は無い。 まあ「絶対ではないがまったり普通に」、 FOM出版のよくわかるシリーズでいいのでは。 当然最初は基礎編ね。 スレ違いだからこれ以上は然るべきところで聞くのがいいと思う。 376 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 03:41:44.14 ID:IWwHfNXwH.net] >>373 入門サイト https://excel-ubara.com/excelvba1/ 377 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 03:58:52.37 ID:R2RLQXG+0.net] >>374 >>375 ありがとう！！ とりあえず神髄を参考にしていきます 378 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 08:15:50.80 ID:Xkyf+iIu0.net] >>369 いや、Excelの知識無くてもVBだけでExcelを動かしてる人いますぜ その人当然ワークシート関数をろくに知らない 379 名前：デフォルトの名無しさん [2021/01/29(金) 09:35:52.52 ID:Llo2P1qs0.net] 昭和の頃は、Excel講座に通うサラリーマンはバカにされてたけど、同時にvi使える人が達人として尊敬されてた。 どう考えてもテキストエディタより表計算のほうが技能必要だけど。 380 名前：デフォルトの名無しさん [2021/01/29(金) 09:38:10.99 ID:Llo2P1qs0.net] 日本の成長に脅威したCIAが、たいていの問題に対して使える優秀な製品を貶し、使いどころの限られる古いテキストエディタユーザーを神扱いしたのではないか？ 381 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 09:40:46.74 ID:higCsMc/M.net] そもそもVBAは最後の手段であって、それを活用することは決して褒められたものじゃない ワークシートの機能で簡単にできることを知らずにシコシコ馬鹿みたいにVBA書いてるアホは多い 382 名前：デフォルトの名無しさん [2021/01/29(金) 09:44:43.17 ID:Llo2P1qs0.net] 結果、CIAの思惑通り、標準的な日本人はviを使いこなせるが、Excelを使いこなす日本人は少ない。 Excelを使いこなせた方が絶対便利なのに。 383 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 09:55:51.98 ID:eIG6sa+UM.net] テキストエディタはC++やJava などでプログラム開発するためのただの道具だけどな むしろ本格的なプログラム組むならVBAは汎用性に欠ける 384 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 10:15:15.81 ID:9nrwkhnr0.net] >>378 昭和にExcelあったっけ？ 385 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 10:17:07.73 ID:9nrwkhnr0.net] 最近はSheetというかExcelの外でのExcelVBAの活用方法を知りたい 386 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 10:28:32.08 ID:Hw3psapAM.net] Excelと他のアプリを連携するにしてもある程度の規模になるとVBAではなくてOffice add-ins(JavaScriptまたはTypeScript)やVSTO(C#)の利用をMicrosoftは推進してる あくまでVBAはMS Officeのシステムの枠内で処理の自動化を実施するための道具 387 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 11:18:05.10 ID:smfBIAno0.net] >>383 Excel 自体は存在したけど日本語版じゃないしMac用だからリーマンが講座に通うとかはありえんだろうな アメリカのリーマンかも知れんがw 388 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 11:33:25.67 ID:IWwHfNXwH.net] 一番最初にMac版が発売されたのは昭和60年9月、ただしこの時点ではマクロは使えなかった Windows版は昭和62年10月発売で、ここからマクロ機能が搭載された この時代だと、viが使える人は別に尊敬されてない そもそもほとんど知られてなかったんだから、使える人がすごいとか判断すらできなかった 389 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 13:42:22.04 ID:Xkyf+iIu0.net] 知人がYouTubeで表計算なりVBを勉強したいと言っているが、同志達からみてどのチャンネルがおつつめ？ 金子？ユースフル？たてばやし？？ 自分、YouTubeであまりExcelの参考にはしないから誰が優秀か全然わからん 390 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 13:44:47.29 ID:IzzhGfbbM.net] つべを見ないのが１番参考になる説 391 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 13:46:17.88 ID:Xkyf+iIu0.net] 知人いわく、金子ていうあんちゃんがやたら人気あると聞いてさ でもプロではないと思うから自分なら観ない 392 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 15:03:44.68 ID:XKqQMMzPd.net] お前ら化石みたい頭してそうだもんな、youtuberとか頑なに受け入れられないんだろうな 俺は金子見て勉強してるよ 393 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 15:07:49.71 ID:hZ93xN6Od.net] Exportasfixedformatメソッドでpdfを出力するとき、そのファイル名にセルの値を参照してるのですが セルの値が改行されているとエラーが出ます。 エラーを出さず改行を無視してファイル名をつけたいのですが、どうすればよいでしょうか？ 394 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 16:22:00.18 ID:SG5MocSx0.net] コード見せてよ 395 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 16:32:12.51 ID:wsDc5NzC0.net] 改行の記号忘れたけど あれをReplaceで消せばいいだけじゃね 396 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 16:36:09.23 ID:SG5MocSx0.net] vbCrとvbLfとvbNewLineを空文字化すればいけるかな？ 397 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 16:52:50.17 ID:ur5sUiDWd.net] s = Replace(Replace(Replace(Replace(s, vbCr, ""), vbLf, ""), vbCrLf, ""), vbNewLine, "") 398 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 17:07:40.77 ID:8cihH0fua.net] vbNewLine は vbCr と vbLf の組み合わせか、いずれか一方だから、vbCr と vbLf だけでもいいかも 399 名前：397 mailto:sage [2021/01/29(金) 17:08:58.02 ID:8cihH0fua.net] そんな定義はないか… 400 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 17:32:34.00 ID:wsDc5NzC0.net] 396を関数に Private Function Getファイル名(byval s as string) As String Getファイル名 = Replace(Replace(Replace(Replace(s, vbCr, ""), vbLf, ""), vbCrLf, ""), vbNewLine, "") End Function 401 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 19:31:25.44 ID:Xkyf+iIu0.net] 田中派と金子派がハッキリ別れてるわ自分の界隈は 402 名前：デフォルトの名無しさん [2021/01/29(金) 20:44:38.50 ID:Wez0GYRkM.net] 他のダメ文字は来ないことをお祈りか 403 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 21:10:33.96 ID:IWwHfNXwH.net] youtubeができる前に基本は覚えたから今さら見る気になれないなあ だからどっちがどうとかも興味ない 404 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 21:43:57.23 ID:MBltpUk80.net] >>399 全部空文字にするなら、置換する元のリストをArrayでくくって、lbound(配列)〜ubound(配列)でその配列の中身ループさせればいいだけじゃん それ可読性悪すぎ 405 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 21:55:58.53 ID:IWwHfNXwH.net] 要素がもっと多いと配列にした方がメンテ性は良くなりそうだけど、4つだと微妙だなあ 個人の好みで片付けたくなる For Each x In Array(vbCr, vbLf, vbCrLf, vbNewLine) 　　s = Replace(s, x, "") Next 406 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 21:59:33.79 ID:IWwHfNXwH.net] あとForで回すと微妙に遅くなるんで、関数化(ブラックボックス化)して大量のデータを処理するなら1本の式にまとめた方がいいかもしれない 407 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 22:14:22.45 ID:SG5MocSx0.net] つまり403は考え足らずだったと 408 名前：デフォルトの名無しさん mailto:sage [2021/01/29(金) 23:07:49.79 ID:GBOzgJJf0.net] CreateObject("VBScript.RegExp")で探すのも大差ない? 409 名前：デフォルトの名無しさん [2021/01/30(土) 00:02:38.07 ID:U1XssVyb0.net] w、Wsは不用です。 あるシートの w.Cells(1, "B")には000001234や000001234-1などの文字列が入っています。 ハイフンなしの場合は下7桁を。 ハイフンありの場合は-より左の下7桁と-以降を抜き出して 別のシート.同じ行のA列に入れたいです。 下記の処理でelse節を通る場合、 Rightしたときに前ゼロが消えちゃう(1234だけになる)んだけど 消えないようにするにはどう書けばいいですか。 （If節を通る場合は消えません） If InStr(1, w.Cells(1, "B"), "-", vbTextCompare) >= 1 Then Dim sNo() As String sNo = Split(w.Cells(1, "B"), "-", , vbTextCompare) sNo(0) = Right(sNo(0), 7) Ws.Cells(gyo, "A") = Join(sNo, "-") Else Ws.Cells(gyo, "A") = Right(w.Cells(1, "B"), 7) End If 410 名前：デフォルトの名無しさん [2021/01/30(土) 00:03:27.01 ID:U1XssVyb0.net] 間違えました w、Wsは不用です。 ↓ w、Wsはシートです。 411 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 01:01:10.51 ID:5ChT/CTU0.net] >>403 >>404 なるほど勉強になるわ いろんな書き方があるからプログラムは面白いな スマホで打つの面倒くさいからコピペしたけど自分ならReplaceを4行に分けて 412 名前：一個ずつ処理してたわ [] [ここ壊れてます] 413 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 01:07:22.27 ID:6QDP6TPLH.net] >>408 Else 　　Ws.Cells(gyo, "A").NumberFormatLocal = "@" 　　Ws.Cells(gyo, "A") = Right(w.Cells(1, "B"), 7) End If 414 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 02:17:52.72 ID:O2YJs/tfd.net] >>336 言っとくが、本気にするなよw 熟練者はネットも本も見るぞ。 ま、本に関してはVBAの本は見ないかも。 415 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 02:23:06.62 ID:O2YJs/tfd.net] >>385 ??? そうか? VSTO廃れてるように見えるが。 情報少ないし。 416 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 02:42:40.27 ID:fm9PSZiO0.net] >>408 単にWsのA列の表示形式が文字列じゃないだけじゃね 417 名前：デフォルトの名無しさん [2021/01/30(土) 02:48:37.26 ID:qXiZMF+3d.net] >>392 これ面白そうだったから調べてみた。 s = worksheetfunction.clean(s) でいけるっぽい 418 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 07:14:33.38 ID:1M+OYc940.net] VBAがそのうち廃止されると噂聞くけど無くなったらExcelじゃなくて良いね キングとかジャストの安い互換ソフトで十分 それとPython 419 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 07:28:22.98 ID:O0XirISQ0.net] そんなのきいたこともない 420 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 07:31:09.77 ID:inFBwlEk0.net] 上にExcel使いこなしてる奴少ないとあるが、事務歴長いおばちゃんとか操作長けてるイメージあるけどどうなの？？ 421 名前：デフォルトの名無しさん mailto:sage [2021/01/30(土) 07:45:37.30 ID:JU3c6HAP0.net] >>397-398 > vbNewLine は vbCr と vbLf の組み合わせか、いずれか一方だから、vbCr と vbLf だけでもいいかも それでいいと思う https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/miscellaneous-constants

---

---

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

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