Excel VBA 質問スレ Part74

1 名前：デフォルトの名無しさん mailto:sage [2021/12/20(月) 01:40:59.22 ID:jnlr9GaR0.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付けるナリ ExcelのVBAに関する質問スレナリ コード書き込みや作成依頼もOKナリ ※前スレ Excel VBA 質問スレ Part73 https://mevius.5ch.net/test/read.cgi/tech/1631485799/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 307 名前：デフォルトの名無しさん [2022/01/10(月) 12:25:07.05 ID:xXRyLH4+0.net] 変数と変数の内容は紙に書き出している 毎回頭まで戻って読み直すのめんどくさすぎる 308 名前：デフォルトの名無しさん [2022/01/10(月) 12:44:38.02 ID:9Nu2isHY0.net] 表示中のModuleからDim宣言した行を抽出してパッと表示するアドインを作ったら便利かもね と我ながらいいこと思いついた 309 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 12:58:58.14 ID:RrusHExn0.net] >>307 ウィンドウ2分割したらいいじゃん。もしくはデュアルモニターで作業ウィンドウと変数定義部分のウィンドウを表示するとか。 310 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 13:01:06.34 ID:RrusHExn0.net] >>303 option explicit 宣言してコントロールスペース機能を使えばいいじゃん。 311 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 17:02:28.45 ID:xkxPt9W00.net] 結局疲れていると変な事やり出すのは共通て事で。 趣味ですがやっている分ならまだしも仕事なら間違いは許されんよね大変だ 312 名前：デフォルトの名無しさん [2022/01/10(月) 19:43:03.44 ID:vN9fY4Wcd.net] 多国籍企業で言語の違うOSを使うと軒並み文字化けするから日本語含めてマルチバイト文字が一切使えない 早くUnicode化して欲しいわ 313 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 20:56:33.75 ID:lrMaPQ7Kd.net] コメントも英語縛りだと大変そうだなあ 314 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 21:00:45.99 ID:00vaWtI10.net] 英語に抵抗あるのはお前ら世代ぐらいまでだから　そろそろ引退後を考えときな 315 名前：デフォルトの名無しさん [2022/01/10(月) 21:04:29.76 ID:xXRyLH4+0.net] >>312 カッコイイね！ 316 名前：デフォルトの名無しさん [2022/01/10(月) 21:05:12.22 ID:xXRyLH4+0.net] >>310 最悪、ワークシートに書けば良い あっちは多言語対応してる 317 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 21:38:02.69 ID:xkxPt9W00.net] 今は小学生でプログラミング授業が当たり前？？と聞いた。 将来は全員バリバリのプログラマーとして新卒で入社してくるのだろうかと。。。 318 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 22:37:56.38 ID:ZgLLvrEYd.net] >>315 義務教育の内容なんて、大多数の子は半分程度しか覚えてないんだよ だから高校に格差がある 319 名前：デフォルトの名無しさん [2022/01/10(月) 22:40:00.97 ID:oZVfodR70.net] 思い込みだな、ソースだしてみ 320 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 22:42:08.68 ID:J1lYCUSE0.net] 小1からアルファベットくらい教えないと無理 321 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 22:49:49.35 ID:cNWamYBR0.net] >>315 教育ではプログラミング的思考のことだけでツールの使い方は微塵も知らんぞ 322 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 22:56:21.83 ID:BEh3+tWV0.net] >>308 何の為の変数か分かるようにコメント書いてるって話だけどそれで分かるの？ 323 名前：デフォルトの名無しさん [2022/01/10(月) 23:45:01.54 ID:xXRyLH4+0.net] >>315 vbaでifとfornext使えるだけでいいんだけどな 教育の概要みてみたけど、プログラムの概念教えるだけなのね まぁ知らんよりかは大分マシだと思うけど、なんだかなぁ https://www.mext.go.jp/content/20200218-mxt_jogai02-100003171_003.pdf 324 名前：デフォルトの名無しさん mailto:sage [2022/01/10(月) 23:47:37.36 ID:y6BmIHv2M.net] 小学生の算数で なにができるかって話 325 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 00:00:22.85 ID:RJl36Rij0.net] 20年前10年前で新卒の技能も変わってるし今の小学生が新卒になる10年後には更にベースが変わっているだろう 326 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 00:55:36.01 ID:f975O5pD0.net] なでしこならできるだろ 実際導入してるところあるみたいだし 327 名前：デフォルトの名無しさん [2022/01/11(火) 01:04:44.62 ID:v6KgbdTr0.net] >>324 なでしこ、一回ぐらい見てから言った方が良いと思う https://image.itmedia.co.jp/l/im/news/articles/2009/18/l_mt1626333_NDSK-02.jpg#_ga=2.46856359.1211102927.1641830465-1693712719.1638754091 中国人が書いたような日本語があまりに不気味で、余計に読みづらい これなら最初から英語の方が遥かにマシ ただ全部英語だと変数がキツイので、日本語変数を使えるvbaは本当に使いやすい 328 名前：デフォルトの名無しさん [2022/01/11(火) 01:05:47.81 ID:LtMpgTY10.net] ID:xXRyLH4+0 頭が悪いまさしく馬鹿の典型例 329 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 01:19:28.14 ID:1S8cvNBi0.net] >>325 無理やり感が凄いなｗ 特に中途半端に演算子を助詞に置き換えてるのが酷い 330 名前：デフォルトの名無しさん [2022/01/11(火) 01:43:32.21 ID:v6KgbdTr0.net] >>326 こんな時間まで置きて煽りとか、凄いな >>327 終わってるだろ どんな場面でも使いたくないわ 331 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 02:54:50.14 ID:jXrjwHyf0.net] お互い見下したり下らない事での喧嘩は止めましょうよ。 もう一個あるExcel板みたいに荒れたくないので、超マターリやりましょうぜ 332 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 02:59:40.60 ID:IdisKVi00.net] >>320 すまんタグ付を間違えた。302に対する返事でした。 333 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 04:33:13.43 ID:0LWENKA5d.net] >>323 VBAはオワコンと言われ続けて20年以上が過ぎて、いまだに需要があるという現実 画期的な新技術が出てきても、10年程度で世界中のすべてが置き換わるなんて絶対にありえないから 334 名前：デフォルトの名無しさん [2022/01/11(火) 04:53:38.34 ID:PWAeXKZsa.net] 使う人がいて使わない人もいるそれだけだ 335 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 05:12:45.59 ID:jXrjwHyf0.net] 恥ずかしながらマクロしかやった事ないから、他の言語はほとんど知りません 他の言語やっている人が言うにはExcelマクロはいろいろ独特すぎると言っていましたよ。 336 名前：デフォルトの名無しさん [2022/01/11(火) 06:57:43.71 ID:zgghDV8Ra.net] 初心者には難しいのかもね 337 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 09:20:49.60 ID:NHkh6AryM.net] >>325 見てないで言ったって妄想は自分の心の中だけにしておくべきでは 338 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 09:26:49.60 ID:NHkh6AryM.net] つかお前のほうがきちんと見ていないのでは？ nadesi.com/doc/cmd-func.htm 339 名前：デフォルトの名無しさん [2022/01/11(火) 09:55:25.76 ID:v6KgbdTr0.net] >>333 言語というより、エクセルのスクリプト エクセルへの依存が大きい Bライク エラーがあっても平気、というかfatal errorがほぼ無い なんか知らんけど適当に書いても動く こういうのでいい 340 名前：デフォルトの名無しさん [2022/01/11(火) 11:17:42.49 ID:7nbTW/GEM.net] プロパティ一つ変えるだけで大きくデータか変わるのとかあるからなぁ デフォルトプロパティのおかげで書きやすいけど間違いやすいし MID関数とMIDステートメントみたいな意地悪な引掛けもあるし ワークシートの数式とVBの数式の文法が違うから初心者がよく混乱してるし 配列数式だかプペルだか毎回ググらずにはいられないし 341 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 13:48:53.68 ID:IdisKVi00.net] >>338 プペルってなに？ 342 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 14:28:18.62 ID:aR5mdzEba.net] タプルのことかな 343 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 16:41:11.70 ID:nmLdRhtud.net] パピコ 344 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 17:43:15.57 ID:jXrjwHyf0.net] VBでワークシート関数が使える事を知らなかった人もいるぐらい 345 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 20:05:33.64 ID:4GEp5Szkd.net] スピル まぢれす 346 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 20:17:38.77 ID:iCzHcVAmd.net] >>342 以前はVBやVCからワークシートオブジェクトを生成してやると、Excelの30日体験版がいつまでも使えてしまうという裏技があったんだよなあ 347 名前：デフォルトの名無しさん mailto:sage [2022/01/11(火) 23:15:17.45 ID:jXrjwHyf0.net] 凄いバグですな。 Office365を永久に無料試用できる裏ワザあると聞いたのを思い出した。 348 名前：デフォルトの名無しさん [2022/01/12(水) 11:52:41.57 ID:8kyKCDFaM.net] 同じやり方でWin11でIE使えるんだよな 349 名前：デフォルトの名無しさん mailto:sage [2022/01/12(水) 21:05:19.10 ID:xv5qUCXt0.net] 本当にExcel2021をケーズデンキで買ってきた これで充分な気がする 350 名前：デフォルトの名無しさん mailto:sage [2022/01/12(水) 21:10:06.51 ID:Bw0ohLlk0.net] フラグを変更することにより外部に個人情報を送信するようになるかも 351 名前：デフォルトの名無しさん mailto:sage [2022/01/12(水) 23:55:12.07 ID:ORVSIxTU0.net] >>345 永久って何十年でも使えるのか？ 352 名前：ワイドショーは見るな mailto:sage [2022/01/13(木) 00:47:58.94 ID:G09zCb3J0.net] ロンドンブーツ田村淳　 「嫌なら見なきゃいいじゃん。君らのテレビはチャンネル変えられないの？ネチネチうるさいって言われない？ 力つけないと。お前に影響力ないから」 99 岡村隆史 「嫌なら見るなや。何でもツイッターで呟くな！は？ミステリー作家？ 知らんわ、お前がミステリーやわ」 ビートたけし 「韓流ばかり放送するたってそれである程度視聴率取るんだからしょうがないよな。いやなら見なきゃいいんじゃねーか」 ダウンタウン 松本 「お前らチャンネル変える能力もないんやな。どんだけ無能やねん(笑)」 やしきたかじん 「（韓流番組が）イヤやったら観んとったらえぇんちゃうの」 マツコ デラックス 「フジテレビのデモは新右翼の集まり」 テリー 伊藤 「高岡さんは精神的にアレですよ」 ミッツ マングローブ 「ネットは仮想敵国を作りたがる。(カメラ目線で)日本人はこういう意見じゃないですから」 江川 紹子 「ふかわの意見は中身がないにゃ」 353 名前：デフォルトの名無しさん mailto:sage [2022/01/13(木) 01:06:13.81 ID:VkNUzTKE0.net] 韓流番組は知らんけど とりあえずNHKは解体させるべき 354 名前：デフォルトの名無しさん mailto:sage [2022/01/13(木) 02:22:29.43 ID:Ia/gMc7B0.net] YouTube に、N国の立花孝志の動画が上がっている。1/12 ＮＨＫとの裁判で半分勝ちました。 やはり時効５年の最高裁判決は国民にとってありがたい判決でした。 裁判所から、5年以上の支払督促が来ても、1円も払わず、 5年の時効を援用して、8.9万円だけを払う。 1円でも払うと、債務を認めたことになるので、全額を払わなければならないので危険！ 8.9万円 × 年間の裁判数700件 = 6,230万円 は、N国が政党助成金から払うので、国民は払わなくて良い やっぱり、N国が最高裁判決で勝ち取った、時効5年の援用が強力！ 355 名前：デフォルトの名無しさん mailto:sage [2022/01/13(木) 02:59:22.55 ID:pqvs3QlS0.net] 次はExcel2024てのが発売されるのかな？ 356 名前：デフォルトの名無しさん mailto:sage [2022/01/13(木) 23:45:10.44 ID:7CyKGRy20.net] VBA極めたら最終的に世界中の有用な情報を集めて自動で収集できるようになりますか？ 357 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 00:05:56.70 ID:vO12hrLSa.net] 極めなくてもスクレイピングができれば収集は可能だよ 358 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 00:08:13.34 ID:lOO1pB5h0.net] >>354 SeleniumとSQL覚えたらできるかもな VBAとは言い難くなってしまうが 笑 https://uploda1.ysklog.net/uploda/a21c72780b.jpg 359 名前：デフォルトの名無しさん [2022/01/14(金) 00:20:30.44 ID:dtRMJdwu0.net] vbaでやるのは辞めたほうがいいかなぁ PHPとXPath、各種検索サイトのAPIを勉強するのが最終的にはラク 360 名前：デフォルトの名無しさん [2022/01/14(金) 02:42:54.63 ID:hRpWT3YP0.net] サーバーの負荷になるようなマクロつくったら逆に訴えられる可能性あるよ 361 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 08:06:55.98 ID:ifEdQjoh0.net] https://www.relief.jp/docs/003086.html 初心者です このようなダブルクリックで色をつけたり消したりするコードについての質問です。 同じファイルのAシートとBシートでそれぞれ使っているのですがBシートでダブルクリックすると一瞬読み込みマークが出てテンポが悪くなります。AシートとBシートに特に差異はなくてBシートに画像が一枚あるだけなのですがそんな変わるものでしょうか 362 名前：デフォルトの名無しさん [2022/01/14(金) 10:47:59.53 ID:dtRMJdwu0.net] >>.359 普通は変わらん 条件つき書式か何かが隠れてると思うけど、ファイルを見てみないと分からない 363 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 11:11:05.48 ID:HvyHPCt90.net] Is Nothing の判断で戸惑ってるか、Sheet を特定すれば直るのか 画像外してテストしてみりゃいいだけ 364 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 12:08:46.60 ID:lOO1pB5h0.net] >>359 やってみましたけど再現しないので解らないです(Ver16) 今の状況で出来ることというとまず>>361を試す 直らないなら「If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub」と「 End If」を抜いて試す 直らないなら Cancel = Trueを抜く 直らないなら 全部抜いてCells(1, 1) = "a"とかを入れてみる 他はシート1を消して試してみる、シート3を作ってどうなるか試してみるなどで遅延の原因を探っていくしかない気がします 365 名前：デフォルトの名無しさん [2022/01/14(金) 12:47:39.88 ID:dtRMJdwu0.net] >>362 ちょっと違う どこで時間がかかっているかを見るなら、 Debug.Print Now() & "if前" Debug.Print Now() & "最後" みたいなものを随所に差し込んでコンソールで確認する 一番いいのは新しくシート作ってそこに画像だけ持っていって試す。 時間がかからないならそのシートを使い続ければ良い。原因なんて考えても仕方ない。大体どこか見えない所にゴミデータがあるだけだ 366 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 13:23:22.68 ID:0uAreaIs0.net] ありがとうございます いずれ他の言語やソフトウェアも勉強することを視野に入れてVBAはじめてみます 367 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 14:53:37.34 ID:cSomMf3f0.net] Function testfunc01(word) As Integer Dim serchChar As String 368 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 14:55:30.70 ID:cSomMf3f0.net] £は英国の通貨記号ポンドです． セルA1に"10£"を入れ，B1にA1の文字列内の£の位置を示す関数testfunc01(A1)（後述）を入力しました．正しい値は3ですが，何故か0を返します． セルA2に"10L"を入れ，B2にA2の文字列内のLの位置を示す関数testfunc02(A2)（後述）を入力しました．正しい値3を返します． 通貨記号が問題かと思い，今度はプロシジャーtest（後述）内で変数 word = "10£"を定義しtest内でtestfunc01(word)を実行すると正しく3を返しました． ”引数がセル参照かつ通貨記号”という組み合わせの場合にtestfunc01内で使用している組み込み関数instrが正しく機能しないようです．解決策をありますでしょうか？ 他にtestfunc01に関して以下の条件で試しました． セルA3に"10あ"を入れ，B1にA1の文字列内のあの位置を示す関数testfunc03(A3)を入力すると正しく3を返す．”引数がセル参照かつ全角文字”が原因ではない． testfunc01(word)をtestfunc01(ByVal word as string)に修正する→改善せず，間違った0を返す． 369 名前：デフォルトの名無しさん [2022/01/14(金) 14:55:37.21 ID:dtRMJdwu0.net] wordなのにintやめろ 370 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 14:55:50.74 ID:cSomMf3f0.net] Function testfunc01(word) As Integer Dim serchChar As String serchChar = "£" testfunc01 = InStr(word, serchChar) End Function Function testfunc02(word) As Integer Dim serchChar As String serchChar = "L" testfunc02 = InStr(word, serchChar) End Function Function testfunc03(word) As Integer Dim serchChar As String serchChar = "あ" testfunc03 = InStr(word, serchChar) End Function 371 名前：デフォルトの名無しさん [2022/01/14(金) 14:56:14.35 ID:dtRMJdwu0.net] すまん、連投なのね ちょっとテストしてみる 372 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 14:56:24.45 ID:cSomMf3f0.net] sub test() Dim word, serchChar As String serchChar = "£" word = "10£" Debug.Print testfunc01(word) End Sub 結果 A B C 1 10£ 0 ←testfunc01の結果 2 10L 3 ←testfunc02の結果 3 10あ 3 ←testfunc03の結果 testの実行結果 3 3 3 373 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 14:56:53.00 ID:cSomMf3f0.net] タブが解除されて見にくいです．すんません． 374 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 14:59:25.39 ID:cSomMf3f0.net] 最後は間違っておりいかが正しい結果です． testの実行結果 3 375 名前：デフォルトの名無しさん [2022/01/14(金) 15:01:52.05 ID:dtRMJdwu0.net] >>365,366,368,370 https://i.imgur.com/ZrKrhy8.png ＞セルA1に"10£"を入れ，B1にA1の文字列内の£の位置を示す関数testfunc01(A1)（後述）を入力しました．正しい値は3ですが，何故か0を返します． 俺の環境では3が返ってきた A1がおかしい気がする =CODE(MID(A1,3,1)) で「8562」が返ってくれば、ポンドの文字は間違い無いと思う もし8562以外だと、別の文字が入っている気がする 376 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 15:02:23.56 ID:P/5qDoLq0.net] ポンド記号が書式で出てるんじゃないかと予想 セルの値をどうやって取得してチェック関数に渡してるんだ？ 377 名前：デフォルトの名無しさん [2022/01/14(金) 15:03:43.93 ID:dtRMJdwu0.net] >>374 あぁほぼ間違いなくそれだ 378 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 16:01:27.94 ID:cSomMf3f0.net] >>373 >>374 「ポンド記号が書式で出てる」ということはありません． 10£はサンプルとして簡単にしただけで，実際には10£5s9d（10ポンド5シリング9ペンス）をペンスに換算するプロセスで直面した問題です． 原因は通貨記号の半角と全角の問題であることがわかりましたが解決策がわかりません． A1の£のコードは63でした． 一方，testfunc01内の£をエクセルにコピペしてcode関数で値を取得すると8562でした． A1の£をVBAのプロシージャ内にコピペすると？になります． エクセルの通貨記号は£，VBAのプロシージャ内の通貨記号をコピペしたものは£で，サイズが異なるので半角と全角の違いだと思います． 通貨記号を入力する時はエクセルでもVBAプロシジャーでも”ポンド”と打ち込でで変換しますが半角一択です（googleのIMEを使用）． VBAのプロシージャ内で半角（コード番号63）が何故全角（コード番号8562）に自動的に変換されるのかわかりません． エクセルの£をVBAのプロシジャーにコピペしても？になるので，半角の£をプロシジャー内で使う方法が見つかりません． 逆にエクセルで10£と打ち込んだ後半角の£を全角の£に置換するとうまくいきました．しかし毎回置換するのは面倒です． 結局，通貨記号の入力時に半角と全角が選択できるか，VBAで内で自動的に全角に変換されないようにできればば問題は解決するのですが． MSIMEに切り替えると、ポンドの候補として、£（全角）と£（環境依存）がでてきました。エクセルではとちらでも選べますが、VBA内では環境依存を選んでも強制的に全角に変換されます。 VBAの環境設定の問題でしょうか？ 最悪の場合は、エクセルサイドで半角を全角に置換するマクロで解決する方法がありますが、できれば入力時に半角と全角で意図したほうを入力できるという解決策がいいです。 うまい解決策はないでしょうか？ 379 名前：デフォルトの名無しさん [2022/01/14(金) 16:45:24.64 ID:dtRMJdwu0.net] >>376 半角ポンドとエルは同じ文字コードなのかな。スラッシュと円マークみたいなもんかね こういう場合は、検索する側、される側を両方半角小文字に揃えれば良い Function testfunc01(word) As Integer Dim serchChar As String serchChar = "£" testfunc01 = InStr(StrConv(word, 10), StrConv(serchChar, 10)) End Function 380 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:12:55.74 ID:P/5qDoLq0.net] VBE内ではたしかSHIFT_JISしか使えんかった気がするな 文字リテラルで書くのやめて、CHRWとか使えばいいんじゃね Strconvで行けるかなぁ そもそも半角ポンド記号とかいう想定がない気がする 381 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:20:31.63 ID:HvyHPCt90.net] 別角度からのほほんと見てるけど、> 10£5s9d（10ポンド5シリング9ペンス） という元データがあるんだろうか？ イギリスはポンドとペンスが通貨単位でシリングというのは1971年以前の単位だと出てくるんだが で、1ポンド = 100ペンス　10£5s9d というテキストで渡されるから変換したいんで£の位置を知りたい　は判るが そこで躓いて先に進まないと成れば、事前に£を他の文字に変換してからExceに入れてはどうか すでに目を通しているとは思うが 通貨定数について https://docs.microsoft.com/ja-jp/office/client-developer/visio/about-currency-constants EUROCONVERT 関数 https://support.microsoft.com/ja-jp/office/euroconvert-%E9%96%A2%E6%95%B0-79c8fd67-c665-450c-bb6c-15fc92f8345c MSに問い合わせる案件のような気もする 382 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:28:00.48 ID:2Gg8wBAvd.net] >>376 ポンド記号は3種類ある JISコード(Shift-JISコード)、ユニコード、イギリス向けOSの環境依存文字 使用者にどれかを強制させて統一させるのはものすごく難しいので、どれが入ってきても混じっててもいいように、 プログラムを複数のパターンに対応できるように作るしかない 383 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:34:13.27 ID:dcyjCeKBa.net] 勝手に変換すればいいよ 384 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 17:59:37.72 ID:cSomMf3f0.net] >>379 まさしき1971年以前の英国貨幣史の研究で使用します．10世紀くらいから第2次大戦くらいまでです．各時代の銀貨が含む銀重量と，地金価格，銀貨の額面価値の比較をするためのデータ整備でしようします， 1971年以前は，1£＝20シリング，1シリング＝12ペンスでした．10進法ではありません． 今は応急策としてエクセル側で£ではなくてLと使いVBAで側ではてtestfunc02タイプでしのいでいますが． しかし将来見た時になんでこうしているのかわからなくなると思いますし，£の使い方は要注意ということも間違いなく忘れますので，この際できれば解決しておきたいのです． >>377 半角ポンドのコードは63番でL大文字は76，l小文字108番で異なります． ￥とバックスラッシュはともに92番ですが事情が異なるようです． またご提案の StrConv("£", 10)を試しましたが，結果は全角の"£"を返し半角の"£"を返さないので解決策ではないです． >>378 半角ポンド記号は存在します． £，£は違います． 最初が半角ポンド記号で2番めが全角ポンド記号です． 385 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:03:34.25 ID:cSomMf3f0.net] 自己レスです． 今が気がついたのですが，レス入力時には半角ポンドと全角ポンドは違うのですが，投稿後はどちらも全角ポンドで表示されていますね． ”£，£は違います．”のように． このことが，今ひとつ皆様に正しく伝わりにくい原因かもしれません． 386 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:10:11.49 ID:cSomMf3f0.net] 半角と全角の違いをアップしました． https://imgur.com/QmAApZ5 レス作成時には半角と全角の異なるもじが使えますが，投稿後はともに全角で表示されるようです． 387 名前：デフォルトの名無しさん [2022/01/14(金) 18:12:16.77 ID:dtRMJdwu0.net] >>383 今ちょうど見ていた ポンド記号、何か色々とおかしい vbeでも変換されるからわけわからんことになってきた 388 名前：デフォルトの名無しさん [2022/01/14(金) 18:26:28.87 ID:dtRMJdwu0.net] >>382 俺のコードで合っている https://i.imgur.com/XISUJtg.png 恐らくコンソールで見たんだと思うけど、VBE上はポンドが全て全角になる ポンドを文字列にせず、全て半角にして取り扱えば問題は起きにくいと思う serchCharの部分も文字コードの方が良いだろう あと、Lが引っかかる理由もわからんが、恐らくあいまい検索か何かでひっかかってるのだろう 業務に使うなら、今回に限ってはvba使わずに、エクセルだけで処理したほうが良い気がする。 389 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:29:18.19 ID:P/5qDoLq0.net] >>382 存在するかどうかって言ってるんじゃなくて、SHIFT_JIS環境で想定がないんじゃないかって言ってるんだよ ウィキでみるかぎり、U+00A3とU+FFE1らしいから、それチェックすればいいだろ こんな感じか Function foundPound(word As String) As Long Dim pos As Long pos = 0 Do Until pos >= Len(word) pos = pos + 1 If Mid(word, pos, 1) = ChrW(&HA3) Or Mid(word, pos, 1) = ChrW(&HFFE1) Then foundPound = pos Exit Function End If Loop End Function 390 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 18:44:27.31 ID:cSomMf3f0.net] >>386 >>387 皆様ありがとうございます。 一つ一つ確認してみます。 386様、コードを張っていただけると助かります。 391 名前：デフォルトの名無しさん [2022/01/14(金) 19:11:03.04 ID:dtRMJdwu0.net] >>388 >>377で合っている テストに使ったコードはこれ ユーザー定義関数じゃなく、普通の関数にしてる https://jsfiddle.net/jb52o9g4/ 392 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 19:15:48.47 ID:lOO1pB5h0.net] serchChar = ChrW(163)で行けたが 393 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 19:26:56.18 ID:lOO1pB5h0.net] >>389 あ、解決してたんだね、ごめんなさい 焦 394 名前：デフォルトの名無しさん [2022/01/14(金) 21:30:18.78 ID:+nyDUFlg0.net] searchCharな 395 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 21:47:12.20 ID:cSomMf3f0.net] >>377 ありがとうございました。 動作確認できました。 一つ教えて下さい。 StrConvの第2引数ですが10はどういう意味でしょうか。 公式ヘルプには10の設定がないのでご教示いただければありがたいです。 https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/strconv-function?f1url=%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vblr6.chm1011063);k(TargetFrameworkMoniker-Office.Version%3Dv15)%26rd%3Dtrue 396 名前：デフォルトの名無しさん [2022/01/14(金) 21:51:25.41 ID:dtRMJdwu0.net] >>393 一つならvbLowerCaseかvbNarrow（もしくは2か8）でいいんだけど、 2つ以上組み合わせる場合は、足し算する 小文字の変換　2 半角　8 足して10 今回は小文字にする必要は理屈上ないはずけど、 どうせやるならついでにやっておいたほうが良いからやってある 397 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 22:29:34.99 ID:cSomMf3f0.net] >>394 ありがとうございました。引数の意味はVBA でよくやる方法ですね。 398 名前：デフォルトの名無しさん mailto:sage [2022/01/14(金) 22:43:41.66 ID:cSomMf3f0.net] >>394 すいません。 対応する小文字や半角文字がなければそのまま大文字や全角文字を返すのでしょうか？ 399 名前：デフォルトの名無しさん [2022/01/15(土) 00:25:26.50 ID:w/VctcoP0.net] >>396 そうだと思って使っていたけど、言われてみればリファレンスにないね あと、ごくたまに罠がある https://www.petitmonte.com/bbs/answers?question_id=28308 400 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 00:56:09.86 ID:xF8zc0t/0.net] んー、セルはunicode対応で環境依存文字使えるけどエディタはsjisだから文字コード自体が違うだけかと思ってた 401 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 01:08:19.24 ID:8e4JI6z40.net] >>397 詳しい説明ありがとうございました。とても複雑なんですね。 402 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 11:15:34.39 ID:6domvLfM0.net] Range.Rangeプロパティ、イミディエイトウインドウ、ローカルウインドウ 便利 403 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 12:40:23.72 ID:8e4JI6z40.net] >>387 文字コードについて詳しくないので教えて下さい。 ChrW(163)をセルに書き込むとポンドの半角通貨記号でした。 そのセルのcode()を見ると63でした。 2つの値が異なるのは163がユニコードの番号で63がANSIの番号だからですか？ どちらか一方だけ（例えばユニコード）に対応した関数で使用を統一する方法はあるのでしょうか。 404 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 13:37:09.72 ID:Op2FQMu7M.net] >>401 状況よくわからんけど AscW(Cells(1,1).Value) とかじゃ駄目なの？ 405 名前：デフォルトの名無しさん [2022/01/15(土) 13:37:27.88 ID:w/VctcoP0.net] >>40１ 違う code()の返り値が63は、2パターンある 一つは半角「?」。これは正真正銘の63 もう一つはshiftjisでもasciiでもない文字。絵文字など。それも63が返って来る 後者は出力の際に、ユーザーに対する応答として便宜上「?」を使っているだけだろう。 >>387の言ってる＞SHIFT_JIS環境で想定がないんじゃないかって これはそういう意味だと思う。多分 文字コードは難解な上に歴史的経緯が大きく影響から、あんまり深追いしないほうがいいよ。得るものも少ない。 ダメ文字知ってるぐらいで良い 406 名前：デフォルトの名無しさん [2022/01/15(土) 13:38:25.50 ID:w/VctcoP0.net] それを考えると、変な文字でワークシートとvbaを行ったり来たりさせないほうが良いと思う ってことぐらい注意しておけばいいんじゃないかな 407 名前：デフォルトの名無しさん mailto:sage [2022/01/15(土) 17:07:04.41 ID:m8G7GxvMM.net] クラスモジュール初めて使うんですが、 ひとつのクラスモジュールに、 マクロで

---

---

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

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