VBA/FIND関数を使っての先頭文字列の検索方法
エクセルVBAにてFIND関数を使って、 文字列検索⇒コピー＆ペーストのマクロを作成しているのですが、 どうしても、先頭文字列から検索をする方法がわかりません。 たとえば、 あいうえお いうえおあ おあいうえ えおあいう という文字列から「あいう*」を検索したい場合、 1行目だけを抽出したいのですが、 1,3,4行目が抽出されてしまいます。 find関数では先頭文字からの検索はできないのでしょうか？...
View Article配列を任意の数値で埋める方法
VBAを使っていて dim a(256, 256, 256) といった配列を作って、ゼロとか一とか任意の数値で埋めたいのですが forループで代入していく方法はありますか？ あるいは、既に数値が入ってある配列をリセットとして空の状態にする簡単な方法ってありますか？
View Article標準モジュールが入っているワークブック
Excel VBAです。 二つのワークブックを開いておいた状態で 両方のブック内のユーザーフォームを表示した状態にします。 この時、ある片方のワークブックを表示した状態でもう片方のユーザーフォームを使って 標準モジュールを実行したとします。 すると、当たり前ですが、エラーが出るか、間違った計算を行ってしまいます。 これを防ぐために、 if ActiveWorkbook.Name = xxxxx...
View Article【エクセルVBA】テキストを入れたら日付が別セルに
まだまだ初心者ですが・・・ Dのセルにテキストを入れたら 同じ列のA、B、Cのセルに 順に西暦、月、日付が自動で入るようにするマクロを教えてください。 またDセルを消したら連動してそれらのセルもクリアされるようにしたいです。
View Articleｖｂａでｙａｈｏｏメールの受信メールの一覧を読み取
ｖｂａでｙａｈｏｏメールの受信メールの一覧を読み取る方法はありますか？ Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate...
View ArticleＶＢ２０１０ ＬＩＳＴＶＩＥＷ 計算
VB2010でLISTVIEWを使っています。 LISTVIEWの数字とLISTVIEW外のLABEL4の数字と合計してsuzuに格納したいのです。 Dim suzu As Long suzu = clng(Me.ListView1.Items(2).SubItems(3).Text) - clng(Me.ListView1.Items(3).SubItems(3).Text) +...
View Article【VBA】フォームの作り方
サークルの活動管理表を作っています。 以下のようなエクセルの一覧に 「フォームでテキストを入力→ピボットテーブルで集計」 の流れです。 役職にはR,Tなどのアルファベットが5種類ほど入ります。 エクセル上ではこんな形でデータベースになっています。 ここに追加していくためのフォームです。 年月日氏名ID 氏名 役職区分ID 区分金額
View Article【VBA】IEのCookieなどの削除方法
こんにちわ。 Excel VBAで「自動でIEを起動してyahooを表示」するマクロを作成しています。 質問ですが、IEオブジェクトを作成したタイミングでCookieなどを削除するには、どのようにすればよろしいしょうか？ ※IEの[インターネットオプション] - [全般]タブ - [閲覧の履歴]にある削除（全削除）と同じ処理を実装したいです。...
View ArticleVBで新PICNICの制御がで出来
PICNICはLAN接続して機器等の制御する電子工作キットですが 新PICNICに変更され、PICOCX.OCXが使えないからWinSockを 使えば出来ると言われましたが出来ません 現在は旧PICNICV2をVB2008で制御しています 旧PICNIC V2で PortB 0 の時 PICOCX1.Outp(PICOCXLib.PICNIC_PORT.PortB, 0, 1)'High...
View Articlepanelのスクロール表示について
C#にて、WIndowsアプリを作成しています。 GridviewのcellEnterイベント発生時に、Panelに文字を記載する！ というプログラムを 作成しています。表示の文字がPanel内を超過した際の事を考え、PanelのAutoscroll = Trueに設定しています。しかしながら、文字がPanelを超過してもうまくスクロールを表示してくれません。。。...
View Articleクラスモジュールについて
下記のコードは型番別で数値1の平均値を型番別でC列に出すコードなのですが もう一つ条件を増やしてD列の日付を2011年〇〇月〇〇日～2012年〇〇月〇〇日まで といった感じで指定して平均値をだしたいのです。 重要なポイントなんですが、例えば下記データベースで2011年のすべてを対象とした場合 2011年で計算された平均値を2012年の方にも全く同じ数値になるようにしたいのです。...
View Articleテキストボックス値をシートセルに連続して入力
リストボックスあ行氏名より選択しテキストボックス１～６の値を実行２クリックでsheet1"E1"から順番に入力されるがか行選択のテキストボックス値１～４を順番に"E7"から入力させたいができるでしょうか。ちなみに下記の方法しかわかりません。また、実行２を押すと同時にテキストボックスを空白にしたいのですが。どなたかコードが解る方よろしくお願いします。 Private Sub 実行2_Click()...
View Article【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 Article