回答数
気になる
-
VBAのインスタンス変数識別子
お世話になります。 ExcelVBAで次のようなクラスモジュールがあるとします。 Private lngX As Long Public Property Let setX(ByVal lngX As Long) Debug.Print lngX End Property ここで、3行目のlongXはローカル変数としてのlngXが参照されていますよね。このプロシージャの中で、ローカル変数と同名のインスタンス変数を参照するにはどのようにすればよいのでしょうか。 Javaでは this.lngX、VB.NETでは Me.lngX とすればよいと思うのですが、VBAにはこのような識別子は用意されていないのでしょうか。当方の環境はExcelVBAですが、VB6でもおなじだと思いますのでそちらではどうなっているかでもかまいません。 宜しくお願い致します。
質問日時: 2007/04/23 11:07 質問者: pippy
解決済
5
0
-
ActiveXでインターネットDBにアクセス
インターネット上のサーバにデータベースを置き、端末からブラウザを使わずに高速でアクセスする方法はあるのでしょうか??できればAcriveXを使いたいとおもっています。 (ホームサーバにデータベースをおき外出先からや、自前のアプリからアクセスしたいのです。) よろしくお願いします。 どのプロトコルを使うのかもさっぱりわかりません。
質問日時: 2004/11/18 22:48 質問者: torukun
解決済
5
0
-
エクセル2000(EXCEL)で日毎で実行させるマクロをひとつのオートシェイプに登録する方法
エクセル2000(EXCEL)でツール→マクロ→マクロの新しい記録(マクロの自動記録)を使用して日によって実行する内容の違うマクロ31個、つまり31日分のマクロを作ったとします。ひとつのオートシェイプを実行ボタンとして使いこれに日毎によって実行するマクロを変える様に登録する事ってできるのでしょうか?日付が変わっている条件としてはNOW関数で拾えるとしてこの条件を元にひとつのオートシェイプで日ごとに実行するマクロを変えるということはできますか?やっぱり実行ボタンとしてのオートシェイプを31個作りひとつづつマクロを登録していくしかないのでしょうか?またできない場合は他にどんな方法があるでしょうか?分かる方宜しくお願いいたします。
質問日時: 2007/06/15 22:34 質問者: tendo12
解決済
5
0
-
Visual BasicとACCESSは違う?
現状、ACCESSで開発を行っていますが、SQL Serverへ移行しようと思っています。 インターフェイス部分をACCESSで開発しようと思っているのですが、知人からはVisual Basicの方がよいと言われました。 Visual BasicとACCESSはほとんど同じだから 問題ないと言われたのですが、本当ですか? もし違うのであれば、どこが違うのでしょうか?
質問日時: 2005/02/25 10:46 質問者: stressman
ベストアンサー
5
0
-
VB6+SQLServer2005 DBの新規作成
VB6+ADOを使用してSQLサーバーの新規データベースファイルを 作成しようと思っております。下記のようなプログラムを つくりましたがうまく動きません。お知恵を貸してください。 catDB.Createのところで 「インターフェイスがサポートされていません」 とエラーが出ます。 いままでAccess2000で動かしていたものをSQL2005に移設している ところです。 SQLサーバーは、はじめて触ります '--------------------------------------------- 'Const ADO_VERSION ="Microsoft.Jet.OLEDB.4.0;" Const ADO_VERSION ="SQLOLEDB;" '--------------------------------------------- Set catDB = New ADOX.Catalog catDB.Create "Provider=" ADO_VERSION & _ "Data Source=" & "d:\test"
質問日時: 2007/07/06 19:12 質問者: momoturbo
ベストアンサー
5
0
-
VB.NETで、ORACLE 8に接続するには?
現在、ローカルのmdbに接続しています。 接続先DBを同LAN上のWin2000ServerのORACE 8に変えるべくコードを修正していますが上手くいきません。 当方、ORACLEは初めてなので、接続方法がイマイチ良くわからず・・・ ちなみに、接続方法はoo4oを用いたいです。 ご教授いただけると幸いです。 ----- mdb接続で用いているコード ------ Public Function getData(ByRef table_name As String, ByRef code_name As String, ByRef extract As String, ByRef code As String) As String Dim oConn As New OleDbConnection Dim oCommand As New OleDbCommand Dim oDataReader As OleDbDataReader Try oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Application.StartupPath + "\XXXXX.mdb" oCommand.Connection = oConn oCommand.CommandText = "SELECT * FROM " + table_name + " ORDER BY " + code_name oConn.Open() oDataReader = oCommand.ExecuteReader() While oDataReader.Read() If code = CStr(oDataReader(code_name)) Then getData = CStr(oDataReader(extract)) Exit While End If End While ・ ・(省略) ・ Finally If Not oDataReader Is Nothing Then oDataReader.Close() End If If Not oConn Is Nothing Then oConn.Close() End If End Try End Function
質問日時: 2005/05/12 14:27 質問者: THUBAN
ベストアンサー
5
0
-
エクスプローラ風のフォルダ選択ツリーのActiveXコントロールを探しています
エクスプローラ風のフォルダ選択ツリーのActiveXコントロールを探しています。 「http://www.kk.iij4u.or.jp/~kaname/software」のページで希望通りのものがあったのですが、商用では、費用が発生してしまいます。 商用でもフリーで使用できるモノ。もしくは、ソース付きなど、あったら教えていただきたいのですが。 宜しくお願いします。
質問日時: 2001/06/07 09:44 質問者: osaosa42
解決済
5
0
-
起動中の他のプログラム(orプロセス)を強制終了できるアプリケーションの作成
お世話になります。 掲題通り、起動中の他のプログラム(orプロセス)を強制終了できるアプリケーションを作成したいです。できる方いらっしゃるなら、教えてください。 宜しくお願いします。
質問日時: 2007/12/20 19:04 質問者: yeye1220
解決済
5
0
-
XPでユーザー名が全角の場合セットアップ出来ない
ディストリビューションウィザードで作成したパッケージをXPにセットアップするときにユーザー名がダブル バイト文字を使用した場合にエラーとなりセットアップ出来ないのでマイクロソフト社のサポート情報に出ていたhttp://www.microsoft.com/japan/support/kb/articles/J056/3/77.aspの修正方法の通りにSetup1.vbpのSetup1.frm の Form_Loadイベントを修正して保存したのですが、その後どうすればそれが繁栄されてセットアップ出来るパッケージが作成出るのでしょうか・・・・。 修正後コンパイルして実行フアイルを作成しようとしたのですが、「アプリケーション削除用のログファイルC\winnt\st6unst001がありません。継続出来ません。」とのエラーが出てしまいます。何か根本的に間違っているのでしょうか?。どうすればウィザードで全角のユーザー名でもXPにセットアップ出来るパッケージを作成する事が出来るのでしょうかお教え下さい。よろしくお願いします。
質問日時: 2002/02/16 10:34 質問者: seiya26
ベストアンサー
5
0
-
VBAで困っています・・・
エクセル2003なのですがユーザーフォームにコマンドボタンをおき クリックすると印刷プレビューが表示され印刷設定をしてから印刷という流れにしようと思っていたのですが、ボタンをクリックすると印刷プレビューが表示された状態のまま、操作不能になりました・・・。 ActiveWindow.SelectedSheets.PrintPreview と記述しただけなのです、どう対処すればいいかわからないので、 対処法や記述の補足または記述の間違いの指摘など教えていただけないでしょうか? お願いします。
質問日時: 2008/02/09 23:01 質問者: lucky_777
ベストアンサー
5
0
-
ExcelVBA初心者
いろいろとVBAサイトやQ&Aサイトを見ましたがあまりこれというのがなかったので質問させてください。 社員名簿を作成しているのですが、登録用フォームと検索用フォームの2つのユーザーフォームを使いデータを検索、入力ができるようにしたいのです。 登録用フォーム…ID、名前、生年月日、性別、住所を登録し、データ入力用シートへ転記する(登録用フォーム内には登録ボタンのほか、新規ボタン、データ訂正用ボタン、検索ボタンを配置する) 検索用フォーム…ID、名前、生年月日、性別、住所どれからでも絞込み検索ができるようにし、さらに絞り込んだリストを選び「選択して登録フォームへ」ボタンを押すと登録用フォームへジャンプし直接そのデータの書き換えができるようにしたい 形はできてきたのですがどうしてもわからず煮詰まってしまいました。 検索用フォームに配置したリストボックスの値のひとつを選び「選択して登録フォームへ」ボタンを押すと登録用フォームには飛ぶのですがどうやったらリストボックスで選択したデータがでてくるのかということです。 もしお分かりになられましたら教えてください。お願いします。
質問日時: 2008/02/16 00:21 質問者: blue_sky02
ベストアンサー
5
0
-
データのある行をカウント方法について(VBA)
マクロ初心者です。 名前,走行距離,使用燃料,燃費 Aさん,2500,120, Bさん,3100,150, Cさん,4200,190, … 上記のようなシートがあり、燃費の列は空欄となっています。 その中で、走行距離と使用燃料から燃費を算出するマクロを作ろうと思います。 しかし、運転手の人数は解析ごとに異なるので、人数をカウントして、その分だけ繰り返し計算をおこなう必要があります。 また、これらを縦棒グラフで表現させたいと考えております。 まとめると、以下の命令になるのかな? (1)運転手人数を数える (2)燃費計算の繰り返す(人数分) (3)アクティブセル内のデータを抽出し、グラフを作成(燃費) これらの処理をおこなうためには、どうマクロを作成すればよいのでしょうか? ご意見いただけると幸いです。 以上、よろしくお願いします。
質問日時: 2005/12/06 11:04 質問者: keisuke430
解決済
5
0
-
MoveNextの処理速度は?
お世話になります。 セレクトした結果(100000件)を一件ずつ違うテーブルにインサートする処理を行っているのですが、セレクトしたデータをMoveNextしていくとだんだん遅くなっていくような感じがします。MoveNextとはどのような処理なのでしょう か? またこの方法以外にSelectしたものを一軒ずつInsertするよい(早い)方法があれば教えてください。 Set oraDynaset = DATABASE.oraDynaset(セレクト文, 0&) Do Until oraDynaset.EOF insert処理... oraDynaset.MoveNext Loop
質問日時: 2002/07/25 17:50 質問者: takataka111
ベストアンサー
5
0
-
テキストデータの中の数字列を抽出したい
宜しくお願い致します。 テキストデータで漢字やひらがな かたかな 数字の混在している文章から 数字だけ 拾い出したいときに つかうVBAの関数のようなものは あるのでしょうか 例えば5桁の数字のみ 抽出したいなど 喩えば 文章中に 1145 123 11456 116699 14523 他漢字かな混じり文が あるとしまして 5桁の11456 と 14523のみ 見つけ出して 表示する方法は 御座いますか
質問日時: 2008/04/12 14:20 質問者: sushidokei
ベストアンサー
5
0
-
コマンドボタンでの自動計算マクロを組みたいのですが。
一か月分の売上を納品伝票ごとに合計を計算するマクロを作りたいのです。 以下のようなワークシートで (例1) コード 商品名 数量 単価 売上額 伝票合計 1111 商品A 3 1050 3150 1112 商品B 1 2100 2100 1113 商品C 2 840 1680 ↓ (例2) コード 商品名 数量 単価 売上額 伝票合計 1111 商品A 3 1050 3150 1112 商品B 1 2100 2100 1113 商品C 2 840 1680 6930←←※ ※を計算したいのです。 自分で開始の行を指定して(2列目)作ったのが下記のマクロです。 Sub Test() Dim i As Long ' カウンター Dim n As Long ' 計算開始の行 n =2 For i = n To n + 6 Step 1 If Cells(i + 1, 5) = "" Then ' ------------- 「合計」の計算 ' ------------- 合計 = Application.WorksheetFunction.Sum _ (Range(Cells(i - (i - n), 5), Cells(i, 5))) Range(Cells(i, 6), Cells(i, 6)).Value = 合計 Exit Sub End If Next i End Sub 納品伝票は1枚最大7行で、記載行数は一定ではありません。 必ず1枚ごとに合計を出します。 ですので、売上額が入力されていない行を探し、 その直前までの合計を出すという考えで作りました。 nは一定ではなく不規則に増えていきます。 nをどのように設定すればよいでしょうか? 初心者なりに色々と試行錯誤しているのですが上手くいきません。 どうか助けてください、お願い致します。 また、タイトルにはありませんが、 UserFormでのListBoxで複数列表示するよう設定している場合 列ごとに右寄せ左寄せを変更することはできるのでしょうか? 文字列と桁の違う数列があって見にくいのです。 できるなら方法も教えていただきたいです。 (リストボックス1) コード 商品名 単価 1111 商品A 1050 1112 商品B 2100 1113 商品C 840 1114 商品D 63 ↓ (リストボックス2) コード 商品名 単価 1111 商品A 1050 1112 商品B 2100 1113 商品C 840 ※ 1114 商品D 63 ※ 単価を右寄せしたいのです。 2週間ほど悩んでますがどうにもなりません。 何卒、宜しくお願い致します。
質問日時: 2008/04/28 23:41 質問者: cheesepie
ベストアンサー
5
0
-
カタカナ&数字だけを消したい
エクセル2003で、お客様のデータを管理しています。 その作業の過程で、お客様の住所を【都道府県・市区郡・町村・町以下】にセルごとに分ける作業があります。その作業自体は、県を県/・区を区/などに置換し、区切り位置で各セルに分けるようにしております。(わかりづらくてすいません…) その作業の際に、番地(数字)とマンション名(主にカタカナ)を消したいのですが、 現在は置換を使い地道にやっているのですが、VBAを使えばすぐだと聞きました。 ただ、私は簡単なマクロを組んで使うことはあるのですが、本格的にVBAを扱ったことがない初心者です。 その辺を踏まえた上で、どなたかお力を貸して頂けませんでしょうか? よろしくお願いします。 m(_ _)m
質問日時: 2008/05/08 16:20 質問者: jankee
ベストアンサー
5
0
-
日本語混じりのファイルをランダムアクセスで読みこむ場合
ファイルを1024バイトずつ読みこみ、その内容をソケットでホストへ送るというアプリがあります。 ファイルを「1024バイト読んで→送信」を繰り返すのですが、ファイルを読みこむところ(Get)で日本語が混じったときにエラーを生じます。 「レコード長が一致しません」というエラーメッセージです。 日本語がはいる桁数だけバイト数は減るためだと思いますが、ランダムアクセスで読みこむと場合の記述の仕方で、何とかならないものかと思案しています。 どなたかご教授ください。よろしくお願いします。 <プログラム記述例> Dim filenum As Integer Dim filename As String Dim buffer As String * 1024 filename = "e:\tmp\file.txt" filenum = FreeFile Open filename For Random Access Read As #filenum Len = 1024 Do While Not EOF(filenum) Get #filenum, , buffer Loop Close #filenum
質問日時: 2002/09/26 23:00 質問者: lily02
ベストアンサー
5
0
-
EXCELでSQL構文利用の方法
EXCEL-VBAで、WHERE文での、コンボボックスの値の取得方法がよく分かりません。回答集に似たような質問がありましたが、基礎が無い為、前に進めません。都合のよい事を申しますが教えてください。 Sub テスト2( ) Dim objcon As ADODB.Connection Dim objrs As ADODB.Recordset Dim i As Integer Set objcon = New ADODB.Connection Set objrs = New ADODB.Recordset objcon.Open _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & ThisWorkbook.Path & "\process.mdb" With objrs .ActiveConnection = objcon .Source = "select * from 002顧客名 where 県名 = Worksheets[sheet1!].ComboBox1.Text;" 'コンボボックスの値の取得ができません .Open End With For i = 1 To objrs.Fields.Count Cells(1, i).Value = objrs.Fields(i - 1).name Next Range("a30").CopyFromRecordset objrs objrs.Close objcon.Close End With これ以下で、変数宣言するには、何が足りないのか教えてください objcon.Open _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & ThisWorkbook.Path & "\process.mdb" Dim name As Variant name = Worksheets("sheet1").ComboBox1.Text With objrs .ActiveConnection = objcon .Source = "select * from 002顧客名 where 県名 = name;" .Open End With 以上、なにとぞご指示をお願いします。
質問日時: 2006/02/23 20:33 質問者: snobman3
ベストアンサー
5
0
-
[WSH|JS|VB] telnetコマンドの標準出力を受け取りたい
こんにちは。 Windows Scripting Host(WSH)でtelnetコマンドのオートパイロット(自動操縦)をしたいと思っています。 そこで、ログインプロンプトなどを待つ際、waitで時間で待つのではなく、「login:」という文字を待ってログインするようにしたいのですが、できるでしょうか?教えてください。 WSHをご存知ない場合は、VBの範囲でお答えいただければと思います。適用できる可能性がありますので。 なお、言語は、JScript,VBScriptどちらでも構いません。 よろしくお願い致します。
質問日時: 2002/11/15 17:22 質問者: noname#27709
ベストアンサー
5
0
-
エクセルでこんな事できるのでしょうか?
みなさん、こんにちわ! エクセルの計算式もしくはVBAどちらでも構いません。 以下の事が可能になるでしょうか? 運動会に使うデーター資料として A列は、走る子供のゼッケン番号です。 B列には順位。 A・B列は手入力します。 そしてB列の順位を他の表で使う為、C列・D列・E列に1位から3位までの順位を列単位に表示を変更しています。 このC・D・E列を計算式もしくはVBAで自動的にB列から抜き出す事が出来ないでしょうか? 9行目からC・D・E列の数字が変わっているのは1回目の競争と2回目の競争の為です。 また、運動会ですので毎回走る子供の人数が違います。 A B C D E 1 3 1 3 4 8 2 4 2 3 4 8 3 8 3 3 4 8 4 2 4 3 4 8 5 1 5 3 4 8 6 5 6 3 4 8 7 7 7 3 4 8 8 6 8 3 4 8 9 6 1 6 3 7 10 3 2 6 3 7 11 7 3 6 3 7 12 4 4 6 3 7 13 1 5 6 3 7 14 2 6 6 3 7 15 5 7 6 3 7
質問日時: 2008/06/26 15:16 質問者: noname#63196
ベストアンサー
5
0
-
VB4.EXE 2つで 1つのプリンタポートを制御するには?
現在は1つのプログラムで 1つのプリンタポートを制御してます。 プリンタポートに信号線が3本 制御方法は以下の通り port = &H378 '**ポート番号の設定** outdata = 0 If Counter_SIGNAL1 > 0 Then outdata = outdata + 1 If Counter_SIGNAL2 > 0 Then outdata = outdata + 2 If Counter_SIGNAL3 > 0 Then outdata = outdata + 4 outb port, outdata これを 2つのプログラムで 1つのプリンタポートの制御に変更。 プリンタポートに信号線が6本 2つ目のプログラムは どう変えればいいでしょうか?
質問日時: 2006/04/13 19:49 質問者: COS_BUSTER
ベストアンサー
5
0
-
文字比較
VB習って2週間です。ソート比較というんでしょうか 今 Dim newLedger(100) as string Dim oldLedger(100) as string が、ありそれぞれ文字が入っています。 newLedgerの配列に格納されている文字を oldLedgerの配列に格納されている文字に 一つづつ比較し、同じ文字があればnum変数に1追加 なければ1減少というプログラムを作成しているのですが、作りかた教えていただけないでしょうか?
質問日時: 2003/01/10 12:43 質問者: jones0901
ベストアンサー
5
0
-
?進数の作り方
Excelでシート保護をしたパスワードを忘れてしまいました。 パスワードは、アルファベットを使っているのだけは覚えているのですが・・・ そこで、VBAでアルファベット26文字で26進数みたいなものを使って、Aから順番に解除していこうと思うのですが、その26進数の作り方がいまいちうまくいきません。桁数は8桁ぐらいだと思うのですが、どなたかお教え下さい。
質問日時: 2003/01/15 16:15 質問者: tt_2002
ベストアンサー
5
0
-
ベストアンサー
5
0
-
サブルーチンにオブジェクト名を引数で渡したい
度々お世話になっております。 基本的なことだとは思うのですが,うまく探せませんでしたので質問させてください。 現在,次のようなプログラムをVB6.pro環境で作っています。 ・ボタン(command1)を押す→ボタンの色が赤に変わる ソースは以下の通りです。 Private Sub Command1_Click() Call ColorChange(Command1) End Sub Sub ColorChange(Obj As Object) Obj.BackColor = vbRed End Sub 以上のプログラムでは,サブルーチンを呼び出す際に オブジェクト名(Command1)をダイレクトに入力していますが, これを自動で入力する関数はありますでしょうか。 Form1ならば,Meのようなものです。 よろしくお願いいたします。
質問日時: 2006/06/19 15:25 質問者: Caryo_t
ベストアンサー
5
0
-
文字のリアルタイム検索がしたいんです…
質問を見てくださってありがとうございます。 少し説明が長いのですがどうぞ見てやって下さい。 さっそく質問内容なのですが…。 私がしたいと思っているのは文字列のリアルタイム検索です。まず、それが具体的にどういうことなのかを説明します。 あるFORM1にテキストボックスと一覧表示系コントロール(私が使っているのはTDBGridというコントロールです…)を配置しています。その一覧系コントロールには名前とそのフリガナが表示されます。その状態でテキストボックスにフリガナを入力して沢山あるリストの中から該当する名前(フリガナ)を検索しカレント行にする。というものなのですが、この時"リアルタイム検索"というのがどういうことかといいますと…。 一覧系コントロールに以下のような内容が表示されているとします。 -------------------- 名前 フリガナ -------------------- 相田 アイダ 飯田 イイダ 石狩 イシカリ 石川 イシカワ 渡 ワタリ -------------------- この中の"イシカワ"を検索する時…、 「イ」を入力すると飯田さんの行がカレント行になり 続いて「シ」を入力すると石狩さんの行がカレント行る。 更に「カ」を入力して「ワ」を入力すると石川さんの行がカレント行になるというものです。 これは入力した文字を一文字づつ認識してやり、一覧から検索してきて一番初めにヒットしたものを探し出してくるのですが、ここで問題となるのが入力した文字を一文字づつ認識させるということだと思うんですね。 実際は、入力しても一度[Enter]キーを押すまで、変換待ちになってしまいますから…。 ホントにどうしたらいいんでしょう…。 ずっと考えているのですが分からなくて困っています、わからないけどこうしたらどうかな??なんて回答でもいただけたら嬉しいのでどうぞ宜しくお願いしますm(__)m
質問日時: 2003/05/24 19:36 質問者: ryuji0202
ベストアンサー
5
0
-
VB超初心者ですみません。
急いでいるので質問させて頂きました。 StrSPathtという変数には "F\ツール\AAA\TEST\" とい値がセットされているとします。 そのうちの "TEST"という文字列のみ別の変数に セットしたい場合どのようにしたらよいでしょうか? (必ずディレクトリの一番下位階層のフォルダ名を取得) すみませんよろしくお願いいたします。
質問日時: 2006/09/07 09:48 質問者: rariko
ベストアンサー
5
0
-
VBとACCESSの境目は?
みなさんがアプリケーションを開発するとき、 もし、VBかACCESSしか使えないとなると どちらを選びますか? また、そのときの判断基準を教えてください。 たとえばこういうことはVBで、こういうことはACCESSで・・・みたいな事があれば教えてください。 よろしくお願いいたします。
質問日時: 2003/11/14 12:02 質問者: tmdead
ベストアンサー
5
0
-
VBA
いつもお世話になります。 VBAを走らせると、違うVBAの中味を(プログラムを)変更させる事は可能でしょうか? 可能であればやり方を教えてください。宜しくお願いします。
質問日時: 2003/11/28 19:42 質問者: keiri2002
ベストアンサー
5
0
-
DLLのパス取得
WindowsXP+OFFICE2000環境です。 ファイルの構成は同じホルダの中に AA.xls、BB.DLL、CC.iniになっています。 AA.xEXCELシート上にボタンをつけて、ボタンを押すと、DLLを呼んでいます。 このDLLの中ではDllの位置のINIファイルを読んでいます。 Dllの中でfinder.FindFile("CC.ini"); を用いて呼んでいますが、INIファイルの検出ができません。なぜでしょうか。
質問日時: 2004/01/10 21:24 質問者: jaekuk
ベストアンサー
5
0
-
テキストの暗号化
ソフトウェアの情報(インストールした日付・パスワード等)をテキストに書き込む時に暗号化してカキコむように しようと思います。しかし、字を3文字ずらす・アスキー コードに変換するなどでは、簡単に破られるのではないかと 思います。フリーのソフトでも、文字化けのような 状態のテキストファイルなどをみますが、あのような 複雑な暗号はどのように作られるのでしょうか? 「暗号」などで検索してみたのですが、そのやり方については、詳しくは記載されてはいませんでした。(暗号化を詳しくかいたら暗号にならないですよね)しかし、例でこういうやり方があるんだ、というのを是非教えて下さい。 また、このよう情報を書き込むのは通常テキストファイル などでよいのでしょうか?レジストリでしょうか? レジストリなどに書き込んでいるソフトなども見られますが、一般的にはどこに書き込むものなのでしょうか?
質問日時: 2004/03/09 16:04 質問者: element
解決済
5
0
-
ベストアンサー
5
1
-
空白の認識
VB6.0で開発しています。 EXCELのD2のセルが空白の時の処理をしたいのですがうまくいきません。 If exl.Cells(2, 4).Value = "" Then Ret = MsgBox("棚卸数が入力されていません", vbInformation + vbOKOnly, Me.Caption) End If 上記のように書くと空白時も空白では無いときもメッセージが出てしまいます。 何故でしょうか?教えてください。
質問日時: 2007/04/09 13:52 質問者: kinoko731
解決済
5
0
-
重複しない乱数整数を発生させる。
重複しない乱数整数を発生させるため、次のような構文を作りましたが、うまくいきません。 アドバイスをお願いします。 Sub RRR() Dim A, B, C, D, E As Integer A = 1 B = 10 For D = A To B Randomize E = Int((B - A + 1) * Rnd + A) Cells(D, 1) = E Next D End Sub
質問日時: 2004/12/09 11:37 質問者: YON56
ベストアンサー
5
0
-
「定数式が必要です。」って何のこと?
ExcelVBAで作成したマクロでデータ抽出を行なっていたのですが、 数日前に動作していたマクロが、突然に、 「定数式が必要です」というエラーが出てきて動かなくなりました。 VBAの仕様が変わったのでしょうか? ★エラーの発生したモジュール Option Explicit Dim MailCc As String Sub Mailer() (中略) MailTo = Cells(RW_TO, 2).Text ' 宛先 → MailCc = Cells(RW_CC, 2).Text ' CC (以下略) ★同一プロジェクトの別モジュール Global Const RW_CC = 18
質問日時: 2007/05/23 11:38 質問者: hatsuzo
ベストアンサー
5
0
-
ExcelでTelnetを動かしたい
長々と書いて申し訳ありませんが、困っています。 使用環境はWindows 2000です。開発環境というかexcel2000のVBAでコーディングしています。 で問題点が2点ありまして、 (1)EnumWindowsの所で止まるのですが、AddressOf演算子はexcel2000でも使えますよね。 コンパイルエラー Sub、Function、または Property が必要です というエラーで止まります。 何か使用方法が間違っていますでしょうか? (2)テキストボックスを2つ用意してあるので、それを引数としてtelnetでつなぐパソコンを 選べるようにしたいのですが引数でうまく渡せません(現状はコメントアウトしている部分です)。 Private Sub CommandButton1_Click() box1 = TextBox1 box2 = TextBox2 'ipnum = "telnet xxx.xxx."box1"."box2 '待ち時間処理用の時刻の変数 newHour = Hour(Now()) newMinute = Minute(Now()) Shell "cmd.exe" lRet = Shell("C:\WINNT\system32\cmd.exe", vbNormalFocus) newSecond = Second(Now()) + 5 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Call EnumWindows(AddressOf Rekkyo, 0) lRet = FindWindow(vbNullString, "C:\WINDOWS\system32\cmd.exe") Call SendMessage(lRet, WM_SYSCOMMAND, WM_MAXIMIZE, ByVal 0&) Call PostMessageStrings("telnet xxx.xxx.xxx.xxx") 'Call PostMessageStrings(ipnum) Call PostMessageStrings("xxx.bat") Call PostMessageStrings("exit") Call PostMessageStrings("exit") End Sub Public Function PostMessageStrings(strPost As String) Dim i As Integer '1文字ずつ分解して送信 For i = 1 To Len(strPost) Call PostMessage(lRet, &H102, Asc(Mid(strPost, i, 1)), 0) Next '送信後に改行コードを送信 Call PostMessage(lRet, &H102, 13, 0) End Function 標準モジュールに、こんな感じでAPI関数を記述してあります。 他のAPIも記述してありますが、割愛してあります。 'ウィンドウのハンドルの取得 Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long 誰か教えてください。よろしくお願いします。
質問日時: 2007/07/09 21:04 質問者: yossy_99
ベストアンサー
5
0
-
セルの計算機能を持つ関数、OCX
AND OR () < > 等が含まれたの計算式を自動で計算してくれる関数や、コンポーネントを探しています。 実際にはセルを表示したりはせず計算式を引数に渡して結果だけ返ってくればOKです。 計算式は文字列で渡し255文字までの計算式が使えるものが良いです。 もし情報等ございましたらご教授頂けませんでしょうか? よろしくお願いします。
質問日時: 2001/05/27 15:15 質問者: noname#2503
解決済
5
0
-
Xpでのエクセルアドインの登録場所
自作の関数(ユーザーファンクション)を、windows98で作成し、アドインとしてMyDocumentsの下においていました。これをたとえば、UserFUNC.xlaとします。 これを引用する多数のブックがあるのですが、今回Xpに移行することになり、これUserFUNC.xlaを何処におくべきか分からず困っています。種々試しましたが、98から移行したブックを開くと、関数名が見つからない#NAME#?のエラーになります。たとえば、関数FUNC1は、'C:\Mydocuments\UseFUNC.xla'!FUNC1 のようになっているので、これを!以前を削除して、FUNC1 と書き直すとちゃんと計算してくれます。しかし、すべての引用を書き直すことは不可能です。正しい方法を教えてください。
質問日時: 2005/05/24 22:40 質問者: duluth#2
ベストアンサー
5
0
-
プログラミングについて・・・
今学校でやっているのですが、まったくさっぱりなんです。 ベーシックの時点ですでにこんなにわからないのはかなりまずいんですが・・・ それで、「なにかテーマを見つけて自分でプログラミングする」という課題がでたのですが、この夏休みの間にどうにかやらなければいけないのです。 そこで詳しく書いてあるテキスト、お勧めなどあれば教えてください。
質問日時: 2001/07/10 19:24 質問者: cin
ベストアンサー
5
0
-
VBA : エクセルの列を5列追加したいのですが・・・。
VBAで、エクセルの列を5列追加したいのですが、うまくいく場合といかない場合があります。うまくいかない場合、エラーのダイアログボックスに 「オブジェクトシートからはみ出します。その操作ができません。」と・・・。 できる場合とできない場合の原因は特定できません。下のコードで列を追加していますが、やはりここでエラーが生じてしまいます。よろしければ助言を頂けたらと思います。 Range("A:E").Select Selection.Insert
質問日時: 2005/06/17 19:12 質問者: e-l
ベストアンサー
5
0
-
よくわかってないので、漠然とした質問になるんですが。。。。
VB6にて社内の生産管理のソフトを作れと言われて、その仕様を渡されたのですが。まず、メインメニューに材料指定、パーツ入力、リスト閲覧、って感じのコマンドがあります。材料フォームには、材料名をコンボボックスに入れておいて、選択させました。選択すろと、サイズですとかがテキストボックスに表示されます。で、確定すると、その情報をmdbに渡します。次に似たような感じで、パーツは、パーツ名を入力して、確定で、同じくmdbに渡します。問題は、リスト閲覧なんですが、入力した情報を一覧で表示させ、入力したパーツ名など、実際にあるものと情報が間違っていたら、(実際にあるものとは、CADで作ったデータなのですが、そこのフォルダを見にいかせてです。)そこを強調表示させ、さらに、一番左にチェックボックスをつけておいて、その行を削除させたりとしなければならないのですが、(ようは、そのパーツ名のものはあるけど、サイズが違うよとか、材料が違うよってことです。)VB6で作成可能でしょうか?また、できるとしたら、最も簡単な方法などありましたら、教えていただきたいです。初心者で、うまく説明できなくてすいません<(_ _)>
質問日時: 2005/07/14 14:02 質問者: satoshi777
ベストアンサー
5
0
-
グリッドについて,エクセルのアドインについて
1)グリッド上で文字を直接入力したいのですが,どのようにすればよいのでしょうか。具体的には,エクセルのようにグリッド上をクリックしたら,そのグリッドがテキスト入力モードになるような方法を教えて頂きたいと思います。 2)MSFlexGridに描かれる垂直スクロールバーの,幅の値を得る方法を教えてください。(スクロールバーを表示させるとグリッドの右端が切れてしまうため) 3)エクセルのソルバーアドインを,VBから使用することはできますか? 複雑な回帰分析を行わせようと考えておりますので,できればエクセルのアドインをそのまま使えれば…,と考えております。 以上,よろしくお願いいたします。
質問日時: 2001/11/09 02:13 質問者: 38endoh
ベストアンサー
5
0
-
数値のパック10進数の変換について(vb6)
こんにちは 現在、vb6で開発を行っております。 早速ですが、困っていることがあります。 データベースを読み込んで、その値をテキストファイルに出力しているのですが、ある項目(数値)だけパック10進数に変換して出力しなければなりません。 いろいろなサイトを調べた結果、 例:数値で432 は "0100001100101100" のように変換できることがわかりました。しかし、この時点ではただの文字列のためこの値をテキストファイルに出力しても意味がありません。パック10進数のコード(?)としてテキストファイルに出力するにはこの後、どのようにすればいいのでしょうか。 ご存じの方がいらっしゃれば、ご教授願えないでしょうか?
質問日時: 2008/01/22 15:58 質問者: beginner12
解決済
5
0
-
CSVの読み込みについて
いつもお世話になります。 TextBox1に品物のコードを入れて、Label1に価格を表示するという簡単そうなものです。 品物のコードはCSVファイルのItem(1)から取得します。ところが存在しないコードを入力すると、 追加情報 : インデックスが配列の境界外です というエラーが出ます。下記ソースに何を追加すればよろしいのでしょうか?ご教授下さい。よろしくお願い致します。 Dim Reader As New IO.StreamReader("C:\XXX.csv", System.Text.Encoding.GetEncoding("Shift-JIS")) Dim Items() As String Dim Line As String = Reader.ReadLine Dim Code As String 'コード Dim kakaku As String '価格 Do Until IsNothing(Line) Items = Line.Split(",") Code = Items(1) If HinCode = TextBox1.Text Then kakaku = Items(2) Label1.Text = kakaku Exit Sub End If Line = Reader.ReadLine Loop Reader.Close()
質問日時: 2005/11/30 21:54 質問者: taiyo99
ベストアンサー
5
0
-
ちょ~~~~~初心者ものです、visual Basic について
今から言語について学ぼうと思います。しかし‘Visual Basic’についてあまりにも知識がないため質問します。 どうしたら'visual Basic'とは、はじめられるのですか?教えてください。またなにかソフトを買わなければいけないのですか? Visual Basicの初心者サイトで一通り読んでみたのですがさっぱりわかりません、教えてください。 OSはWINDOUSU MEです。やはりMS-DOSというやつを使うのですか?
質問日時: 2002/06/27 00:50 質問者: kimaira
ベストアンサー
5
0
-
ユーザーフォームのインスタンス
こんにちは。 早速質問させていただきます。 ExcelVBAでプログラムを組んでいて、 そのExcelシート上に同じUserFormを動かすためのコマンドボタンが 数十個あります。 ちなみに、UserFormの中身はチェックボックスです。 数十個のコマンドボタンそれぞれを押下後、 UserFormでチェックした項目を再度表示させたいのですが、 それぞれのコマンドボタンから同じUserFormを呼んでいるため、 UserForm.Hide では、他のコマンドボタンでチェックした内容が 出力されてしまいます。 どのようにしたら、UserFormを複数作らずに UserFormの内容を保持できるでしょうか。 回答よろしくお願いします。
質問日時: 2005/12/13 11:45 質問者: marimo-
ベストアンサー
5
0
-
ちょ~初心者です!!
仕事の都合で、急にVBをやることになったんですが、何処から始めていいのかわかりません。VBの本を買うにしろ、ソフトを揃えるにしろ、どんな物がいいのか全く判んないんです。判りやすく、簡単に出来るような書籍等を誰か教えてください。
質問日時: 2002/07/02 11:42 質問者: taka0411
解決済
5
0
-
Excel:文字列の比較:大文字と小文字の区別
Excel(2002)のワークシートの数式で文字列を比較するとき 半角英字の大文字と小文字が区別されないようなのですが、 区別するためにはどうしたらよいのでしょうか。 ※任意のセルで ="a"="A" とすると TRUE が帰ってくる。Countif などの動作も同様。 ※VBAでは次のコードを実行すると FALSE が表示される。 Sub compare() If "a" = "A" Then MsgBox "TRUE" Else MsgBox "FALSE" End If End Sub カテゴリ違いかもしれません。とすれば申し訳ありません。よろしくおねがいします。
質問日時: 2005/12/29 14:54 質問者: otasuke009
ベストアンサー
5
0
-
SQLで 更新できない
ACCESSでSQLを使っています。 その中で 更新(UPDATE)できないものがあります。 (1) SQLでは 1行を複数に分けると上手くいったことあります。 そういうルールは あるのでしょうか? VB上 (2)実行したい例文は strSQL="UPDATE table SET A = B WHERE C=2 " この時、Bに ‘シングルクォーテーション? を加えると Bが 更新されるのですが 実際は Bは変数なので Bの値をAに更新したいのです。 けれど エラーになってしまいます。 1回 フォームのテキストBOXに入れてから A= Me.BB のようにしたのですが ダメでした。 部分的にしか 表示していないのですが 何か気づく点があればお願いします。
質問日時: 2002/08/08 23:40 質問者: cdma
ベストアンサー
5
0
-
VBを介したデータベース閲覧についての質問
VB初心者なのですが、学校の課題でVBを使い簡単なクイズゲームを作ろうと思っています。 クイズは、乱数を使ってランダムに問題を表示させる形式を取っており、マイクロソフトのアクセスで作ったデータベースから問題のデータを取得するというやり方にしようと思っています。 そこで、いざプログラミングしてみたところ、データベースを読み込み、乱数を記述するところまでは上手くいったのですが、 SQLCm.CommandText = SELECT (項目の名前) FORM (クエリー(?)の名前) WHERE (問題番号を記述した項目の名前) = (乱数の名前) と記述すると、なぜか Cn.Open() Value = SQLCm.ExecuteScalar Cn.Close() の、二行目でエラー(例外だったかもしれません)が発生し、無理矢理起動してみても、指定したラベルに何も表示されません。 先生に見ていただいたところ、変数を定義したり、データベースにアクセスできていないというわけではないとのことでした。実際、乱数のところを普通の数字に変えると、データベースに記述されている通りの問題が表示されました。 どなたか、アドバイスをいただけませんでしょうか? また、原因を教えていただけると助かります。 初歩的な質問をして申し訳ありません。沢山のサイトや過去の質問を見てみたのですが、答えにたどり着けませんでした。 是非、ご指南の方をよろしくお願いします。
質問日時: 2008/04/23 19:25 質問者: salere
ベストアンサー
5
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 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報