三流君 ken3のmemo置き場[B!]新着記事・評価 - はてなブックマーク (original) (raw)

3 users
ken3memo.hatenablog.com
ExcelからAccessを開き、フォームに値をセット後、ボタンを押す。 ボタンのモジュールをコールや.RUNすることができなくて、中途半端な処理の解説です。 下記の質問 ①エクセルからアクセスを開き表示されるフォーム（アクセス側）のテキストボックスに定型文字を入力、 その後コマンドボタンクリック等のコントロールができるでしょうか？ 上記①は、実際にはエクセルで処理したデータを、アクセスで作られた管理システムへ入力しないといけないのですが、 管理システムを開いた際のフォームに、社員番号、パスワードを入力しログインボタン→次のフォームが表れエクセル でいうオプションボタン（3つほどある）を選択し入力開始というような作業を自動化したいと考えています。 に対して、 三流君VBAでExcelからAccessを操作する http://www.ken3.org/cgi-bin/group/vba_ex

3 users
ken3memo.hatenablog.com
Windows10でshutdownコマンドを試してみました。 コマンドプロンプトでshutdownコマンドをたたいて、 ヘルプを表示してオプションやパラメータをチェック。 テスト用のハッチファイルをデスクトップに作成してテストしてみました shutdown /l ログオフのテスト shutdown /h 休止状態※失敗しました shutdown /s コンピューターをシャットダウン をテストしてみました。 ↓いつものぐだぐだ動画 Windows10 shutdownコマンドを試してみた - YouTube www.youtube.com 蛇足解説 操作 コマンドプロンプトでリダイレクトを使用してみた コマンド 〉 ファイル名 で 出力をファイル化できます コマンド 〉〉 ファイル名 で 追記します(後ろに追加されます) shutdown /? で ヘルプ表示 shutdown /? 〉m

3 users
ken3memo.hatenablog.com
AKB48 選抜総選挙 投票開始のニュースを見てフト思ったこと・・・ AKB48選抜総選挙：投票スタート “前田票”の行方に注目 - MANTANWEB（まんたんウェブ） http://sankei.jp.msn.com/entertainments/news/120522/ent12052208150004-n1.htm 大量買い、大人買いの人は、買うのも大変だけど、 投票作業も大変なのかなぁ？ と、余計なことを考えてしまったり...(私が依頼した仕事してください と 言われそうだけど) 投票時間を想像してみた まとめて600枚購入した熱狂的なファンが居たとして、 1.投票ページを表示させ 2.n桁のシリアル番号入力して、 3.名前を選択して(選択なのか？番号なのか？検索なのか？) 4.投票ボタンを押す、 5.確認画面(※確認画面はあるのか？無いのか？) これが、１回の動作なら 連続投票

8 users
ken3memo.hatenablog.com
まぁ、パターン的に、 .getElementsByTagName("INPUT") などで、タグを探して、.Clickするそんな感じかなぁ。 a href="#" OnClick="javascript:send();return false;" title="ログイン"> Dim objIE '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.

5 users
ken3memo.hatenablog.com
百聞は一見に〜 http://www.google.co.jp/ に飛んで(2012/04/24)遊んでみてください。。。 新しい、googleの広告手法？ ロゴ遊び(静止画) の 次は、 アクション性のある広告で稼ぐのかなぁ。 まぁ、これも実験だと思うけど・・・ ギデオン・サンドバック生誕132周年でファスナーなのね・・・あらたな広告じゃなかったんだぁ(ぉぃぉぃ) 後日、何言ってるのか？わからなくなると困るので... Google 広告 2012-04-24 テスト動画 ↓→ http://www.youtube.com/watch?v=hwe9dDIUnek www.youtube.com ↑ファスナー？ジッパー？をクリック(ドラッグ)すると、、、遊び心かぁ・・・ 100人アンケートとってみました http://q.hatena.ne.jp/1335215217 で アンケート出してみ

