VB2010でラベルに文字を結合したい
VB2010でTextboxで辺の長さの数値を入力し、その数値分「＊」を表示して正方形を作るアルゴリズムを考えています。どんな感じかは添付画像を参照していただければと思います。 Dim saizu As Integer Dim i, j As Integer saizu = TextBox1.Text For i = 1 To saizu For j = 1 To saizu Label1.Text...
View Article配列をEraseしてもメモリが開放されていない？
すみません。一度質問を載せた後で、補足で絵を載せようとしたのですができなかったので 再投稿させていただきます。（元の質問はけしました。） -------------------------------------- こんにちは、今作成しているエクセルのVBAで配列を膨大に食ってしまい、メモリ不足に落ちいるという現象に悩まされています。...
View Article配列数とメモリの使用率
お世話になります。 VBAで作成しております。 VBAで固定配列、Array(20000,256)を使用しています。 この配列を使用している時には、この配列だけで 具体的にメモリをどれくらい使用しているのでしょうか？ もし、配列の中にどれくらい値が入っているか等、 条件が必要でしたら、その条件を指定した上で メモリの使用量を教えて頂ければと思います。...
View ArticleVBA Withの使い方
２つのシートを操作するマクロを書いています。 Worksheets(A).Range("A1").Value = Worksheets(B).Range("A1").Value Worksheets(A).Range("B1").Value = Worksheets(B).Range("B1").Value Worksheets(A).Range("C1").Value =...
View ArticleVBを使ってIndesign作業を効率化？
はじめまして。 定期的に数十のインデザインファイルを開き、各ファイルで使った画像を片っ端から手作業で削除する作業を行う係りが自分に回ってきてしまいました。 日頃IllustratorとPhotoshopを多用しているので、「こんなのマクロでしょ」と思いきや、インデには何故かマクロ機能がなく、代わりにスクリプトで何とかできる「かも」ということが分かりました。...
View ArticleMoveWindowで位置だけ変更するには？
VB.NET でウインドウの位置だけを変更するのに、次のMoveWindowsを使用しましたが、サイズも変更されました。 MoveWindow(hWnd, 0, 30, 0, 0, 1) ウインドウのサイズを変えないで、位置だけを変更する指定方法をご教示して頂きたくお願い致します。
View ArticleExcelVBAの「For～Nextステートメント
ExcelVBAの「For～Nextステートメント」が全くわかりません。 変数にいれるなど、本に書いてあるのですが、、いまいち理解できないです。
View ArticleExcel2010 VBA終了時に強制終了する
Excel2003、2007で実行した場合は正常終了するが Excel2010で実行するとVBA終了時に強制終了します。 処理は、マクロありブックからマクロなしブックを作成するために、 新規ブックを作成しマクロありブックからシートを移動する処理です。 VBA起動は、フォームコントロールから行っています。 VBA終了時に(End Sub）後にEXCELがなぜか強制終了します。 （Microsoft...
View Articleマクロ是非ともアドバイスお願いします。
6月累計ファイル データをコピーして「全社累計」ファイルへ貼り付け ’6月累計ファイル データF32～F109データをコピーして Range("F32:F109").Select Selection.Copy ’全社累計シート管理用E3～E80に貼り付ける。 Windows("全社累計.xls").Activate Sheets("管理用").Select...
View Articleエクセルマクロでファイル出力する方法
エクセル内の文字列を以下のように出力したいです。 エクセル内の以下の構成の文字列が複数あります。ファイル名に含まれる文字列shをキーとしてファイル名を検索し、ヒットしたらファイル名下段の文字列達を空白まで１ファイルとして出力したいです。 ファイル名（….sh） 文字列1 文字列2
View Article文字数を越えた文字列を削除するには？
いつもお世話になっております。また行き詰ってしまいました。 ご助言頂きたくお願い致します。 Ａ列とＢ列にデータが入っていて、Ｂ列には２つのパターンの文字が入っています。 一つは、前の１０文字が必ず半角（英字+９ケタの数字）その後は全角のスペースの後に 全角の文字が並びます。（全角の文字数は不規則） 例１：A123456789 あいうえおかきくけこさしすせそ もう一つは頭からすべて全角文字...
View ArticleExcel VBAで結合セルの扱いが失敗します。
KenKen_SPさんの素晴らしいコードを参考に、特定の色のセルにおいてのみ、テキストを削除するマクロが以下です。このままでは結合セルのあるエクセルシートでエラーになってしまいます。 これを解決できませんでしょうか。よろしくお願いします。 For i = 1 To ThisWorkbook.Worksheets.Count ThisWorkbook.Worksheets(i).Select Dim...
View ArticleVBAで、すべてのファイル（ppt,pdf,txt
VBAで、すべてのファイル（ppt,pdf,txtなど）を選択して開きたい VBA初心者です。ダイアログから選択して様々な形式のファイルを 開きたいのですが、 検索して↓などをみていますが、イマイチわかりません。。。 http://okwave.jp/qa/q1545851.html http://oshiete.goo.ne.jp/qa/7827757.html...
View Articleシステムにインストールされているフォント名の取得
VB.NETですが、システムにインストールされているフォント名を取得するために下記のコードを書きました。 Private Sub GetSystemFonts(ByRef SysFontString As String) Dim SystemFont As New System.Drawing.Text.InstalledFontCollection SysFontString = "" For...
View Article現在開いているWebページをエクセル保存したい
お世話になります。 VBAで作成しております。 現在(1)のコードで、「指定したURL」をエクセル保存しているのですが、 「現在開いているページ」エクセル保存したいのですが どのようにすればよいでしょうか？ お手数ですが何卒宜しくお願いします。 ---------(1)------------- Set g_msg = CreateObject("CDO.Message")...
View Article実行するとどうなるのでしょうか？
Private Sub CommandButton1_Click() Dim a, rng As Range, n As Long On Error GoTo Last Set rng = Application.InputBox("A1:I29", Type:=8) If Not rng Is Nothing Then Exit Sub On Error GoTo 0 a = rng.Value...
View ArticleExcelの計算式
同一のファイル内で↓の事をしたのですが、ご意見をいただけませんか? Sheet1; (A列) (B列) (C列) (D列) 1 fileA 10K ● 対象外 2 fileB 20K ▲ 3 fileC 30K × 対象外 4 fileD 40K ■ . . Sheet2; (A列) (B列) (C列) (D列) 1 fileA 10K 0 n/a 2 fileB 20K 1 ▲...
View ArticleエクセルVBAにてテキスト出力がうまくいきません
エクセルシートの1列に以下のような文字列を打ち込みました。 - a aa aaa aaaa aaaaa - b bb bbb bbbb bbbbb - c cc ccc cccc ccccc - 「-」の2行後をテキストを出力した際のファイル名とし、ファイル名を含んだ次の「-」までの文字列をそのテキストの中に出力したいです。なお、全体の行数は分かっています。 例えば上の文字列に対して実行すると、...
View Articleコンボボックスの連動に関して
ある２つのコンボボックスを、１つ目の選択肢によって絞込みをかけたいと考えて います。 但し、いずれもデータベースからのデータをもとにコンボボックスを作成している為、 それをどうやって連動すれば良いかわかりません。 下記の記述にもあるように、選択されたタイミングで、他のコンボボックスを参照し、 それをＳＱＬに反映させて、データを検索し、グリッドに表示というような事は可能ですが、...
View Article文字列をテキストに書き出したい
素人で大変申し訳ございません。 VBAを使用して、「テスト」という文字を「E:\フォルダ\試作.txt」に保存する VBAコードを教えて頂けないでしょうか？ 何卒宜しくお願いします。
View Article