ほっとひといき給湯室 |
|
投稿日時: 19/11/29 15:24:30
投稿者: WinArrow
|
---|---|
|
投稿日時: 19/12/01 14:19:25
投稿者: ライスマン
|
|
---|---|
確かにピクチャーの上にオートシェイプ(図)を全面に設定しても
|
投稿日時: 20/03/01 09:31:00
投稿者: WinArrow
|
|
---|---|
r朗報といえるかどうか????
|
投稿日時: 20/03/09 12:47:11
投稿者: たらのり
|
|
---|---|
# 独りごと & 愚痴
|
投稿日時: 20/03/13 10:59:40
投稿者: WinArrow
|
|
---|---|
最近、メモ帳でのファイル保存で難儀している
|
投稿日時: 20/04/01 23:36:50
投稿者: simple
|
|
---|---|
数ヶ月前に Office2019がプレインストールされたノートPCを購入したのですが、
|
投稿日時: 20/04/02 22:49:39
投稿者: simple
|
|
---|---|
そういえば、ExcelVBAに久しぶりに登場された回答者さんがいらっしゃる。
|
投稿日時: 20/04/09 23:00:29
投稿者: simple
|
|
---|---|
> Excelのリボンアイコンがすっかり別のものに変わってしまい、
|
投稿日時: 20/04/13 13:56:51
投稿者: WinArrow
|
|
---|---|
昨日、プログラムを修正して、デバッグ時、「400」というエラーが出た。
|
投稿日時: 20/04/20 15:16:35
投稿者: WinArrow
|
|
---|---|
Excel2019になってかな?
|
投稿日時: 20/06/14 01:44:22
投稿者: ハンドルネーム
|
|
---|---|
WinArrowさんへ
|
投稿日時: 20/07/08 07:35:33
投稿者: simple
|
|
---|---|
皆さんこんにちは。
|
投稿日時: 20/07/24 19:25:52
投稿者: mr_hige
|
|
---|---|
最近、エクセルの動きがおかしいときがある。
|
投稿日時: 20/07/25 19:53:58
投稿者: ライスマン
|
|
---|---|
私はWin10が調子悪い時&トラブルの時に行うのがWin10の上書きインストールです。
|
投稿日時: 20/08/06 19:25:52
投稿者: たらのり
|
|
---|---|
# 愚痴です
+--------+ +--------+ +--------+ | pgup | | ↑ | | pgdn | +--------+ +--------+ +--------+ +--------+ +--------+ +--------+ | ← | | ↓ | | → | +--------+ +--------+ +--------+ キーを見ずに操作をしますが、ちょいちょい あらぬ方向へ カーソルが飛び、悶絶してます…… |
投稿日時: 20/08/11 12:30:24
投稿者: simple
|
|
---|---|
時々、Excel2019を使いますが、最近困っているのは、VBAのヘルプの問題です。
|
投稿日時: 20/10/09 22:28:11
投稿者: simple
|
|
---|---|
質問者さんから、
|
投稿日時: 20/11/03 15:16:47
投稿者: たらのり
|
|
---|---|
# 独り言です
|
投稿日時: 20/11/16 13:49:26
投稿者: たらのり
|
|
---|---|
# 愚痴?です?
Public Sub Test() ' 参照設定 ' OK: Microsoft DAO 3.6 Object Library ' NG: Microsoft Office 16.0 Access Database Engine Const CONN As String = "Excel 8.0; HDR=NO;" ' MS DAO 3.6 のとき "Excel 12.0" は NG Dim db As DAO.Database Dim td As DAO.TableDef On Error GoTo ERROR_HANDLER Set db = DAO.OpenDatabase(ThisWorkbook.FullName, False, True, CONN) ' シート名を列挙(1) ★ MSO 16.0 だとここで NG For Each td In db.TableDefs Debug.Print td.Name Next td #If (False) Then ' シート名を列挙(2) ☆ この方法なら OK Dim ti As Long For ti = 0 To db.TableDefs.Count - 1 Debug.Print db.TableDefs(ti).Name Next ti #End If EXIT_HERE: On Error Resume Next If (Not db Is Nothing) Then Call db.Close Set db = Nothing End If Exit Sub ERROR_HANDLER: Call MsgBox(Err.Description) Resume EXIT_HERE End Sub |
投稿日時: 20/11/16 13:55:51
投稿者: たらのり
|
|
---|---|
追記です:
|
投稿日時: 20/12/02 15:52:23
投稿者: WinArrow
|
|
---|---|
**愚痴**
|
投稿日時: 20/12/03 11:15:39
投稿者: WinArrow
|
|
---|---|
ガソリン車がなくなってしまう???
|
投稿日時: 20/12/03 23:27:23
投稿者: たらのり
|
|
---|---|
# 愚痴?
|
投稿日時: 20/12/10 18:52:19
投稿者: WinArrow
|
|
---|---|
>ガソリン車がなくなってしまう???
|
投稿日時: 20/12/29 01:11:35
投稿者: たらのり
|
|
---|---|
# 愚痴納めです
|
投稿日時: 21/01/06 22:35:36
投稿者: たらのり
|
|
---|---|
こんばんは
|
投稿日時: 21/01/16 21:49:47
投稿者: WinArrow
|
|
---|---|
お正月やね・・・・
|
投稿日時: 21/01/25 21:06:37
投稿者: WinArrow
|
|
---|---|
確定申告の時期
|
投稿日時: 21/01/27 15:30:46
投稿者: 角田
|
|
---|---|
「郵便番号変換ウィザードアドイン」のダウンロードサイトである
|
投稿日時: 21/01/31 18:12:33
投稿者: たらのり
|
|
---|---|
# 訂正です
Const PAT_INNER = "[A-Z]\-?\d*\.?\d*" 次のようにするのかな…… Const PAT_INNER = "[A-Z]\-?(\d*\.?\d*|\d+)" あと,括弧が対になっていることにこだわりましたが,そうでは ない想定外の列の場合,それが仇になるかもしれません。 また,パターンには合致しない部分列がある場合,次のように 置換後文字列の前後に空白文字を入れなければならず, 事後に連続するソレを単一に置換するのがよかったかも。 s = Replace(s, m.Value, (" " & m.Value & " "), , 1) また,元の文字列中に元々存在する空白文字を保存したい場合, 置換後の文字列は次のようにして,事後の置換を慎重にすべきか。 (Chr(&HFFFF) & m.Value & Chr(&HFFFF)) ……まぁ,杞憂でしょう。 質問者さんにはこんごの問題に対応する力があると思うので, こちらにこっそり反省の弁を。 正規表現をただしく使用することは難しいです。。。 |
投稿日時: 21/03/26 18:36:34
投稿者: WinArrow
|
|
---|---|
先日、奇異な現象が発生しました。
|
投稿日時: 21/06/10 23:16:45
投稿者: simple
|
|
---|---|
このところこちらの掲示板にいたずら投稿が見られます。
|
投稿日時: 21/07/02 06:39:26
投稿者: simple
|
|
---|---|
なんだか事務局さんからも放置されている感じで残念なことですね。 |
投稿日時: 21/07/13 17:05:40
投稿者: WinArrow
|
|
---|---|
7月11日、第1回目のワクチン接種に行ってきた。
|
投稿日時: 21/07/20 12:36:03
投稿者: simple
|
|
---|---|
私はだいぶ前に接種をすませました。
|
投稿日時: 21/08/05 14:39:15
投稿者: 素人眼鏡
|
|
---|---|
関わりたくないけどあまりに滑稽だったので、思ったこと書きたくてこちらに書きました。
|
投稿日時: 21/08/16 15:12:42
投稿者: WinArrow
|
|
---|---|
ワクチン・・・というか関連した話
|
投稿日時: 21/08/16 20:56:05
投稿者: WinArrow
|
|
---|---|
IEが使えなくなってから、しぶしぶ、Edgeに切替て使っています。
|
投稿日時: 21/08/18 00:19:06
投稿者: たらのり
|
|
---|---|
(なぜいまこれを愚痴るのか)
|
投稿日時: 21/09/12 12:18:35
投稿者: simple
|
|
---|---|
少し前のEdgeの話。
|
投稿日時: 21/09/13 00:31:24
投稿者: WinArrow
|
|
---|---|
simpleさん、ありがとうございます。
|
投稿日時: 21/09/13 11:00:28
投稿者: WinArrow
|
|
---|---|
リチウム電池単三・・・・
|
投稿日時: 21/09/15 22:04:47
投稿者: たらのり
|
|
---|---|
こんばんは
● 種の保存の観点からの必要性が減少するからでしょうか。 最近,運転免許証を更新して,久しぶりに自分の顔をまじまじと 眺めたのですが…… ぁ……,分かったかも!! (泣 |
投稿日時: 21/10/03 22:53:29
投稿者: WinArrow
|
|
---|---|
リチウム電池単三の件・・続き
|
投稿日時: 21/10/12 22:17:03
投稿者: たらのり
|
|
---|---|
ひと雨ごとに秋が深まりますね。
|
投稿日時: 22/01/27 13:58:04
投稿者: たらのり
|
|
---|---|
愚痴です
|
投稿日時: 22/01/28 21:17:53
投稿者: 古参兵
|
|
---|---|
私も時々行くお店で、ひと昔前に全く味のない温かい蕎麦を食べました。
|
投稿日時: 22/01/28 22:50:42
投稿者: たらのり
|
|
---|---|
こんばんは
|
投稿日時: 22/03/06 14:11:05
投稿者: WinArrow
|
|
---|---|
Drawing1.xml・・・・・図形いりxlsxファイルが壊れた??
|
投稿日時: 22/03/08 18:08:56
投稿者: WinArrow
|
|
---|---|
3月7日に、3回目のワクチンを接種してきた。
|
投稿日時: 22/03/12 22:41:39
投稿者: たらのり
|
|
---|---|
こんばんは
|
投稿日時: 22/03/13 10:42:34
投稿者: WinArrow
|
|
---|---|
たらのり さんの
|
投稿日時: 22/05/06 13:30:31
投稿者: WinArrow
|
|
---|---|
5月5日はこどもの日
|
投稿日時: 22/07/07 18:47:23
投稿者: WinArrow
|
|
---|---|
先日お米を買ってきた。
|
投稿日時: 22/11/15 10:18:07
投稿者: WinArrow
|
|
---|---|
久しぶりです。
|
投稿日時: 22/12/30 20:56:20
投稿者: たらのり
|
|
---|---|
参考にされる方もいらっしゃらないでしょうし、
|
投稿日時: 23/02/04 11:55:35
投稿者: simple
|
|
---|---|
最近、Twitter社を巡る動向から目が離せなくなってきましたね。
|
投稿日時: 23/02/09 16:34:33
投稿者: たらのり
|
|
---|---|
■ イミディエイトウィンドウにて
|
投稿日時: 23/02/13 20:22:56
投稿者: simple
|
|
---|---|
?strconv("\",vbWide)
|
投稿日時: 23/02/14 10:45:03
投稿者: たらのり
|
|
---|---|
すみません、vbTextCompareを使用した後半の 2つは
|
投稿日時: 23/02/22 12:56:19
投稿者: たらのり
|
|
---|---|
こんにちは
Sub TellMeWhy() Dim a(1 To 3) As Double a(1) = 2.7 a(2) = 3.14 a(3) = 999.9 With Sheet1 Call .Cells.ClearContents .Range("A1").Resize(UBound(a)).Value = a End With End Sub (Windows10、Office365) |
投稿日時: 23/02/22 18:57:11
投稿者: たらのり
|
|
---|---|
↑すみません、、、ノーカン、ノーカン!!(/ω\) |
投稿日時: 23/02/24 11:44:30
投稿者: WinArrow
|
|
---|---|
2月24日、とても不思議な現象に遭遇しました。
|
投稿日時: 23/02/24 11:49:20
投稿者: WinArrow
|
|
---|---|
追記
|
投稿日時: 23/02/24 13:18:24
投稿者: WinArrow
|
|
---|---|
日付、間違えちゃった。
|
投稿日時: 23/02/25 08:15:44
投稿者: WinArrow
|
|
---|---|
>全日までは、意図した東リの魚喜でした。
|
投稿日時: 23/02/26 17:39:34
投稿者: WinArrow
|
|
---|---|
ユーザーフォーム(A)からユーザーフォーム(B)を表示、
|
投稿日時: 23/03/15 22:17:03
投稿者: たらのり
|
|
---|---|
愚痴,疑問,勘違い?
|
投稿日時: 23/03/16 10:51:57
投稿者: WinArrow
|
|
---|---|
たらのりさん、しばらくデス。
|
投稿日時: 23/03/16 13:51:40
投稿者: たらのり
|
|
---|---|
WinArrow さん、レスをありがとうございます!!
|
投稿日時: 23/03/17 21:42:43
投稿者: たらのり
|
|
---|---|
こんばんは
Thisworkbook.Saved = True ' (A) としたところで,結局 保存をするか否かは問われました。 ぼくは,(A) をした時点で保存済みのブックとして 扱ってくれることを期待したので,とても不本意ですww ……という「愚痴」でした。 スレ汚し,失礼致しました m(_ _)m |
投稿日時: 23/03/21 08:35:32
投稿者: simple
|
|
---|---|
不思議なことが結構おきますよね。
|
投稿日時: 23/03/22 17:13:38
投稿者: たらのり
|
|
---|---|
simple さん、レスをありがとうございます。
Me.CommandButton1.Enabled = False 出口では Me.CommandButton1.Enabled = True ThisWorkbook.Saved = True のようにしています。 コマンドボタンの Enabled プロパティの状態を変化 させる処理を組み込んだのは最近で、 以前はマクロブックを開き、チェックボックスの状態を 変えずにコマンドボタンを押下し、処理が終了し次第 ブックを閉じると保存の要否は問われませんでした。 いまでも、上記の Enabled プロパティを操作する行を コメント化して駆動させれば、保存の要否を問うダイア ログが表示されないことが確認できます。 |
投稿日時: 23/03/22 22:34:09
投稿者: たらのり
|
|
---|---|
> コマンドボタンの Enabled プロパティの状態を変化
|
投稿日時: 23/07/12 10:42:25
投稿者: WinArrow
|
|
---|---|
最近GPTにコード作成を依頼し、
|
投稿日時: 23/07/16 22:42:54
投稿者: MMYS
|
|
---|---|
|
投稿日時: 23/09/07 23:14:15
投稿者: たらのり
|
|
---|---|
# 愚痴です
|
投稿日時: 23/10/23 16:29:31
投稿者: WinArrow
|
|
---|---|
任意日が同一曜日になる次の年はいつか?
|
投稿日時: 23/10/26 21:04:13
投稿者: WinArrow
|
|
---|---|
↑の改良版
|
投稿日時: 24/01/16 11:35:35
投稿者: simple
|
|
---|---|
「1つの点(X, Y) を描画する方法」
|
投稿日時: 24/01/16 17:42:33
投稿者: simple
|
|
---|---|
ついでで恐縮ですが、こちらスクロールが大変なので、
|
投稿日時: 24/01/17 10:55:15
投稿者: WinArrow
|
|
---|---|
simple さんの引用: 了解しました。 昨年年末に転倒して、左薬指を骨折。 ギブスをしているので、キーボード操に難渋しています。 |