8 users
ken3memo.hatenablog.com
自動更新で、IE9に更新されたので ここに 検索エンジンから誤誘導されて来る人が多いので、 頭に一言 ツールの設定をしたくてもツールが出ないので困った・・ そんな時は、 http://www.youtube.com/watch?v=QDHTTAGPasg www.youtube.com ア．Altキーを押して一時的にメニューを使う 一番簡単なのが Altキー(左右どちらでも)を押すと、一時的にメニューが表示されます。 ここから、表示・ツール・・で常時表示させててもいいし イ．ツールから設定で常時出すには？ それか、 タブの隣、空白のところで右クリック、ツールを出す 以上、よろしくお願いします。 ここから下は、VBA で IEを起動して メニューバーやツールバーの表示をテストです。 www.youtube.com http://www.youtube.com/watch?v=5YV_kxkm

5 users
ken3memo.hatenablog.com
ブックマーク数が少ないから、恥ずかしいんだけど(ぉぃぉぃ) ブックマークのブログパーツ http://b.hatena.ne.jp/guide/blogparts を 三流君 http://www.ken3.org/ と この日記 http://d.hatena.ne.jp/ken3memo/ に 貼ってみた。 狙いは狙いは、 コンビニの 今売れてますｐｏｐ の 効果じゃないけど、 三流君コンビニ:自己主張？みんなと同じ茶髪と今売れてますｐｏｐ この記事が人気です と、コンビニでよく見かける 赤いPOP みたいに、読者に知らせて手に取ってもらう作戦かなぁ。 ブックマーク数を基準に売れてますよ(読まれてますよ)の押し売りって感じで(ぉぃぉぃ)。 えっ、私は だまされませんよ そんなブックマーク数に？... こりゃまた、失礼しました。。。 まぁ、探し物をgoogleなどで検索してきた人に この

5 users
ken3memo.hatenablog.com
下記のような質問メッセージをいただきました。 >「三流」とはおっしゃっていますが、私から見たらあなたが羨ましいかぎりです。 >どうすれば、三流君のようにスラスラプログラムが書けるのか、、、と動画を感心して観ていました。 >本当は、メールアドレスを書いて返信していただきたいのですが、現在アドレスが無いもので。。。 あっ、これですか、 4/1だけど本当のことを言うと... >スラスラプログラムが書けるのか、、、と動画を感心して観ていました。 なぜなら、その動画は成功した動画しかアップしていないからです。 ２４時間、垂れ流し、生放送だったなら、スラスラ書いていないことがバレてしまうんですが。 . たまに、そのままノーカットで手順をUPしている動画もあるのですが、 それは、編集が面倒なだけで、 その動画だけを見ているとスラスラ書いているように見えてしまいますが... . せっかくの４/１なんで、大

9 users
ken3memo.hatenablog.com
http://gigazine.net/news/20120326-gree-diamond/ グリーは一体どこから道を間違え始めたのかという知られざる歴史まとめ - GIGAZINE の 歴史を見て、 1台のPC(Server) 7万人の町から、ここまで成長させるとは素直にすごいですね。 いろいろと言われていますが、 一点、儲けたお金を海外投資・海外戦略に回すのはチョット残念かなぁ。 まぁ、国内でも優秀な新卒者を年収１千万プレイヤーで雇ったりしてお金を回しているんだろうけど、 もっと、国内にお金を回してほしかったり。(国内で資金を消化、投資してほしかったり) せっかく、お金を消費しない時代の中(消費できない時代？) 若者から中高年まで幅広く お金を集めているので、集める・貯めるだけじゃなくて回してほしいなぁ。 ゲーム業界だけじゃなくて、 噂の釣りゲー で 魚が釣れたり、実績管理できるなら

4 users
ken3memo.hatenablog.com
http://d.hatena.ne.jp/ken3memo/20120225/1330138777 ↑先月書いた記事なのですが、 楽天の期間限定ポイントでAmazonのギフト券を買えなくなった(出品されなくなった) - ken3memo (三流君) >イロイロなキャンペーンなどでもらえる、楽天の期間限定ポイントを使用するのに、 >楽天オークションでAmazonのギフト券をポイント払いで10円単位で買ってたりしたけど、 >出品が今後中止みたいです。 月末なので 楽天 期間限定 ポイント Amazon ギフト券 の組み合わせで 検索して来場者が多くてびっくり・・・ こんな場末のブログにも来場者が100人以上来るんだから、 それだけ、利用されていて、 期間限定の楽天ポイントが流出していたんだろうなぁ。

