スキルアップ・問題解決なら、モーグにおまかせ！

質問しておいて、中途半端な状態で閉じちゃう輩がいる。
最近すっきりしないこと多いね？

WORDは、扱いにくい
  
表の中に図を置くことができる。
しかし、表のセルと図の関係が目視できないので、図の名前を変更しようと
ＶＢＡで、表のセルをループして、図が損じを確認、セル位置をク今田名前に変更。
そして、図の一ｒン表の並びを変更しようとしたが、これふぁ大変。
図の一覧表示画面で、表示順序を変更する場合、
一つづつならば、手操作ではできのに、ＶＢＡでは無理。
Indexに相当すると思うＩＤプロパティは読み取り専用。
マクロの記録は、機能せず。
結局、図はやめました。
 
あ〜あ、面倒くさ・・・・

昨年の年末に転倒して、左薬指を骨折
２週間：ギブス＋包帯
ギブス外れた、小指と一緒に固定：２週間
２月初めに固定が外れた。
 
左薬指が曲がらない。小指も一緒に曲がらない。
半端じゃない痛み。
２月中旬から、リハビリ開始
握力：右手の１／３・・・
一向に良くならない・・・・とほほの状態です。

私も数年前同じような経験をしました。もっと軽かったですが。
信号が変わる前にと荷物を持って走ったのがいけなかった。転倒してしまいました。
大リーグ時代の松井選手のように、手首が反転するようなことになりました。
今も時々不調になることがあります。
 
ご自愛ください。

こんにちは
 
次のコードがなぜエラーになるのか、小一時間ハマりました：
 

Sheet1.Range(1, 1).Value = 1

たらのり　さん
  
ハマりました・・・結果
解決したんでしょうか？
  
既述したモジュールは
Sheet1シートモジュールですよね？
  
Range
↓
Cells
の間違いでは？
 
私もよく間違えます。

WinArrow さん、
ありがとうございます。
 
はい、おかげさまで自己解決後の投稿でした。
 
PCを再起動してみたり、ブックが壊れたのかと
モジュールを新規ブックに移してみたり、
同様の報告はないかと検索するなど、あれやこれや。
 
