回答数
気になる
-
自動メール送信プログラム
初めまして^^。 現在、自動メール送信のプログラムをVisual Basic 6.0を用いて作成しようとしている者です。OSはwindows2000でVisual Basicについての基礎的な事は勉強しているつもりです。 したい事は、毎週水曜日に決まった内容のメール本文を、決まった人に自動的に送信するプログラムを作成するという事です。 初歩的な質問かもしれませんが、ヒントや問題解決になる手がかりを教えて頂ければ幸いです^^。
質問日時: 2006/01/11 15:17 質問者: sun_set633
ベストアンサー
6
0
-
セル結合部の合計額
A列に年月日、B列に氏名、C列に金額の表が有ります。 この表をマクロでB列、氏名で並べ替えをし、同名をセル結合しています。セル結合されているのがいくつも有ります。このセル結合された部分のC列の各々の金額の合計をD列に表示する記述を教えてください。 例えば、Aさんでセル結合されたC列のデータが3個有れば三個の合計額をD列に表示するものです。よろしくお願いします。
質問日時: 2008/04/30 12:11 質問者: hoshi7777
ベストアンサー
6
0
-
VBは速度が遅い?
VisualBasic6でプログラムを組んでいて疑問がわきました。 主に計算主体の場合、C言語と比べて速度が遅いと言われますが、どうしてVBで作ると同じアルゴリズムなのに 速度が遅いのでしょうか? VBで早くする方法が知りたいです。 ActiveBasicというものがあり、そちらで動作させると 早いといううわさがあり、本当かわかりませんが、 どうなのでしょうか?VBのコンポーネントは使えるのでしょうか? ※昔、Delphiと同じアルゴリズムで速度を比べたら Delphiの方が早かったです。理由はわかりませんが・・・
質問日時: 2006/04/18 14:14 質問者: kyoui
ベストアンサー
6
0
-
Excel VBA で Richtextboxを使うことは出来ますか?
ExcelでRichTextBoxを使おうとして、Microsoft Rich Textbox Control(SP6)を コントロールの追加を使って登録しました。いざ、フォームに置こうとすると「サブジェクトは指定された操作に対して信頼されていません」というエラーが出ます。このエラーを回避する方法か、複数行が書けるラベルコントロールのようなものはあるでしょうか
質問日時: 2006/06/23 01:27 質問者: tx1
解決済
6
0
-
一定周期ごとのバッチ処理
お世話になっております。 一定時間ごとにバッチ処理を行うために、どういった方法をとるのが、PCの負荷低減によいでしょうか。 1.Windowsのタスクを利用する 2.何らかのAPIを利用する 3.プログラムでのループ処理 3のループ処理は負荷が高いので論外。 2のAPIですが、何かいいAPIあるでしょうか? 1が一番楽かと思えるのですが。 処理のタイミングは 1.毎時1回(1日24回) 2.毎日1回(1日1回) 3.年2回(年末、年始各1回) です。 稼動するPCは、24H稼動です。 稼働環境は、Win2k PRO SP3 開発環境は、Win2k PRO SP3+VB6.0SP5 以上、よろしくお願いします。
質問日時: 2003/06/10 13:54 質問者: torokichi
ベストアンサー
6
0
-
VB 保存・読み込み2
どもです。この間の質問の続きです。VB6.0 SP5 open の保存で文字の区切りに " , が使われるために text1 text2 text3 にそれぞれ文字を入れて保存してもその文字へ " ,等を使っている場合そこで区切られてしまい、text1に=あいう"えお と入力して保存⇒読み込みをするというtext1=あいう text2=えおと区切られてします問題でした。 そこでかなり考えてすこし良い案が浮かびました。 がコードが浮かびません^^; これをコードに変えられる方お願いします。 a = text1.text ←「あいうえお」と打ち込む。 b = text2.text ←「かきくけこ」と打ち込む。 c = text3.text ←「さしすせそ」と打ち込む。 open "test.txt" for output as #1 print #1,a & "<tes>" & b & " <tes> " & c で保存すると あいうえお<tes>かきくけこ<tes>さしすせそ と保存される訳です。 ※次に開きます。 open test.txt" for input as #1 この読み込みが判らないんですが、<tes>の 場所でそれぞれa b cに分けるようにすればいいと 思ったんです。 出来ますか@@???
質問日時: 2004/01/19 17:28 質問者: a12b12
ベストアンサー
6
0
-
VisualBasicでファイル名から拡張子.まで取り除くには?
VBでファイル名から拡張子を取り除く関数を探しています。なにか良い関数はないでしょうか?
質問日時: 2004/03/04 19:28 質問者: kounesi
ベストアンサー
6
0
-
COMコンポーネントって何?
よく、COMコンポーネントって聞くんですが、何のことかわかりません。VBやVBAのような言語名ではないことは、なんとなく分かるのですが・・・。できるだけわかりやすく教えてください。
質問日時: 2000/12/15 11:46 質問者: holydevil
ベストアンサー
6
2
-
エラーでつまってます・・・お助け下さい
VS2003.NETで開発中の初心者です。 以下のコード(Form1.vb)を実行すると次のエラーがポップアップされ“oADP.Fill(oDS, "ROOT")”のラインで止まります。 <エラー> 'System.Data.OleDb.OleDbException' のハンドルされていない例外が system.data.dll で発生しました。 どこがおかしいのかわかりません。 詳しい方がいましたら、ご教授下さいませ。 ---------------------------- Imports System.Data.OleDb Public Class Form1 Inherits System.Windows.Forms.Form Private oConn As OleDb.OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0" & ";Data Source=..\USER.mdb") 「Windows フォーム デザイナで生成されたコード」 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '--DataAdapterの設定 Dim oADP As OleDb.OleDbDataAdapter oADP = New OleDb.OleDbDataAdapter("SELECT *FORM TALK WHERE Node=0 ORDER BY No", oConn) '--DataSetの設定 Dim oDS As New DataSet oADP.Fill(oDS, "ROOT") ・ ・ ・ ----------------------------
質問日時: 2005/04/21 16:04 質問者: THUBAN
ベストアンサー
6
0
-
VBAで年齢を計算する方法について
VBAで年齢の計算をしたいのですが、例えば Cells(2, 1) このときの値がH18.1.1 (2006/1/1) Cells(2, 2) このときの値がS10.2.1 (1935/2/1) これを、 DateDiff("yyyy", Cells(2, 2), (2, 1)) で処理を行うと年の計算しか行われず、70歳になるはずが、 71歳になってしまいます。 ExcelのDATEDIFでは70歳になりますが、VBAではどのようなコード を記述すればいいでしょうか? 宜しくお願い致します。
質問日時: 2007/08/20 02:15 質問者: bottle19ok
解決済
6
0
-
「参照の追加」で追加したCOMオブジェクトのエラーについて
「参照の追加」で追加したCOMを、 DIM aa As New ~ Newでインスタンスを生成させたいのですが、エラーが発生して生成できません(--;) Try ~ Catchでエラーを調べた結果、 エラーコードは、「0x80040154」 メッセージは、「COMオブジェクトは有効でないか、登録されていません」 どうして、このエラーが発生するのかを教えて下さい m(_ _)m
質問日時: 2005/05/31 08:57 質問者: tomo_bu
ベストアンサー
6
0
-
4.0マクロを Excel2003で実行?
以下のマクロはExcel2000までは動きますが、Excel2002、Excel2003では動きません。どのように修正すればよいのでしょう? マクロのことは全くわかりません。10年以上前に友人からもらったExcelファイルです。 プログラムを修正してくれる業者をご存知の方は教えてください。 ' ' Sub Record1() For I = 1 To 15 Cells(50, 1).Value = Cells(51, 4) - Cells(52, 4) * (I - 1) Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVER.OK(!R49C2,2,0,(最適化!R49C3:R49C13))" Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVER.SOLVE()" SendKeys ("{ENTER}") Range("C49:M49").Copy Cells(31 + I, 3).Select Selection.PasteSpecial Paste:=xlValues Next I End Sub
質問日時: 2007/10/28 23:46 質問者: kent-goo
ベストアンサー
6
1
-
リソース不足を解消したい
はじめまして、Excel VBAにて困っていますので教えてください。 ・以下の構造でExcelを起動しております。 1.VB6で作成したアプリケーションよりExcelで使用するためのデータ抽出を 行います。 2.抽出終了後、上記アプリケーションよりExcelを起動し、VBAマクロ 機能を使用し、自動印刷(複数帳票あり)を行います。(上記アプリケーションは待機状態) 3.印刷終了後、上記アプリケーションに戻ります。 ・自動マクロ機能なので、処理終了後に上記3.に戻るのですが、リソース不足に より(印刷時にリソースが消費されます)ハングアップ状態になる時があります。 そこで、リソース不足を解消したいと思っているのですが、ExcelVBAでリソース 不足を解消する方法がありましたら、教えていただきたいのですが。 ・私としては、印刷の時に、次の印刷時に前回の印刷が終了するまでマクロを待機 させたいと思っております。 よろしくお願いします。
質問日時: 2001/11/14 10:45 質問者: akfk
ベストアンサー
6
0
-
VBでのテキストファイルの 読み込み & 書き出し について
テキストファイルの中味を全部読み込んで、テキストボックスに表示するというコードをOpenステートメントを使って書いています。 その際、1つの種類のデータを1つのテキストファィルとして書き出し&読み込み しているのですが、これですと種類が増えていくとともにテキストファイルの 数もどんどん増えてしまい効率が悪いです。 で、それらを1つのテキストファイルにまとめておいて、中をセクションに 区切って、それを読み込み&書き出しする方法はあるのでしょうか? データが1行ですと分かるのですが、それぞれが長いテキストデータを1つの テキストファイルに区切って書き出し&読み込みする方法が分かりません。 どなたか教えてください!!!!!!! よろしくお願いします。
質問日時: 2002/03/07 00:33 質問者: fujiyama2002
ベストアンサー
6
0
-
エクセルVBAについて教えてください。
DSUMを使ってVBAで自動計算をさせたいのですがうまくいきません。 ・Sheetsデータにデータを置いていて、A1からU1610までデータが入ってます。 ・Sheets集計用は計算させるための(条件を入れる)シートで、A1からE列まで(選択する項目によって何行目になるかわかりません。) ・mycountでE列のデータが入ってる行を出してます。 ・部屋タイプで1K~1LDKを選ぶとDSUMの式のタイプに1を入れたいのです。(1K~1LDKの場合はCells(1,3) 下記のように書いてみましたが上手くいきません。 どなたかご教授いただけると助かります。 mycount = "=COUNT(集計用!E2:E300)" Sheets("集計用").Cells(5, 7).Value = Range("g10") = " =DSUM(cells(データ!,1),1610,21),cells(データ!1,タイプ),cells(集計用!),cells(mycount,5))" '部屋タイプの選択 If Sheets("フォーム").Range("c30") = "1K~1LDK" then タイプ = 3 ElseIf Sheets("フォーム").Range("c30") = "2K~2LDK" Then タイプ = 6 ElseIf Sheets("フォーム").Range("c30") = "3K~3LDK" Then タイプ = 9 ElseIf Sheets("フォーム").Range("c30") = "4K~4LDK" Then タイプ = 12 Else Sheets("フォーム").Range("c30") = "その他" Then タイプ = 15 End If
質問日時: 2005/12/10 14:53 質問者: emi445
ベストアンサー
6
0
-
VBAでHTTP(又はFTP)を使う方法について
「ファイル名.vba」というファイルをダブルクリックするだけで、特定のサイト(http/ftp上)のあるファイルをデスクトップ上に持ってくるシェルスクリプトを考えています。 単純にスクリプトだけで実現したいので、何かソフトをインストールし、スクリプトの中でそれを実行する…というのは考えていません。 なんか参考になるサンプル、もしくはホームページご存知でしたら宜しくお願いします。(VBAは初心者です) ちなみに、OSは、win2000です。
質問日時: 2002/10/16 00:25 質問者: kterm32
ベストアンサー
6
0
-
VB.NETの配列にExcelから読み込んできたデータを格納したい
今回もお世話になります。 VisualBasic.NETでプログラムを作っています。 Excelからデータを読み込んで配列に格納したいのですが、どうしてもうまくいきません。 原因とその解決法を教えていただけないでしょうか? また、他の解決法や参考にできるサイトがあれば教えていただきたいです。 Excel,VB.NETともに2003を使っています。 以下エラー内容 -------------------- 'System.NullReferenceException' のハンドルされていない例外が 重度障害者用入力装置自動選択システム.exe で発生しました。 追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。 -------------------- 以下ソースです -------------------- Option Explicit On Imports Microsoft.Office.Interop Public Class Form2 Inherits System.Windows.Forms.Form Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim xl As Object 'Excel.Application Dim wb As Object 'Excel.Workbook Dim ws As Object 'Excel.Worksheet xl = CreateObject("Excel.Application") wb = xl.Workbooks.Open("C:\abc.xls") xl.Visible = True ws = wb.Worksheets("Sheet1") 配列(1, 1, 1) = xl.Cells(2, 1).Value←ここでエラーが出る 配列(1, 1, 2) = xl.Cells(2, 2).Value 配列(1, 1, 3) = xl.Cells(2, 3).Value 状態表示テキストボックス.Text = "配列(1, 1, 1) = " & 配列(1, 1, 1) & "と" _ & "配列(1, 1, 2) = " & 配列(1, 1, 2) & "と" _ & "配列(1, 1, 3) = " & 配列(1, 1, 3) xl = Nothing wb = Nothing ws = Nothing End Sub End Class -------------------- 回答よろしくお願いします。
質問日時: 2006/09/11 12:47 質問者: advantage-kaoh
ベストアンサー
6
0
-
電卓の作成 VB
こんにちは。課題で、関数電卓作る必要があり、 まずは、基礎となる、Windowsのアクセサリーの電卓を 作らなければいけないのですが、私はVBの基礎が少しできるくらいです。作成期限は2週間です。 これから、死に物狂いでやるしかないと思うのですが、 何をどのように、すればよいかまったく見当がつきません。 この先が不安でしょうがないのですが、 電卓を作成するために、まず必要なものは参考書でしょうか? 入門書はもっているのですが、電卓についてはいっさいふれて いないため、購入する必要があるのかと思うのですが、 たとえ、購入した本を丸写ししても自分のために ならないと思うのですが、そうなるのを 防ぐためにはどうすればよいでしょうか?
質問日時: 2007/02/07 16:33 質問者: very-dou
ベストアンサー
6
0
-
Excelファイルの読み込み
VBから既存のExcelファイルをフィールドごとに読み込む プログラムを作成しています。 xlFileName = App.Path & "strFileName" Open "xlFileName" For Append As #1 Line Input #1, Str Close #1 これで実行すると「変数は省略できません」というエラー が出てしまいます。 原因がわからないのでよろしかったらご教授ください。 お願いします。
質問日時: 2005/01/04 15:47 質問者: tomokoji
ベストアンサー
6
1
-
エクセルのVBと、普通のVBの違い
エクセルのVBと、普通のVBの違いを教えてください。 エクセルにVBが付いているということは、普通のVBより、高機能ということなの? エクセルのVBで、シューティングゲームのような複雑なプログラムを作ることはできますか?
質問日時: 2005/06/05 23:40 質問者: oinieaga
ベストアンサー
6
0
-
VBAでの素数の求め方
VBA初心者です。 素数を求めるプログラムを作らないといけないのですが、やり方が良く分かりません。 modやloopを使って作るのでしょうか。教えてください。
質問日時: 2005/06/23 16:58 質問者: lemonail
ベストアンサー
6
0
-
VBで時間計算
教えてください。 VBで時間の足し算をしたいのですが、方法が分かりません。 例えば、毎日の通信時間の合計を出したい場合ですが、 00:15:30(15分30秒) 00:45:31(45分31秒) の日があったとします。 この合計は01:01:01(1時間1分1秒)になると思います。この計算ができずに困っています。 教えて頂けないでしょうか。
質問日時: 2005/07/12 16:37 質問者: vivatom
ベストアンサー
6
0
-
Select Case文でこのようなことは可能でしょうか?
こんにちは。 「Select Case」の条件の一つに、文字列で○○を含むというのは指定できるのでしょうか? 例えば・・・ Select Case strName Case "ABC" 処理1 Case "D"を含む 処理2 Case Else 処理3 End Select 上記の様なことがしたいのですが、可能でしょうか? 可能でしたら、「"D"を含む」の部分はどのように書いたらいいですか?? 教えてください。宜しくお願いしますm(_ _)m
質問日時: 2005/07/15 17:08 質問者: noname#20343
ベストアンサー
6
0
-
VB.NETでWebアプリを作成後に、サーバにアップするファイル
VB.NETにおいて、Webアプリケーションを作成しました。 作成場所はローカルマシンのwwwroot\abcde\ URL http://localhost/abcde/webform1.aspx にて動作を確認しました。 これをサーバにあげたいのですが、セキュリティを考えると全部そのままあげるのはよろしくないですよね?(プログラムソースもある為) ディレクトリ内には、_vti_cnfフォルダなど隠しフォルダがありますが、どれをアップさせればよいでしょうか?
質問日時: 2005/09/13 17:18 質問者: Haule
ベストアンサー
6
0
-
SavePictureで保存できない
VB6での開発で ピクチャボックス(大)の中にピクチャボックス(小)を何個か入れ 全てのピクチャイメージを保存したいのですが「SavePicture ピクチャボックス(大), ファイル名」 を実行してもピクチャボックス(大)のみしか保存できません。 すべてのピクチャにAutoRedraw=Trueを設定しています。 どなたか分かる方がいらっしゃいましたら教えてください。 宜しくお願いします。
質問日時: 2005/10/07 14:14 質問者: takuyachiko
ベストアンサー
6
0
-
VisualBasic.Netのフォーム上からExcelを起動するには
VisualBasic.Netのフォーム上からExcel2003を起動するにはどのようにすればよろしいでしょうか。 http://anetm.com/dev/tools/vbdotnet/112215.htm を試してみましたが、 型Excel.Applicationが宣言されてません 型Eexcel.Workbookが宣言されてません となり、うまくいきませんでした。 宜しくお願いします
質問日時: 2006/02/21 16:59 質問者: maiko100
ベストアンサー
6
0
-
CSVファイル操作
VBでCSVを操作しているのですが、わからないことがあるので教えてください。 1.CSVファイル(改行区切り)のレコード数を取得するにはどうすればいいですか? 2.CSVファイル(改行区切り)の最初のレコードのみ削除するにはどうすればいいですか? また、レコードを指定して削除することはできますか? 3.CSVファイル(改行区切り)のレコードを指定して内容を変更することはできますか? Windows XP , VB6
質問日時: 2006/06/23 10:28 質問者: freednia
ベストアンサー
6
0
-
フォームの内容をリフレッシュするには?
AとBという2つのEXEがあるとします。(共にVBで作成) 通常は、A.EXEからB.EXEをCALLし、Bを起動するということをしています。 ここまでは簡単なのですが、更に次のような処理を加えたいのです。 A.EXE → B.EXEでBを起動。但し、Bが既に起動されている場合、Bのフォームをリフレッシュする。 このようなことは容易でしょうか?
質問日時: 2003/06/13 09:21 質問者: akikan0125
ベストアンサー
6
0
-
テキストファイルの置換について
VB6について質問です。 規則性のある(1)のようなバイナリファイルを(2)のように置き換えたいので お知恵をお貸しください>< Replace関数で<A>を</B>に置換して・・・と考えたのですが前方の<B>をどうやって実現してよいか考えが浮かびません; ※なまえ等の文字列はは可変長です。。。 (1) なまえ<A>ふりがな<A>ねんれい<A>・・・・ (2) <B>なまえ</B><B>ふりがな</B><B>ねんれい</B>・・・・
質問日時: 2006/10/05 17:41 質問者: go_osaruku
解決済
6
0
-
VB6.0 テキストボックス マルチラインでの表示
初心者です。 VB6.0で、ある測定機器から測定値を読み込み、テキストボックスをマルチラインにして、毎回追加して表示したいのです。 測定値の読み込みは出来ています。 改行して毎回追加する方法を教えていただけませんか? (順次追加になるので、一番上が最新データになるようにしたいです。) 例 123.0・・・・・・最新のデータ 345.5 256.0 653.1 567.6・・・・・・最初のデータ テキストボックス内は記載できなくて結構です。単に取り込むだけでOK
質問日時: 2007/04/06 14:45 質問者: wasp_001
ベストアンサー
6
1
-
VBの質問です
VB6を使って開発をしています。 AとB2つのMDBがあってAの全テーブルのデータをBの全テーブルにデータをコピーしたいのですがプログラムでどうやるのかがわかりません。 どなたかわかるかた私に教えてください。お願いします。
質問日時: 2001/11/06 13:49 質問者: bzpooh
ベストアンサー
6
0
-
セルの代数により合計を変える
使用するセル、E3,F3,G3,L3です。G3に=if(or(E3=0,F3=0),"",E3*F3)と入力する。L3が無表示ならばG3はE3*F3、L3が1ならばG3はE3*F3+500、L3が2ならばG3はE3*F3+800となるようにマクロでかくにはどのように書けばいいのですか。例、E3に100、F3に10の時L3が無表示ならばG3は1000、L3が1ならばG3に1500、L3が2ならば1800とG3に表示。よろしくお願いします。
質問日時: 2002/07/18 12:16 質問者: kkazumi
ベストアンサー
6
0
-
検索した文字列がある行を検索するには
OPEN "A.txt" QWER gohjoij OPEN "B.txt" OPEN "QWERT" Write A.txt jortyu end と書かれたテキストファイル(ファイル名を"ABC.txt"とする。)があるとします。これを 1.OPEN "*.*"(*=ワイルドカード)という文字列の*.*のみに絞る 2."1."の内" "の中に、"."が無い文字列は無視する うえでリッチテキストボックス1に出力するようにします。リッチテキストボックス1には A.txt B.txt と出力されました。これをさらに[A.txt B.txt]がある行全体を、 1.別のリッチテキストボックス(リッチテキストボックス2)に出力する やり方がわかりません。この例だと、リッチテキストボックス2には OPEN "A.txt" OPEN "B.txt" Write A.txt jortyu と出力したいです。今のスキルだと到底作れそうに無いので、どなたか教えてください。
質問日時: 2002/08/28 17:58 質問者: ahoojpn
ベストアンサー
6
0
-
引数
VB の引数について prA.vbp(プロジェクト) の frAA.frx(フォーム) で private sub comm_click() shell "c:\work\try\prB.exe",vbNormalFocus end sub prB.vbp(プロジェクト) の 標準モジュール内で public sub Main() [password...] frBB.show end sub ご質問内容で御座いますが frAA.frx(フォーム) で入力されたパスワードを "c:\work\try\prB.exe" を実行する時に引数として prB.vbp(プロジェクト) の 標準モジュール public sub Main() に 引数を渡したいのですが、 prA の frAA , prB の Main でどのように記述すれば いいのでしょうか 以上 宜しくお願い申し上げます
質問日時: 2002/10/23 09:29 質問者: nao0
解決済
6
0
-
excelマクロ、任意セルの値で名前を付けて任意のフォルダに保存
マクロの初心者ですが、どうか教えてください。 テンプレートブックを名前を付けて保存するマクロで 苦戦しております。 ・ダイアログを必ず開く ・その時の保存先はz:\あああ ・ブック名はアクティブシートの任意のセルA1 --------------------------------------------- Application.Dialogs(xlDialogSaveAs).Show _ Arg1:=Range("A1").Value ここまではたどり着けたのですが、ダイアログが 当初のテンプレートブックの保存場所が開いてしまいます。 どうぞよろしくお願いいたします。
質問日時: 2008/06/17 17:29 質問者: mayu829
ベストアンサー
6
0
-
メッセージの出し方
VBの画面内容をExcelに 展開させる画面を作っています。 VB画面の実行ボタンを押して展開するのですが、 Excel展開中に「展開中」というような メッセージを出すには、 どのようにすれば良いのでしょうか?
質問日時: 2002/11/07 14:26 質問者: usi-iti
解決済
6
0
-
keypress
Visual Basic について keypress 関数について [F2]キーを押下しても keypress イベントは発生しません (1)プロパティの設定ではなく、コードでどのように記述したらいいのでしょうか? (2)それとも、できないのでしょうか? 以上、宜しくお願いします
質問日時: 2002/12/11 11:24 質問者: nao0
ベストアンサー
6
0
-
オプションボタンについて
2個のオプションボタンがあってどちらか1個を選んでコマンドボタンを押すと選んだほうのフォームが開くようにするにはどうしたらいのですか?。 初歩的なことで本当に申し訳ないのですがどこを探してもサンプルがなかったので質問させていただきました。
質問日時: 2003/01/14 18:25 質問者: 1kou
ベストアンサー
6
0
-
日付
今日の日付(date型)の3日20時間26分58秒後の日付(時刻)を 求める関数って御座いますでしょうか 例 1月16日14時41分55秒 の 3日20時間26分58秒後 → ?月?日?時?分?秒 教えて下さい。宜しくお願いします
質問日時: 2003/01/16 14:42 質問者: nao0
ベストアンサー
6
0
-
CSVファイルの「”」について
VB6でCSVファイルを読み込みたいのですが、 以下のような項目だと、1項目として読み込むことができません。 例) AAA,"BBB,CCC,"" """,DDD "BBB,CCC,"" """ を1項目として読み込みたいのですが ダブルコーテーションの括りの中に、更にダブルコーテーションがあると うまくいかないみたいです。 何か方法がありますでしょうか? Open DownLoadFile For Input As #1 Len = 32000 Input #1, rec Do Until EOF(1) 処理1 Loop close #1
質問日時: 2006/05/17 14:48 質問者: ddaaii
ベストアンサー
6
0
-
.dllと.exeファイルの改良について
プログラミングはJAVAしか扱ったことが無いのですが、 今回、人様の作ったプログラムを改良(改悪?)する事となりました。 色々調べて"eXeScoope"や"ResHack"等のFreeSoftを入手したり"MicroSoftVisual C++"を購入しました。 どうも元のexeファイルを編集することが出来ません。 この場合どうしたら良いのでしょうか?
質問日時: 2006/08/30 04:49 質問者: noname#39357
解決済
6
0
-
VBからテキストファイル(タブ区切り)をエクセルで開く方法
VBからテキストファイル(タブ区切り)をエクセルで開く方法を探しています。CSVデータを出力する方法や、テキストファイルを読み込む方法等の情報はたくさんあるのですが、直接エクセルを起動し、それにテキストファイルを出力するのはなかなか見当たらない状況です。 質問の主旨は、もともと、参照ボタンを押下すると、選択されている指定のテキストファイルを保存するダイアログが出力される仕組みであったものを、どうせ開くのはエクセルだからと言うユーザーの要望から、参照ボタンクリックと同時にエクセルが起動し指定のテキストファイルをエクセルで開いて見ることができるように改造するといったものです。(参照のみですので読み取り専用で見たい) テキストファイルをドラッグしてエクセルシートに持っていけばタブを認識して格セルに分割して開いてくれるのですが、VBから同じような動作をさせることは可能なのでしょうか? よいヒントになるような情報でもかまいません うまく説明できずわかりにくいかも知れませんがご助言をお願いいたします。 【環境】 WindowsXP、VB6.0、EXCEL2002
質問日時: 2006/10/18 14:02 質問者: kodawariha
ベストアンサー
6
1
-
顧客番号を指定して印刷するには?
別シートに印刷用のレイアウトを作成し、更に別シートで印刷設定を行っています。 その印刷設定のページには、印刷開始顧客番号 印刷終了顧客番号とセルを作り、そこで顧客番号を指定して連続印刷したいのですが、今の状況だと、For MyCounter 1 to 5の5の部分を変え残りは手動で入力という方法で印刷しています。 顧客番号のみで連続印刷する為にはどうすれば宜しいのでしょうか? 宜しくお願いいたします。 ---------------------------------------------------------------- Sub 連続印刷2() Dim mycounter As Integer Dim sita1 As Integer Dim migi1 As Integer mycounter = 1 sita1 = Sheets("設定2").Cells(4, 2) migi1 = Sheets("設定2").Cells(5, 2) For mycounter = 1 To 5 Sheets("レイアウト2").Select Range("O2").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 2, 1) Range("O6").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 3, 1) Range("O10").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 4, 1) Range("O14").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 5, 1) Range("O18").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 6, 1) Range("O22").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 7, 1) Range("O26").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 8, 1) Range("O30").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 9, 1) Range("O34").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 10, 1) Range("O38").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 11, 1) Range("O42").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 12, 1) Range("O46").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 13, 1) Range("O50").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 14, 1) Range(Cells(1, 1), Cells(sita1, migi1)).Select Selection.PrintOut Copies:=Sheets("設定2").Cells(6, 2) Next End Sub
質問日時: 2007/05/10 15:12 質問者: Jize
ベストアンサー
6
0
-
論理回路(ブール代数)について
学校の課題にこの論理式を簡単にせよという問題がありまして解こうと思ったのですが一つだけ全くわからない問題がありじっくり考えたのですがそれでもわからずこのままだとわからないまま終ってしまうのでそれは嫌なのでもし宜しければときかたと答えを教えていただきたく思います。 問題なのですが F=(Aバー×Bバー×Cバー)+(Aバー×Bバー×C)+(A×Bバー×Cバー)+(A×Bバー×C)+(A×B×C) (問題には×と()は書いていないのですがこれを書かないとややこしくなると思って書きました。それとバーのラインが表せないのでバーと文字で表記させて頂きました。) ご解答お願いします。
質問日時: 2004/12/10 18:47 質問者: dominku
ベストアンサー
6
0
-
ウィンドウを終了させたい・・・
いつもお世話になっています。 画面遷移時にあるメッセージウィンドウ(別exe)をVBから起動させ、遷移が終わった後にそのexeを終了させるプログラムを作っています。 プログラムの中身としては、 (1) Shell関数でexe(メッセージウィンドウ)を起動 (2) FindWindowで、起動しているexeのハンドルを取得 (3) 取得したハンドルに、SendMessageでexeを閉じるようにする(WM_CLOSEを使用)。 ・・・といったものです。 (1)と(2)はうまくいくのですが、最後のSendMessageがうまくいきません(>_<) 試しに(1)と(2)の後に、Do文の中で [1]SendMessageで起動したexeを終了させるようにする [2]FindWindowをして、ハンドルが0だったら、Exit Doする ・・・ようにプログラムしてみたところ、永久ループになってしまいました・・・。 他にも、SendMessageの代わりにShowWindowを使ってみましたが同じくダメでした・・・(T-T) ネットで調べていますが、他の方法が浮かびません。 どなたか、良い方法をご存じでしょうか?? よろしくお願いします!!
質問日時: 2004/12/22 19:07 質問者: hemakozo
ベストアンサー
6
0
-
プログラムの初歩的な質問 ( )について
例えばVBAのコードで、「msgbox ~」と「msgbox(~)」では、何が違うのですか? 特に()が有っても無くても、うまくコンパイルできる時もあれば、 コンパイルエラーなどと表示されることもあります。 ()で囲む時と囲まない時の使い分けが、よく分かりません。 どなたか教えていただけないでしょうか?
質問日時: 2007/06/08 15:10 質問者: stharuna
ベストアンサー
6
0
-
ACCESS VBAで、CSVにデータを吐き出したいのです
ACCESS VBAで、CSVにデータを吐き出したいのですが、WORKのテーブルを作るのが面倒なので、変数にセットしたカンマ区切りのデータを直接CSVに吐き出したいと思っております。 TXT = .Height & "," & .Weight を Open "A:DATA.CSV" For Output As #Name へ一件ずつループで回して吐き出したいのですが、「型が一致しません」というエラーがでます。ご存知の方がいらっしゃいましたら、どいうロジックを書けば良いか教えて下さい。
質問日時: 2007/06/18 11:34 質問者: fy4777
解決済
6
0
-
VBでフォルダ単位のFTP
VBでフォルダ単位のFTP(GET,PUT)はできるのでしょうか? また、そのサンプルファイルがありましたら、教えて下さい。 ファイル単位での、サンプルファイルはあったのですが、 それを、フォルダ単位に改造する知識がまだないのです。 よろしくお願い致します。
質問日時: 2001/11/07 10:28 質問者: asami55
ベストアンサー
6
0
-
API、OCX、DLLって何でしょう?
タイトルどおりの質問です。ど素人なのでわかりやすく説明していただけるとありがたいです。参考URLも教えていただけるとよりありがたいです。
質問日時: 2002/08/26 21:35 質問者: houston
ベストアンサー
6
0
-
10進数→2進数への変換
VBの関数で 10進数→2進数への変換 のライブラリはあるのでしょうか? それとも自分で作成するのでしょうか? もし作成する場合、何か参考になるHPを教えて下さい また作成された方が居られましたら、その関数を頂けないでしょうか 初歩的な質問で申し訳ございません、よろしくお願い申し上げます
質問日時: 2002/09/05 11:42 質問者: nao0
解決済
6
0
【Visual Basic(VBA)】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Visual Basic(VBA)】に関するコラム/記事
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が途中...
-
【マクロ】並び替えの範囲が、その...
-
【マクロ】オートフィルター を非表...
-
Vba Array関数について教えてください
-
Vba 型が一致しません(エラー13)...
-
【ExcelVBA】値を変更しながら連続...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教えてく...
-
【ExcelVBA】5万行以上のデータ比...
-
VBAでセルの書式を変えずに文字列を...
-
【マクロ】開いているブックの名前...
-
Vba セルの4辺について罫線が有るか...
-
vb.net(vs2022)のtextboxのデザイン...
-
Excel VBA 選択範囲の罫線色の変更...
-
【マクロ】売上一覧YYYYMMDDHHSS.xl...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコピー...
-
WindowsのOutlook を VBA から操作する
-
Excel 範囲指定スクショについて Ex...
-
【マクロ】シートの変数へ入れるコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有るか...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデータ比...
-
【マクロ】売上一覧YYYYMMDDHHSS.xl...
-
【マクロ】開いているブックの名前...
-
【マクロ】並び替えの範囲が、その...
-
エクセルの改行について
-
エクセルのマクロについて教えてく...
-
vb.net(vs2022)のtextboxのデザイン...
-
VBAでCOPYを繰り返すと、処理が途中...
-
VBA ユーザーフォーム ボタンクリッ...
-
エクセルのVBAコードと数式について...
-
エクセルのVBAコードについて教えて...
-
[VB.net] ボタン(Flat)のEnable時の...
-
【マクロ】変数を使った、文字の種...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報