グラフの数値を抽出する方法
現在、グラフのポイントを選択して、数値を抽出する方法を考えています。 1点だけを抽出する方法は、検索で見つけたのですが、私が考えているのは4点のプロットの数値を抽出したいと考えています。 マクロ初心者のため、皆さんの知恵をお貸し下さい。 以下が、ネットで検索して出てきたマクロになります。 Option Explicit Public xVal, yVal...
View Articleエクセルの マルチタスク？
下記のコードで、COM-1 クリックで チェンジに 制御がわたって、ＣＯＭ－１ の ループが止まるのですが、仕様？ それとも、コードのバグ？ なのでしょうか 用は、一つの仕事がWAIT の間 他のタスクも継続させたいのですが・・・ Private Sub CommandButton1_Click() Dim i As Long i = 1 Do Cells(i, 1) = i i =...
View Articleエクセルの .Formula について
sheet1.Cells(mycnt, 14) の 計算が 合わないので Ｗａｉｔ を 入れてみたのですが やはり 答えが 合わないのです。 セルのCells(mycnt, 12) と 13は 別のところで 計算されていることは ありません sheet1.Cells(mycnt, 12).Formula = "= int(Average(K" & mycnt & ":K" &...
View Articleダブルコーテーションで３度も囲ってるのですが
vbsで電卓を起動する時 Set objWshShell = WScript.CreateObject("WScript.Shell") objWshShell.Run """CALC.EXE""" のように、CALC.EXEをダブルコーテーションで３度も囲ってるのですがなんででしょうか？ VBAの場合は Sub test() Dim i As Long i = Shell("CALC.EXE")...
View Articleレジストリエディタを起動させて手前に表示させたい
VBE画面から Sub test() Dim i As Long i = Shell("C:\WINDOWS\regedit.exe") End Sub を実行するとレジストリエディタを起動できるのですがアクティブ（前画面）になりません。 Sub test() Dim i As Long i = Shell("C:\WINDOWS\regedit.exe") AppActivate i End...
View Article【VBA】IDを入力して文字列を取り出す関数
ExcelのVBAにてプログラムを作成しています。 IDを引数に渡して、文字列を取り出すような関数を作成しようと思っていますが、 何か良い作成例をご教示頂けないでしょうか？ 例としては、このような形を考えています。 ※リソースファイルなどを使用せず、全てコードにて記述。 GetString（"TEST_ID"） '引数のIDに対応する文字列を返す（ID、文字列はテーブルなどで定義）...
View ArticleAceessVBA 非同期処理について
お知恵を拝借いたしたく、質問させていただきます。 Accessで伝票作成システムを運用しておりますが、レポートを出力した時に レコードソースにあるはずのデータが表示されないことが１００回に1度程度あります。 その場合に、デバックモードでブレークポイントをつけて再現するとすべてのデータが 表示されます。 前提 １．OS：Windows7 ２．バージョン：Access2010 （2003互換モード）...
View Articleoutlook2010の強調文字について
マクロやアドイン等にてoutlook2010のメッセージ内の特定文字を自動で色付け（強調表示）する ことは可能でしょうか。（検索結果のような強調表示を自動で行いたい） メッセージはテキスト形式です。
View ArticleOFFCEアプリをVBSで全て保存して閉じたい
VBSで、開いた状態の複数・複シートのEXCELを全て保存して閉じるスクリプトは、http://okwave.jp/qa/q5932062.html記載の物が動いたのですが、 Set Excel0 = GetObject(, "Excel.Application") Excel0.DisplayAlerts = vbfalse For Each Book0 in Excel0.workbooks...
View Articleformをもう一度Loadする方法
form1をLoadした後 別のページに移動後またform1に戻ってきた場合 もう一度ロードするにはどうしたらいいでしょうか？ 例えば、画面1で画像をクリックして消すとします。 そのページから画面2に行きまた画面1に戻った時に、ここでまたフォームをロードをして画像が消える前にしたいのです。 ロードで宣言はしているのですがうまくいきません。...
View Article変数名を作る時
変数名を作る時は strFolderとか intNoとか 変数の型を先頭につけてますが、 subプロシージャーやFunctionプロシージャーにも同じような事をしたいのですが どのような頭文字がいいでしょうか？ 例えばMakeFolderというFunctionプロシージャーを作る時に、 Function FunctionMakeFolder() にしたら長いし Function...
View Articleエクセル2003から2007 のＯＣＸ 問題
2003で VBAでソフトを作りましたが、2007のみの環境で エラーが出ます。 参照設定 MS-WIN-ｃｏｍｍｏn-contｒｏls-２ 6.0 MSCOMCT2.OCX が 引っかかります。 マイクロでは 2007で このOCXを 無くしました。結局 20年前の DLL地獄の再来なのですが、 読み込んだファイル、2007で参照設定 MS-WIN-ｃｏｍｍｏn-contｒｏls-２ 6.0...
View Articlevbaのお仕事 スキル 知識
vbaが募集条件の仕事に申し込もうと思うのですがクラスモジュールについてよくわかりません。 勉強してみようと思いましたが敷居が高くてよくわかりませんでした。 エクセルvba、アクセスvbaでそれなりに自分のやりたい事をできる程度なのですが 時給１６００円位の派遣のお仕事でvbaスキル必須のお仕事に申し込むのは無謀なのでしょうか？
View ArticleExcel vbaで、一行ずつコピーし連続保存する
Excel vbaで、一行ずつ別シートにコピーして、そのシートを連続で保存したいです。 まず、Excelで、「全員データ」シートと、「個人別データ」シートを作りまして、 「全員データ」シートのA2からA4までは氏名、B2からC4までは任意の数字等を入力しています。 その状態で、「全員データ」シートに保存したデータを、一人分ずつ「個人別データ」シートにコピーし、...
View Articleyahooにvbaでにログインする時
今までは objIE.Document.all("UserName").Value = MyUserName objIE.Document.all("Passwd").Value = PW で、問題なくログインできていたのに ("UserName").Value だけ失敗するようになりました。 エラー内容は オブジェクトが必要です。(Error 424) です。 しかし、...
View ArticleC#でフォルダーを組込み、実行時書き出したい
C#で次の様なフォルダーをプログラムの内部に組み込んでおき、startボタンを押すとそれをc:\temp などに書き出（コピー）したいのですが方法が分かりません。 c:\myprogram\start.exe c:\myprogram\readme.txt c:\myprogram\data\data1.dat c:\myprogram\data\data2.dat...
View ArticleC#で再起動し自動的にログインしたい
C#で、Windows7/XPで、ボタンを押すとPCを現在のユーザー・パスワードで再起動して自動的にログインさせるようなプログラムを作れるできるでしょうか？ サンプルプログラムを教えていただけると助かります。
View ArticleVB-2010編集しないのに要保存になる
VB.NET2010で特定のプロジェクトだけが、ソースを編集しないのに開くたびエディタのタブにアスタリスクが付いてしまいます。 当然、プロジェクトを閉じるときに保存するかどうか聞いてきます。 ソースはSubVersionで管理していますが、保存してもしなくてもソースの改変部はありません。 プロジェクトには複数のソースがありますが、編集マークが付くのはプロジェクト名と同じ箇所のようです。...
View Article図形のクリアで実行時の1004エラーになる
指定範囲(I9:CW40)から図形(円・四角形)のクリアをするとエラーになってしまいます。終了をすればクリアはできるのですが。御教授願えませんでしようか？(尚四角形はセルの枠線上に貼り付けるようにしてあります。) Sub 図形のクリア() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual...
View ArticleVBScript文字列をSJISからUTF8へ関数
VBScriptでSJISの文字列を、UTF8に変換し、 UTF8で設定されたMｙSQLへ保存したい。 SJISをUTF8に変換する関数をご教授いただきたいです。 以下をまるまるコピーさせていただき試してみたのですが、 文字化けしたメッセージが返されます。 Function TextToBin(TextData, CharSet) Const adTypeBinary = 1 Const...
View Article