5 users
ken3memo.hatenablog.com
イロイロなキャンペーンなどでもらえる、楽天の期間限定ポイントを使用するのに、 楽天オークションでAmazonのギフト券をポイント払いで10円単位で買ってたりしたけど、 出品が今後中止みたいです。 【重要】電子マネー類が出品禁止商品となります | 楽オクからのお知らせ インフォメーション・ラウンジ - 楽天ブログ http://plaza.rakuten.co.jp/auctioninfo/diary/201202240000/ ポイントは楽天内で使いましょう？まぁ、楽天ポイントは楽天内で消費してね・・・ってことか。 10P 10円 で売っていたのが不思議だけど... 出品者が10P 10円、送料無料(メッセージでギフト番号伝えるだけなので) だったのが、出品手数料とかあるのに・・と不思議だったけど。 amazonギフト券を大量に安く購入したい。 アマゾンギフト券を大… - 人力検索はてな

3 users
ken3memo.hatenablog.com
とある三流プログラマーのデバック風景 です。笑ってやってください。 下記の質問をもらいました。 ※IDとパスワードは消させてもらいました。 ※※株、FX系は、質問いただいてもテストできないから (テスト結果を出しにくいから敬遠してるんだけど。。。) '----------------- ここから質問 ログインIDとパスワードと入力する所までは うまく行くのですが、その後のログインボタンがどうしても押せません。 SubmitとClickを試してみたのですがそれでも駄目でした。 どうかご教授願えませんでしょうか？ 以下がコードです。 試して出来なかった没はコメントにしてあります。 Sub test() Dim objIE As Object 'Webページ表示 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visi

4 users
ken3memo.hatenablog.com
Windows Updateが朝からつながらなくて、 MSEのパターンファイルも更新できなく、 さらに Microsoft の サイトにつながらなかったので、 人生２回目のウイルス感染かなぁ、 今回はメインPCとサブPC全てで こりゃ 復旧に時間がかかるなぁ と思ったら、 原因は意外なところで インターネット接続回線でした。 http://ggsoku.com/2012/01/ocn-mo-damepo/ http://ggsoku.com/2012/01/ocn-mo-damepo/ ↑を見つける。 OCNが障害だったとは、気がつかなかった。 ※クリーンインストール前に復旧してよかったです。 (MSのサイトも見れなかったので、あと少し経ったら再インストール作業に入ってました(笑)) 余談・蛇足 下記、OCNの障害情報ページ 工事・故障情報（個人向け） | NTT Com お客さまサポート

5 users
ken3memo.hatenablog.com
VBA コードから クエリーにパラメーターをセットしてみたかったので、今回テストしてみます。 手抜き解説と実行結果です : http://www.youtube.com/watch?v=FzS3nvyY7mw www.youtube.com ↑後半の開けなかった、エラーがとても気になるけど・・・ 1.事前準備でクエリーに細工する 1.1 パラメータ(条件)に名前をつけます 抽出条件の所に[選択ID]みたいに、[]で名前を付けます。 ここで付けた名前(ここでは[選択ID])に対して、VBAから値をセットしてみます。 1.2 パラメータの型を定義します。 右上のパラメーターを押すと、パラメーターの型を指定するダイアログが表示されます。 適切な型を指定します。 2.VBAからパラメータをセットしてみる VBAから可変のパラメーターをセットするサンプルなのに、 今回は、パラメーターとして A1 を

