Excel VBAでAsc関数 Chr関数 Offsetを使って 処理を変更してみました。前回作成のサンプル ken3memo.hatenablog.com に追加の要望がきました。追加の要望: 前回の質問時は満足していたのですが 本日色々と試してみると ランダム数値の区分がグループ分けした…
下記の質問が来たので、チャレンジしてみました。 質問ですが、VBAで数値の足し算をしたいと思います。 内容は A列に上から 20 15 8 90 16 とランダムに配列した数値を上から順に足し算していくのですが、ある一定の数値(33とします)になるくくりで数値を…
前回のサンプル完成した・・と思ってたら、質問者から不具合の連絡があった q.hatena.ne.jp コードを実行すると、 日付が記載されると2秒くらいフリーズしたりエクセルが点滅、読み込み直しをしているような何とも苦しそうな挙動をします。 ごめんなさい、私…
q.hatena.ne.jp に回答してみた。シートのコード に、 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Row < 100 Then Cells(Target.Row, "E") = Now End If End Sub を書くと、WorksheetのChangeのイベントで、 タイ…
http://www.ken3.org/vba/backno/vba183.html の VBA Outlook リッチテキスト形式のメール で グラフを送る ですが、 昔作成したサンプルなので、 Office2010からメニューがリボンになったので、 貼り付けが動かないみたいです。下記のサイトで指摘されてた…
>Outlookでファイルを添付する件で送信先を固定せずにアドレス帳から任意に選択することは可能でしょうか?アドレス関係は軽く追加とかしか、やったことはないのですが、VBA Outlook アドレス帳 連絡先選択 で検索すると、 https://qiita.com/Q11Q/items/c5a…
vbaでWEBの、select操作を行いたいのですが、valueを設定するも、うまく動作しません。下記、①のselectで馬連を選択しても、②方式選択が更新されません For Each obj In ie.document.getElementsByTagName("select") If obj.Name = "betType" Then obj.Value…
下記の質問をいただく 単勝オッズの取得20170820.xlsmを回答して実行しましたが、動きません。 MENUシートのB2に入れた、「2回新潟9日 リンクが見つかりませんでした」 のMSGBOXが出てオッズを取得できません。こちらの環境はExecl 2013です。もう一つのサン…
こんにちは。 >IEオブジェクトからIEのウインドウハンドルが知りたいのですが、どんな方法があるでしょうか? でよく使っているのは .hwnd かな。 SetForegroundWindow (IE.hwnd) など、 IEが持っているプロパティの.hwndを渡し使っています。ken3memo.haten…
私も苦戦してますね・・・できたぁ・・の報告じゃなくてスミマセン。Outlook オブジェクト モデルでルールを管理する https://msdn.microsoft.com/ja-jp/vba/outlook-vba/articles/managing-rules-in-the-outlook-object-modelルールの処理を指定する https:…