Excel VBA 質問スレ Part77

1 名前：デフォルトの名無しさん mailto:sage [2022/07/17(日) 07:07:35.59 ID:tS4zKdphH.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑同じ内容を3行貼り付けること ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part76 https://mevius.5ch.net/test/read.cgi/tech/1651339421/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 237 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 08:25:59.90 ID:D4FWb9o5d.net] どうしたら上手く運用出来るかを考えずに一律禁止にしてしまうところがJapですね 238 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 08:36:02.57 ID:XxJI9h8Xd.net] 個別最適を無視するトップダウンな判断ができるのはむしろ非Jap的だと思う Japはゲンバにクチダセナイからな 239 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd7a-1wwR) mailto:sage [2022/08/05(金) 10:47:16 ID:9/CLsA+Od.net] スレと関係ない話題なんだから他でやれよ 240 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 11:33:11.96 ID:GN+Cpyju0.net] Excelユーザーは誰もがVBAを使いこなしてると思い込んでいたわ 初心者の頃 241 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 11:46:42.49 ID:m45XxceE0.net] まるで初心者じゃないみたいな言い方だな 242 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 13:00:55.34 ID:569iYGpd0.net] じゃあランク付けしてくれよ ちなオレは軍曹クラス 243 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 13:03:45.49 ID:PPjNiJ/gd.net] マニアじゃないから軍事用語なんか使われても強さがわからんわ ケロロ軍曹しか知らんし 244 名前：デフォルトの名無しさん [2022/08/05(金) 15:11:50.94 ID:Bo4EfhoE0.net] Excelそのものも少数の人間だけが知っている運用ルールがあったりする。 わけのわからない表の解読に困ることもあるし、日本人はチームワークが得意だから、暗号のような記載ルールを勝手に決めていることもある。 245 名前：デフォルトの名無しさん [2022/08/05(金) 18:30:26.77 ID:9JwePxXo0.net] 軍曹は部下が11人いるので、課長クラスでは？ 246 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 18:37:25.28 ID:m45XxceE0.net] 表計算ソフトを誰がどんな使い方しようが関係ないし、なんとも思わない 247 名前：デフォルトの名無しさん [2022/08/05(金) 18:44:56.08 ID:9JwePxXo0.net] セルを小さくしてドット絵のようにして図解を描いたことならある。 248 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 19:17:52.69 ID:Q4Ghv2JD0.net] 元帥（名誉職・総司令官）⇒ 名誉会長 大将 ⇒ 会長 中将 ⇒ 代表取締役社長 少将 ⇒ 専務 大佐 ⇒ 常務 中佐 ⇒ 平取締役 少佐 ⇒ 事業部長 大尉 ⇒ 副事業部長 中尉 ⇒ 本部長 少尉 ⇒ 副本部長 准尉 ⇒ 本部長代理 曹長 ⇒ 部長 軍曹（ケロロ）⇒ 副部長 伍長（ギロロ）⇒ 部長代理 兵長（ドロロ）⇒ 課長 上等兵 ⇒ 課長代理 一等兵 ⇒ 主任 二等兵（タママ）⇒ 平社員 副部長くらいかなw 249 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 19:56:38.88 ID:vZ1ATXrm0.net] >>247 パックマン作ったやつもいるけどな 250 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 20:00:30.00 ID:vZ1ATXrm0.net] >>248 ごめん、軍曹を舐め過ぎた 上等兵くらいでした 251 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 23:36:41.76 ID:helHcEAzr.net] >>248 尉官以上の士官とそれ以外は全く別の世界 本邦警察のキャリアノンキャリアは軍組織を元にしてる 民間での平から社長に登り詰めるみたいなのは不可能 252 名前：デフォルトの名無しさん mailto:sage [2022/08/05(金) 23:46:50.13 ID:Q4Ghv2JD0.net] >>251 ネタにガチ突っ込みされてもw 253 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 00:52:54.67 ID:RyjK6DAd0.net] 元帥クラスって誰辺り？ Office tanaka? 254 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 09:07:43.92 ID:tdNHMM1PM.net] >>253 あの人以上はほぼいないだろうからそれでいいんじゃね 上等兵の俺はオブジェクト指向が解らんでつ 255 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 09:27:03.45 ID:bSEd2c570.net] かなり昔だが、会社の同期がその人の講習会に参加したときに、「私より高いテクニックを持った人はいたとしても、分かりやすく教えられるスキルを持った人はほとんどいないからね～、私はテクニック至上主義ではない、実用的なやり方を分かりやすく教えられるプロ！」 みたいな話をされていたそうだ。 他人に教えるのって１番難しいわね。 256 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 10:37:03.49 ID:hhkfvvu8a.net] 事実としてそうなんだろうけど自分で言うのはどうかと思う まあ講演会やるような人はこれぐらいの押しの強さが必要なんだろうけど 257 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 12:06:15.13 ID:sbIyICn+0.net] いっぺんでもやってみるとわかる、教えるのって難しい パソコンやExcelのことを周りからよく質問されるけど、いつも四苦八苦する 258 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 13:34:52.70 ID:IcxH468v0.net] 教えるのもマンツーマンなら比較的簡単だけどな 259 名前：デフォルトの名無しさん [2022/08/06(土) 13:42:21.52 ID:xsmVc9Uv0.net] >>258 いやらしいな 260 名前：デフォルトの名無しさん [2022/08/06(土) 15:38:42.52 ID:eSBCWCwIa.net] >>225 >>228 どういう業種なんだろ 馬鹿な対応っぷりからすると御役所系？ 261 名前：デフォルトの名無しさん [2022/08/06(土) 15:43:10.30 ID:eSBCWCwIa.net] >>257 せっかく教えても肝心な質問した方が話聴いてなかったりするからな 262 名前：デフォルトの名無しさん [2022/08/06(土) 15:45:16.89 ID:xsmVc9Uv0.net] ネットで検索するような解決手段を教えた方がいい。 263 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 19:40:38.17 ID:bSEd2c570.net] >>256 確かに。 まあアピールポイントに特徴ある人だと思う 264 名前：デフォルトの名無しさん [2022/08/06(土) 21:13:56.39 ID:xsmVc9Uv0.net] 講演活動は知識だけの人が多いからなあ 265 名前：デフォルトの名無しさん mailto:sage [2022/08/06(土) 21:38:32.41 ID:IcxH468v0.net] ちょっと何言ってるかわからない 266 名前：デフォルトの名無しさん [2022/08/07(日) 02:04:59.69 ID:Zc4u6CYP0.net] >>265 実務経験ゼロでも成り立つ 講演、物書き、教育は、実務経験ゼロの会社がたくさんある。 だから、実例がすぐに出ない。 267 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 05:34:07.23 ID:tUFhHO190.net] 実例も知識じゃねーの 268 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 10:09:42.78 ID:eoT1bhw/0.net] スレにまったく関係ないけど思い出した 取引先からある事情でビジネスマナー講義の受講（講師はそこの女社員）を強制されたことがあって 最初ら違和感あった（俺の親が逝ったと告げても何の反応もなしとか）けど講義内容に矛盾があったので指摘すると猛烈な人格批判が始まって驚いた 他日ウチの社長がそいつの社長（中小同士で学生からの友人）に会いに行ったときにちょっと遅刻したことがあって 秘書気取りのその女が用事があるからと言いつつウチの社長を小一時間ほど待たせた 流石に何かおかしいと思ったウチの社長が事情を問うと「取引相手を待たせるのはトップ失格だそれを自覚させるためにやった」などと主張したそうだ つまり一種のコミュ障でコンプレックスある女が他人を見下ろすために知識の寄せ集めだけで副業に仕事をしていたって話 冒頭のある事情ってのも察してもらえれば 269 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 10:59:56.86 ID:iThpGePG0.net] 性格や考え方に問題あっても知識があるならいいんじゃね 実務経験があっても知識のない上司に相談して解決するならそうすればいいし そもそも自分に知識があれば全て解決できるわけなんだが 270 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 11:09:10.44 ID:UpuFs56f0.net] 日本の企業は人材の性格も重要視するもんね。 能力あっても人間がクソなら採用見送ったり出世対象から外したり。 271 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 12:24:17.99 ID:uNtQuwFMd.net] 性格は欧米の方が重視されるぞ 文化的民族的背景が多様で自己主張も激しいから、クソ野郎は問答無用で切っていかないと無茶苦茶になる 日本はなんだかんだそこまで酷い人間は稀だからな 272 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr5d-4bUZ) mailto:sage [2022/08/07(日) 12:57:45 ID:TWy7Xhzwr.net] >>268が不明瞭なので補足 寄せ集めの知識というのは複数著者のテキストを咀嚼せず文字通りコピペしてるって意味 例えばビジネスコミュニケーションでは科学的根拠に基づかなければいけないというパワポ資料の次ページでナントカ占いみたいな性格判断が出てきたりとか 273 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ eb8f-2+m5) mailto:sage [2022/08/07(日) 14:41:48 ID:JbyM4yYv0.net] 説明が下手くそな輩ばっかだなこのスレ 274 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 15:39:52.33 ID:TKajqBRY0.net] >>273 確かにそうだな ここはお前の力の魅せどころだぞ 275 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6bda-erdL) mailto:sage [2022/08/07(日) 16:25:54 ID:UpuFs56f0.net] いや、言っている事は分かるから全然良いですよ ただ、要点だけまとめてくれたら読みやすいかなーと。 同志達たのんます。 276 名前：デフォルトの名無しさん [2022/08/07(日) 17:53:18.30 ID:iCiStKaEd.net] VBAと関係ないおっさん達の自分語りはいつ頃終わりますか？ 277 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 17:57:35.06 ID:fAQAAmLc0.net] >>276 お前みたいに構うやつがいなくなるまで無理じゃね 278 名前：デフォルトの名無しさん mailto:sage [2022/08/07(日) 18:06:12.30 ID:/jCP59e6d.net] >>276 ほんと他で話せばいいのにと思うよな 質問来てもろくな回答もできないからこういう答えの不要なレスするしかないんだろ 279 名前：デフォルトの名無しさん [2022/08/07(日) 18:32:46.70 ID:NS+q4Bfp0.net] まぁ質問者がいないときはいつもこんな感じだけどな 280 名前：デフォルトの名無しさん mailto:sage [2022/08/08(月) 10:19:45.18 ID:wk4U/6Hx0.net] 質問いいですか？ 281 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 13ad-YzdW) mailto:sage [2022/08/08(月) 14:27:36 ID:aqubZxNB0.net] どうぞ 282 名前：デフォルトの名無しさん mailto:sage [2022/08/08(月) 22:16:45.25 ID:bMElgXf+d.net] VBA でモテるにはどうしたら良いですか？ 283 名前：デフォルトの名無しさん [2022/08/08(月) 22:25:23.54 ID:ptVxpUmad.net] そんなことをここで聞いてる時点で無理 284 名前：デフォルトの名無しさん mailto:sage [2022/08/09(火) 10:07:28.51 ID:b44kZqNV0.net] Excelできれば女子にモテるぞww とか言われたからExcel始めたけど ウソだったわ。 逆にキモがられるようになったら。 285 名前：デフォルトの名無しさん mailto:sage [2022/08/09(火) 10:20:16.32 ID:/NfYTDtW0.net] >>248 カプコンの1943思い出した ステージクリアで尉官が上がって最終的に特別中将だったかな よく考えたら社長クラスが一人で突撃ｗ 286 名前：デフォルトの名無しさん mailto:sage [2022/08/09(火) 11:12:29.84 ID:SavN6yJh0.net] Excel出来るようになったのではなく他に問題があるのでは🤔 287 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6bda-woMg) mailto:sage [2022/08/09(火) 14:08:30 ID:rR0EJQ8B0.net] >>284 だまされたんだと思う、もうExcelやめた方がいいよ 288 名前：デフォルトの名無しさん mailto:sage [2022/08/09(火) 14:53:29.86 ID:b44kZqNV0.net] >>287 分かった。 Wordに移行するわ。 289 名前：デフォルトの名無しさん mailto:sage [2022/08/09(火) 15:01:15.06 ID:SavN6yJh0.net] 草 290 名前：デフォルトの名無しさん mailto:sage [2022/08/09(火) 15:23:13.16 ID:8JIsTWChM.net] Excelできるけど仕事はできない人 291 名前：デフォルトの名無しさん mailto:sage [2022/08/09(火) 20:40:53.82 ID:AVc3PDFp0.net] パワポ男子の方が格好いいと思うなあ 292 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 08:38:11.60 ID:fdOq6fLVd.net] excel365でファイルを更新した形跡を全く残さない方法って何かありませんか？ 弄る部分はマクロのコードのみです 業務を格段に楽にするマクロをいくつも組んでやったのに感謝も薄く図々しく給与にもビタイチ反映されなかったので このクソブラック企業を辞めるときに全部壊していきたいのですがバレるとアウトなので 変えないようにしたいのはファイル名の横に出る更新日時です 293 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 09:10:02.43 ID:ph9U25aD0.net] エクセルのＶＢＡって2000から現在までの間に ここで大きく変更があって互換性に問題があるみたいなのありますか？ 294 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 10:06:18.63 ID:kx7L/9BB0.net] >>292 一応言っておくけどお前のやろうとしてることは犯罪だし、回答書くと犯罪幇助になるから 295 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 10:07:16.58 ID:kx7L/9BB0.net] >>293 2007 辺でグラフ周りが色々変わって過去のマクロでエラー出たことがある 296 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 10:10:55.76 ID:uspPIoStd.net] そこそこあると思うよ なので自分はバージョンごとにコードを振り分けたりした 実際に試したほうがいいんじゃないかな 297 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 10:22:34.51 ID:20iS7AqN0.net] >>293 64bit化、ワークシートの大きさ、ワークシート関数の増減など、バージョンごとにどんどん変わってる 何を問題とするかは人それぞれで、利用環境や目的にもよるので、ちょっと質問が曖昧すぎ 298 名前：デフォルトの名無しさん [2022/08/10(水) 10:36:03.23 ID:p8b8cWYPd.net] >>292 こいつみたいなのがまさにこういうパターンだ 馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた コピペ主体だからメンテ不可能だった そのくせ馬鹿は自分が他の人より偉いと思い込んでいた 299 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 11:45:31.80 ID:uspPIoStd.net] 犯罪の質問なんて無視しとけよ 構うお前も同じなんだぞ 300 名前：デフォルトの名無しさん [2022/08/10(水) 11:53:09.98 ID:5QJKzNy5d.net] 嫌がらせして辞めたところで迷惑を被るのは同じ作業してるポジションの人か後任の人だろうからやめとけ 査定をしてる立場の人達は痛くも痒くもない 301 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 12:39:15.19 ID:fdOq6fLVd.net] うちのブラックに来たら誰でも同じことしたくなると思うけど 犯罪なのは分かったからやめとくわ あと言っとくけどうちにはマクロ組めるような奴はいないし 体系的に学んだ上きれいなコードで書いてるからくだらんレッテルはいらない 302 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 12:55:04.32 ID:/NkHb0sD0.net] >>292 マクロ作るのもあなたの業務だったのでは？ 会社で仕事して給料もらえてたのにそれ以上のことなんかないよ 303 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 13:53:09.69 ID:kx7L/9BB0.net] > 犯罪なのは分かったからやめとくわ 犯罪じゃないと思ってたのかよ... まじでヤベー奴やんw 304 名前：デフォルトの名無しさん [2022/08/10(水) 14:04:12.08 ID:0PwnBNIZ0.net] 気持ちは分かるが犯罪はいけないな。 次回からはそういうことに備えて マクロにパスワード掛けて 時間が経ったら期限切れのメッセージでも ポップアップして処理を中断させる ようにでもしておけばいい。 もっとも、自分の作業効率化のために 頼まれてもいないのに勝手に作ったというなら 根こそぎ消しても問題ないとは思うけどな どうしてもしたいというなら 法テラスにでも相談しに行けばいい。 305 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 14:26:23.92 ID:Mq4biE7dM.net] If Date > 退職日 Then Exit Sub End If あとは全部インデントなくすとかコロンで繋げるとかプロシージャ名を処理内容と紐づかないものにするとか 色々引き継ぎの嫌がらせは考えたことあるけど、やったら何訴えられるかわからんからやらない 306 名前：デフォルトの名無しさん [2022/08/10(水) 14:28:02.85 ID:5QJKzNy5d.net] てか保守出来る人居ないなら何もしなくてもそのうち会社は面倒事に巻き込まれるだろ フォーマットがちょっと変わったり、新しい特殊な項目が追加されて使いものにならなくなったりするし 307 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 15:51:28.73 ID:uspPIoStd.net] 放置すればいいものを くだらない話には食いつく奴ばかりだね 308 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 15:58:20.27 ID:AlyojMao0.net] 123 10 123 11 123 15 空白 空白 124 18 124 22 空白 125 20 空白 126 15 126 10 みたいな並びのコードがあって、 上下のコードが同じ場合、コードの隣の数字を10%で割り戻した数字を計算したものと、10の数字をそのままにしたものを2つ持っておいて、コードが変わるところまでそれぞれ計算したら、コード単位で10%で割り戻したものの合計値と、割り戻してないものの合計値の差分を 一行挿入して差額として123のいくらと転記 空白行は無視。 差額が出ない場合（基本的にはないけど）は行の挿入はしない、 というvbaって作るの可能？ 差額を持たせることまではできたんだが、 挿入のところでこれ無理では？と思って止まってます。 309 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 16:00:49.46 ID:AlyojMao0.net] ちなみにデフォルトで入ってる空白は無視です 310 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 18:18:34.25 ID:kx7L/9BB0.net] >>308 挿入/削除はいろいろ面倒だから簡単にやるには別シート（もしくは別列）に転記しながら処理して最後に書き戻すのがわかりやすいと思う スマホから入力してるから細かいミスはあると思うがこんな感じ Dim S1 As WorkSheet: Set S1 = WorkSheets(1) Dim S2 As WorkSheet: Set S2 = WorkSheets(2) ' 空のシート Dim R1 As Long Dim R2 As Long: R2 = 1 Dim N0 As Long: N0 = 0 ' 元の値合計 Dim N1 As Long: N1 = 0 ' 割戻し合計 Dim C0 As String ' 処理中のコード C0 = S1.Cells(1, 1).Value For R1 = 1 To S1.Cells(S1.Rows.Count, 1).End(xlUp).Row Dim C1 As String ' 現在のコード C1 = S1.Cells(R1, 1).Value If C1 = "" Then Goto Continue If C0 <> C1 Then S2.Cells(R2, 1).Value = C0 S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1) R2 = R2 + 1 C0 = C1: N0 = 0: N1 = 0 End If S2.Cells(R2, 1).Value = C1 Dim N2 As Long: N2 = S1.Cells(R1, 2).Value S2.Cells(R2, 2).Value = N2 R2 = R2 + 1 N0 = N0 + N2: N1 = N1 + 0.9 * N2 Continue: Next S2.Cells(R2, 1).Value = C0 S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1) 311 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 19:06:30.56 ID:LEtlyiDn0.net] スマホからこんだけ入力するのは感心するわ 312 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 19:40:10.67 ID:AlyojMao0.net] >>310 ありがとうー！！ 後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、 別シートに単純に一度書き写していって最後に読み戻すってのは目から鱗です 確かにそっちの方が問題なくできるかもしれないです 試してみます！ 313 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 20:46:14.74 ID:kx7L/9BB0.net] >>312 > 後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、 If C0 <> C1 Then で、コードが変わった事を検出して変わったら S2.Cells(R2, 1).Value = C0 S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1) R2 = R2 + 1 で、差分を追加して C0 = C1: N0 = 0: N1 = 0 で、新しいコードを覚える共に合計値を初期化してる 314 名前：デフォルトの名無しさん [2022/08/10(水) 20:48:55.75 ID:p8b8cWYPd.net] こんなことがわからない奴が金計算をVBAでするなんて 315 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 20:57:23.40 ID:ph9U25aD0.net] テキストファイルからキーワードが含まれてる行をセルに書き込みたいです キーワードが８個あります 行＝Ｂを「商品」か「価格」を""に置換して 元のＢと違ってたら書き込むようにしたんですが もっと簡素な方法ありませんか？ Open A For Input As #1'Aはテキストファイルのフルパス Do Until EOF(1) Line Input #1, B '1行分だけ読み込み If B <> Replace(B, "商品", "") Then i = i + 1 Cells(i, 1) = B 'セルへ入力 Else If B <> Replace(B, "価格", "") Then i = i + 1 Cells(i, 1) = B 'セルへ入力 End If End If Loop Close 316 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 21:00:16.39 ID:hNnMWsb/0.net] なんで商品と価格のReplaceを分けるのか 317 名前：デフォルトの名無しさん [2022/08/10(水) 21:07:20.86 ID:0PwnBNIZ0.net] >>315 InStrは嫌いなの？ 318 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 21:43:46.56 ID:AlyojMao0.net] >>313 ありがとうございます、 勉強中なので質問なんですが、 C1:N0 ＝0:N1=0の中の:ってどういう意味なんでしょうか？ 319 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 22:04:25.44 ID:NcNdkaPG0.net] 突っ込みどころ満載の質問久しぶりね 320 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 22:24:43.27 ID:kx7L/9BB0.net] >>315 > キーワードが８個あります これはどうなったの？ 単に複数のキーワードが含まれてるかを見たいだけなら Line Input #1, B '1行分だけ読み込み Dim K As Variant For Each K In Split("商品,価格", ",") If B Like "*" & K & "*" Then Cells(i, 1).Value = B i = i + 1 Exit For End If Next 321 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 22:31:30.17 ID:uspPIoStd.net] >>315 どんなやり方でもいいと思うけどキーワードを含むかどうかを関数にするといいんじゃない Function CheckKeyword(ByVal pValue As String) As Boolean CheckKeyword = True If pValue <> Replace(pValue, "商品", "") Then Exit Function End If If pValue <> Replace(pValue, "価格", "") Then Exit Function End If 残りのキーワードも同様に判定 CheckKeyword = False End Function これを使えば i = i + 1 Cells(i, 1) = B 'セルへ入力 の部分は1つでいいよね 322 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 23:03:22.07 ID:kx7L/9BB0.net] >>318 VBA マルチステートメント でググってくれ 323 名前：デフォルトの名無しさん mailto:sage [2022/08/10(水) 23:23:06.57 ID:20iS7AqN0.net] >>318 改行みたいなもん。たとえば N0 = 0 N1 = 0 という複数行のコードを1行にまとめることができる N0 = 0: N1 = 0 だけど、やらない方がいいと言われている 324 名前：デフォルトの名無しさん mailto:sage [2022/08/11(木) 19:50:59.53 ID:eLvp/vGod.net] 変数宣言と同時に初期化する用途に限って俺は許容してるな それよりif文を1行で閉じる奴が凶悪 ネストするとEnd ifの数が合わなくなる 325 名前：デフォルトの名無しさん [2022/08/11(木) 20:39:49.16 ID:Eqlf5oxG0.net] >>324 変数宣言と一緒に初期値設定する人はよく見かけるしアリだと思う。 同様に実は特殊な場合に限りIf文を一行で記載することもある。 本来構造化言語で使わない方が良いとされているGoto文も特殊な場合に限り使うこともある。 VBAは結構何でもありの言語だからその辺、仕事場のコーディングルールや 作ってる人のマイルールによって随分違いが出てくる。 一概にどんな方法をとることが最善とは言えないから人の書いたソース見てると面白い。 326 名前：デフォルトの名無しさん mailto:sage [2022/08/11(木) 20:49:36.22 ID:bTQMDZYqd.net] Ifの中身が1行だけの時に全体を1行で書くのはマルチステートメントとは違うくない？ If a = 0 Then b =0 あくまでコロンでつなぐ場合のことでしょ 327 名前：310 (ﾜｯﾁｮｲ 1301-lJ3c) mailto:sage [[ここ壊れてます] .net] 俺も本来はマルチステートメントは使わないけど、5chのレスは行数制限あるからマルチステートメントにしてるだけ そもそもこの手の話は好みもあってどっちが正しいとかはないからそろそろやめようよ 328 名前：デフォルトの名無しさん mailto:sage [2022/08/11(木) 22:00:47.13 ID:/ib3rHvC0.net] そもそもダメだとか誰が言っているのだろうか。。 329 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd33-N11w) mailto:sage [[ここ壊れてます] .net] ○○ならアリって言ってるってことはそれ以外はナシって受け取る人もいるだろ 提供されたコードをそのまま使うだけしかできないならそれだけの話だし 自分のルールに従って直せばいいだけの話で人のコードにケチ付ける必要なんてないだろ 330 名前：310 (ﾜｯﾁｮｲ 1301-lJ3c) mailto:sage [[ここ壊れてます] .net] >>328 > だけど、やらない方がいいと言われている みたいな意見があるから 331 名前：デフォルトの名無しさん mailto:sage [2022/08/12(金) 00:11:05.61 ID:gP2cSn76d.net] コーディングルールなんて宗教みたいなもんだけど、一応マルチステートメントは推奨されないという意見のが多数 リーダブルコードにも書いてあるし、MS公式も推奨しないと言ってる https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/statements 明確に禁止したがってる人は肌感覚でもっと少数派だけどね 332 名前：デフォルトの名無しさん mailto:sage [2022/08/12(金) 00:24:13.41 ID:nWfz+VWs0.net] どうせ仕事でVBA作ってる質問者なんて少ないやろ 333 名前：310 mailto:sage [2022/08/12(金) 05:00:53.71 ID:zAuzG+foa.net] >>331 おっちゃんそれVBAじゃなくてVB.NETのドキュメントやで 334 名前：デフォルトの名無しさん [2022/08/12(金) 05:44:37.34 ID:Icr7mfuu0.net] Van.Netなら変数宣言と同時に初期値設定出来るから 引き合いに出すのもお門違いだな 335 名前：デフォルトの名無しさん [2022/08/12(金) 06:23:06.84 ID:dDX14IC1M.net] >>334 van.netなどない、このハゲ！ 336 名前：デフォルトの名無しさん mailto:sage [2022/08/12(金) 08:48:11.58 ID:nWfz+VWs0.net] 中のVBAのコードだけGitに上げることってできるの？ めんどいコマンドとか外部サービス使わずに そもVBEからコミットとかプルリクとかやりたい 337 名前：デフォルトの名無しさん [2022/08/12(金) 09:02:48.49 ID:Icr7mfuu0.net] >>335 すまん、VB.Netの間違いだった しかし俺は禿げてはいない。頭頂点しかな！！

---

---

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

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