9 users
ken3memo.hatenablog.com
ページに google+ の+1ボタン付けたら、 人気のないページ？だとバレたみたいでアクセス数が減った。 (まぁ、他の要因もあるかもしれないけど) Google+1のボタン？ イロイロなページで紹介されているので、興味がある人は見てください http://www.google.com/intl/ja/+1/button/ Googleの「+1」って何？ : ギズモード・ジャパン 広告データは検索と連動していないが、＋１は？ 広告のアドセンスは 検索結果に影響しないけど、 Google ウェブマスター向け公式ブログ: Google のインデックスやランク付けなどに関する、10 の誤解 http://googlewebmastercentral-ja.blogspot.com/2009/08/google-10.html >誤解 4: AdWords や AdSense, Analytics

4 users
ken3memo.hatenablog.com
☑ ↑チェックボックスにチェックを付けたような文字を 久々の2ch で見つけたけど、使えるのかなぁ？ 漢字変換の出し方がわからないし、 今までのように □とレ(←カタカナの[れ])でごまかすのがいいのかなぁ。 ☑少しビックリした □イヤぜんぜん、常識です。 なんて感じかなぁ。 www.youtube.com 直打ち？ コピーして貼り付け？htmlに＆#で始まるコードを書くと表示される。 ☑ で表示される、フォームに入力するときは、コピー・貼り付けで使えなくもないけど。 PS. ☑の読み方がわからなかったり。チェックオン/チェック済み記号？なんだろう。 あっ、読み方わからなかったら、自分で漢字登録すればいいのかなぁ？ 入力方法は？(読み方がわからなかったので) ホームページやBlogは、htmlで＆を付けてでOKだけど、 ExcelやWordで使いたい時は、 下記のページを参考に

3 users
ken3memo.hatenablog.com
PC購入時、パーテーションの分割料金が別料金だったので、 HDD全体がCドライブとして割り当てられています。 OSやプログラムをC システムドライブ、 文章などのデータを Dドライブへ分けたかったので、 HDDツールなとを別に購入して、パーテーションを分割しないとなぁ・・・ そんないつもの長文前置きは、置いといて、 操作手順の動画 いつもの テスト動画です ※手ぶれがひどいですが、ご勘弁を。。。 10分でできる Windows7 記憶域 ディスクの管理 Cドライブを縮小して分割する - YouTube www.youtube.com ディスクの管理を使って エリアを縮小する 管理 → 記憶域 → ディスクの管理 から、Cドライブを選択して、右クリック、 そのメニューに 縮小 が 存在するので、試しに縮小してみました。 すると、 Cのサイズが縮小(小さくなったので)、 空いたスペースにDドラ

