Cnt_I = Cnt_I + 1 結果、フォームの再描画などが行われることになります。 http://support.microsoft.com/kb/410621/ja >2. >1. dim x as string 「発生したイベントがオペレーティング システムによって処理されるように、プログラムで占有していた制御をオペレーティング システムに渡すフロー制御関数です。」 Me.Dispose()     Debug.Print UBound(a(j), 1) 上記のような理由により、 配列変数を使えばいいでしょう。 End Sub Next I   Dim a3() As Variant 変数名は、次に示す条件を満たす必要があります。 1. はエラーになります。 変数を5個用意して、すべて1~5まで足すという処理の場合です。 初歩的な質問かもしれませんが、よろしくお願いします。, こういうのは、   Dim a3() As Variant 【検討した内容】 ・フォーム上に「新規登録」というボタンを作成、クリックした時にできる「新規登録_Click」プロシージャ内で「新規登録_Click」という文字を取得  Cnt_1 = Cnt_1 + 1 CommandButton2.Enabled = True これらのメンバは、外部とのやり取りを行うものが多くあります。 "str" & strAAA を1つの変数として扱い、 strBBB の設定 "TEST" を参照 する事は可能でしょうか?   MsgBox "hoge" これをそのままvb6.0で実行すると"abc"という文字が表示されますが Me.Close() マクロ初心者です、パスからファイル名を指定する際にファイル名に変数入れたいのですが変数認識してくれず, 調べてもわからないのでこの文の意味を教えてください。 Dim a as system.Reflect, Dim myTorikomibi As Currenc~Next i ご存知のかたご教授願います。. そこで下記のようなコードを入力しました。 hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので 一方Close()はインスタンスが残っているので、それを利用することができます。 各関数では、以下のスクリーンアップデータの処理を入れています。 VB6連想配列 と書いて CommandButton を有効に戻してください。 を使用して識別子を入れ子にし、階層構造を明確する。例えば、Menus.FileMenu.Close.Text や Menus.FileMenu.Close.Color など。, 例外メッセージ リソース識別子は、例外の種類名と例外の短い識別子をドットで区切ったものを使用する。例えば、ArgumentException.BadEnumValue。, 2007/9/30 .NET Framework 2.0のMSDNに従うように書き換える。, 2008/9/15 誤字を修正。(コメントでご指摘いただきました。), .NET Tipsをご利用いただく際は、. Me.Controls("str" & strAAA).Text   ReDim a1(i, 2) 注意点ですが、 ここで4つの仮説を立ててみました。 先頭の文字は、_(下線)もしくは letter-character でなければならない。 3. Me.Close() Me.Dispose() CommandButton2.Enabled = False ラベルの文字も消えてしまいます。 Private Sub CommandButton2_Click() 処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。   ReDim a(8, 4, 3) End Sub http://7ujm.net/VB/VB6MAP.html, 【やりたいこと】 ・変数の適用範囲(スコープ) ・変数の寿命 ・同じ名前の変数がある場合は適用範囲の狭いほうの変数が対象となる。 ・文字列型の変数は値を代入しないとメソッドやプロパティが使えない。 なにかいい方法はないでしょうか?, こんばんは。      ・   i = 6 →これのa1,a2,a3の数字を変数にしてループ処理したい。 Sub 検討3()     a(j) = Sheets(j).Cells(1, 1).CurrentRegion 他にも、 x = "b" For i = 0 To 4 配列を抹消 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, Vba に関して質問です。 Dim a1,a2 a3, as integer Dim b as in, Dim flag(4) as boolean で配列とした変数に一つずつ処理結果を代入していきます。.   For i = 1 To 50000 http://smdn.invisiblefulmoon.net/programming/vb.net/basics/05_array/ gHensu2()=Get_gHensu("gHensu2",para0,para1,para2,para3) これを工夫すれば、CommandButton2 で CommandButton1 のループを途中キャンセルする処理もすることができます。 →この対応でも別途処理を加えればやりたいことが達成されるのだが、あくまでも知りたいのは変数名に変数をとり入れられないかということ。 たとえばSQLClientに含まれるようなメンバです。 Me.Dispose() できるかどうかは知らんけど マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。 →この場合はそれぞれのuboundが取れることを確認済み それから、最初に書いたコードで実行すると formについて、Close()メソッドはフォームの表示を終了させるメソッドです。 【動作環境】   i = 8 gHensu3() AS String @IT:.NET TIPS ハッシュテーブル(連想配列)を使うには? - C# VB.NET VBAやプログラミングに詳しい皆様に 探してみましたら何処だったか、そもそもExcel-vbaだったかすら思い出せません。 というのがありますね。 配列を使いますという宣言(次元と要素) Dim  Application.Quit →これのa1,a2,a3の数字を変数にしてループ処理したい。 時間が掛かるループ処理などの場合、ループが終わるまで制御は独占されてしまいます。 処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。 Dim i As Integer OS 名:Microsoft Windows 10 Pro  ActiveWorkbook.HTMLProject.RefreshDocument True   For j = 1 To 3 変数はCnt_1からCnt_5まであり、すべて同じ処理をするので、変数名を コードの行頭にあるスペースは見易さのために全角スペースで作成していますので、これをこのままコピペするとエラーになるかもしれません。 そこで「EXCEL VBA パーフェクトマスター」という本を見たら   Dim a1() As Variant Me.Dispose()により、Me本体(インスタンス)は削除されてしまいます。 配列のメソッド・プロパティ End Sub そこで下記のようなコードを入力しました。 教えていただきたい質問があります。 併記する必要がある場合がある   Dim i As Long ーーー '-------------------------------------, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 VB、VBAではできないと思います。   ReDim a1(i, 2) 下記を参考に cells(1,1)からcells(5000,1)までの値を消去するときに ・Form_Openプロシージャ内で「Form_Open」という文字を取得 よろしくお願いします。, 普通に考えれば質問者のコードで上手くいきそうですが と入力すれば解決することがわかりました。   ReDim a2(i, 3) 【検討した内容】 ほかのクラスも同様。すべてのDispose()メソッドについて、これはインスタンスの破棄を明示的に行うものです。 VB.NET 2008でコーディングしています。       Exit Sub 途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。 For j = 1 To 5 先頭以外の文字は、letter-character、decimal-digit-character、connecting-character、combining-character、formatting-character のいずれかでなければならない。 4.   For i = 1 To 50000 キーとなる文字列に値を割り付けることができます。   Canceled = True 6.Select Case はもっと使える VB1から装備されているステートメント「Select Case」はちょっとVBをやったことのある人なら誰でも使ったことがあるでしょうが、実は使いこなしている方は少ないのではないでしょうか? プロセッサ:Intel64 Family 6 Model 42 Stepping 7 GenuineIntel ~2400 Mhz Private Sub CommandButton1_Click() Application.ScreenUpdating = False DoEvents   i = 5 End Sub Using構文を使用するのとまったく同じ理由になります。 不可能な場合、各プロシージャに「Form_Open」や「新規登録_Click」をベタ書きしようと考えていますが、非効率と考え、やりたくありません。     (処理) Private CommandButton2_Click() cells(i,1)="" Me.Close() Array.Resize とか? Dim textdat3 as String = "Number3"     DoEvents 時間が掛かるループ処理などの場合、ループが終わるまで制御は独占されてしまいます。 dim abc as string http://support.microsoft.com/kb/410621/ja Next i 実際には一つの変数(Cnt_1など)ごとに処理がもっとあるのですが、 userform1.progressbar1.value=i/5000*100 もう少しわかりやすく教えていただけませんか。 gHensu1() AS String 可能かどうかだけでも教えてください。, >不可能な場合、各プロシージャに「Form_Open」や「新規登録_Click」をベタ書きしようと考えていますが 例をあげると下記のようなことです。 CommandButton1.Enabled = False 1. という様な形で変数を作成することは出来ないのでしょうか。 for i =1 to 5000 するようにすればいいんじゃないですかね。 Get_gHensu の パラメータの一つに変数名を与えたかったのです。 どこか悪いところはありますでしょうか? できればバージョンは2000以降で、ExcelでもAccessでも構いません。 ところが、アプリケーション設定で、「最後のフォームを閉じるとき」にアプリケーションがシャットダウンする設定になってるのに、シャットダウンしてくれないことが起こりました。調べてみると、Me.Dispose() が原因。 >1. unload userform1 >再利用できる、できないの違い しかしこれだとuserformの背景が真っ白になってしまい は根本的に違うものです。 Me.Close() に変えるとうまくいきました。 unload userform1 Dim j As Integer for i =1 to 5000 Application.Quit よろしくお願いします。, ハッシュ(or 連想配列)に登録しておいて、そこから検索&取り出しを OS バージョン:10.0.16299 N/A ビルド 16299 --------------------    教えていただけませんか? http://search.goo.ne.jp/web.jsp?dummy=%F3%FE%F3%FE%F3%FE&status=select&from=goo_oshiete&PT=goo_oshiete&nsMT=&MT=vba+%A5%D7%A5%ED%A5%B7%A1%BC%A5%B8%A5%E3%CC%BE+%BC%E8%C6%C0&c=0, >不可能な場合、各プロシージャに「Form_Open」や「新規登録_Click」をベタ書きしようと考えていますが 何がしたいのか全く解りませんが、”プロシージャ名取得”の関連情報のリンクだけ紹介しておきます。   Dim i As Long 下記「検討1」の「これのa1,a2,a3の数字を変数にしてループ処理したい。」です。 ホスト アプリケーション内のブックに含まれる HTML プロジェクトを更新する、というのがありますね。, こんにちは。   Dim i As Long Visual Basicでは今まで変数名にプリフィックスを付ける方法が推奨されていました。 Integer型には"int"、String型には"str"、テキストボックスコントロールには"txt"、フォームには"frm"を名前の頭につける、さらにはモジュールレベル変数には"m"も付ける、という具合です。 たとえば、ShowDialog() で呼び出したフォームは、そのフォーム内でMe.Close() しても、プロセスは残り、たとえば、...続きを読む, Me.Close() http://oshiete1.goo.ne.jp/qa1219426.html gHensu4() AS String ですのでループ中は OS や Excel そのものにも再描画をさせる暇さえ与えません。 尚、環境はExcel2000です。 Dim textdat(i) As String = "Number" & i Const strBBB As String = "TEST" しかしこれだとuserformの背景が真っ白になってしまい OS に制御を渡すってことです。(ヘルプそのまんま) ところが、アプリ...続きを読む, マクロを含むエクセル(EXCEL2000)をHTMLのページからハイパーリンクで呼び出しています。そのエクセルでボタン操作に従い罫線やセルの着色を行っています。しかし、着色結果が更新されません。スクロールバー等で画面を移動すると正しく着色されています。このエクセルを通常に起動した場合は、問題なく動作するのですが、シート全体を更新する方法を教えて下さい。   Dim i As Long この方法を使用してやりたいことを無理やり達成は可能であるが、本来の機能でできないものか? 配列の次元と要素をプログラムの実行中に変える Redim ラベルの文字も消えてしまいます。 や型宣言文字は使うことができません。 3. http://www.officetanaka.net/excel/vba/vbe/05.htm End Sub   CommandButton2.Enabled = False cells(i,1)="" その配列を使えばよいでしょう。     End If gHensu1()=Get_gHensu("gHensu1",para0,para1,para2,para3) 可変にして同じループで書けないかと思うのですが、可能でしょうか?   Dim i As Long "abc"ではなく"テスト"と表示させたいのです。 しかし「DoEvents」についてあまり詳しく書いていなかったのでDoEvents関数をヘルプで見ると、 OS に制御を渡すってことです。(ヘルプそのまんま) cells(i,1)="" strBBB というテキストボックスが有る時   Dim a() As Variant Excel バージョン:14.0.7192.5000(32ビット) Microsoft Office Standard 2010の一部   ReDim a3(i, 4) 存在しないMeに対してCloseメソッドを要求することはできないためです。, Me.Close() よろしくお願いいたします。, こんにちは。 何がしたいのか全く解りませんが、”プロシージャ名取得”の関連情報のリンクだけ紹介しておきます。 VB.NET 2008でコーディングしています。 '------------------------------------- とした場合と同じようにしたいのですが可能でしょうか? 上記のような設定がされているとき、 変数名は、255 文字以内 (半角の場合) で指定する必要があります。 4. >確かどこかでその使用方法を目にしたことがあった気が    変数名には、ピリオド (.) 変数の名前には、その変数が何を表しているか、その変数にどんな内容の値が格納されるかが分かるような名前をつけましょう。たとえば、次のコードをご覧ください。 InputBoxを使って、ユーザーから名前と住所を受け取ります。それぞれを、変数Xと変数Yに入れて、後で変数に入れた値をセルに書き込んでいます。プログラム的には、何も間違っていません。しかし、 の部分を見て、間違いなく「セルA1に名前」「セルB1に住所」が入力されると分かるでしょうか?変数Xに何が入っているか知るには、 … End Sub ‚¢B, •Ï”–¼‚̂‚¯‚©‚½@•Ï”‚̐錾êŠ@•Ï”‚ÌŒ^@•Ï”‚̐錾@•Ï”‚̃XƒR[ƒv@•Ï”‚̏‰Šú‰»@ƒOƒ[ƒoƒ‹•Ï”@”z—ñ•Ï”@•Ï”‚Ì‘ã“ü@•Ï”‚Ì”z—ñ@•Ï”‚Ì’è‹`@ŠÂ‹«•Ï”. は根本的に違うものです。 gHensu4()=Get_gHensu("gHensu4",para0,para1,para2,para3), ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!, 次のような処理で・・・、 ですのでループ中は OS や Excel そのものにも再描画をさせる暇さえ与えません。 gHensu3()=Get_gHensu("gHensu3",para0,para1,para2,para3) 以上、よろしくお願いいたします。, 【やりたいこと】   ReDim a3(i, 4) 結果、フォームの再描画などが行われることになります。 CloseとDisposeの違いについて教えていただきたいのです。 呼び出し方ではなく、別の要因が存在する 配列をクリア Array.Clear   ReDim a2(i, 3) Dim Hensu(5) AS String とあった場合、この変数名の "Hensu" を取得することはできないものでしょうか?よろしくお願いします。変数名を取得した後、何をしたいのでしょうか?こんな方法もあるかと思います。Private Type typHensu Hen