もう、イヤになってしまいます……(泣笑
 

少し言葉足らずでしたが、
もちろん、正解は WinArrawさんのご指摘の通りでした。
 
初めて見るエラーメッセージだったような気がします(気のせい?)。
 
20年以上、同様の間違いをしたことがなかったのか、これまでは
機転を効かせて、都度立て直して遣り過ごしてきたのか……
おそらく後者かと。
 
さいきん、頭の固さを自覚しつつあり、Excelからの戒めかとww
 
 

左薬指の骨折で、整形外科でリハビリ中
 
今日も、最初に、血圧を測ります。
セーターの上にカフをまくのですが、
上が「１８８」・・・・最高だよ。
 
先日、私の後で測った人曰く、
病院に行かなくちゃ・・・
 
年末ｋら２ヶ月、車に乗っていなかったら、
バッテリーが上がってしまいました。
免許返納を予定（覚悟）しているので、
税金のこともあり、廃車をしました。
レッカー車で引き取りに来た。
１６年乗った軽自動車。走行距離：22000Km・・・ほとんど乗ってない。
 
窓をあければ、港がみえる
という歌があるが、
 
窓をあければ、車がみえない・・・
さみしいです。

[配列から範囲に書き込み速度を上げられますか？]
https://www.moug.net/faq/viewtopic.php?t=82701
は、コードの話ではなく、環境の話でしょうね。
(1)ひとつは、ブックに異常が発生している可能性。
   これを確認するには、一番単純なファイルを新規に作って、
   今のブックから遮断することが必要です。
   リンクされた図のありなし、などを直ぐに回答しているところからすると、
   検証もたぶん、現在のシートをシートごとコピーしたりしている可能性がありますね。
(2)または、Excelアプリケーションに不具合が生じているケース。または他のソフトからの影響。
   小規模会社は別として、複数人がExcelを使っているでしょうから、
   他の人にも同じ事象が発生しているはずです。
   いずれにしても、会社の他の方の協力が必要でしょう。
   会社の他のマシンで新規ブックで再現するか、等を早くに問うべきでした。
   場合によっては再インストール。
 
私の反省点は、早々に代替コードなどを提示した点。議論が拡散してしまいました。
 
WinArrowさん、高血圧には気を付けたほうがいいですよ。ご自愛ください。

引用:

WinArrowさん、高血圧には気を付けたほうがいいですよ。ご自愛ください。

 ああ、そうでしたか安心しました。
 120ですか、いいですね。
 私は降圧剤を服用する身になっています。
 
 > 家での血圧は正常値なのに、診察室で測るときは血圧が高い、この症状を白衣高血圧と呼びます。
 というらしいです。私は、20くらいは差がある感じです。
 家庭で使うのは低いほうが好まれ、病院では高いほうが好まれるという期待に、
 血圧計業界が忖度しまくっているのではないかと睨んでいます。( half-serious )

引用:

血圧計業界が忖度しまくっているのではないかと睨んでいます。( half-serious )

貴重な話、ありがとうございます。
 
# half-serious は面白半分の意味で書きました。半分本気で、という意味もあるそうですが

https://www.moug.net/faq/viewtopic.php?t=82708
関連
 
画像挿入のファイル選択ダイアログの「挿入」ボタンのオプション（▼）
「挿入」「リンク」「リンクと挿入」
３つの選択操作をマクロの記録してみました。
出来上がったコードは、全て同じです。
.Picures.Insert
 
オプションは、どこに組込まれているのかな？
 
挿入した画像ファイルは「リンク貼り付け」という仕様になっているが、
ブックの検査では、「他ファイルへのリンク情報なし」になる。
 
なんでだろう？なんでだろう？なんでだろう？

マクロ記録の不備でしょうね。
「挿入」「リンク」「リンクと挿入」の3つの選択肢のうち、
「リンク」を除いた、「挿入」と「リンクと挿入」を使用した場合に、
画像そのものがブックに取り込まれるようです。

Pitures.Insert
検証結果
  
予め手操作で挿入した画像を３つ用意
図1:「挿入」オプション＝挿入
図2:「挿入」オプション＝リンク
図3:「挿入」オプション＝挿入&リンク
  
Dim 図
  
    Set 図 = ActiveSheet.Shapes("図1") → Type =msoPicture
    Set 図 = ActiveSheet.Shapes("図2") → Type = msoLinkedPicture
    Set 図 = ActiveSheet.Shapes("図3") → Type = msoLinkedPicture
  
VBAで挿入
  
    ActiveSheet.Pictures.Insert ("〜〜\画像\1.jpg")
    Set 図 = Selection.ShapeRange
　　Type = msoLinkedPicture
  
ということでした。

さいきん謎に思うこと
 
納豆に付属するタレ(醤油っぽいアレ)ですが，
 
若い頃はいつも足りないくらいに思っていましたが，
年を取るに連れてカラくて(塩っぱくて)しかたがなく，
これは嗜好の変化なのか，タレ自体が変化したのか……
 
 

同感です。
私はカラシしか使いません。醤油は捨ててます。
年齢でしょうかねえ。

今日（4月14日）、運転免許を自主返納してきました。
昭和４０年に免許を取得。５８年か・・・息子からご苦労様って言われた。
 
友達からただ同然で買ったマツダクーペ(ほぼ１年）が最初の車
寒くなるとエンジンかからない。調子が悪く、毎日、ポイント磨いたり、調整したり、
出勤途中で国道の真ん中でエンスト、手が掛かったが、勉強させてもらった。
ダイハツワゴン・・・この車で、川崎へ行ったっけ、伊豆（新婚旅行）
スバル、スバル、スバル、レオーネ(１０年）、カリーナ、サニー（交差点で右折待ちするとエンスト）
カムリ（１０年：購入した翌日に軽井沢の保養所へ、乗り心地バツグン、でも燃費が悪かったなあ！）、
ムーヴ：この車で事故って大破するも幸運にも怪我無し）、ムーヴ(１６年）この車が最後。
ふりかえってみると、11台か・・・

こんばんは
 
はじめてタレを入れないカラシのみの納豆を白米にのせて
食してみましたが，薄味ではあるものの意外といけますね。
慣れれば何ともないと思いますし，薬味を工夫すればさらに……
 
ぼくも血圧の薬を処方されているのですけど，もしかすると
我々は，高性能のセンサーを獲得したのかもしれませんw
急ぎ，尿酸値を監視するセンサーの開発に……
 
 

https://www.moug.net/faq/viewtopic.php?t=82759
関連
 
質問者さん投稿の表のレイアウトの説明文の中に
ＤＧＥＴ関数を使って氏名を取得している
というように記述があります。
 
どのような使い方を指定うのか？
お分かりになりましたら
教えていただけますか？

質問者さんに聞かないとわかりませんが、
DGETの条件式のセルに、年と 番号を書き込み、
結果をDGETの式のあるセルから読み取っているのではないでしょうか。
一覧表が、年と番号が分かれたものなんでしょう。
「年-番号」をキー項目とした表にしてVLOOKUP関数で取得することのほうが多いかもしれません。
まあ、そこは論点ではなかったので....
 
多くの回答者さんが適切な回答をされているのに、なかなか収束しない印象でした。
それとENDというのは、強制的に終了させるので私は余り使ったことがなかったです。
Unload MeではダメでENDにすべき理由でもあるんでしょうか。

DGET関数をセルに入力する場合でも
VBAで実行する場合でも同じですが、
第１引数のデータベースは存在すでしょう。
第２引数はフィルドですから、勿論日梅雨で、
問題は、第３引数の与え方にあります。
 
デーtべースの側のフィール名と対応する、
条件の項目名が説明図の表には存在しない。
条件として指定する場合でも、セル範囲で指定する必要があるらしい。
条件を複数件まとめた表は無理なようｄす。
 
 

> 条件を複数件まとめた表は無理なようです。
そのようですね。
たぶん、質問者さんは一件一件取得していると思います。
条件式のセルに、年と番号を入れて、
DGET関数を入れたセルの値を読んで、氏名を得ているのでしょう。
24/05/05 06:57:16は、そうした趣旨の投稿でした。
 
ところで「シート名を取得して数式を作成」の質問された方は、ご返事がない。
こういうケースは指摘しにくいですな。
「今連休中で、Excelどころじゃないですよ」などという科白が頭をよぎる。
でも、そうなら5/1に質問などされないほうが良かったかもです。
やはりひとつの礼儀として、質問に回答があったらそれなりに返事をしていただきたいですな。
まあ、こういう常識も最近は通用しない世の中になったようです。

引用:
たぶん、質問者さんは一件一件取得していると思います。
条件式のセルに、年と番号を入れて、
DGET関数を入れたセルの値を読んで、氏名を得ているのでしょう。

高血圧の方に朗報？
 
私の妻も、慢性高血圧なので、じっくり読んでみたいと思います。
 
https://www.msn.com/ja-jp/health/other/%E9%99%8D%E5%9C%A7%E5%89%A4%E3%81%AF-%E5%A4%9C%E3%81%AB%E9%A3%B2%E3%82%80-%E3%81%8C%E6%AD%A3%E8%A7%A3%E3%81%A0%E3%81%A3%E3%81%9F-%E6%99%82%E9%96%93-%E3%82%92%E6%84%8F%E8%AD%98%E3%81%99%E3%82%8B%E3%81%A0%E3%81%91%E3%81%A7%E9%AB%98%E8%A1%80%E5%9C%A7%E3%82%92%E6%94%B9%E5%96%84%E3%81%A7%E3%81%8D%E3%82%8B-%E9%A9%9A%E3%81%8D%E3%81%AE%E6%96%B9%E6%B3%95/ar-BB1m7ymT?ocid=msedgdhp&pc=U531&cvid=977df6ae6a7547f38d166c64027bc935&ei=8

こんばんは
 
僕も詳しいことは分かりませんが(当事者なのですがw)，
高血圧症の判定基準は年を追うごとに厳しくなっていて
あえて病気にされている気がしないでもなく……
 
# 個人の感想です
 
 
さいきん，この 4月に受診勧奨される基準が緩和された
という記事を見て，それによれば僕は判定基準を下回って
いて，さっそく祝杯を挙げた訳ですが(この考え方がダメ)，
これでお薬減るかしら……
医療費の削減に貢献したいです(切実)。
 
 

最近、イライラｓること
 
コロコロスペアーテープ
 
折り目を付けたいがなかなか見つからんし・・・・

こんばんは
 
僕の使っているコロコロスペアーテープには，筒の両端に一箇所ずつ
5ミリほどの切れ込みが入っています。
切れ込みは芯まで達しているので，その切れ込みごとに 1周分ずつ
剥がして破いて使用しています(切れ込みの部分から剥がします)。
 
伝わるかしら……
 
 

こんばんは
 
Windows10 のタスクバーの右隅に Copilot(?)のアイコンがあり，
遊びで「100年後の〇〇市(※)を描いてください」と入力して
仕上がったその画像への既視感，懐かしさを覚えるような
未来予想図に「ホントかしら」と。
 
超高層ビル群の間を飛行する移動物体，チューブ状ではないものの，
縦横に交差する高架を走る路線(道路?)。
広い歩道を行き交う人々は全身タイツではありませんでしたがw
 
イルカが攻めてくれば数え役満です(分っかんねぇだろうなぁ〜)。
 
※ 東京まで電車で 50分ほどのベッドタウンです
 

http://www.moug.net/faq/viewtopic.php?t=82770
関連
 
まったく状況説明がないまま、閉じてしまわれたが、
最後のメッセージが
>Excelの不具合
だって・・・・？
 
そのまま信じることできないよね・・・・

私も信じられません。
どんな風にうまくいかないかの報告もされない人ですから、Excelの不具合と言われてもですね。
以上です。

こんにちは
 
ExcelVBAのスレにもありましたが、
ウチでも先週、何年も問題なく稼働していたツールが
メモリ不足といって停止しました。
 
原因は不明ですが、放っときゃいずれ直るかしら。。。
 

好転するといいですね
 
インテルの13，14世代CPUは不具合があるとかでミソをつけたようですね。
インテル入ってる　の時代から随分と色あせてきました。
 
私がドライバーの更新を行った際の、ネット上の対応方法の説明もわかりにくかったです。
単純な上書きでは治らないケースもあるようで、そのために、
責任転嫁だけを意識している感じで、説明が曖昧で分かりにくかった。
個人顧客への客商売が下手なのか、当方のリテラシーが低いのか。
 
さて
https://www.moug.net/faq/viewtopic.php?t=82864
ですが、

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Reset
End Sub

こんばんは
 
「インテル入ってる」って、ショーン・○ でミソついちゃったし
……は置いておいて、
 
「メモリ不足」の件はその後再現せず、該当コードの特定もできて
いませんが、自分が使用する PCではないので、当方でパッチを
当てるわけにもいかず。
その PCの CPU は i5 10世代でした。
 
そうこうしているうちに、今日自分の PCで、10年近く鰻のタレの
ように使いまわしているエクセルブックで次のメッセージが
 

  いくつかの数式の計算中にリソース不足になりました。
  そのため、これらの数式の値を求められません。

別件ですが、最近、最新投稿リストが右サイドバーに出なくなったし、
投稿者検索も Internal Server Error を返すし、経費節減ですか？
それほど節約効果あるものなんですかね。
 
VBAエキスパートコラムというのも最終回のようですね。
私は熱心な読者ではなかったですが、長年にわたる執筆お疲れさまでした。
 
流量もかなり激減しているはずで、
こちらのサイトも終わりが近づいているのでしょうかねえ。

| いくつかの数式の計算中にリソース不足になりました。
| そのため、これらの数式の値を求められません。
まだ一度も出会ったことないですね。
相当使い込んでいる鰻のタレみたいですね。
  
VBScriptも廃止するとか、環境も徐々に変わっていくようです。
致し方無い面もあるのですが、一抹の淋しさも感じますね。
  
そう言えばこの間、Copilotというのを試してみました。
簡単なワークシート関数についての質問をしてみました。
思うような回答がこないので、
何回か「それでは結果が得られません」と投稿していたら、
なんかまるでキレられてしまったようで、英語でサヨナラ的なコメントをしてきました。
カスタマーハラスメントと認識されたのでしょうか、なんだかなあ。
その一件で、Copilotには近づきたくないと思いました。

最新のトピックや、投稿者検索復旧しましたね。良かったです。お疲れ様です。

VBScriptの廃止に関しては下記が原典のようです。
https://learn.microsoft.com/ja-jp/windows/whats-new/deprecated-features
https://techcommunity.microsoft.com/t5/windows-it-pro-blog/vbscript-deprecation-timelines-and-next-steps/ba-p/4148301
 
■全体のタイムラインは次のようになっているようです。

Phase1 
    2024年下半期には、Windows11に限定的にオンデマンド機能にVBScriptが載る
    （デフォルトは使用可）
Phase2 
    2027年ごろには、(Windows11に限らずすべてで）オンデマンド機能にVBScriptが載る
    （デフォルトは使用不可。ただしユーザーが使用可に変更できる） 
Phase3 
    VBScriptは使用できなくなる（時期は未定であり、公表されていません）

こんばんは
 
vbsはアイコンのダブルクリックやファイルの D&Dで起動する
など使い勝手が良く多用していて、移行が課題となっています。
 
MSは PowerShellや JavaScriptへ移行してくれ(?) のような
ことをいっている という記事も見かけましたが
(うろ覚えで間違っていたらごめんなさい)、Excelブックの
操作性は vbsと比較してずいぶん低下してしまうのではと。
 
いずれにも(ps、js)疎くわかりませんが、学習にあまり
コストを掛けたくないし。
 
VBAから使用する正規表現の代替手段次第では、こちらの方が
キツイか…
 
 

最近気づいたこと(恥さらし)
 
VBAではあまりよいこととされていないようですが、僕はよく
プロシジャスコープの静的変数を使用します。
 

Public Function Increment() As Long
    Static i As Long    ' ← コレ

    i = i + 1

    Increment = i
End Function

' [実行] ボタン
Private Sub cmdExecute_Click()
    Dim i As Long

    For i = 1 To 10
        Debug.Print Increment()
    Next i

    End     ' 静的変数が初期化されることを期待して
End Sub

Windowsのスタートメニューみたく、取って付けたとはいかないVBAなので、一旦外してみるわけにもいかず、
最近のExcelのTypeScript系のOffice スクリプトとか、作者を引き入れた甲斐があったのか
オンライン限定のPython in Excelとか、Microsoft 365でしか使えない機能も多く、方向性が定まってない気が致します。
 
テンポラリファイルを作る必要がありますが、コマンドプロンプトにfindstrが追加されたので、これで正規表現が使えます。
代替となる程、強力な感じは受けませんが、Pythonが控えてるなら、一般機能を呼び出すなどして、何とかなる未来もあるかも知れません。

VBScript.dllの代替手段として、色々と検討されているのでしょうね。
 
正規表現に限定したdllを再作成するというのは技術的に困難なのでしょうか。
 
最近では、Excel本体にも正規表現を利用したワークシート関数が導入されつつあります。
REGEXEXTRACTおよび REGEXTEST と REGEXREPLACEの3関数です。
これは、
> 正規表現の PCRE2 'flavor' が使用されます。
ということのようです。
flavorってのは、〜モドキとか、なんちゃってPCRE2とかいう感じなのでしょうか。
 
できればPCRE2ベースのものを .dllとして提供してもらうとよいというのが希望ですが、
古い環境にも適用できるものとなると、やはり技術的に困難なのでしょうか。
MS社の精力的な検討が待たれます。

Excel365のバージョン2411がリリースされたようで、
正規表現関連の3関数が一般ユーザーにも使えるようになりましたね、朗報。
PCRE2'flavor' は文字通りPCRE2風味ということでPCRE2をベースとしたライブラリーということです。
(Perl互換の正規表現ライブラリーということで、PCRE2を使う言語も結構多いですね）
 
 
ところで、最近のAIブームでLLMに質問して回答を得るという使い方が進んできました。
そのせいもあってか、質問掲示板への投稿が減少してきているのではないかと思います。
こちらに限らず、一般的に減少傾向にあるように思います。
 
ただ、LLMの回答がすべて正しいわけではなく、論理的に間違っているものも散見されます。
したがって、こうしたAIを利用した回答を禁止する質問掲示板も現れてきています。
 
私見では、禁止の理由は、こうした誤った回答がネット上にあがると、それがまたLLMの学習に使われるおそれがあり、拡散してしまう事態を抑止したいというところでしょうか。
ただし、うがった見方をすると、LLMの便利さが知られてしまうと、それはそれで
質問掲示板の運営には不利益なのかもしれない、ともふと思いました。
 
それはそうと、回答があったらあったでスタコラの方がいて、結果の報告はどうするんだという疑問が湧く。
質問者はネタを提供される点で、一定の貢献をされているとは思うが、
回答の評価(役立ったか、実際に動かすことで、新たな知見(問題の発見等)があったかどうか)などを報告されると、閲覧者にも益が及ぶと思われれる。
 
私は、そうしたやりとりこそが、こうした質問掲示板の存在意義だと思うのだが。
サポートを受ける場所とでも思っているかたが余りに多すぎます。（一義的にそれは間違いないのだが。）

VBScriptの収束に伴う件で、私は
投稿日時: 24/09/11 06:10:23　の発言で、
https://techcommunity.microsoft.com/t5/windows-it-pro-blog/vbscript-deprecation-timelines-and-next-steps/ba-p/4148301
を引用したうえで、
Microsoft社の担当者（Naveen_Shankar Microsoft氏。そのブロッグ記事の責任者）が、
> 今後の対応について、改めて代替策や新しい開発に関する最新情報を近日中に提供する旨を公表した、
と申し上げました。
 
改めてそのブログ記事を見てみると、なんと、そのそのマイクロソフト社の責任者の発言が削除されています。
批判の矢面に立っていたときは、あらためて今後の対応は公表するとして批判をかわし、
いつのまにか発言を消して、うやむやにしている。
担当者の意向と、組織の考え方が食い違ったのか、
いずれにしてもそのマイクロソフト社の発言をなかったことにしたのです。
信用ならないですな、天下のマイクロソフトともあろうものが。
「不適切にもほどがある」というのが2024年の流行語らしいが、まさにいい得て妙ですな。

こちらのサイトの検索機能について不思議な現象があります。
 
検索結果が複数ページにわたるとき、2ページ目以降をクリックすると、
「検索条件に一致するトピックまたは記事はありません。」と表示され
閲覧ができません。
昔からそうだったのでしょうかねえ。

こんばんは
 
こんなパターンを単独で使用することはないのでしょうが……
 

=REGEXREPLACE("xyz", ".*?", "-")
↓
"-------"

=REGEXEXTRACT("xyz", ".*?", 1)
↓
{ "", "x", "", "y", "", "z", "" }

Sub Test()

    With New VBScript_RegExp_55.RegExp
        .Pattern = ".*?"
        .Global = True
        
        Debug.Print .Replace("xyz", "-") & "<<"
    End With

End Sub
↓
-x-y-z-<<   (イミディエイトウィンドウ)

お久しぶりです。投稿を見過ごしてしまっていました。
 
たしかに、VBScriptと正規表現3関数とで振る舞いが違いますね。さすがです。
 
■正規表現3関数は、そのヘルプあるように、
> 正規表現の PCRE2 'flavor' が使用されます。
とあり、基本的にはPerl準拠の正規表現を使っているようですけど、
'flavor'というのは風味ということなので、完全ではないということでしょうか。
 
■VBScriptのそれは、正直よく知りません。PCREの系統ではないように思います。
 
■ちなみにpython の正規表現の標準ライブラリーreでは、
>>> import re
>>> re.sub(r'.*?',"-","xyz")
'-------'
となります。（third partyの regexも同じです。）
ただし、
re.sub('a*?', '-', 'xyaz')
'-x-y---z-'
となるので、その振る舞いの解釈が微妙です。
 
■数値計算に強いというJulia言語もPCRE2準拠の正規表現を備えています。
julia> reg=r".*?"
r".*?"
julia> replace("xyz",reg=>"-")
"-x-y-z-"
となりますので、同じPerl系統を使っているとは言え、微妙な動作のようです。
 
■Rubyはどうかというと
irb(main):001:0> "xyz".gsub(/.*?/,"-")
=> "-x-y-z-"
となります。
（Rubyでは色々な経緯を経てRuby2.0.0(2013年)以降はonigumoという
  ライブラリーが使われています。基本的にはPerl準拠ということでしょう。
  Rubyの正規表現はVM型正規表現エンジンの特色を活かした
  最も強力な機能を備えたものと言えそうです。）

ちなみに、

Sub test2()
    Dim s$
    s = "REGEXREPLACE(""xyz"", "".*?"", ""-"")"
    Debug.Print Evaluate(s)
    
    Dim v
    v = Evaluate("REGEXEXTRACT(""xyz"", "".*?"", 1)")
End Sub

Sub test3()
    Debug.Print Application.REGEXREPLACE("xyz", ".*?", "-")
End Sub

こんばんは
 
simple さん，コメントをありがとうございます。
 
僕もまず次の方法でと思ったのですが：
 

Debug.Print Application.REGEXREPLACE("xyz", ".*?", "-")

解釈をご教示いただきありがとうございました。
 
余談ですが、今はやりの生成AIを2種類試してみました。copilotとChat-GPT。
差異の理由説明はなく、実装の違いでしょう、というありきたりの回答でした。
なぜかpythonも"-x-y-z-"を返し、正しいのはこっちの方だなどとcopilotは言う。
いやpythonは"-------"を返しますよ、というと瞬時に、
「ああそうでした、今試してみたらそうなりました」などと答える。
なんだかむやみに調子いい奴だなと言う感じ。判っているなら最初から間違わないでよ。
 
さらに余談^n
昔はこういう話題はruby-list(ruby用のメーリングリスト)を探せば議論されていただろうと思い、
久しぶりに入ってみたら、version-upの連絡用サイトのようになっており、
昔とは全く別のものになってしまっていました。Rubyが熱かった時期はもうとうに過ぎているのか残念。
過去ログなども所在不明で、これまた残念。外国のアーカイブにでも残っているのでしょうか。

こんばんは
 

「ああそうでした、今試してみたらそうなりました」

CoPilotもChatGPTも、どちらもpythonの動作を間違え、
指摘するとすぐに調子よく訂正してきました。
二つとも、中にいい加減なオッサンが入っているようです。
 
別の話です。少し前の話題になりますが、言語モデルに関する論文で、こんなのがありました。
プロンプトに「ステップバイステップで考えて見ましょう」と言う言葉を入れると、
そうでない場合に比べると回答の精度が著しく上がるのだそうだ。
そんな子供だましのような話があるんですなあ。
元論文は以下。
https://arxiv.org/pdf/2205.11916
 
■
ruby-listつながりでネットサーフィン（死語でしょうね）していましたら、
ruby-listというメーリングリストを個人サーバーで管理されていた原さんと言う方
（長岡科学技術大学教授）の昔のインタビュー記事が目についた。
（引っ越しのときに、ついつい古新聞を読みふけってしまう、というありがちな奴です）
https://magazine.rubyist.net/articles/0023/0023-Hotlinks.html
独特のユーモアが感じられました。
 
私はRubyのかなり初期の頃から入れ込んでいて、原さんの書籍も持っています。
まともとさんのRubyデスクトップリファレンスなどと言う本もいまだに現役で使います。
（相当色あせました。25年前発行ですから）。
ま、本当に理解したのはDave Thomasの本(Programming Ruby)を読んだ時ですけどね。
雑談が過ぎました。

2025/8/18 8:07 に投稿しようとして、
プレビューをクリックすると、
Forbidden Access
となって投稿ができません。
初めての経験で戸惑います。出禁になってしまったのでしょうか。心当たりがありません。

simple様
 
平素よりモーグをご利用いただきありがとうございます。
モーグ運営事務局でございます。
 

引用:
2025/8/18 8:07 に投稿しようとして、
プレビューをクリックすると、
Forbidden Access
となって投稿ができません。

>以下フォームよりお問い合せいただけますと詳細な調査が可能でございます。
>https://secure.odyssey-com.co.jp/.cgi-bin/formCGI/callform.cgi?pn=moug_ask1&fn=ask1
 
こちらで連絡しようとしましたが、確認画面のところでForbidden Accessが出て連絡できません。
その範囲のセルの値を変数vに入れ、
もしvが11以上かつ20以下なら、cnt=cnt+1
と回数をカウントするだけのコードです。
このコードを書きこむとエラーになります。もちろん手元で実行確認済みのものを原稿にしています。
上記のvの判定とカウントアップする一行を除くと問題ありません。その一行が問題のようです。
chromeを使用していますが、サイトのキャッシュを一旦クリアーして再実行しましたが、
状況は変わらずです（エラー）。

simple様
 
平素よりモーグをご利用いただきありがとうございます。
モーグ運営事務局でございます。
  
お問い合せフォームでも同様にForbidden Accessのエラーとなってしまうとのことで、
ご不便をおかけしております。
  
差し支えなければ、調査のため、
該当の投稿内容全文を.txtファイル等に記載のうえ
下記アドレスまで添付にてお送りいただけますと幸いです。
moug◎odyssey-com.co.jp（◎→@に変更）
  
お手数をおかけしますが、よろしくお願いいたします。

メールは遠慮します。
 
各セルには数値だけが入力されているものとして、こんな風なことですか？
計算対象のセルがあるシートをアクティブにした状態で下記のマクロを実行します。

Sub test()
    Dim k       As Long
    Dim v       As Variant
    Dim cnt     As Long     '条件を満たしたセルの個数

    For k = 13 To 16
        v = Cells(6, k).Value
        If v ##  11 AND v $$ 20 then cnt = cnt + 1   ' この行です
    Next
    MsgBox "条件を満たしたセルの個数は " & cnt & " 個です"
End Sub

投稿テスト。
 

Sub test()
    Dim k       As Long
    Dim v       As Variant
    Dim cnt     As Long     '条件を満たしたセルの個数

    For k = 13 To 16
        v = Cells(6, k).Value
        If v >= 11 AND v <= 20 then cnt = cnt + 1   ' この行です
    Next
    MsgBox "条件を満たしたセルの個数は " & cnt & " 個です"
End Sub

Windows 版 FireFox（ 141.0.3 ）の場合、プライベートブラウジングモードでの実行時はプレビューおよび送信が可能であるようです。
 
通常モードの場合、プレビュー/送信ともに Q&A のトップ（ https://www.moug.net/faq/ ）に（エラー表示なしで）飛ばされました。

続いて Microsoft Edge での投稿テスト。
（プレビューできているのは確認済み）
 

引用:
Sub test()
    Dim k As Long
    Dim v As Variant
    Dim cnt As Long '条件を満たしたセルの個数
 
    For k = 13 To 16
        v = Cells(6, k).Value
        If v >= 11 AND v <= 20 then cnt = cnt + 1 ' この行です
    Next
    MsgBox "条件を満たしたセルの個数は " & cnt & " 個です"
End Sub

続いて Chrome （ 139.0.7258.128 ）での投稿テスト。
（こちらもプレビューできているのを確認済み）
 

Sub test()
    Dim k       As Long
    Dim v       As Variant
    Dim cnt     As Long     '条件を満たしたセルの個数

    For k = 13 To 16
        v = Cells(6, k).Value
        If v >= 11 AND v <= 20 then cnt = cnt + 1   ' この行です
    Next
    MsgBox "条件を満たしたセルの個数は " & cnt & " 個です"
End Sub

平素よりモーグをご利用いただきありがとうございます。
モーグ運営事務局でございます。
 
詳細をお知らせくださりありがとうございました。
確認いたしましたところ、サーバー側のセキュリティ機能により、送信内容がブロックされておりました。
本日15:00頃に設定を変更いたしましたので、
不等号を含む内容もご投稿いただけるようになっているかと存じます。
ぜひお試しくださいませ。
 
このたびはご不便をおかけいたしました。
今後とも、モーグをよろしくお願いいたします。

admin さんの引用:
確認いたしましたところ、サーバー側のセキュリティ機能により、送信内容がブロックされておりました。
本日15:00頃に設定を変更いたしましたので、
不等号を含む内容もご投稿いただけるようになっているかと存じます。

sk さんの引用:
Windows 版 FireFox（ 141.0.3 ）の場合、プライベートブラウジングモードでの実行時はプレビューおよび送信が可能であるようです。
  
通常モードの場合、プレビュー/送信ともに Q&A のトップ（ https://www.moug.net/faq/ ）に（エラー表示なしで）飛ばされました。

モーグ運営事務局様
大変お手数をお掛けしました。お疲れ様でした。また、ありがとうございました。
下記のとおり問題なく使えました。出禁でなくてよかったです。
今後ともよろしくお願い申し上げます。
skさん　検証有難うございました。
 
---------
各セルには数値だけが入力されているものとして、こんな風なことですか？
計算対象のセルがあるシートをアクティブにした状態で下記のマクロを実行します。

Sub test()
    Dim k       As Long
    Dim v       As Variant
    Dim cnt     As Long     '条件を満たしたセルの個数

    For k = 13 To 16
        v = Cells(6, k).Value
        If v >=  11 AND v <= 20 then cnt = cnt + 1   '下記注を参照
    Next
    MsgBox "条件を満たしたセルの個数は " & cnt & " 個です"
End Sub

引用:
Forbidden Accessのエラー

sk様
 
平素よりモーグをご利用いただきありがとうございます。
モーグ運営事務局でございます。
 

引用:
あるスレッドにサンプルコードを投稿しようとしたところ、
何やらまた同じエラーが発生しますね。
（原因は今のところ不明）

admin さんの引用:
先日の事象と同じく、サーバー側のセキュリティ機能によってご投稿内容がブロックされていました。
新しいセキュリティ機能を実装した関係で動作が不安定になっており、ご不便をおかけいたしました。
本日11:00頃に再度設定変更を行いましたので、投稿をお試しいただけますと幸いです。

最近気づいたこと
 
ユーザーフォーム上のテキストボックスの文字列の取得や設定には、もう何十年も
(.NETでない VB2から) Textプロパティを使用してきましたが、最近になって同じような
働きをする Valueプロパティというものがあることを知りました。
 
検索してみると、テキストボックスの文字列操作に Valueプロパティを使用して
説明しているサイトが多く、いったいいつから(当時から?!)と愕然としてしまいました。
両者の違いはよく分かりません。
 
 

Chat-GPTに聞きましたら、.Valueは.TEXTと同等だそうです。
 
.Value プロパティ
1. .Text を単に 既定プロパティとしてラップしたものです。
→ 実体的には .Value = .Text です。
 
2. UserForm の TextBox に .Value が追加されたのは比較的後期（Office 2000 世代以降）で、他のフォームコントロール（CheckBox, OptionButton, ComboBox など）と同じように 統一的に .Value で扱えるようにするために導入されました。
 
3. つまり、CheckBox や ComboBox では昔から .Value を使うのが自然でしたが、TextBox だけ .Text なのは一貫性に欠けるので「互換のために .Value もサポート」された、という経緯です。
 
ということのようです。

simpleさん、お世話になります。
そしてありがとうございます。
 
かつて TextBoxには Valueプロパティがなかったと先生が仰っていたとのこと。
 
さいきん自分の記憶が本当に当てにならないと思うことが多いのですが、
心強い後押しをいただき、大変ありがたいです。
 
何しろ、30年以上も前からのことなので……
 
 

正規表現はVBAに実装されましたがVBSに属する物を単独で動作させるのは大変らしく、まだ実用に耐えないご様子。
素人考えではVC++やPythonのを持って来ればいいのでは？と思いますが、互換性を何より重んじるMSとしてはそれは取れない選択なのでしょう。
 
例に依ってOffice365のBusiness、Enterpriseと買い切り版や電器屋で売ってる一般向けのサブスクには対応していません。
XPでサポート終了後、法人向けに従前通りアップデートが降ってくるプランがあったり、組み込み向けもかなり長い間サポートされ続けました。
VBAもこれに倣い二極化して行くのだろうか...と思っています。

貴重な情報ありがとうございました。
 
VBScript.RegExpに依存することなく、VBAだけで正規表現が使えるということですか。
https://excel-ubara.com/excelvba4/EXCEL232.html
でもその件が書かれていますね。サンプルコードもあります。
サンプルコードをOffice365 version2509 でチェックしましたが一応動くようです。
 
Microsoftがそういう方向で対応する気になったのは朗報ですね。
私自身はまだ念入りに検証していませんが、既存のコードが動くかどうか調べてみたいと思います。
取り急ぎ御礼まで。

その2508から使えるわけですが、最新バージョンは法人向けのエディションしか降ってこない認識だったので
一般向けにも同様に降ってくるなら、一度試したい気持ちはありますね。

最近、遭遇した事象２件。
  
1件目：「Application.Inputbox」のエラーメッセージの不具合
経緯
TYPE:=8を使用して実行するとエラーコード426でエラーになる。
勿論、キャンセルを想定して、On Error Resume Next は、入れてあります。
しかし、INPUTBOXダイアログが表示されずにエラーになる。
 
半日ほどパニクッタ結果、Promptの文字列を変更してみた。
問題なく実行された。なんや、文字数が超過していただけか？
的確なエラーメッセージが欲しいですね？
  
  
２件目：こちらは解決していません。
  
セルを文字列設定して、"01 " (３桁目は半角スペース1桁）入力
「置換」コマンドで、スペースを"0"に置換すると
結果は、"10"になる。
VBAでも同じ結果・・・・
  
何故？