7 users
ken3memo.hatenablog.com
暗証番号入力後、実行ボタンを押すと 入金します。よろしいですか？ と confirm で 確認メッセージが表示されます。 if (errFlg == 0) { if (cmd == "EXEC") { if (confirm("入金します。よろしいですか？")) { frm.EXEC.disabled = true; } else { return false; } } frm.submit(); ※これが、意外とやっかいで・・・ 試行錯誤・テスト結果→ http://www.youtube.com/watch?v=SHyTGwhkNyI www.youtube.com 小細工 同名関数を挿入して、常に はい を返す javascriptの同名関数は標準関数よりも 後から追加したユーザー関数がエラーにならないで走ることを利用して、 ニセのconfirm関数(何もしないで常にtrueを返す)

7 users
ken3memo.hatenablog.com
下記の質問が来ました。 >すいません、質問なのですが、既存のＷＥＢ画面を操作したいです。 こんにちは。 質問書き込みありがとうございます。 表示済み、起動済み、操作済み, 既存のＷＥＢ画面を操作 ですね？ 手前みそですが、 http://www.ken3.org/vba/backno/vba156.html ↑を参考に Sub aaa() 'オブジェクトを格納する変数 Dim objShell As Object, objWindow As Object 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeN

9 users
ken3memo.hatenablog.com
ドタバタした記事ですが、何かの参考となれば、幸いです 案内 もしかして、全ての人に案内が来ているかもしれませんが、 (※やっと選ばれたと思って喜んでるけど実は全員合格？、そんな案内だったりして) 今日、突然、 件名:YouTube 動画収益受け取りプログラムのご案内 のメールが来て、 指示に従い、設定を行ったところ、 収益化の動画が提出できるようになりました。 ↓下記のような案内メールが来ました。 動画のアップロードと収益化の設定 で、実際に２・３個提出してみました。 www.youtube.com youtubeでみる 提出した動画 その後、、 動画を見に来る層を調べるのに、あるていどのアクセス数、一定数以上が必要なのかなぁ？ youtubeでみる www.youtube.com ※↑最長で48時間 審査がかかるみたいです。無事に アクセス数の少ない動画にも広告が付きました。 アクセス数

4 users
ken3memo.hatenablog.com
デバック、現状確認。 質問者から 前回作成した楽天市場のログイン処理ですが、 楽天ツールバーのログインページだと動作しない・・・ と連絡を受ける。 微妙に違う ログイン画面 原因は、ツールバーのログインページのボタンがログインだったので、 次へを探して .Click を ログインを探して.Clickに変更しないとダメでした。 前回作成 楽天市場からログインのリンクを押す 前回のサンプル VBS で IEを使用して楽天市場にログインしてみた http://d.hatena.ne.jp/ken3memo/20110721/1311244241 の次へを探すパターン では、 https://www.rakuten.co.jp/myrakuten/login.html へ飛びデータセット後、次へを押す を VBSから実行しました。 質問にあった、ツールバーのログインのボタンを押すと ツールバーのロ

5 users
ken3memo.hatenablog.com
前回 http://d.hatena.ne.jp/ken3memo/20110716/1310774313 の続き [森を歩くヨシヒコ達、奇声を発しながら敵登場] あ〜っ！ （ダンジョー）また現れたな。 魔王の手先め。 おいおい… うまそうなもの たくさん持ってそうだな。 こちとら 腹ぺこなんだよ。 三日三晩 卵かけご飯しか 食べてないんだぞ！ （メレブ）何言ってるか わかんない。 なんて？ 卵かけご飯しか食べてないんだぞ。 食べてんじゃねえか 卵かけご飯。 食料いただいて…。 その女 ち〜っとかわいいし…。 生かしておこうか。 （ムラサキ）え〜 やだぁ…。 でも ちょっと嬉しいけど…。 （ヨシヒコ）食料もムラサキも 渡すわけにはいかない。 そっちが そのつもりでも 死んでしまえば 抵抗できまい。 一人でとは いい度胸だ。 こい！ いくぞ〜っ！ ちょ… ちょっと待って。 ちょっと待って。

5 users
ken3memo.hatenablog.com
VBS から IEを使用して、 楽天市場にログインするスクリプトを作成してみたいと思います 作成手順 おおざっぱな作成手順と解説です。 ※動画解説と合せてみてください。 試行錯誤の解説動画 解説動画 → http://www.youtube.com/watch?v=rWRiG-DP_ms www.youtube.com ↑こんな感じで、作成・テストしています 1.ログインページのソースを確認します。 まず、 ログインページのソース、 https://www.rakuten.co.jp/myrakuten/login.html を見て 使用する項目を抜き出します。 ※ここでは、下記のようにな ユーザID,パスワード,次へのボタンです。 ユーザID input type="text" name="u" value="" size=25 id="userid"> パスワード input type

7 users
ken3memo.hatenablog.com
よく、私の例だと、リンクやボタンのオブジェクトを探して .Clickで押したように動作させていますが、 javaScriptを直接使っているようなサンプルを最近(前に)見かけました。 下記 はてな人力検索の回答、 VBAでHTMLのページ内でJavaScriptのConfirm関数で表示されるメッセージのボタンを自動的にクリックするには http://q.hatena.ne.jp/1248657374 で見つけた、 objIE.Document.Script.setTimeout "javascript:document.getElementById('popOK').click()", 200 が、いい感じで使えそうです。 前回の a href="#" OnClick="javascript:send();return false;" title="ログイン" の場合だったら、 objI

3 users
ken3memo.hatenablog.com
[雑談]RD-S1004 から I-O DATA の BRD-U8DM へ ネットワークダビングをテスト 外付けのブルーレイのドライブを購入したので、少しテストしてみた。 東芝のDVDレコーダーRD-S1004 から I-O DATA の BRD-U8DM へ ネットワークダビングしてみました。 エラーが発生 リモコンの編集ボタンを押してから、 タイトルを選んでダビング で ダビング先を聞いてくるので、 LANにする ネットdeレック対応機器の選択画面が表示される。 ↑一つしかないけど、機器を BRD-U8DMを選択 (※名前は、PCのソフトインストール時に付けた名前です、私がBRD-U8DMと付けたので。) あとは、コピーを開始するだけ で、 簡単に行くなぁ・・・と思ったら、 ↑ ダビングがキャンセルされたか、ネットワークに障害が発生し、ダビングは中止されました。 PC側の常駐ソフトを停

6 users
ken3memo.hatenablog.com
先日、客先から 共有ファイルが見れない、メールの送受信ができない・・と連絡をもらう。 原因は単純で、ネズミ様に 15mの高級なLANケーブルを切断された、 (※まぁ、ネズミ ケーブル 切断で検索すると、いっぱい事例があり、珍しくないみたいだけど 自分がやられるとドキっとします。) ELECOM LANケーブル CAT6準拠 Gigabit スーパーフラット アイボリー 15m LD-GF/BE15 出版社/メーカー: エレコム発売日: 2005/08/20メディア: Personal Computers購入: 3人 クリック: 3回この商品を含むブログ (2件) を見る 去年の話、穴があきっぱなし？ 昨年、とある倉庫 で デバックしながらネズミと対決してました（笑） (※詳細はバックナンバー http://d.hatena.ne.jp/ken3memo/20101121/129029191

3 users
ken3memo.hatenablog.com
2010-11-21 ネズミ捕り 粘着シートを突破される 雑談 [雑談]ネズミ捕りもいいけどバグ取りに集中してね。。。とある書類・部品倉庫で一人デバックしていたKen3です。 いつものように ひとりデスマーチ でハマってしまい、 前日あまり寝ていなかったか？ なんか巨大な黒い影、ネズミ？が倉庫内を横切ったような..… 2010-11-21 ネズミ捕り 配置ミスもネズミが自滅で１匹捕獲 結果オーライ？ 雑談 とある倉庫で ひとりデスマーチ 在庫管理システムのテスト と ネズミ捕りをやっている お気楽プログラマーのKen3です。ネズミ捕り 粘着シートを複数枚用意 配置ミスもネズミが自滅で１匹捕獲1枚で突破されたので(前回の日記 http://d.hatena.ne.jp/ken3memo/… 2010-11-21 Outlook File://を付けてファイルの場所を書くと 参照/ハイパーリン

3 users
ken3memo.hatenablog.com
前回、Outlookで作成した テストプログラム http://d.hatena.ne.jp/ken3memo/20101015/1287145506 をVBSから動かしたかったので 少し本編から脱線して遊んでみました。 元のプログラムは、下記のような感じのテストプログラムです。 '連絡先のアイテムを探る。。。 Sub tset() Dim oNamespace As NameSpace Dim oItem As Object 'Outlook 配布リストを.msgから読み込む Dim oFolder As Folder '連絡先のフォルダー ' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = Application.GetNamespace("MAPI") ' 既定の連絡先フォルダへの参照を取得し、フォルダを表示します。 Set oFolder

3 users
ken3memo.hatenablog.com
2012/6/7 追記(コメント欄の動作報告を上に表示) translation.infoseekのフォーマットが変更になったのかうまく取得できなくなっています。 objIE.Document.all("origin_doc").Value = Cells(yCNT, 1) 'A列の値を渡す ↑ここでエラーが出て止まってしまいますね。 現在、サンプルコードでは動かないみたいなので、参考程度に見てください 下記の質問を見て、昔作ったExcelからIE操作のサンプルを思い出す。 http://q.hatena.ne.jp/1279514525 【大量の英単語のリストを、日本語訳してくれるソフト】 手元に1000以上の英単語のリストがあります。この英単語を一気にすべて和訳してくれるソフト／サービスを探しています。 オリジナルな英単語帳を作りたいイメージです。 でも、無料サイトだからって、連続実行

次のページ