回答数
気になる
-
VB と VB NET
素人です。 VisualBasicを基礎から学ぼうと思っています。オークションでも15000円くらいするようですが、何か他に安く入手する方法はないですか?評価版とか・・・。 あるいは、まずはじめはExcelVBA上で勉強しようかとも考えています。何か良いアドバイスがあれば教えてください。 また、VB6とVBNETとはどのように違うものなのですか?やはりVB6から始めた方が良いですか? Microsoftで、VBExpress2005なるもののβ盤が無料配布されているようですが、これは全然違う代物なのでしょうか? 以上よろしくお願いします。
質問日時: 2005/01/30 10:27 質問者: kamoshika333
ベストアンサー
7
0
-
解決済
7
0
-
VBAで作れるかな?
エクセルVBAで、 スタートボタンを押すと値の入ってるセルを自動的に移動していって、ストップボタンを押すと止まる。 そんなルーレットみたいなものって作れますか???
質問日時: 2005/07/22 13:52 質問者: de_la_monkey
ベストアンサー
7
0
-
FTP対応のアプリケーション
INETコントロールを使って、サーバとファイルの送受信をするアプリを作りたいのですが、基本的なところでつまづいています。 サンプルプログラムを見つけたので試してみているのですが。 以下。 Private Sub cmdDownload_Click() Dim GetBuf() As Byte Dim FileNum As Integer GetBuf() = Inet.OpenURL(txtURL.Text, icByteArray) FileNum = FreeFile Open txtSavePath.Text For Binary Access Write As FileNum Put #FileNum, , GetBuf() Close #FileNum MsgBox "ダウンロード終了" End Sub ここで、txtURL.Text に何を記述したらいいのか、はっきり分かりません。 サーバー名にファイルのあるディレクトリを付けた形、 ftp://servername/home/tmp/test.txt サーバーのIPアドレスにファイルのあるディレクトリを付けた形、 ftp://172.20.1.17/home/tmp/test.txt を試してみたのですが、うまくダウンロードできません。 目的のプログラムは Executeメソッドを使ってファイルの送受信をしたいのですが、どちらにしてもURLの記述ができないとダメなのですよね? どうぞ、よろしくお願いいたします。
質問日時: 2002/03/05 08:20 質問者: lily02
ベストアンサー
7
0
-
テキストの読込について
あいうえお かきくけこ さしすせそ ↑のような中身のテキストファイルを読み込んで、 あいうえおかきくけこさしすせそ ↑のように、改行をなくして新規テキストに出力する プログラムを作成中なのですが、上手くいかず 困っています。 改行を無視した取り込みは出来るのでしょうか? もしくは、LineInput等で読み込んだ後、 改行を取り除くような処理をするのでしょうか? 下記は、現在まで作ったプログラムなのですが、 これだと、改行も同時に取り込んでしまっています。 Private Sub Command1_Click() Dim sData As String Dim FileName As String CommonDialog1.Filter = "テキスト|*.txt|全てのファイル|*.*" CommonDialog1.ShowOpen FileName = CommonDialog1.FileName Open FileName For Input As #1 Do Until EOF(1) Line Input #1, sData Loop Close #1 環境は、WindowsXP、VB6.0エンタープライズです。 以上、宜しくお願い致します<(_ _)>
質問日時: 2006/05/21 20:31 質問者: noname#17655
ベストアンサー
7
0
-
IStream / VBA
VBA(Excel)で、IStream を使いたいのですが、どうしたらよいのでしょうか? Variant(IUnknown?)を IStream にして OleLoadPicture() を通して IPictureDisp に戻したいです。 こんな感じです: Public Sub foo(v As Variant) Dim s As IStream ' ← × Dim p As IPictureDisp Dim r As Long Set s = v r = OleLoadPicture(s, 0, True, IID_IPictureDisp, p) Debug.Assert r = 0 ...
質問日時: 2003/03/28 03:10 質問者: jmh
ベストアンサー
7
0
-
iniファイルに追記がしたいです。
いつもお世話になっています。 iniファイルの中のあるデータをGetPrivateProfileStringで調べて、その中になければデータを 追記したいです。 WritePrivateProfileStringの場合、iniファイルにあるデータが追記したい内容がないだけで、他のデータが 入っていても、上書きされてしまうんですよね? もしその中に他のデータが入っていた場合は、追記をしたいのですが、それができるAPI関数って 何かありますか? iniファイルに関して、ネットで調べていると、WritePrivateProfileStringなどしか出てこなくて・・・。 もしできないようでしたら、追記できるような何かいいアイディアがあれば・・・と思っています。 すみませんが、よろしくお願いします。 わかりづらい文章で申し訳ありません。
質問日時: 2003/04/25 17:35 質問者: hema123
ベストアンサー
7
0
-
セルの場所
エクセルVBAにて、 指定した列から「検索」を使って該当のセルを選び出し、(1)そのセルの行をコピーして別シートに貼り付けるマクロを組みたいのですが、(1)以降の処理がどうしても組めません。officeは2000を使っています。 宜しくお願いします。
質問日時: 2004/08/12 15:05 質問者: rie3816
ベストアンサー
7
0
-
テキストファイルの入力について教えてください。
可変長レコードのテキストファイルを1レコードずつ読み込んで処理をしたいと思っています。 改行コードで区切られているので、line inputで読み込もうとしていますがうまくいきません。 テスト用に入力ファイルを小さくするとうまくいくのですが、目的のファイル(180MB)を読み込もうとするとフリーズしたような状態になってしまいます。 どうすればよいかお知恵を拝借できないでしょうか。 EXCEL2003 VBAです。 よろしくお願いいたします。
質問日時: 2005/05/02 19:08 質問者: hideto_urata
ベストアンサー
7
0
-
form1 から form2 へのデータの受け渡し方
まだまだ勉強中の初心者なのですが、お願いします。 今同プロジェクト内の form1 から form2 へデータを渡そうとしているのですが、 'form1 '------------------------------- Private Sub Command2_Click() Form2.m_Get.ites = 1 Form2.Show (1) End Sub 'form2 '-------------------------------- Public m_iGet As TES 'Module1 '-------------------------------- Type TES ites As Integer End Type 理想はこのようにform2の構造体へform1から値を代入したいのですが。 コンパイルエラー 定数、固定長文字列、配列、ユーザー定義型および Declareステートメントはオブジェクトモジュールの パブリックメンバとして使用できません。 ということはこの渡し方は無理なんですね。 配列も無理ですね。 なるべくグローバル変数でのやり取りはしたくはないのですが、、、。 何か他にいい方法ありますか? よろしくお願いします。
質問日時: 2005/08/10 00:22 質問者: anan23
ベストアンサー
7
0
-
配列入れ替えの効率的方法は
VBでグローバル変数配列を3000とっています。 格納されているデータを、1つづつずらして代入し直しをやりたいのですが 配列添え字1のデータを配列添え字0にというふうに3000回のループで 処理する以外に良い方法はないでしょうか 例 for i=0 to 2999 a[i]=a[i+1]
質問日時: 2002/10/01 09:15 質問者: mehiro2
ベストアンサー
7
0
-
EXCEL VBAでの日付の表示について
EXCEL2003のVBAを始めたばかりなので、初歩的なことですが、分かる方ぜひ教えてください。 フォーム上に、『取得年月日』という項目をつくり、表示を"H○○.○○.○○"としたいのですが、どのように作成をしたらよいのでしょうか? ちなみに、その日付を使って更新をしたり、計算をしたりもします。 よろしくお願いします。
質問日時: 2006/04/12 11:30 質問者: hara88
ベストアンサー
7
0
-
ActiveX DLL と ActiveXコントロールの違い
VB6で開発をしています。 複数のEXEファイルを使用するシステムです。 各EXEファイルの共通のモジュールをライブラリ化しようと思っています。 これは [ActiveX DLL] 又は、[ActiveXコントロール] のどちらでも実現できると思うんですが、どちらで作成した方が良いのでしょうか? それぞれのメリット、デミリットを教えて下さい。
質問日時: 2003/03/07 14:30 質問者: reshop
ベストアンサー
7
0
-
VBの比較
VBの新旧のコードを比較したいのですが、どうすればよろしいでしょうか?。DOSコマンド(FC)ではさっぱりわかりません。どなたかご存知の方教えて下さい。
質問日時: 2003/06/25 10:52 質問者: hfc
ベストアンサー
7
0
-
エクセルのマクロでコメントを作成
よろしくお願いします。 あるセルに文字列が記入されています。 この文字列を別のセルのコメントとして入力(コピー)したいのですが、やり方がわかりません。 ご存知の方、教えてください。 よろしくお願いします。
質問日時: 2004/01/12 17:54 質問者: tarobei
ベストアンサー
7
1
-
VBAで列の比較をする
列Aを基準として、列Aと列Bを比較して異なっているセルがあればセルを赤くしたいプログラムを作りたいのですが、スキルが無い為にどのように作ってよいのかわかりません。 すみませんが、アドバイスをお願いいたします。
質問日時: 2005/04/18 11:23 質問者: arima8874
ベストアンサー
7
0
-
VB6,論理演算子Orの使い方がわからない
以下のようなコードを書きました。 If a = 0 Or 6 Then msgbox a Else msgbox "a" End If 期待しているのは、変数aの値が0か6のときにだけ変数aを表示するというものです。 しかし実際にはたとえばaの値が2のときでも変数aが表示されてしまいます。 ひょっとしてOrの使い方を間違っているのでしょうか? よろしくお願いします。
質問日時: 2005/11/15 09:57 質問者: tochanx
ベストアンサー
7
0
-
VBEのコードを載せました。何処が間違っているのですか。教えてくださいよろしくお願いいたします。
印刷用紙のひな形がA4の紙のなかに3段になっています。 「sheet4月」は顧客名(B行)、担当者名、他に月の売上金等が並んでい ます。顧客名の横の空白のA行に数字の1を入れて、顧客列を選択しま す。それを「sheet合計請求書」に各項目をあてはめて印刷したいので す。 下記のVBEのコードでは「sheet4月」で選択の顧客が「合計請求書」に 内容が移ると3段とも同じ内容、名前になります。 例えば上から1段目「H商事」、2段目「H商事」、3段目「H商事」といっ た具合です。 それを、3段とも違う顧客の内容にしたいのです。 例えば上から1段目、「H商事」、2段目「K機械」、3段目「V貨物」のよ うにしたいのですがわかりません。数字の1をいれて選択する数は約40 社程度です。 ご指導お願いいたします。 Sub 合計請求書印刷() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("4月") Set Sheet2 = ThisWorkbook.Worksheets("合計請求書") Dim baseRow As Long ' 7行目から、2列目(顧客名)が空になるまでループ baseRow = 7 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目(A列)に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' 1段目 Sheet2.Range("W8").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B15").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C15").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W15").Value = Sheet1.Cells(baseRow, 5).Value ' 2段目 baseRow = baseRow + 1 Sheet2.Range("W25").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B32").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C32").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W32").Value = Sheet1.Cells(baseRow, 5).Value '3段目 baseRow = baseRow + 1 Sheet2.Range("W42").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("B49").Value = Sheet1.Cells(baseRow, 8).Value Sheet2.Range("C49").Value = Sheet1.Cells(baseRow, 10).Value Sheet2.Range("W49").Value = Sheet1.Cells(baseRow, 5).Value ' 印刷プレビュー Sheet2.PrintPreview End If baseRow = baseRow Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub よろしくお願いいたします。
質問日時: 2008/03/18 20:43 質問者: -kamekame-
ベストアンサー
7
0
-
エクセルを使って、トレーニング名に応じて画像を自動切換表示させたい
Sheet1に、トレーニング名、説明文、画像(jpgファイル名)等の項目を作り、100件以上のレコードが入っている表があります。 Sheet2に、上記の3レコード(=3トレーニング)分のデータをA4用紙に見やすく配置したフォーム(?)を作り、VLOOKUP関数を使って、データを表示させるようにしました。(つまりAトレーニングのトレーニング番号を選ぶとAトレーニングのデータが、Bトレーニングのトレーニング番号を選ぶとBトレーニングのデータが表示) この時、一つ目のレコードについては画像を表示させることができたのですが、2つめ以降のレコードについては画像を表示させることができません。 以下のコードを作成しています。 Private Sub Worksheet_Change(ByVal Target As Range) Dim fName As String, pict As Shape On Error GoTo ER: If Target.Address <> "$C$3" Then Exit Sub fName = ThisWorkbook.Path & "\Image\" & Target.Offset(0, 1).Text If Dir(fName) = "" Then fName = ThisWorkbook.Path & "\Image\NoImage.jpg" End If With ActiveSheet For Each pict In .Shapes If pict.TopLeftCell.Address = "$E$3" Then pict.Delete Exit For End If Next pict Set pict = .Shapes.AddPicture(fName, msoTrue, msoFalse, _ .Range("E3").Left, .Range("E3").Top, 160, 120) End With If Target.Address <> "$C$15" Then Exit Sub fName = ThisWorkbook.Path & "\Image\" & Target.Offset(0, 1).Text If Dir(fName) = "" Then fName = ThisWorkbook.Path & "\Image\NoImage.jpg" End If With ActiveSheet For Each pict In .Shapes If pict.TopLeftCell.Address = "$E$15" Then pict.Delete Exit For End If Next pict Set pict = .Shapes.AddPicture(fName, msoTrue, msoFalse, _ .Range("E15").Left, .Range("E15").Top, 160, 120) End With If Target.Address <> "$C$27" Then Exit Sub fName = ThisWorkbook.Path & "\Image\" & Target.Offset(0, 1).Text If Dir(fName) = "" Then fName = ThisWorkbook.Path & "\Image\NoImage.jpg" End If With ActiveSheet For Each pict In .Shapes If pict.TopLeftCell.Address = "$E$27" Then pict.Delete Exit For End If Next pict Set pict = .Shapes.AddPicture(fName, msoTrue, msoFalse, _ .Range("E27").Left, .Range("E27").Top, 160, 120) End With ER: End Sub ハイパーリンクのように他に飛んで表示させるのではなく、エクセルのその場所に表示させたいと思います。(3トレーニング分をA4用紙で印刷したいと思います) ちなみに画像は、エクセルファイルの置いてある下(サブフォルダ)にまとめて入れております。宜しくお願い致します。
質問日時: 2008/05/21 02:44 質問者: ykdream
ベストアンサー
7
1
-
VBAについて
保護をしているsheetにおいて、保護を解除してコピーをしてまた保護をする マクロを組みたくてマクロの記録でして見て其れを記入したのですが 実行時エラー'424'オブジェクトが必要です。 となります、 どのように記入したら良いでしょうか。 Activsheet.unprotect と記入しています。
質問日時: 2002/11/18 08:39 質問者: hoshi7777
ベストアンサー
7
0
-
エクセル VBAの作成料の相場
私は、会社でパソコンの管理を任されています。 独学でエクセルのVBAを覚え、会社内でいろいろなものを作りました。 が、いまいち評価があいまいです。 そこで質問です。例えば、私が社内で作ったものを例にあげると、仕入から 売上(納品書の発行、請求書の発行)そいて在庫管理までのVBAを作り ました。 これをどこかに依頼して作って頂いた場合、いくらぐらいかかるものなのでしょうか?
質問日時: 2002/12/02 14:30 質問者: ROLEX
ベストアンサー
7
0
-
四捨五入するときの関数は
金額データで、74352を千円未満を四捨五入するときの、データ定義、使用関数を教え願いたい。 (結果は、74000としたい。)
質問日時: 2004/03/26 15:41 質問者: shdego
ベストアンサー
7
0
-
他のユーザのログインパスワード取得/変更について
いつもお世話になっております。 今回ご質問させていただく内容は、[他のユーザのログインパスワード取得/変更]について実現可能かご教授いただきたいと思います。 実現可能な場合、参考HPや使用するWin32API等ご教授いただけたら幸いです。 ※実際に作成できても絶対に悪用しない事を誓います。 また、この質問に回答下さった方を裏切らない為に閲覧した方も悪用しないで頂きたいと思います。 環境:VB6.0 WindowsXP Professional 【 実現方法(手順) 】 (1):ログインするユーザ名:tarou パスワード:hanako (2):パスワード取得/変更を変更したいユーザ名:ichirou パスワード:jirou (3):(1)(2)共に管理者権限を保有しています。 (4):ユーザ名:tarouでWindowsXP Professionalへログインします。 (5):VB6.0で作成したプログラムを実行し、ユーザ名:ichirouの現在設定されているパスワードを取得します。 (6):ユーザ名:ichirouのパスワードを変更(saburou)し新たに設定します。 上記のようなパスワード取得/変更がセキュリティーの厳しいWindowsXP Professionalに対し、VB6.0で実現可能かご教授願います。 また、VB以外での実装方法を知っている方が居ましたら合わせてご教授願います。 宜しくお願い致します。
質問日時: 2007/05/22 01:27 質問者: basket11
ベストアンサー
7
0
-
VB6.0(SP6)からActiveXDLLをコールする方法
コマンドボタンを押すと DLL内のgReadItemがコールされる様に作成したのですが 実行すると 「実行時エラー453 エントリgReadItemがDLLファイルmenu.dll内に見つかりません。」 というエラーが発生します。 VB側の宣言は下記の方法で間違いないでしょうか? プロジェクトの参照設定でmenu.dllの設定も行っています。 回答宜しくお願いします。 <標準モジュールでの宣言> Public Declare Sub gReadItem Lib "menu.dll" () <フォームでのコマンド押下処理> Private Sub cmd1_Click() Call gReadItem End Sub
質問日時: 2005/09/25 16:48 質問者: takuyachiko
ベストアンサー
7
0
-
VisualBasic6上でのトラックボールの操作について
(※投稿したのですが、どうやら上手く投稿出来ていないようなので再度投稿させて頂きます。) 初めましてKiraAfroと名乗らせて頂きます。 VisualBasicVer6におけるマウスのトラックボールの動作についてお尋ねしたい事があります。 以前より持っていたVisualStdio6.0 Professional Editionをインストールしたのですが、このソフトに入っているVC++,VJ++でソースのエディタ上でマウスのトラックボールを回すと正常にスクロールするのですが、VB6においてまずソースエディタ上でトラックボールを回しても何の反応もなく、また標準コントロールのディレクトリコントロールに対して同じように回すとディレクトリのスクロールが反対の動作でスクロールされてしまうといった症状が現れます。 始めインストールしたのはVBだけで、その後VC++,VJ++をインストールしました。 前のWindows98上では正常に動作していたソフトが現在、WindowsXP Home Edition上ではこのような症状が現れるという事はインストールが正常に行われていないと考えられるのでしょうか? この症状を改善する策をご存知の方、申し訳ありませんが教えて頂けると大変助かります。 何卒、宜しくお願い致します。 ちなみにSP6もインストールしてみましたが、ダメでした。
質問日時: 2006/02/05 21:56 質問者: KiraAfro
ベストアンサー
7
0
-
実行ファイルのアイコン
こんにちわ。 VB6.0SP5で開発していますが, 実行ファイル(.exe)のアイコンを Windowsのステータスバーに表示したり, Alt+Tabでアプリを切り替えるときにも選択できるようにしたいのですが,どのようにすれば良いでしょうか? 教えてください。お願いします。
質問日時: 2006/03/08 14:04 質問者: tatsurou
ベストアンサー
7
0
-
VB.NETで<Input>タグ、<textarea>タグに値を代入するには?
VB.NET+Javascriptでプログラミングしているのですが、HTMLに<input>タグ(type=text)、<textarea>タグがありまして、これに値を代入する方法がわかりません。 おしえてくださいーー ※該当タグにJavascriptを使うので、VBのテキストボックスはつかえません><
質問日時: 2006/05/09 13:25 質問者: Haule
ベストアンサー
7
0
-
EXCELの範囲編集について
以下の通りの1セルに対しての編集は既に分かっているのですが ******************* Dim ExlApp As Excel.Application ExlApp.Range("A1").Value = "1" ******************* ある範囲を一気に編集したい場合は どのように変数に値をセットしてから、 EXCELに書き込むようにコーディングしたら 良いのでしょうか? お手数ですが教えてください。よろしくお願いします。
質問日時: 2004/04/10 16:51 質問者: kirua777
ベストアンサー
7
0
-
VB For-Next文でのExitではなく中断は可能?
初歩的な質問で申し訳ありません・・・ ループで処理しているものがあるのですが、ExitForでループを抜けることはできますが、途中で処理を中断して次のカウンタの処理へ移ることはできるのでしょうか? 例えば For i = 1 to 10 if 関数1() = False then ■ループ処理を終了するのではなく次のカウンタ[i]に移りたい■ else Call 関数2() end if Next i という事をしたいと思っています。 今は For i = 1 to 10 ret = 関数1() if ret = True then Call 関数2() end if Next i という方法で記述していますが、上記のような条件文が10や20もあると、IF文の入れ子入れ子でかなりコードが見にくいです・・・。 どなたかよろしくお願いします!
質問日時: 2004/10/08 11:23 質問者: sky_blue
ベストアンサー
7
0
-
文字列の後ろから必要分だけ削除したい。
例1 Dim str As String = "あいうえお1234" 文字列の中の1234だけ削除したい場合は、 str = str.Remove(5,4) という風に、5文字目の後から4文字削除にすればよいのですが、 例の"あいうえお"の部分の長さが毎回処理する度に異なる場合は、 文字列の頭から何文字目という指定ができないので、”後ろから4文字を削除したい”となります。その場合は、どのようなプロパティを使えばいいのでしょうか。 .NET環境です。
質問日時: 2007/11/29 16:44 質問者: mysotoko
ベストアンサー
7
0
-
VBとVBAの違い
お世話になります。 現在、ExcelVBAで機械設計の計算をさせようと思い勉強しているのですが、VBとVBAの違い(VBと比較したとき、VBAできること、できない事)の境目?がいまいち判りません。 まだまだ勉強中で困惑しております。このままExcelVBAを勉強していく物か、VBについて勉強していくか迷っています。このままExcelVBAを勉強してExcelVBAを理解すれば判断できるかと思うのですが、畑違いの勉強になってしまわないかと心配です。 やりたいことは、各種計算の簡略化です。 現在は、関数電卓で行っていますが、これをパラメータを入力すると計算結果が出る。このような物を作りたいと思っています。 長くなってしまったのでまとめると、 1、VBAとVBの違い 2、ExcelVBAで設計計算が可能か あと、 プログラムにより計算させるときに、最適なプログラム(JavaとかPHPとかHTML等など・・・)お勧めのプログラムがありましたらアドバイス頂けたらと思います。
質問日時: 2005/09/16 11:19 質問者: noname#44124
ベストアンサー
7
0
-
VBでカードリーダ(USB)のイベント
VBでカードリーダ(USB)のデータを読み込み、プログラミングしたいのですが、 カードリーダがUSBのため、カードを読み込ますとフォーカスのあるところに、データを勝手に表示してしまいます。 VBにてイベントは取れないのでしょうか? 多分キーボードなどのキーダウンと同じイベントが発生しているとは思うのですが、区別したいのです。 よろしくお願いします。
質問日時: 2002/10/22 11:31 質問者: noname#15354
ベストアンサー
7
0
-
VBでリスト構造を実現するには?
DTDとHTMLのパーサを作ろうと思い、データを解析して配列に入れようとしていたのですが、配列じゃなくてリスト構造で実現しろというお達しをうけて非常に困っています。 そもそもVBでリスト構造って実現できるんでしょうか?実現できるのであればその方法を教えていただきたいと思っています。
質問日時: 2002/10/28 21:20 質問者: runo1
ベストアンサー
7
0
-
VB2005でExcelのシートをコピー
VB2005Expressで開発をしています。 Excelのシートをコピーして同じbookに追加をしたいと思っています。 下記でまずExcelを使用できるようにして Dim xlApp As New Excel.Application Dim xlBooks As Excel.Workbooks = xlApp.Workbooks Dim xlBook As Excel.Workbook = xlBooks.Add '新規のファイルを開く Dim xlSheets As Excel.Sheets = xlBook.Worksheets Dim xlSheet As Excel.Worksheet = xlSheets.Item(1) xlApp.Visible = True 下記で追加できると思うのですが、()内にセットするパラメータが わかりません・・・ xlBook.Worksheets.Copy() どなたかご存知の方がいらっしゃいましたら教えて下さい。 よろしくお願いします。
質問日時: 2008/07/17 20:40 質問者: madamadahiyoko
ベストアンサー
7
0
-
4桁の数字を A*1000+B*100+C*10+D 以外で表現したい。
A=1 B=2 C=3 D=4 のとき 1234をA*1000+B*100+C*10+D以外で表現したいのですが 何かいい方法がないでしょうか? 4桁ならいいんですが 15、6桁を10行ぐらいコーディングしないといけないのでなえてます↓助けてください。
質問日時: 2006/05/17 06:05 質問者: mixiho
ベストアンサー
7
0
-
EXEファイルのタイトル取得
一応、自分なりにWEB等で調べてみたのですが、 実行ファイルのタイトル取得の仕方が分かりません。 (実行した時のタイトルバーに出る文字) そのファイルを実行せずにタイトルを取得したいのです。 ご存知の方いらっしゃいましたら、どうか宜しくお願いします。
質問日時: 2003/05/27 10:51 質問者: GX71
ベストアンサー
7
0
-
再帰処理を用いて階乗を求めるプログラム
こんにちは 再帰処理を用いて階乗を求めるプログラムについて の質問です。 以下のように考えたのですが、 まったく駄目なようです。 どこをどのように直したらいいのか いまいちわかりません。 どなたか教えて下さい。お願いします。 Private Sub CommandButton1_Click() Dim n As Integer 階乗する数 Dim f As Integer 階乗する数の階乗した値 n = Val(TextBox1) Do While f > 1 KEISAN n, f Loop TextBox2 = f End Function Function KEISAN(n, f) If n <= 1 Then f = 1 Else f = n * f(n - 1) End If End Function
質問日時: 2003/10/08 17:02 質問者: 1724
ベストアンサー
7
0
-
コンボボックスの表示は最大何行?
いつもお世話になります。 VB.NET2003で開発しています。 いままで全然気にしておらず、質問が来て初めて気がつきましたが、 現在使っているコンボボックスに現れるデータはすべて8個なんですね。 これをもっと多くするにはどうしたらいいのでしょうか? また最大表示出来る数はいくらなのでしょうか? 初歩的な質問で恐縮ですがよろしくお願いします。
質問日時: 2007/01/18 16:33 質問者: danchor
ベストアンサー
7
0
-
.Netのタイマーについて
現在system.timers.timerを使用しています。 仕様としては、タイムアウト内に電文がこなければ再送するというものです。 Timerの使い方はわかったのですが、その途中で電文受信のイベントを走らすことって無理なのでしょうか? 今、わからないのはタイムアウトになるのを待ってから受信イベントが走っているので、 どうにかタイマーが動いている時でも中止して受信イベントを走らせたいです。 何か方法はありますか? また、どういうふうにした方がいいとかあれば教えてください。 わかりにくい説明になったと思いますがよろしくお願いします。
質問日時: 2005/03/24 10:33 質問者: okkomu
解決済
7
0
-
Excelの別々のブックから関数を呼び出したい
簡単なVBAマクロなら今まで作ったことがあるものの 関数の引渡し等がさっぱりで、 且つプロシージャ???とかヘルプを見ても言葉の 障害で意味が理解しにくくて困ってます。(苦笑 なのでVBAは初心者そのものです。 (大昔C言語は多少かじったけど忘れましたね・・) 出来るのかどうか分かりませんが、 ブックAを操作中にブックBをオープンします。 それからAとBの各シートの情報をやりとりする、 こんな感じのプログラムを作りたいと思っています。 ブックAからブックBの関数(プロシージャ?)を 呼び出すことは出来るのでしょうか? 出来るのなら簡単なサンプルをお願いします。
質問日時: 2005/10/23 19:25 質問者: sakocchi
ベストアンサー
7
0
-
プロの人のプログラム完成までの所要時間
ちょっとしたプログラムを作るのにもすごく時間がかかってしまい ふと思ったのですが、プログラムを作るのを職業にされてる人は どのくらいのスピードでコードを書くことができるのでしょうか? 例えばWindowsに付属しているmspaint(ペイントソフト)と ほぼ同じものを作るとしたらトータルで何時間くらいかかるでしょうか? プロの方がおられましたらご回答頂けたらありがたいです。 よろしくお願いいたします。
質問日時: 2008/04/05 13:28 質問者: popopompom
解決済
7
0
-
他言語で言うcontinue文
他言語で言うcontinue文に相当する命令はVBに用意されているのでしょうか? continue文とはループ中の後続の処理をやめループの先頭に戻るという命令です。 なんか探したけど無かったもので…。どんな言語にも用意されてそうな基本的な命令なので質問してみました。 バージョンは Winエクセル2002 SP3 VBA Retail:6.4.8869, Version:9969 です。基本エンジンはVB6です。 よろしくお願いします。
質問日時: 2006/03/14 10:26 質問者: arakororin
ベストアンサー
7
0
-
イメージコントロールについてVB6
Image1.Picture = LoadPicture("C:\VB練習\テストプログラム\ime1.jpg") と作ります。当然作っている時は上の順番でフォルダ から読み込まれてime1.jpgが表示されます。 ただ配布用にパッケージしてから他のPCで起動させると ("C:\VB練習\テストプログラム\ime1.jpg") が見当たりませんのようなエラーが出てプログラムが起動しません(T_T; 対処方法はありますか?
質問日時: 2004/01/14 16:01 質問者: a12b12
ベストアンサー
7
0
-
エクセルVBAのプログラム
A.xlsからB.xlsのファイル(最初はA..xlsのみが開いています)へのデータ転送をしたいのですが、プログラムが組めません(>n<) すみませんが誰か助けてください。 行いたい作業は以下の通りです。 ※デスクトップにあるB.xlsを開く ※A.xlsのセル「A1~A5」をコピーしてB.xlsのAの列の列で空欄の行を見つけて、列と行を入れ替えて貼り付ける(もしB.xlsのA10までデータが入力されていたら、貼り付ける場所はA11~F11になります) ※B.xlsは作業終了後自動保存して閉じる その際に ※A.xlsのセル「A1」にはデータ名が記入されているのでB.xlsのAの列にその名前があれば、そこに上書きする形にしたい。 ※A.xlsのA2のセルには「55,23」のように二つの数字が「,」でつながって入力されているので、B.xlsに貼り付けるときには、二つのセルにわけてそれぞれの数字を貼り付けたい。 お手数おかけしますがよろしくお願いいたします。
質問日時: 2005/02/09 09:46 質問者: noname#10631
ベストアンサー
7
0
-
サーバとVBの連携
VB6.0について質問です。 これまでローカル環境だけのテストでは問題なく実行できていたのですが サーバに置いてあるDBを参照・更新しようとしたときにサーバ側のパスワードが 影響してエラーが発生してしまいます。 一旦VBを終了して端末からサーバにログインした後再びVBからサーバへ接続すると エラー無く実行されます。 このエラーを解消するにはどうしたらよいでしょうか。。。 参照・更新するたびにいちいちサーバに手入力ログインするのはシステム的にも問題があります。 お知恵をお貸しください。。。
質問日時: 2006/03/14 11:56 質問者: go_osaruku
ベストアンサー
7
0
-
マイクロソフト系簡易データベースを解説しているヘルプファイル名
Microsoft Basic では, OPEN File18$ FOR ISAM Custbl "Nani" AS #11: '要 TYPE宣言 Custbl CREATEINDEX #11, "CuIDIdx", 0, "Siran": '重複可 インデックス名"CuIDIdex" 新規作成 SETINDEX #11, "CuIDIdx" より簡易データベースを使用できました。これらは、 cobol の sort file の雰囲気で使用してきました。 Visual Studio 6.0 の Visual Basic 文法ヘルプ(VBENLR98.CGM)内 OPEN ステートメントには,記載がありません。 マイクロソフト系簡易データベースを Visual Basic で利用するための文法を解説しているヘルプファイルはどれなのでしょうか。 それとも Professional Edition のため入っていないのでしょうか。
質問日時: 2003/10/19 00:08 質問者: aramananto
ベストアンサー
7
0
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
以下のようなプログラムをVBAで作成したいと考えています。 A1のセルに値があれば、その値をB1に返す。 次にA2のセルに値があれば、その値をB2に返す。 A行に値がある一番下のセルまで同じようなことをさせたいと考えています。 VBAは初心者です。 どなかた宜しくお願い致します。
質問日時: 2007/08/10 13:42 質問者: smorgas030
ベストアンサー
7
0
-
こんな問題、VBAで解けますか?
ひとグループ何人か? x人をグループ分けする。 ただし、以下のような条件がある。 ・番号が小さいグループが、大きい番号のグループより、人数が少なくなることはない。 ・グループの最大数は10である。 ・1グループの最大人数は40人で、最小は32である。 ・グループあたりの人数は極力少なくする。 関数名/GROUP 引数/人数 戻値/ひとつのグループの人数 どのように問題を整理してプログラム化していけばよいのでしょうか?
質問日時: 2007/10/09 23:07 質問者: mountain3
ベストアンサー
7
0
-
Form間のデータ渡しについて
申し訳ありません。VB.NET初心者です。 Form1から、ボタンAをクリックするとForm2がオープンします。 Form1から、ボタンBをクリックするとForm3がオープンします。 Form1では、Form2またはForm3で設定した値をそれぞれ演算に使おうとしています。 MicrosoftのHPからパクってForm1 - Form2間のデータの引渡しを行うことはできたの ですが、新規でForm3を作成して、Form1 - Form3間のデータの引渡しを行おうとする とForm3の立ち上がり時に "NullReferenceException はハンドルされませんでした"となり、 困ってしまいました。 使われている方から見ると簡単かもしれず 申し訳ありませんが、どなたか教えていただけないでしょうか。 ==================== Form1.vb ======================= Form1には、Label1、Label2、Button1、Button2があります。 Public Class Form1 Inherits System.Windows.Forms.Form Private m_form2 As Form2 Private m_form3 As Form3 Public Property LabelText() As String Get Return Label1.Text End Get Set(ByVal Value As String) Label1.Text = Value End Set End Property Public Property LabelText2() As String Get Return Label2.Text End Get Set(ByVal Value As String) Label2.Text = Value End Set End Property Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScaleYokusou.Click m_form2 = New Form2(Me) m_form2.ShowDialog() m_form2.Dispose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScaleHikito.Click m_form3 = New Form3() m_form3.ShowDialog() m_form3.Dispose() End Sub End Class ==================== Form2.vb ======================= Form2には、TextBox1、Button1があります。 Public Class Form2 Inherits System.Windows.Forms.Form Private m_form1 As Form1 Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If m_form1 Is Nothing = False Then m_form1.LabelText = Me.TextBox1.Text End If End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If m_form1 Is Nothing = False Then Me.TextBox1.Text = m_form1.LabelText End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class ==================== Form3.vb ======================= Form3には、TextBox1、Button1があります。 Public Class Form3 Inherits System.Windows.Forms.Form Private m_form1 As Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If m_form1 Is Nothing = False Then m_form1.LabelText2 = Me.TextBox1.Text End If End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TextBox1.Text = m_form1.LabelText2 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class
質問日時: 2008/04/09 20:33 質問者: koro_koro_koro
解決済
7
0
-
Excel ファイルに保存すると実行時エラーになる
こんにちは。宮本と申します。VB6(SP5)で、 プログラミングをしております。 下記の様にプログラミングをしましたが、どうしても [実行時エラー’1004’ test_1.xlsにアクセスできません]と、なります。 c:\test.xls は、元々ある事を前提とし、c:\test_1.xlsに上書きをしたいのです。 宜しくお願い致します。 Dim wApp As Excel.Application Dim wExl As Object Set wApp = CreateObject("Excel.Application") Set wApp = CreateObject("Excel.Application") Set wExl = wApp.Workbooks.Open("c:\test.xls") wExl.Worksheets(1).Cells(1, 1).Value = 3000 wExl.Application.Visible = False wExl.Application.DisplayAlerts = False wExl.SaveAs "c:\test_1.xls" <---ここで、エラー
質問日時: 2003/06/04 15:04 質問者: m-toshi
ベストアンサー
7
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 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報