回答数
気になる
-
ExcelVBA チェックボックスに値を持たせる方法
こんにちわ。 チェックボックスが50個近くあるユーザーフォームを作りました。 "変更"というボタンを押下した時、 あるセルに値が入るようなコードを作成しています。 現在はCheckBox1の時は1、CheckBox2の時は2をセルに入れ動作確認したのですが、本当はそれぞれのボタンに応じたCodeをセルに入力したいのです。 発想が乏しく、よい方法が考え付きません。 何かいい方法ありましたら、ご教授願います。
質問日時: 2005/12/26 16:02 質問者: marimo-
ベストアンサー
9
0
-
VBAからDLLをCALLしたいのですが
仕事上今まで蓄積されているFortranプログラムを効率よく使いたくDLL,VB,VBAにチャレンジしていますが, Intel(R) Fortran Compiler9.0で作成したDLLをEXCELのVBAからCALLしたところ 実行時エラー'49' DLLが正しく呼び出せません のエラーが表示されました。 このDLLはVisual Basic .NETで作成したVBからは正しくCALLできています。 色々原因を調べているのですがVBAからDLLの呼び出しとDLL内の計算は正しく行われておりDLLからVBAに戻るときにエラーになっているようです。 テストを行っているFortranとVBAのソースは以下です。VBAでDLLをCALL出来るように解決いたしたくご教授願お願いいたします。 (1)---- Fortran ソース --------------------------- subroutine DLL1(Q,QQ,QQQ) ! Expose subroutine DLL1 to users of this DLL ! !DEC$ ATTRIBUTES DLLEXPORT::DLL1 !DEC$ ATTRIBUTES ALIAS:'DLL1'::DLL1 ! Variables ! Body of DLL1 real*4 Q,QQ,QQQ QQ = Q*2 QQQ = Q**3 end subroutine DLL1 (2)----------- VBA ソース -------------------- Private Q As Single Private QQ As Single Private QQQ As Single Declare Sub DLL1 Lib "DLL1.dll" (ByRef Q As Single, ByRef QQ As Single, ByRef QQQ As Single) Sub Macro1() ChDrive ActiveWorkbook.Path ChDir ActiveWorkbook.Path Q = 2# Call DLL1(Q, QQ, QQQ) Cells(5, 2) = Format(Q, "#####.#0") Cells(6, 2) = Format(QQ, "#####.#0") Cells(7, 2) = Format(QQQ, "#####.#0") End Sub
質問日時: 2007/09/05 09:17 質問者: dkdk17
ベストアンサー
9
0
-
プロクシーを経由してwebbrowserに表示させるには?
■VBのバージョン : VB.NET2003 お世話になります。 プロクシーの使い方がよくわかりません。 helpでproxyといれて検索してみたのですが webBrowserを使ったサンプルがなく困っています。 このヤフーのページを表示させるまえにプロクシーを経由して 表示させるにはどのようにすればよいでしょうか? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxWebBrowser1.Navigate2("http://www.yahoo.co.jp") End Sub
質問日時: 2005/08/17 02:05 質問者: googole
ベストアンサー
9
0
-
回数のカウント
コマンドボタンを押すたびに何回押したか分かるような プログラミングを教えて頂きたいのですが。 よろしくお願いします。
質問日時: 2003/04/30 10:47 質問者: siamzou
ベストアンサー
9
0
-
逆方向印刷をしたい。(VB6)
逆方向印刷機能のついていないレーザープリンタを使っています。 印刷文の長さに応じて縦印刷か横印刷かを決めているのですが、縦と横で、印刷方向が合いません。 ちょうど紙を180°回転させたように印刷することは無理でしょうか。
質問日時: 2004/04/06 18:36 質問者: noname#7879
解決済
9
0
-
VB6.0 ExcelオブジェクトのFind操作について
VB6.0にてExcelよりデータの取り込み処理を 行っております。 その際に、ある指定の文字列が現れる最初の行を取得する 処理があるのですが、下記処理でインストールされている Excelのバージョンにより、エラーになってしまいます。 ====Excel2000の場合OK。 Excel2003の場合NG。===== '最終行を取得する。 Set ObjFR = .Columns(1).Find("終了") intMaxRow = ObjFR.Row ====Excel2003の場合OK。 Excel2000の場合NG。===== '最終行を取得する。 Set ObjFR = .Cells(1).Find("終了") intMaxRow = ObjFR.Row 上記、処理においてバージョンに依存せずに回避する方法が ありましたらお教え頂きたいと思います。 宜しくお願いいたします。
質問日時: 2006/12/05 10:04 質問者: logigon
ベストアンサー
9
0
-
Shell.ApplicationのNameSpaceを書き換えたい
こんばんは、みなさん。 少し前に以下の質問でプログラムを作っていただいたのですが、 WindowsXPだとうまく動くのに、Windows2000だとうまく動作しません。 http://question.woman.excite.co.jp/kotaeru.php3?qid=2006207 具体的には、「ZIP作成メイン」【CreateZIP(p_strZipName, p_colParams)】関数の以下の部分で、 オブジェクト実行エラーで引数の指定が間違っているとか何かのエラーが表示されました。 '書庫オブジェクトを取得する Set l_objZIP = m_objShell.NameSpace(CStr(p_strZipName)) XPではうまく動いているので、おそらくはVBScriptのインタプリタ側に 何らかの違いがあるようです。 この構文の代わりに有効なコードを書きたいと思います。 よろしくお願いします。
質問日時: 2006/03/23 00:18 質問者: noname#17299
ベストアンサー
9
0
-
エクセル 全部のシートを自動的に読み込みたい
どなたが助けてください。 エクセルのファイルが一つのフォルダの中に 沢山あります。(CSVの場合もあります) 各ファイルには複数のシートが入っていて シート名はバラバラです。 各シートのに入っているデータは 縦は500行目まで、横は端から端まで(A列→IV列)です。 この沢山のエクセルファイルの全シートを 一つのシートに自動的に読み込んで 縦てに並べたいのです。 1ファイルの中にある全シート(1枚しかシートがない ものもあれば5枚あるものもあり もれなく全部) の500行目までを 別の新しいエクセルファイルのシートに縦に並べて 次のファイルをまた開いて全シートを 先ほど並べたデータの下にまた並べて・・・・と 繰り返して一つのフォルダの中にあるエクセルファイルの全シート重複せずに並べるような マクロをどなたか教えて頂けないでしょうか? ファイル数が大変多く、本当に困っています。 よろしくお願いいたします。
質問日時: 2006/07/14 14:27 質問者: cleverclober
ベストアンサー
9
0
-
フォームをリサイズ後に動作を行う
フォームをリサイズした時に動作を行いたいのですが、 Form_Resizeだとリサイズ中ずっと効いてしまいます。 マウスを離した瞬間に初めて事が起こるようにするにはどうすればよいのでしょうか。 よろしくお願いします。
質問日時: 2005/07/08 15:20 質問者: thrush76
ベストアンサー
9
0
-
できると言っちゃったばっかりに、、
あの、、、VBでグラフを書きますよね。それでソレをVBで表示したいんです。JPGとかイメージファイルで保存とかして何とかできませんかねー、、。表はできるのにグラフができないわけがない、なんて言ったら「お願いね」って言われちゃった、、。誰か教えてくださーい。宜しくお願いします。
質問日時: 2001/11/20 17:15 質問者: HUKAHIRE
ベストアンサー
9
0
-
エクセルでブックを閉じたときマクロを終了させるには
現在、以下のようなマクロを組んでいます。 --------------------------------------- Dim 利用制限時間 As Integer Private Sub Workbook_Open() If Not ThisWorkbook.ReadOnly Then 利用制限時間 = 10 '分 + 起動時刻:Now 警告時刻 = Now + 10 * TimeValue("00:01:00") '分に変換 Application.OnTime 警告時刻, "ThisWorkbook.利用制限ご注意" End If End Sub Private Sub 利用制限ご注意() 警告文 = "共有ファイルを開いて" + CStr(利用制限時間) + "分経過しました。" + vbCrLf 警告文 = 警告文 + "使用しない場合は終了してください。" MsgBox 警告文, vbCritical, "共有ファイルの利用について" Workbooks("共有ファイル.xls").Close End Sub --------------------------------------- しかし、10分たたずにブックのみ終了し、エクセルのみの起動をしていても10分後には、「共有ファイルを開いて10分経過しました」と出てきます。 エクセルを終了させればよいのでしょうが、ブックを終了させただけでマクロも同時に終了できないでしょうか?
質問日時: 2006/03/03 11:14 質問者: JJJJJJJJJ
ベストアンサー
9
0
-
Line Inputで文字化け(助けて下さい)
素人な質問ですみません。 Line Input #fpFileNo, strMsgBuffA 上記手法により、txtファイルから1行ずつレコードを 取り出していますが、 先頭が”全角文字”のレコードを取り出すと 先頭文字が”文字化け”します。 正しく全角文字が取り出せる手法を教えてください。
質問日時: 2003/06/17 16:08 質問者: yone15
ベストアンサー
9
0
-
API,PathIsDirectoryについて
よろしくお願いします。 VB6.0sp6,Windows2000professionalsp4です。 VBでのディレクトリの有無の判別方法を検索していて、サンプルをひとつ見つけたのですが・・・↓がコードです。 ------------------------------------------------ Private Declare Function PathIsDirectory Lib "SHLWAPI.DLL" Alias "PathIsDirectoryA" _ (ByVal pszPath As String) As Long ' ' ディレクトリであるかどうか ' Private Function IsDirectory(ByVal strFileName As String) As Boolean ' strFilename : チェックしたいディレクトリ名 ' 戻り値 : ディレクトリであればTrueを返す。 Dim lngResult As Long lngResult = PathIsDirectory(strFileName) IsDirectory = Not (lngResult = 0) 'ここが理解できません End Function Private Sub Command1_Click() Dim strFileName As String strFileName = "C:\WINNT\Profiles\Administrator\My Documents\HEROPA\TestCls\SHLWAPI" Msgbox IsDirectory(strFileName) End Sub -------------------------------------------- IsDirectory関数は、PathIsDirectoryの戻り値がLong型のため、それをBooleanに直すためのものだと思うのですが、 IsDirectory = Not (lngResult = 0)はどういう原理なのでしょうか? これだとlngResultにどんな値が入ろうがIsDirectoryに返されるのはTrueになってしまうと思うのですが(lngResultに0が代入され、それがNotされるから)、しかし実際に実行してみるとちゃんとTrueとFalseを判定しています。いったいどうしてなのでしょうか? それと、PathIsDirectoryの宣言で、関数の戻り値がLongになっていますが、他に見つけたサンプルではBooleanとなっていました。どちらが正しいのでしょうか?
質問日時: 2005/03/13 23:57 質問者: tochanx
ベストアンサー
9
0
-
初歩的なことだとはおもいますが・・・・。
abc=int(asd) abc はint asd はdouble です。 なぜかエラーが出てしまいます。 やり方が間違っているんでしょうか? (.net です)
質問日時: 2003/09/21 01:16 質問者: kenta_tanaka
ベストアンサー
9
0
-
エクセルVBAについて
エクセルVBAでプログラミングしたのですが、 どんなデータ型を使っても「オーバーフロー」 してしまいます。 重すぎるのでしょうか? 重すぎるとしたら、VBAの場合、許容範囲は どれくらいになるのでしょうか? お願いします。
質問日時: 2005/03/17 22:07 質問者: na714
ベストアンサー
8
0
-
VBAで背景色
以前にも同じような質問をしたのですが、応用できなかったので改めて質問させていただきます。申し訳ありません。 VBAを使って、入力された値によってセルの背景色を変更したいです。 C列からAF列までのセルに 「1」から始まる値が入力されたら背景を黄色 例:「1テスト」 「2」から始まる値が入力されたら背景を緑色 例:「2VBA」 「3」から始まる値が入力されたら背景を水色 例:「3教えて」 「4」から始まる値が入力されたら背景を赤 例:「4終了」 にするVBAが欲しいです。 例えば、C1に入力した「1テスト」という値を、D1~AF1にコピーすれば C1~AF1の背景が黄色になるようにしたいわけです。 かつ、B列にはその行で背景が黄色のセルの数を返せれば最高です。 どの部分が「C列からAF列」を指すのかをご説明いただけると大変ありがたいです。 よろしくお願いします。
質問日時: 2006/12/15 23:25 質問者: ao_
ベストアンサー
8
0
-
CSVファイルを任意の場所に出力するには?
ACCESS-VBAの初心者です。 ACCESSのテーブルを、csvファイルとして、任意の場所に出力させるには、どのようにしたら良いのでしょうか。 当方初心者につき、なるべく簡単な方法だとさらに助かるのですが。
質問日時: 2007/05/09 13:54 質問者: tamago800
ベストアンサー
8
0
-
Excel VBA で自在に図形を変化させたい
Excel VBAを使って図形を自由に変化させたいと思っています。 一つの形の四角形や三角形をVBAを使ってシート上に表記することは出来ます。 私はユーザーインターフェースを作り、テキストボックスに値を入れることで図形を変化させることをしたいと思っています。 例えば、一つの三角形を正三角形にしたり、直角二等辺三角形にしたり、自在に角度を変えてVBAに描かせたいと思っています。 三角形は以下のようにコードを記述しましたらシートに表示できました。 Sub 三角形作成() Set ArwLine = ActiveSheet.Shapes.AddLine(10, 10, 200, 200) Set ArwLine = ActiveSheet.Shapes.AddLine(200, 200, 100, 400) Set ArwLine = ActiveSheet.Shapes.AddLine(100, 400, 10, 10) End Sub これを以下のようにして変数(x、y)にユーザーインターファースから値を代入するようにしたいのですがどのようにすればよいのでしょうか教えてください。 Private Sub CommandButton1_Click() UserForm1.Show End Sub Sub 三角形作成() Set ArwLine = ActiveSheet.Shapes.AddLine(10, 10, 200, 200) Set ArwLine = ActiveSheet.Shapes.AddLine(200, 200, x, y) Set ArwLine = ActiveSheet.Shapes.AddLine(x, y, 10, 10) End Sub 前回、「Excel VBAで図面を書きたい」という質問をしたのですがややこしく書いたため解答される方が居ませんでしたので編集して再質問をさせていただきます。 よろしくお願いします。
質問日時: 2005/01/09 21:08 質問者: kakusan_t
ベストアンサー
8
0
-
ExcelVBA:すでに開かれているブックの判定方法
同 Excel内で開かれている異なる複数のBOOKの判断方法は以下のサイトを参考にできました。 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_010_020.html しかし、別のEXCELを起動して開いているBOOKについては、上記のコードの判断にはかかりませんでした。 別のEXCELを起動して開いているBOOKについても、すでに開いていることを判断したいのですが、何か方法がございますでしょうか? よろしくお願い致します。
質問日時: 2007/07/24 16:30 質問者: THUBAN
ベストアンサー
8
1
-
VBAでテキストファイルのデータを読み込んでExcelで開く+α
テキストファイルをExcelファイルとして読み込む事が多く、その量に加えデータの並び方が特殊な為困っております。 テキストファイルのデータの並びをExcelで上下逆順に読み込ませるにはどのようにすればいいでしょうか? また、まとめて複数のテキストファイルを上記の状態で自動的にシートごとに分けて出力させたりしたいのですが。 (例-1行目は無視) ---テキストデータ(タブ区切り)--- 0 0 10 02 11 05 02 15 01 20 25 12 15 10 ---Excelシートデータ--- 0 0 12 15 10 01 20 25 05 02 15 10 02 11
質問日時: 2006/03/14 08:31 質問者: EYESHIELD
解決済
8
0
-
VBでコピー時間を表示したい。
VB6.0の標準EXEを使って、CD-ROMからローカルディスクに コピーするプログラムを作っています。 エクスプローラなどでコピーする際、残り時間が表示されると思いますが、VBでも残り時間を表示(計算)する方法ってありますか? エクスプローラでも残り時間表示が完全に正しいとは 思っていないのですが、コピーの目安にはなっていると 思います。 やったことがあるとか、こんなコマンドを知っているとか ありましたら、教えてください。 宜しくお願いします。
質問日時: 2002/12/09 09:33 質問者: y-kawamura
ベストアンサー
8
0
-
マウスでコントロールを移動させたくない
お世話になります。 客先の要望で、マウスで移動させたくないコントロールがありどのようにしたらよいか悩んでいます。 以下のような方法を考えていたのですが・・・ 1.移動元のコントロールを退避しておく 2.移動させたくないコントロールのMouseDownイベントで 元のコントロールにSetFocusする コンボボックスにMouseDownイベントが無く実現不可能となってしまいました。 何か良い方法はございませんでしょうか?
質問日時: 2003/07/11 17:27 質問者: tomotomo0906
解決済
8
0
-
高圧縮率で圧縮する方法
いつもお世話になっております。 現在、WindowsXP(SP2)、VisualBasic6.0(SP6)を使って開発しています。 ファイルを別のPCにコピーする処理をしていますが、転送速度が128のように遅い場合、時間が掛かって困っています。(24時間かけてコピーする時もあります。) そこで、圧縮率を上げて圧縮し、ファイルサイズを小さくしてみようと思うのですが、その方法が分かりません。 圧縮方法はUNLHA32.DLLを使っています。 宜しくお願いします。
質問日時: 2007/05/29 16:33 質問者: bou7
ベストアンサー
8
0
-
excelで入力の最終行に移動するには
excelで上から順に入力していきます。次第に行が増えて400行とかなってしまうんですが、それをVBAのコマンドボタンか何かで最終行(次に入力するセル)まで一発で移動できませんか? 大変困っていますのでよろしくお願い致します
質問日時: 2002/10/04 16:03 質問者: Hugh
ベストアンサー
8
0
-
MSAccessのVBAで印刷時の並べ替えを制御する方法
お世話になっております。 レポートについての質問ですが、 複数の印刷順で同じ出力データを印刷したいのですが、 現在、同じレポートをコピーして、 並べ替え/グループ化の設定をそれぞれ設定した複数のレポートを作成し、 指定された印刷順の設定のしてあるレポートを印刷するようにプログラムしています。 レポートのレイアウトを変更した場合、 コピーしてあるそれぞれのレポートを修正しなければならず不便です。 フォームのようにOrderBy等の設定で並べ替えが変更できるように、 レポートもVBAから印刷順序を変更できるようにしたいのですが、教えていただけないでしょうか? よろしくお願いいたします。
質問日時: 2006/03/19 06:31 質問者: tiga-
ベストアンサー
8
0
-
オブジェクトの開放
VBでCreateObjectの直後に Set xxx = Nothing が入っているのですが、どうやら効いていないようなのです(メモリ使用量が増え続ける)。 高速で処理されている場合 Set xxx = Nothing は効かないのでしょうか?。 教えて下さい。宜しくお願い致します。
質問日時: 2003/06/19 15:24 質問者: hfc
ベストアンサー
8
0
-
DoEvents関数って何?
こんにちは。 VBAやプログラミングに詳しい皆様に 教えていただきたい質問があります。 cells(1,1)からcells(5000,1)までの値を消去するときに 処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。 そこで下記のようなコードを入力しました。 userform1.show for i =1 to 5000 cells(i,1)="" userform1.progressbar1.value=i/5000*100 next i unload userform1 しかしこれだとuserformの背景が真っ白になってしまい ラベルの文字も消えてしまいます。 そこで「EXCEL VBA パーフェクトマスター」という本を見たら for i =1 to 5000 cells(i,1)="" userform1.progressbar1.value=i/5000*100 DoEvents next i unload userform1 と入力すれば解決することがわかりました。 しかし「DoEvents」についてあまり詳しく書いていなかったのでDoEvents関数をヘルプで見ると、 「発生したイベントがオペレーティング システムによって処理されるように、プログラムで占有していた制御をオペレーティング システムに渡すフロー制御関数です。」 と書いてあるのですが正直、書いてあることがよくわかりません。 どなたかDoEvents関数について、 もう少しわかりやすく教えていただけませんか。 それから、最初に書いたコードで実行すると ユーザーフォームの背景が真っ白になってしまう原因も 教えていただけませんか? よろしくお願いいたします。
質問日時: 2006/03/05 14:35 質問者: 19746999
ベストアンサー
8
1
-
VBAで月末日の求め方について
Excel VBAでUserForm1で年月日を入力すると、その月の月末日を取得したいと思っています。 下のようなプログラムにすると、 「2006/3/1」と入力された場合は、lasDayに「31」が取得されるのですが、 myDate = TextBox1.Text lasDay = Day(DateAdd("d", -1, DateAdd("m", 1, myDate))) 「2006/3/5」などと入力された場合もlasDayに「31」を取得するには どのようにしたらよいのでしょうか。 また、入力された日にちが25日以降の場合は、 翌月の月末日の値を取得したいのですが、どのようにしたらよいのでしょうか。 (例:「2006/2/25」と入力したら、lasDayは翌月(3月)の月末日「31」を取得) どのたか回答お願いします。
質問日時: 2006/03/19 22:04 質問者: piopao
ベストアンサー
8
0
-
CSV形式のファイルを読み込んでテーブルに格納するには?
VB6でCSV形式のファイルを読み込んで それをデータベースに書き込みたいのですがどうやれば いいか分かりません・・・。 1レコードが1行に書かれている固定長のレコードなら 1行ずつ読み込んでそれをループさせてEOFになるまで という風に読みこんでいたのですが、 CSVの場合はどのようにすればよいのでしょうか? 基本的には同じような考えのような気がするのですが。 プログラミング初心者ですみません。 どなたか分かりやすいサンプルなど教えてもらえませんでしょうか?
質問日時: 2002/11/11 14:03 質問者: GBSGBS
ベストアンサー
8
0
-
【VB】プログラム経験のある方教えてください!
お世話になります。 大変初歩的なプログラムなんですが、自分は経験がないため教えていただきたく存じます。 ABCD という4桁の数字があります。 Aには西暦の末尾 Bには月 CDには日を入れてメッセージボックスに表示したいのです。 よろしくお願いいたします。
質問日時: 2005/08/11 10:37 質問者: sineminna
ベストアンサー
8
0
-
ベストアンサー
8
0
-
初歩的な質問
例えば「001」という文字列があった場合、左側の0を全て取って「1」としたい場合、どのような関数を使ってコードを記述すれば良いのでしょうか?
質問日時: 2005/08/19 12:46 質問者: noname#15844
ベストアンサー
8
0
-
MSDNをインストールするのですが日本語のヘルプになりません
MS Visual Studio 6.0 Enterprise Editionです。 VBをインストールしているのですが、ヘルプが日本語ではありません。また、MSDNのインストール中も英語です。 Visual Studio6.0 Enterprise EditionのCDは2枚です。2枚目はなんでしょうか? また、日本語のVBドキュメントをインストールするのにはどのようにすればいいのでしょうか?(F1を押してヘルプを見ると英語になっています) OSはXP-Proです。
質問日時: 2004/07/10 21:41 質問者: epson01
ベストアンサー
8
0
-
VB6で開発中…標準モジュール間での関数の呼び出し方は?
Form1.frm内から、標準関数yyy.bas内に記述しているSub yyy()を呼び出したいのですが、コンパイルエラーとなります。 呼び出し方法が間違っているのだと思いますが、お教え下さいませ。 <Form1.frm内> Private Sub xxxxxx() yyy End Sub <yyy.bas> Sub yyy() ・・・・ End Sub
質問日時: 2005/03/25 11:26 質問者: THUBAN
ベストアンサー
8
0
-
VB6-オブジェクトを配列にセット
質問用に、本来作りたいものではなく、機能に絞った質問をします。 ちなみにNo.2567628とは違います。 テキストボックスが10個あり、Text1、Text2、…Text10というオブジェクト名となります(説明の便宜上以上の名前になっているが実際はtxt○○で、○○の規則は無い)。仕様の都合上、text(1)、text(2)…の配列は使用できません。(配列のタイプはNo.2567628) 上記の仕様で、全てのテキストボックスをvbnullstringに割り当てたいのですが、 Private Sub Form_Load() Dim i As Integer Dim obj(9) As Object Set obj(0) = Text1 Set obj(1) = Text2 Set obj(2) = Text3 Set obj(3) = Text4 … Set obj(9) = Text10 For i = 0 To 10 obj(i).text = vbnullstring Doevents Next i End Sub で、本来出来るのですが、 Set obj(0) = Text1 の右辺がStringで定義したい場合ができません。 つまり Set obj(0) = "Text1" という感じです。 (本来のシステムなら"Text1"にあたる所が"strData"とかになる) Private Sub Form_Load() Dim i As Integer Dim obj(9) As Object Set obj(0) = "Text1" 'ここでエラー Set obj(1) = "Text2" Set obj(2) = "Text3" Set obj(3) = "Text4" Set obj(4) = "Text5" Set obj(5) = "Text6" Set obj(6) = "Text7" Set obj(7) = "Text8" Set obj(8) = "Text9" Set obj(9) = "Text10" For i = 0 To 9 obj(i).Text = vbNullString DoEvents Next i End Sub ちなみにエラーは「型が一致しません」です。 どこを直したらいいか教えてください。
質問日時: 2007/07/31 00:00 質問者: tocci_pc
ベストアンサー
8
0
-
連続するセルの比較をしたいのですが、(型が一致しません)のエラーが出ます。
下記のどの部分でエラーになるのか、お教えください よろしくお願いします。 Sub CellsSamp() Sheets("sheet3").Select If Range(Cells(5, 1), Cells(5, 6)) = Range(Cells(5, 8), Cells(5, 25)).Value Then Range(Cells(6, 1), Cells(6, 6)) = Range(Cells(5, 1), Cells(5, 6)).Value End If End Sub
質問日時: 2003/08/14 23:38 質問者: takagon
ベストアンサー
8
0
-
-2.18+2.11=-7.00000000000003E-02 ?
VBScriptで次の計算をすると、期待した答えになりません。 なぜでしょう? Dim a As Variant Dim b As Variant a = -2.18 b = 2.11 MsgBox a + b 表示される答え:-7.00000000000003E-02 期待する答え:-0.07 原因がわからず困っています。
質問日時: 2006/10/31 18:24 質問者: swodniw
ベストアンサー
8
0
-
excelでセルの値が変わったら通知したい
計算式の入ったセルで、結果の値が変わったときに変わったことを知らせる為に画面に通知したいのですが、 考えたのはユーザファンクション(ufnc)を作成し、 該当セルに「=ufnc(式)」を入れておき、ufncを function ufnc(p as integer) as integer msgbox "値が変わりました" ufnc = p end function としてみたのですが、単に値が変わったとき以外にも 何かしらシートをいじくると"値が変わりました"と表示されます。値が変わったときだけ表示できないでしょうか?
質問日時: 2005/03/25 13:02 質問者: Lahaina1995
ベストアンサー
8
0
-
ExcelVBA:フォームの最小化ボタンを表示し、閉じるボタン「×」を消す方法
似たような質問をしたのですが、参考URLを元に自分で試してみたのですが、思うようにいかず、理解ができなかったので改めて質問します。 Excelのプログラムで右上にある閉じるボタン「×」を消して、なおかつ最小化ボタンを表示させるにはどのようにしたらよいのでしょうか? 解説付きでよろしくお願いします。 回答よろしくお願いします。
質問日時: 2007/12/09 10:10 質問者: miya_HN
ベストアンサー
8
0
-
Visual BasicのProgressBerの設定方法
mdbファイルにADOで接続して、テーブルのデータを他のmdbファイルのテーブルにINSERT INTO句で追加するプログラムを作成しました。ところがデータが多くて処理に数分を要することもあり、ユーザーがフリーズしたものと思って、強制終了してしまうという事態が度々あって困っています。 そこで、ProgressBerの追加を検討しているのですが、インターネットやヘルプでいろいろ調べても設定方法がわかりません。よいアドバイスを頂けないでしょうか?
質問日時: 2002/07/01 11:31 質問者: momo-chan
ベストアンサー
8
0
-
ACCESSでモジュールに記入したパスワードを暗号化するには
VBAの標準モジュールへconstでパスワードを記述しており平文のままです。 自分以外の第3者が利用するとパスワードが丸見えになってしまいます。 暗号化をするにはどうしたら良いでしょうか。
質問日時: 2007/04/19 13:08 質問者: ton_jiru
ベストアンサー
8
0
-
VB6にて、テキストファイルの内容を更新したいのですが。。
こんにちは、またも壁にぶつかりましたので教えて下さい<(_ _)>テキストファイルの中身を変更したいのですが、エラーばかりです(>_<)読み書きができるOpenの仕方ってあるのでしょうか?開いて、読み込んでって、Aをみつけたら;Aって感じで変更したいんですが、どうもできません(>_<)教えていただきたいです<(_ _)>よろしくお願いします<(_ _)>
質問日時: 2005/09/08 14:09 質問者: satoshi777
ベストアンサー
8
0
-
VBAにおける文字列結合と繰り返し入力の組み合わせについて
はじめまして,VBA初心者ですがよろしくお願いいたします。 今,データベースから文字列を抜き出してセルに等間隔で貼り付けるというプログラムを作成しています。 実際は,もっと複雑なプログラムなのですが質問のために簡単にしました。 Sub 例文() For a = 1 To 10001 ggx = あるデータベース Dim i As Integer For i = 1 To 13 文字列 As String 文字列 = 文字列 & MidB(ggx, i * 80 + 95, 2) Next i .Cells(2 * a + 4, 1).Value = 文字列 Next a End Sub この式だと,セルに返したときに一番最初のセルには要求した文字列が 貼り付けられるのですが,次以降のセルには,要求した文字列に加えて前のセルの文字列も返されてしまい最終セルには,膨大な文字列が返されてしました。 ちなみに,詳しく書けなくて申し訳ないのですが変数aによってデータベースの内容は変化します。 MidB(ggx, i * 80 + 95, 2) という関数でデータベースから条件に当てはまるいくつかの文字列を抜き出してセルに返すことまでは出来たのですが返し方がうまくいきません。 質問の仕方が下手で非常に申し訳ないのですがどうぞアドバイスをお願いします。
質問日時: 2008/04/12 00:11 質問者: iammsk
ベストアンサー
8
0
-
VBAを使うメリット
はじめまして。現在、仕事でよくエクセルの関数を使っています。最近VBAに触れる機会がありました。 現在、ほとんどのことをエクセル関数を使ってしているので、今いちVBAのメリットがわかりません。でも、VBAの方が関数より難しいので、VBAを覚えた人はやっぱり、ほとんどVBAで処理した方がよいと感じるのでしょうか? みなさんはどのような時に関数で、どのような時にVBAを使われていますか?
質問日時: 2008/04/19 13:03 質問者: taka011
解決済
8
0
-
ベストアンサー
8
0
-
10万回でも動くようにするには?
円周率を求めるプログラムを習い自分で入力してみました。以下のものです(質問上不要な部分もあるかもしれませんが、どこまで載せればいいのか分かりませんでしたのでほとんど載せちゃいます) Sub CalcPi() Const NumOfSim = 20000 ____省略_____ Randomize counter = 0 For i = 1 To NumOfSim XRand = Rnd() * 2 - 1# YRand = Rnd() * 2 - 1# Worksheets("sheet1").Cells(i, 5) = XRand Worksheets("sheet1").Cells(i, 6) = YRand distance = (XRand ^ 2 + YRand ^ 2) ^ (0.5) If distance <= 1# Then counter = counter + 1 End If Worksheets("sheet1").Cells(3, 1) = i Next i SimPi = counter / NumOfSim * 4 Worksheets("sheet1").Cells(1, 1) = SimPi End Sub このプログラムの2万回を10万回にしたらエラーメッセージが出て「オーバーフロー」となりました。 そこでお聞きしたいのですが、 (1)10万回でもエラーが出ないようにするにはどのような命令を追加すればいいのでしょうか? (2)エラーが出るのはNumOfSimに確保されているメモリーの容量(表現が正しいか分かりません)が足りないからなんでしょうか? なにぶんど初心者で(2)は噛んで含めるようにお願いいたします。
質問日時: 2004/07/17 19:49 質問者: bataiu
ベストアンサー
8
0
-
プログラミング初心者のための楽なプログラム
こんにちは。 プログラミングを少し覚えようと最近おもってここに書き込みをさせていただいています。 まだ、そういうことはやったことはないのですが初心者が作れるようなちょっと実用的なプログラムはないでしょうか? また、メッセージボックスをだすなどはやったことがあるので、ある程度実用的なものを探しています。 よろしくお願いします。
質問日時: 2007/06/05 22:30 質問者: kaiketugoo
解決済
8
0
-
エクセルでコピーができなくなる
ワークシートが増えるように組んだのですが、 増やす数が多いと(25枚くらい)copyのところでひっかかってしまいます。 少ないと正常に動くのですが、それも例えば3枚増やすのを10回繰り返すと同じ現象でcopyできません。 いま、シートを3枚固定して4枚目以降を増やすようにしています。また、次に実行するときには4枚目以降を削除してから増やすように作ってあります。 ワークシートは255枚まで増やせるのでは?と思っていますが。
質問日時: 2005/10/01 23:07 質問者: nakajinaka
ベストアンサー
8
0
-
アクセスに登録した値を条件検索によりtextboxに反映させる方法を教えてください。
はじめまして。お世話になります。 Accessで登録した値をVBのフォーム上のテキストボックスに 反映させる方法を教えてください。 [Accessのファイル名] db1.mdb [db1.mdbのテーブル名] ListName [ListNameの各項目] 日付、名前、住所、生年月日 [VBのフォーム] lbldate、text1.textbox、text2.textbox、text3.textbox、Select.command ※lbldateの内容は日付(テキスト型)でCaptionでとってきた値が「日付」項目に登録される。 3つのtextboxには入力した値は「名前」・「住所」・「生年月日」項目に登録される。(すべてテキスト型) [自分で調べ考えたコーディングの内容] Microsoft DAO 3.6 Object Library参照設定 Private Sub Select_Click() Dim strSQL As String Dim dbs As DAO.Database Dim myset As DAO.Recordset Dim ws As DAO.Workspace Set ws = DBEngine.Workspaces(0) Set dbs = ws.OpenDatabase("C:\db1.mdb") Me.AutoRedraw = True strSQL = "SELECT * FROM Listname where 日付 = '" & lbldate & "'; " Set myset = dbs.OpenRecordset(strSQL) Text1.Text = CStr(myset("名前")) Text2.Text = CStr(myset("生年月日")) Text3.Text = CStr(myset("住所")) myset.Close End Sub 上記の内容では上手くいきません。過去にテキストボックスに入力した値を教えていただきましたが今回は逆にレコードを検索して選択する方法が上手くいきません。 アドバイスをよろしくお願い致します。 ※求める機能としてlblnameに表示される値を条件にそれに対応するレコードを選択したいのですが検索時に該当する日付がなかった場合は3つのテキストボックスに値を何も返さないプログラムにしたいと思っています。よろしくお願い致します。
質問日時: 2006/08/27 02:31 質問者: eiki0520
ベストアンサー
8
0
-
解決済
8
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 このコードでうまく動作...
-
【マクロ】シートの変数へ入れるコ...
-
ワードの図形にマクロを登録できる...
-
算術演算子「¥」の意味について
おすすめ情報