三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

excel

回答下書き テストで数秒単位で書き変わる cyberagentfx の 値を取得してみた

下記の回答下書き、テストで cyberagentfx の 値を取得してみた ブラウザのデータをエクセルで表示させるには? ブラウザでは株価がJavascriptで表示されています。 それをリアルタイムでエクセルに反映させたいのですが、何か良い方法はないでしょうか? (…

WithEventsのテスト動画 シートにコードを書く 補足

過去記事の Dim WithEvents objIE As InternetExplorer 'Excelシートに書いたコードでイベントを拾う http://d.hatena.ne.jp/ken3memo/20100114/1263452016 が動かないとクレームのメールをいただく。読者から、言われたように、そのままシートにコードを貼…

テキストファイル処理、Print #でダラダラと書き出してみた

Excel シート上のデータをテキストファイル(HTMLファイル)に書き出してみた。入力B1 に タイトル A列 に 役名 B列 に 台詞 処理 Option Explicit 'シートからテーブルを作る '単純にテキストファイルに書き出してみた '1.A列のみにデータが存在する場合、見…

テキストファイルにA列,B列の値を書きだしてみた テスト

ドラマの台詞をExcelに A列,B列 打ちこんだので(今週分は打ちこんでいないけど) 下記のVBAで出力してみた。条件は、 A列 サブタイトル か 役名、空白もあり B列 台詞適当にタグをつけて書き込んでみた。 Option Explicit 'シートからテーブルを作る '単純に…

QA110307 Excel テキストボックス 選択位置の取得 は Me.TextBox1.SelStart

下記のような質問がHPに来ました。 質問です。 Q: ユーザーフォーム(TextBox)に、下書きをTemplateで作って、呼び出しています。 その下書き文章の中に、場所を選んで(カーソルクリックなど)から、 別のListBoxにある文字列を挿入(挿入ボタンをクリック…

QA110203 ア.AccessのクエリーをExcelに書き出す 転記する

AccessからExcelを起動して、 新規のブック、シートに データを(クエリーの中身を)書き込みます。ADOでクエリーを読み込み、Excelへ単純に書き出すクエリーからエクセルへデータを転記します。 書き込み後、 エ.で調べた、列幅の自動調整の命令 Cells.Entir…

QA110203 番外編 テストデータ作り ExcelのデータをAccessへコピペする

テーブルフォーマット と テストデータを渡された ので、 テスト(と言っても ほとんど本番環境だけど)を作ります。テーブルは2つア.ドラマのタイトル保存用 Tタイトル ID AUTONO ドラマタイトル CHAR(50)イ.出演者 T出演者 ドラマID INT 出演者 CHAR(20) …

QA110203 調査 イ.開いているExcelブックを切り替え 処理を行う

マクロ記録で エクセル ブックの切り替えを調査するシートの切り替えはできたので、 ブックの切り替えにチャレンジしてみる。マクロ記録でブックの切り替えをチェックすると Sub Macro3() ' ' Macro3 Macro ' ' Application.Left = -108.5 Application.Top =…

QA110203 調査2 ウ.全てのシート に 対してマクロ VBAの処理を実行したい

ActiveWorkbook.Sheets.Count で シートの数 Activeworkbook.Sheets(n番目).Select で シートの選択(処理中シート、アクティブの切り替え) が 取得・切り替え可能だったので、 単純に For の ループ で 1 から .Count番目まで処理を回してみました。 For n =…

QA110203 調査1 エ.列幅の調整 エクセルで列幅の調整 を マクロ記録で探ってみる

エクセルで列幅の調整 を マクロ記録で探ってみました。全ての列幅を自動調整するには Cells.EntireColumn.AutoFit で できました。 Option Explicit Sub Macro1() ' ' Macro1 Macro ' '指定した列幅を自動調整、ここではA-C Columns("A:C")を指定 Sheets("S…

Excel2003 Shift+コピーのメニューはExcel2007だと 貼り付け 図 図のコピー?

まぁ、 Print Screen と あまり変わらないけど。。。 人力検索の質問 エクセルシートの内容を画像として保存できる方法、 又はできるかぎりきれいな状態で画像化する方法をお教えください。 http://q.hatena.ne.jp/1295562357 で少し探ってみたけど。Excel20…

QA101025 ExcelからAccessを開き、フォームに値をセットする

ExcelからAccessを開き、フォームに値をセット後、ボタンを押す。 ボタンのモジュールをコールや.RUNすることができなくて、中途半端な処理の解説です。下記の質問 ①エクセルからアクセスを開き表示されるフォーム(アクセス側)のテキストボックスに定型文…

006 Excel2007 マクロを有効にする

Excel2007 マクロを有効にする http://www.youtube.com/watch?v=ZJltSdftIwc www.youtube.com2008年04月23日 マクロが無効になってます。 セキュリティの警告のオプションをクリックして このコンテンツを有効にする でマクロを有効にしますタグ: 三流君 Ken…

005 ExcelのUserFormにIEを貼り操作する(代入する)

http://www.youtube.com/watch?v=BxNykBIsE3A www.youtube.com 2008年04月23日 IE7 への 対応で 逃げ手を考えてみた・・・ExcelのUserFormにIEを貼り操作する(代入する) http://ken3-info.blog.ocn.ne.jp/day/2008/02/ie7_0faa.htmlWindows Vista IE7 + Exce…

XXXXさんへ 余談:データ -- 区切り位置 で テストデータをエクセルに取り込む

テストデータが下記のように カンマ区切りのテキスト でメールの本文として送られてきた時、Excelに取り込む場合...テストデータ 課ID,名称 A,チームA K,チームK B,チームBチーム A 名前,よみ,生年月日,愛称 岩佐美咲,いわさ みさき,1995年1月30日,わさみ…

ExcelのA列の単語を翻訳サイトにセット取得を自動で連続実行

2012/6/7 追記(コメント欄の動作報告を上に表示) translation.infoseekのフォーマットが変更になったのかうまく取得できなくなっています。 objIE.Document.all("origin_doc").Value = Cells(yCNT, 1) 'A列の値を渡す ↑ここでエラーが出て止まってしまいます…

データとマクロ(VBA)を一緒にしておくと大変。VBSで開いて再集計

下記のような vbs ファイルを作って、エクセルファイルを開いて、再集計してみた。 Dim oApp Dim yyyymmdd(30) Set oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする 'Only XL 97 supports UserControl Property 'On Error Resume…

エクセルのシート上にMicrosoft Web Browserコントロールを配置する

エクセルのシート上にMicrosoft Web Browserコントロールを配置する そんなテストをExcel2003/Excel2010でやってみました。Excel2003 シートにWebBrowserコントロールを貼るExcel2003でシートにWebBrowserコントロールを貼るには、 表示 −−− ツールバー −−− …

少し気になって .Offset(1, 0)で結合セルを移動させるテストをやってみたけど....

.Offset(1, 0)で結合セルを飛ばせるのにビックリ だけど、 .Offset(2, 0)だと、飛ばせないのにガックリ。そんなお話です。人力検索の質問 http://q.hatena.ne.jp/1276505613 エクセルVBAについて、アップした図もご覧ください。 結合セルの並びを移動する場…

For Each objSHEET In ActiveWorkbook.Sheets で シート分繰り返す

For Each objSHEET In ActiveWorkbook.Sheets で シートを1つ1つ取り出し(表現が悪いか、代入して) シート単位の処理を回してみる。 Sub make_all() 'Menuシート以外繰り返す Dim objSHEET As Object For Each objSHEET In ActiveWorkbook.Sheets If objSHEE…

○○さんへ QA20100602 Excel ユーザーフォーム オプションボタンの処理

メールで、 >入力フォームを書籍からコピーして >色々な本を広げていますがこれ以上は進みません >EXCELのフォームでAccessフォームの様なレコード移動ボタンを付けたフォームを >作っています > >問題はオプションボタンの結果の処理をG列に反映させること…

VBA IE操作 サイトを全選択してEXCELシートへコピーアンドペーストにチャレンジ

VBA IE操作 サイトを全選択してEXCELシートへコピーアンドペーストにチャレンジVBA IE操作の質問 が 来たので、 昔のサンプルを引っ張り出してテストしてみます。実際のテストファイルは http://ie.vba-ken3.jp/test/Excel2003_IE8_OS_XP_SP3.zip に保存して…

Accessの名簿データをExcelへ 1208修正・追加 2.同じような3つのマスター項目を管理したい

1208修正・追加 2.同じような3つのマスター項目を管理したい世の中には、会社の数分だけ社員名簿がある、じゃなくって、 イロイロとカスタマイズ?に挑戦してみます。 >資格は免許とかその他や技能と別れてまして、 >テーブルの資格もわけないといけない…

AccessからExcelの操作 書式をコピーして罫線・形を整える xl定数の処理ほか

http://d.hatena.ne.jp/ken3memo/20091127/1259307176 からの続きです。5.5.2.2 罫線などの書式を最後の行までコピーする問題点 2.ひな型(テンプレート)ファイルの罫線が引かれていない場所にも転送される。 データ数が多いと、テンプレートの枠を越えます…

Excel シートのコピーをマクロ記録で作成 Access側で使ってみる

http://d.hatena.ne.jp/ken3memo/20091127/1259307176 からの続きです。5.5.2.1 ひな型(テンプレート)ファイルを開いた後にコピーする問題点 1.Excelへ出力を繰り返すことができる(まぁ、これはこれでいいのかも) でも、転記後、ひな型ファイルを保存する…

Excel2003 ピボットテーブルでデータの個数を数える

www.youtube.com http://www.youtube.com/watch?v=F0704WI_X2I ※途中、手が止まったり、Excelの操作をわかっていない人(私)が作った動画ですが、何かの参考となれば、幸いです。Excel2003 ピボットテーブルでデータの個数を数える、そんな操作を行ってみまし…

Excel UserForm Initialize フォームの初期処理でセルの値を参照

www.youtube.com http://www.youtube.com/watch?v=WfGRHN6qzAYの詳細は http://ie.vba-ken3.jp/sample/001/2009-03-07.html を見てください。 セルのB6に書かれた値を初期値として利用します。フォームの初期処理のイベント UserForm_Initialize で Range("B…

03/07 Excel UserForm .Show で フォームの表示

www.youtube.com http://www.youtube.com/watch?v=vfOhOAwuzG8.Show で UserFormを表示できるので、 標準モジュールに .Show を行うモジュールを書きます。Sub open_test() UserForm1.Show End Sub↑このモジュールをシートに貼ったボタンから起動するように…

ExcelのUserFormに Web(IE) の コントロールを貼ります

www.youtube.com http://www.youtube.com/watch?v=GkWLoQ5GHbQExcel UserForm で Webのコントロールを使用可能にする。。。 そんな操作手順、方法です。http://www.ken3.org/cgi-bin/group/vba_ie.asp で 三流解説してます よかったら 遊びに来てください。…

Excel UserFormのタイトル(.Caption)に文字をセットしてデバッグ 03/01

www.youtube.com Excel UserFormのタイトル(.Caption)に文字をセットしてデバッグしてみたPrivate Sub TextBox2_Change() '変更時のイベント Me.Caption = "TextBox2_Change " & Me.TextBox2.Text Debug.Print "TextBox2_Change " & Me.TextBox2.Text End Su…

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



Googleを使用して検索する

読者の声:三流君の説明・解説じゃ よくわからなかったから、Googleを使って、自分で検索します。
三流君:残念です。あっ、下記にGoogleの検索窓を設置しました。
いろいろ指定して試してみてください。

Google
探す言葉:気になる単語や,オブジェクト(Document),プロパティ(.Busy)やメソッド(.Navigate)などを入れて検索してみてください。


言語を指定:見つからない時は指定無しで探す

サイト指定:人気QAサイト や 一次情報MS本家を指定する
一次情報・二次情報まとめから探る
QAサイトの質問から探る
検索実行: ←オプション確認後に検索ボタンを押してください

期間指定:情報の鮮度も大切?
検索実行: ←オプション確認後に検索ボタンを押してください


本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)