【VBA】郵便番号を入れたら住所が出てくる仕組み
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_130_050.html このサイトを参考に見たのですが かなり難しそうなのですが これは簡単にできるものでしょうか？
View ArticleVBAについて
VBAについて質問です。 データをコピーして新規ブックとして名前（年、月、日）をつけて別のフォルダ（デスクトップ上のフォルダ）に毎朝8時に保存したいのですが、Cディスク内に直接保存されてしまいます。 コードは以下の通りです。 Sub 自動保存() With workbooks("サンプル.xism") Worksheets("Sheet3").Range("B6:B205").Value =...
View ArticleACCESSでイベントプロシージャが消える。
Windows8(64)+Office2010(64)のACCESSで開発 Windows7(64)+Office2010(64)のACCESSで動作させてみる。 またはその逆。 フォームにボタンを設置してボタンをクリックしたときのイベントで 埋め込みマクロ イベントプロシージャがあります。 埋め込みマクロはほかのPCでも動くのですが...
View Articlevba シートの選択後列の選択
VBA初心者中の初心者です。 vbaでシート全体を選択後、全シート共通でＩ列全体を選択したいのですが、 Worksheets.Select Columns("i:i").Select と書くと、なぜかＢ列からＩ列全体が選択されてしまいます。 Ｉ列だけ（全シート共通）を選択したいのですが、どのようにすればよいのでしょうか？ よろしくお願いいたします。
View ArticleIE9のアドレスバー非表示について
IE9のアドレスバーを非表示にしようと思い、次のようにvbsを作ったのですが、ie7などでは非表示になるのですが、IE9ではなりません。 どうすればよいのでしょうか？ test.vbs －－－－－－－－－－－－－－－－－－－－ Option Explicit On Error Resume Next Dim objIEApp Set objIEApp =...
View ArticleVBAでcallで呼び出したsubを終了させる
VBAです。 ユーザーフォーム上で、call xxxxxを使って呼び出したsubプログラムでの計算を 途中で終了させるために コマンドボタンにendを割り当てて使用しています。 ただ、この方法だとユーザーフォームも一緒に終了してしまうため、 また再度ユーザーフォームを呼び出す必要があります。 callで呼び出したsubプログラムだけを途中で終了させる方法を教えてください。
View Article【エクセルVBA】新規・変更フォームについて
画像のようなフォームがあります。 以下のようなことは、可能でしょうか？ また、運用上、他の方法がよいなら、それも教えてください。 （この形以外でも受け入れられます） 新規 各項目を選択および入力を行います。 変更 データはすでに入っているものを呼び出して変更をする 呼び出しは、氏名から行う
View Article【エクセルVBA】WorksheetsのSelec
Worksheets(AA).Select を行って、それ以下のプログラムは シートを指定しなくても Worksheets(AA)からデータを取ってくるわけではないのでしょうか？ アクティブシートから情報を取ってくることがあるので シートの指定の標準的な記述（手法？）を知りたいです。
View Articlevbaで全シートのある列のスペースを消したい
vba修行中の初心者です。 シートをすべて選んだ状態である列（ここではI列）を選び、セルの中のスペースをすべて消すということをしたいのですが、 Worksheets.Columns("i:i").Select.Replace What:=" ", Replacement:="", Matchbyte:=False にすると、コンパイルエラーが出ます。 どのように書き直せばよいのでしょうか？...
View Article【エクセルVBA】OraDBのデータをCSVへ出力
VBA初級者です。 oracleDBのデータをCSVへ出力するマクロをVBAで作成中ですが、実装方法が分からず困っています。 ・DB接続はoo4o ・エクセルは2010 ・SQLで取得したデータを1レコードづつCSVに書き出す ・カラム名をヘッダーとして書き出す 以下のような実現方法でできるか…？と考えたものの、...
View Articleフォームの値を全て取得したい(VC#)
こんばんは。 最近、VC#をやり始めたのですが、フォームの値を取得するのに 以下のような感じで、一つずつフォームの値を取得していて とても時間がかかり困っています。 フォームにあるテキストやラジオボタンなどを 一括(for分など)で取得する方法ありましたら教えて頂きたいです。 //テキストの取得 global.駅1 = フォーム駅1.Text; global.駅2 = フォーム駅2.Text;...
View Articleべき乗の計算が遅い理由
VBAを使っていてふと気づいたことなのですが、 x ^ 2とx * xは計算結果は全く同じなのですが、x * xの方が6倍程度速く計算することができます。 Sub test() start_time = Timer For j = 1 To 10000 For i = 1 To 1000 y = i ^ 2 * j ^ 2 Next Next zikan = Format(Timer -...
View ArticleExcelVBAのDoEventsによるエラー？
Excel2010(Windows7 64bit)のVBAであるプログラムを作っていたのですが、以下の様な原因不明のエラーが生じてしまいます。 1. 自分では同じ操作をしているつもりなのですが、エラーが出る場合と出ない場合があり、エラーの原因を特定できません。 2. Errオブジェクトを調べたところ、エラー番号が「-2147417848」です。 3....
View Articleテキストボックス２列の値をシート1AB列に入力
実行２クリックで2列のテキストボックス１～７の値をsheet1のA列、テキストボックス１１～１７の値をB列に入力したいのですが下記の方法にどうコード追加していいのかわかりません。どなたかコードが解る方よろしくお願いします。 Private Sub 実行2_Click() For i = 1 To 1000 If Sheet1.Cells(i, 1.Value = vbNullString Then:...
View Articleシート２の値をシート１に反映
コマンドの入力ボタンでExcel sheet2の値(マーク)をsheet1へ反映したいのですがその際、事前に手入力している▼、●を消さずに氏名、日付がマッチしたところにマークを入力されるコードがありましたらご教授のほどよろしくお願いします。
View ArticleSockets.TcpClient プログラミング
初めて質問するので、作法等に誤りがあるかもしれませんがどうぞよろしくお願いします。 【環境等】 OS：Windows2007 64bit 言語：Visual Stadio 2008 (Framework2.0用で開発)のVB.net 【やりたいこと】 Sockets.TcpClientを使用して自PC上で自PC宛てに通信を行いたい 【解決したい内容】...
View ArticleDataSetの更新が出来ない
初心者で申し訳ありません。 http://www.atmarkit.co.jp/ait/articles/0705/18/news124_2.html このサイトのようにdatagridviewをつくり実行すると、 追加の更新は出来るのですが削除して保存してもエラーになってしまいます。 ↓ 更新には、削除された行を含む DataRow コレクションが渡されたとき、有効な DeleteCommand...
View Article【VBA】Ifで他シートから検索しコピーする
Excel vbaについて教えてください。 自分で作成したコードが、うまく動かず悩んでいます。 ●作りたいもの Sheet3のA列にある数字を検索値とし、 Sheet1のA列を検索し、合致する行のB列～最終列までコピーし、 Sheet3のB列から貼付する。 ※Sheet1にある列数（項目数）は不定です ●作成したマクロ Sub test() Dim sh1 As WorkSheet Dim sh2...
View Articleエクセル 関数を使わずにデータを取りたい
EXCELを使ってデータ入力をしたいです。 下の図のように、シート1のＡ列にコードを入力すると、シート2のテーブルから値を引っ張ってくるようにしたい。 たとえば、シート1のA1に"C001"を入力したら、B1に"赤"が自動入力されるようにしたい。 シート1 Ａ列Ｂ列 行1C001 シート2 Ａ列Ｂ列 行1C001赤 行2C002青 行3C003黄色...
View ArticleバイトをGBにするには？
Sub FSO() Dim myFSO As Scripting.FileSystemObject Set myFSO = New Scripting.FileSystemObject Debug.Print myFSO.Drives.Item("C").TotalSize & "バイト" End Sub でバイトで容量を取得できるのですが、 単位をＧＢにするにはどうすればいいですか？...
View Article