Excel のVBA ループ処理について
マクロの歴が浅く、いまひとつ処理のロジックがわかりません。どなたかご教示下さい。 A列には番号が振ってあり、B列にはデータがあります。 ここで、番号で分けられているデータは７項目ある状態で、A列の番号をキーにして、ループ処理をさせたいと思っています。...
View ArticleＶＢでandroidのアプリを
プログラミングはＶＢしか今まで使ったことがないんですが、visual sutudio 2015のVBでandroidのアプリつくれるでしょうか、なんかＣ++使うのがメインみたいですが、もしできるとしたら、参考になる本とかサイトとか紹介してくださるとうれしいです。
View Articleユーザーフォーム内のコマンドボタンを一括処理する
いつもお世話になっています。 ありがとうございます。 下のようなことがしたいのですがうまくいきません。 どのようにしたらよいのでしょうか。お教えください。 Dim u As Long For u = 4 To 15 入力フォーム(CommandButton & u).ForeColor = RGB(0, 0, 0) Next u
View ArticleAccess2000 VBA 配列にNull値を
お世話になります 今、プログラム作っていますが、プロシージャー内の配列に連続した2種類のデータから片方だけそのまま入力させ、不要な1種類のデータをNull値にして取り込みたいと思っています。 Aの種類のデータだけを取り込みソートし、Minのデータを取り出したいのです。 ｖｂNullを入力させると 0,1の値が入ってしまいソートがうまく行きません。 また、 Access 2000のVBAでは I...
View ArticleエクセルVBAへのwindowsAPIの組み込み
Excel2010を使用しています。 以下のページの最初に紹介されているマクロを実装・使用したいのですが、やり方がわかりません。 『excel_vbaでスクリーン上のpixelの色を拾いたい』 http://www.excel.studio-kazu.jp/kw/20060624174313.html APIを使ったマクロを書いたことがないので、Declare...
View Article平均値を出すVBAを教えて下さい！
平均値を出すVBAを教えてください！！ 下記の関数をCA2に入れて下に引っ張って使っているのですが、 データ量が多すぎて砂時計状態のまま動きません！！ データはA列～BVまでで50万行位あります。 一番上は見出しです。 VBAで関数を使わないで平均値を出す方法を教えてください！！ C列に日付が記入されており、シート11のセルで期間を以上と以下で設定しています。...
View ArticleVBを使って業務管理システムを作るには？
お世話になります。製造業勤務の25歳です。すぐにではないが追々 VBを使って製造業務管理システムを作ってほしいと頼まれました。 単にExcelで表を作り、マクロボタンを作ってマクロ機能を持たせて 数値を入力できればいいというものでした。 他のファイルの参照や呼出し、数値の読み込みなどもできるといいようです。 VBに関しては知識がないのですが、どこから情報を得ればいいでしょうか。...
View Article地震速報を自動メール送信するマクロはできますか？
地震速報のページがあります。 http://www.jma.go.jp/jp/quake/quake_sindo_index.html このページのテーブルの一番上に、 最新の地震速報が更新されていく仕組みです。 最新の地震速報が現れた瞬間に、 MS OUTLOOKでメールを送信したいのです。 そのようなマクロを作ろうとしているのですが、...
View Articleファイル入力画面からファイル名を入れて継続して動作
excel vbaで、他のEXCELファイルのマクロの処理を中断して、自己ファイルのマクロを処理後、再度他のEXCELファイルのマクロを継続して再度処理を行わせるにはどうすれば良いですか。教えて下さい 他のＥＸＣＥＬファイルとして、フリーソフトを利用しています。 そのソフトは、モジュールにロックが掛ってるので、その中のマクロなどを編集することはできません。（ロック解除などは考えていません。）...
View Article実行時エラー3021「BOFとEOFのいずれかTR
Sub test() Set cn = CurrentProject.Connection rs.Open "T分類", cn, adOpenStatic, adLockPessimistic rs.Filter = "中分類 = '不明' And (大分類 <> '不明')" For i = 1 To rs.RecordCount str大分類 = rs("大分類")...
View ArticleＶＢＡ SFO C:\Windows
Ｃドライブには、 IntelもWindowsのどちらのフォルダも存在するのに Sub Sample() Dim myFSO As Object Debug.Print CreateObject("scripting.filesystemobject").GetFolder("C:\Intel").Size Debug.Print...
View Articleマクロでセルに関数を入れようしてもエラーになる
Excel2007 windows7 使っています。以下のマクロを実行すると、アプリケーション定義やオブジエクト定義エラーになってしまします。どうしてでしょうか。ご教示お願いします。 sub test() If Not IsNumeric(Range("F17").Formula) Then Range("f17").Formula =...
View ArticlevisioでシェイプオブジェクトのIDを取りたい
ステンシルのシェイプテンプレートをマクロで張り付けているところなのですが、 その張ったオブジェクトを操作したいです。 ／＊＊＊＊＊＊＊＊＊＊＊＊＊＊／ ◆困っていること DROP関数を実行した際に、 新しくオブジェクトIDが振られるわけですが、そのIDが取れず困っています。 ◆試したこと(1) IDを取れなかったので DROP関数の戻り値がシェイプオブジェクト だったようなので、...
View ArticleVB6のIF文について教えてください
VB6でプログラムについて、みなさんアドバイスをいただけませんでしょうか？ 現在、下記のような動作をするプログラムを作っていていますがうまくいきません。 テキストボックスに1～100までの数値を400個入力します。 ボタンを押してこのテキストボックスヘ数値を入力したとき、入力した数値が10未満の 場合はメッセージボックスで「NG」と表示。...
View Articleファイルコピーとコードの綺麗な書き方について
質問です。 特定のファイル名を複数コピーする場合、 理想な処理はなんでしょうか？ 1. IF文でファイルを確認してコピー処理 2. *.txtにファイル名を予め書き込んでおいて、 1行づつ読み込んで検索してコピー処理 など…、 コードが綺麗に見えて、尚且つ何処に何があるか オープンソースにした時他人がひと目で分かるような 処理構造とはなんでしょうか？ あと If...
View Articleaタグにalt要素があるかどうかを取得するには
For Each myObj In objIE.document.all.tags("a") If myObj.alt = "文字" Then End If Next の様に、IEをVBAで操作する際に、altの値は取得できないのでしょうか？ 実際上記のコードを実行すると 実行時エラー '438' オブジェクトは、このプロパティまたはメソッドをサポートしていません。 になります。...
View Article全ファイル名をセルに出力するVBAプログラム
VBA初心者です。 Aというディレクトリがあり、その中に1,2,3,4というフォルダがあります。 1には「apple1.csv」、「orange1.csv」、「banana1.csv」 2には「apple2.csv」、「orange2.csv」、「banana1.csv」 ・・・ 4には「apple4.csv」、「orange4.csv」、「banana4.csv」 が入っています。...
View Articleセル内改行された文字列の上段のみ消す
いつもお世話になっています。 セル内改行された文字列の上段のみ消す方法を探しています。 たとえば、 セルA１に １２３４５ ６７８９０ のようにセル内で改行されたデータがあります。 そのうちの上段１２３４５のみを削除したいのですが、 そういったことは可能でしょうか。 関数でもマクロでも方法があればなのですが。 よろしくお願いします。
View Articleアクセスで標準モジュールの中身を書き出したい
http://officetanaka.net/excel/vba/vbe/05.htm の Sub Sample9() Dim Code As String Code = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Lines(7, 5) MsgBox Code End Sub のエクセルではなく...
View Article