VBA（ExecuteExcel4Macro）を用いた検索ツール| OKWAVE

ExecuteExcel4Macroを使ったレコードの読み込み方法につ

ExecuteExcel4Macroを使ったレコードの読み込み方法について下記サンプルは、ファイルを指定して、指定したファイルの中にあるシートを選択し、その中にあるデータを読込むものになっています。読込ませるファイルのsheet1には、『 ID，顧客番号，氏名，住所，電話番号』が入っています。下記サンプルでは、顧客番号フィールドのデータは読込めるのですが、該当するレコード全体を読込むにはどう組み立てればいいかよくわかりません。すみませんが、どなたかご教授いただけませんでしょうか。よろしくお願いいたします。 Public Sub testes() ' 変数の指定 Dim OpenFileName, SheetName, Target, buf As String Dim i, TargetCol As Long, GetNames() ' 対象ブックの選択 OpenFileName = Application.GetOpenFilename("Microsoft Excel ブック,*.xls") If OpenFileName = "False" Then Exit Sub ' ファイル名に[]を付ける OpenFileName = Replace(OpenFileName, Dir(OpenFileName), "[" & Dir(OpenFileName) & "]") ' 対象ワークシート名の指定と取得 SheetName = InputBox("対象ワークシート名を入力します") If SheetName = "" Then Exit Sub Target = "'" & OpenFileName & SheetName & "'!" ' ワークシートの正誤チェック On Error Resume Next buf = ExecuteExcel4Macro(Target & "R1C1") If Err <> 0 Then MsgBox "ワークシート [ " & SheetName & " ] を読めませんので終了します。", vbExclamation Exit Sub End If On Error GoTo 0 ' [顧客番号]フィールドを探す For i = 1 To 256 If ExecuteExcel4Macro(Target & "R1C" & i) = "顧客番号" Then TargetCol = i Exit For End If Next i If TargetCol = 0 Then MsgBox "[顧客番号]フィールドが確認できません。", vbExclamation Exit Sub End If ' データの読み込み For i = 1 To 10000 buf = ExecuteExcel4Macro(Target & "R" & i) If buf = "0" Then Exit For ' シートに出力する Worksheets("sheet3").Activate ActiveSheet.Cells(i, 1) = buf Next i End Sub

【VBA】ExecuteExcel4Macro

こんにちは、VBA初心者につき皆様のお知恵をお貸し下さい。 ExecuteExcel4Macroを使用し同一フォルダ内の複数ブックから値の取得を行う際に特定のブックが開かれている（使用中）場合、それを判断する方法はありますでしょうか？当初は以下プログラムで判断していたのですがファイル数が多い為１つ１つ開いてしまうととても処理時間が掛かるので試行錯誤しながらExecuteExcel4Macroにたどり着きました。 ------------------------------------------------------------------------------------------- Set wb = Workbooks.Open(myFdr & "\" & fname) 　If ActiveWorkbook.ReadOnly Then 　　MsgBox "取得できませんでした" 　　ActiveWorkbook.Close 　　Exit Sub 　End If -------------------------------------------------------------------------------------------- 処理速度が早く出来るのであればExecuteExcel4Macroに拘りは無いのでもし他にいい手段がありましたらご教授頂けると幸いです。以上、宜しくお願い致します。

Excel VBA ExecuteExcel4Macroについて

こんにちは。よろしくお願いします。あるフォルダ"D:\test"のなかに、４つのxlsファイル"o.xls"、"a.xls"、"b.xls"、"c.xls"があるとします。使用するシート名は、それぞれo,a,b,c（ファイル名から".xls"を除いたもの）とします。このとき"o.xls"を開いて、下記のマクロを実行すると、１行目にパス名、２行名にファイル名、３行目以下に（１列目は"a.xls"の、２列目は"b.xls"の、３列目は"c.xls"の）セルA3以下が読み込まれます。たとえば、結果は添付の図のようになります。図がうまくアップできなかったらごめんなさい。 Sub sample1() Application.Calculation = xlManual Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Worksheets("o").Cells.Clear Dim p As String, fn As String, fc As Long, i As Long, j As Long, d, e p = ActiveWorkbook.Path fn = Dir(p & "\" & "*.xls", 0) fc = 0 If fn <> "" Then fc = fc + 1 For j = 3 To 6 With Worksheets("o") .Cells(1, fc).Value = p & "\" & fn .Cells(2, fc).Value = fn d = ExecuteExcel4Macro("'" & p & "\[" & fn & "]" & Mid(fn, 1, Len(fn) - 4) & "'!R" & j & "C1") If d = 0 Or IsError(d) Then Exit For Else .Cells(j, fc) = d End If End With Next j End If Do fn = Dir() If fn <> "" Then fc = fc + 1 For i = 3 To 6 With Worksheets("o") .Cells(1, fc).Value = p & "\" & fn .Cells(2, fc).Value = fn e = ExecuteExcel4Macro("'" & p & "\[" & fn & "]" & Mid(fn, 1, Len(fn) - 4) & "'!R" & i & "C1") If e = 0 Or IsError(d) Then Exit For Else .Cells(i, fc) = e End If End With Next i Else Exit Do End If Loop Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Calculation = xlAutomatic End Sub 上記の例は変数iとjが3から6までしか動きませんし、読み込むxlsファイルも３つしかありませんのですぐに終わりますが、実際には行やファイルがもっとたくさんあり、非常に時間がかかっています。そこで、 ExecuteExcel4Macro("'" & p & "\[" & fn & "]" & Mid(fn, 1, Len(fn) - 4) & "'!R" & i & "C1") を e = ExecuteExcel4Macro("'" & p & "\[" & fn & "]" & Mid(fn, 1, Len(fn) - 4) & "'!R3C1:R6C1") というような風にして、For～Nextも使用せず .range(Cells(3, fc),cells(6, fc)) = e というふうに範囲で読み込もうとしたのですがうまくいきません。 ExecuteExcel4Macroは範囲を読み込むことはできないのでしょうか？何とかして処理速度を上げたいのですが、どうすればよいでしょうか。

ExecuteExcel4Macroを使って他のブックを開かずにセルを

ExecuteExcel4Macroを使って他のブックを開かずにセルを参照しているのですが、worksheet(1)という記述を使いたいのですがどうすればよいでしょうか？ Target1 = "'" & Path & "[" & buf & "]sheet1'!R75C3" 上記だとsheet1という名前でなかったらエラーが出てしまうので・・・。

VBAでのExecuteExcel4Macroの値取得でエラー

こんにちは。 Excel VBAより、ExecuteExcel4Macroを実行して、外部のExcelファイルの、名前（店名、月度）を定義したセルの値を取得したいと思っています。店名：文字列型月度：Date型そこで、ExecuteExcel4Macro()を実行し、以下のような処理を加えました。 ------------------------------------------------------------------------------------ dim 店名 as Variant, 月度 as Variant If 外部マクロ実行("'c:\[test.xls]出勤簿'!店名", 店名) = False Or _ 外部マクロ実行("'c:\[test.xls]出勤簿'!月度", 月度) = False Then MsgBox "取得失敗", vbExclamation End End If Public Function 外部マクロ実行(com As String, ByRef result As Variant) As Boolean On Error GoTo erron3 result = ExecuteExcel4Macro(com) On Error GoTo 0 外部マクロ実行 = True Exit Function erron3: 外部マクロ実行 = False End Function ------------------------------------------------------------------------------------ これを実行したところ、「月度」の値は取得できるのですが、「店名」の値には「エラー 2042」という値が入ります。 ※dirname, filenameは正しい値が入っています。 ※シート「出勤簿」および「月度」「店名」のセル名の定義も存在します。 test.xlsを開いてるときは、上記の現象は起こらず、「店名」の値は正常に取得できます。また、試しに、test.xlsを開き、 Worksheets("出勤簿").Range("店名")を実行すると、正常な値が取得できました。まとめると、・閉じたブックの、あるシートにある、セルに定義された名前を指定して・ExecuteExcel4Macroで、文字列が入っている値を取得しようとした時、・正常に値が取得できないという現象に遭遇しています。 3日ほど調べているのですが、どうしても原因が分かりません。解決策をお持ちの方、いらっしゃいましたらアドバイスを頂けると助かります。環境：WindowsXP Pro SP3 Excel 2003 (11.5612.5606) 以上、よろしくお願いいたします。

Excel VBAのApplication.ExecuteExcel4Macro

こんにちは。 Excel VBAでファイル間集計のマクロを作りました。変数MyStrに指定のパスとファイル名を代入するようにしてあります。 Application.ExecuteExcel4Macro(MyStr) を実行し指定のパスにファイル名が実在すれば、動作は上手くいきます。ただし、指定のパスにファイルが存在しない場合、ファイル検索のダイアログが出てしまい、強制終了すれば、実行時エラー２０２３になってしまいます。これを回避し、「該当のファイルが見つかりません」とメッセージを出したいのですが、IF文にどのように書けばいいのか分かりません。参考サイトでも、構いませんので皆さんの知恵を貸して下さい。よろしくお願いします。

EXCELのVBAにて閉じたブックの数値を拾い出したいため

EXCELのVBAにて閉じたブックの数値を拾い出したいため ExecuteExcel4Macroを使用して次のように作成しましたが生産管理ブック内の直出荷シートしか参照できません。その他シートの参照して数値を拾い出したいためシートのループ処理(シート数不規則）を例えばworksheet(1)~処理終了の名前がついたシートまで行いたいのですがどの様に直出荷部分を書き込めばいいかわかりません。いい方法を教えていただけ無いでしょうか？ (：と生産計画の間　エン[　がうまく表示できません） Dim i As Long, idx As Long Dim hi As Integer For hi = 10 To 252 If Cells(2, 3) = ExecuteExcel4Macro("'E:\生産計画.xls]直出荷'!R" & 11 & "C" & hi) Then Exit For End If Next hi i = 7 For idx = 7 To 3000 For i = i To 300 If ExecuteExcel4Macro("'E:\生産計画.xls]直出荷'!R" & idx & "C" & 5) = 0 Then Exit Sub End If Cells(i, 1) = ExecuteExcel4Macro("'E:\生産計画.xls]直出荷'!R" & idx & "C" & 5) Cells(i, 2) = ExecuteExcel4Macro("'E:\生産計画.xls]直出荷'!R" & idx + 2 & "C" & 5) Cells(i, 3) = ExecuteExcel4Macro("'E:\生産計画.xls]直出荷'!R" & idx + 11 & "C" & hi) i = i + 1 Exit For Next i idx = idx + 57 Next idx

VBA inputbox関数について

質問をさせてください。 VBA　inputbox関数にて数字を入力をし、その数字を元に挿入を行うというものを施しています。そして下記の内容で実際は動くのですがどうしても疑問点が浮かんできます。それはinputbox関数には宣言をしないと文字列として処理されますよね？なので、宣言をlongにして整数化をしています。しかし、If "1" <= buf1 <= "65536" Thenの部分で数字に""(ダブルコーテーション)を入れないとうまく作動しません。例えば「0」を入力しても正の処理へ行います。ダブルコーテーションで囲んでいる数値は文字列として認識されるはず・・入力は数値として宣言をしているのだからダブルコーテーションはいらないのではないんでしょうか？また、もし数字ではなく、記号などを入力をしてしまった場合の偽の処理へいくにはどうすればいいでしょうか？恐れ入りますがよろしくお願いいたします。 Sub test() Dim buf1 As Long buf1 = InputBox("コピー先の列番号を入力してください") If "1" <= buf1 <= "65536" Then Cells(buf1, 1).EntireRow.Insert Else MsgBox "正しい列番号を入力してください" Exit Sub End If End Sub

複数検索方法

マクロ（Excel）にて検索できるものを作成しています。例えばネットワークドライブにて割り当てたH22（Zドライブ）～H1（Gドライブ）というフォルダがあり、UserForm1にてH22～H1のチェックボックスを作成しています。ここでH22とH21のチェックボックスにチェックを入れキーワードを入力し検索すると、H22とH21のフォルダ内になるキーワードと同じファイル名をフォルダ名と同じのシートに検索結果を表示したいです。しかし、下記のようにすると、１つずつの検索は可能なのですが、複数チェック（H22とH21）入れると H22を検索し終わった後、もう一度キーワードを入力しないとH21を検索してくれません。複数チェックし１回のキーワード入力で検索するにはどうすれば良いですか？説明が下手ですが、よろしくお願いします。 Private Sub CommandButton1_Click() If CheckBox1 = True Then Sheets("H22").Visible = True Sheets("H22").Select With Application.FileSearch .NewSearch .LookIn = "Z:\" buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & "ただし、複数キーワード検索はできません" & vbCrLf & "キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力") If buf = "" Or buf = "False" Then Exit Sub .Filename = buf .SearchSubFolders = True If .Execute() > -5 Then MsgBox .FoundFiles.Count - 5 & " 個のファイルが見つかりました", vbOKOnly, "検索結果" For 検索結果 = 6 To .FoundFiles.Count Cells(検索結果, 3) = .FoundFiles(検索結果) Next 検索結果 Else MsgBox "見つかりませんでした" End If End With Set FSO = Nothing For i = 6 To 検索結果 Step 1 Cells(i, 3).Select With ActiveSheet .Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 3).Value End With Next i ElseIf CheckBox2 = True Then Sheets("H21").Visible = True Sheets("H21").Select With Application.FileSearch .NewSearch .LookIn = "Y:\" buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & "ただし、複数キーワード検索はできません" & vbCrLf & "キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力") If buf = "" Or buf = "False" Then Exit Sub .Filename = buf .SearchSubFolders = True If .Execute() > -5 Then MsgBox .FoundFiles.Count - 5 & " 個のファイルが見つかりました", vbOKOnly, "検索結果" For 検索結果 = 6 To .FoundFiles.Count Cells(検索結果, 3) = .FoundFiles(検索結果) Next 検索結果 Else MsgBox "見つかりませんでした" End If End With Set FSO = Nothing For i = 6 To 検索結果 Step 1 Cells(i, 3).Select With ActiveSheet .Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 3).Value End With Next i 　・　・　・ End If End Sub

Excel　VBA　インプットボックス空文字を入力

いつもお世話になっています。下記のような入力処理をインプットボックスで行いたいと考えています。勤務先は場合によっては不要なのでパスして次に移りたいのですが空文字だとOKをクリックしても、キャンセルをクリックしても処理が終わってしまいます。勤務先 = InputBox("勤務先を入力") If 勤務先 = "" Then Exit Sub ActiveCell.Value = 勤務先 ActiveCell.Offset(0, 1).Select 氏名 = InputBox("氏名を入力") If 氏名 = "" Then Exit Sub ActiveCell.Value = 氏名空文字のままOKもしくはキャンセルでも次の処理に移るにはどうしたらよいでしょうか。お力添えをお願いいたします。

vba　InputBox　キャンセルなら

Sub test() Dim i As Long i = InputBox("値をいれてください") 'キャンセルなら 'if then exit sub End Sub このような状態で、キャンセルボタンを押すかescキーを押したら、 'キャンセルなら 'if then exit sub でプロシージャーを抜けたいのですが、キャンセルボタンを押すと、実行時エラー１３になります。（_型が一致しません。(Error13)）エラーを発生させずに、キャンセルさせるにはどうすればいいですか？

macroについて教えてください

こんにちは。以前こちらでPrivate SubについてMacroを教えていただきました。（あの後ログインパスワード等が不明になりお礼も出来ませんでしたが。。。回答頂いた方すみませんでした。）下記がそのMacroですが、今回また少し変えることになりどのように変えていいのか分かりません。前回は1～5はグレー、6～10は茶色・・・という形にしたのですが今回は進捗率での管理をしたく、80％以下は白、80～90％は赤、90～100％は青としたいと思っています。 Private Sub Worksheet_Change(ByVal Target As Range) Dim iColors As Variant Dim rw As Long Dim CellCnt As Integer Dim col As Integer Dim col2 As Integer Dim i As Integer Dim j As Integer Dim k As Integer Dim c As Variant Dim ar() As Variant Dim Sh1 As Worksheet Set Sh1 = Worksheets("小児科Dr") col = Target.Cells(1).Column '制限された列 If Not (col = 4 Or col = 8 Or col = 12 Or col = 16) Then Exit Sub iColors = Array(16, 16, 16, 16, 16, 53, 53, 53, 53, 53, 54, 54, 54, 54, 54) CellCnt = Target.Count ReDim ar(CellCnt - 1) For Each c In Target If c.Value <> "" Then If IsNumeric(c.Value) Then i = c.Value If i >= 11 Then i = 10 End If If i > 0 And i < 11 Then j = iColors(i - 1) Else j = 2 End If ar(k) = j k = k + 1 End If End If Next c rw = Target.Row Select Case col Case 4: col2 = 2 Case 8: col2 = 8 Case 12: col2 = 14 Case 16: col2 = 20 'Sh1.Cells(rw + 2, 13).Resize(Int(Target.Count / 3), 3).Interior.ColorIndex = j End Select InsideColors Sh1, rw, col2, CellCnt, ar() Set Sh1 = Nothing End Sub Private Sub InsideColors(sh As Worksheet, _ rw As Long, _ col As Integer, _ cnt As Integer, _ ar As Variant) 'sh[シート],rw[行], col[列],cnt[セル個数],iColor[色指数] Dim i As Integer Dim j As Integer Dim n As Integer Dim k As Integer If cnt Mod 5 > 0 Then '範囲行数 i = (cnt + 5 - (cnt Mod 5)) / 5 Else i = cnt / 5 End If rw = Int((rw - 1) / 5) + 1 '行再設定 j = ((rw - 1) Mod 5) + 1 '列設定 For n = j To cnt sh.Cells(rw + 2, col).Resize(i, 5).Cells(n).Interior.ColorIndex = ar(k) k = k + 1 Next n End Sub 毎回他の人を頼ってしまい、申し訳ないのですがお願いします。また、前回分からなかったので1～5を指定するときに5回同じカラー番号を書いたのですがこちらも良かったら手直し方法を教えていただければ助かります。宜しくお願いします。

Excel VBA Worksheet_Change　イベントについて

Excel VBA Worksheet_Change　イベントについて質問です。セルH8とI8を結合し、入力規則よりリストボックスを配置しました。本シートにWorksheet_ChangeをVBAで作成しましたが、セルH8:I8をDeleteすると実行時エラー13が発生します。 If Target = "" then exit sub end if や If Target.value = "" then exit sub end if や If Target <> "" then 処理 end if としても対処できませんでした。よい対処方法のアドバイスよろしくお願いします。

マクロ

マクロ初心者です。シート名＝社員番号（数字2～3桁）以下のようなマクロを組んでみましたが、実行してみると該当する社員番号のシートがあっても「該当する社員が存在しません」と出てしまいます。間違いをご指摘いただけると助かります。 Sub 社員検索() 　　Dim SheetName As String 　　SheetName = InputBox("社員検索" & vbLf & vbLf & "社員番号を入力して下さい") 　　　If SheetName = vbNullString Then 　　　　Exit Sub 　　　　Sheets(SheetName).Activate 　　　Else 　　　　MsgBox "該当する社員が存在しません" 　　　End If End Sub よろしくお願いいたします。

Excel2010 VBA 条件色付け

Sub sample() Dim r As Range For Each r In Range("q6:q30") If myIsNumeric(r) Then r.Offset(0, 1).Value = "数字" Else r.Offset(0, 1).Value = "文字" End If Next End Sub Function myIsNumeric(Target As Range) Dim r As Range Dim buf, tmp Dim flg As Boolean Dim i As Integer buf = Target For i = 1 To Len(buf) tmp = Mid(buf, i, 1) If IsNumeric(tmp) Then flg = True Exit For End If Next myIsNumeric = flg End Function を数字が入ってたら塗りつぶさないで、数字が入ってなかったら塗りつぶすように直したいです。あああ→塗るあああ1－1→塗らない住所→塗る住所12→塗らない

VBAで入力ミスの時、空白に戻すには

いつもお世話になります WINDOWS7 EXCELL2010 です。何れかのセルで入力ミスを、例えば　I13 に　1　を入力した時　「日」が当然表示されますがこれがミスで空白に戻したい時に「0」　で空白できると考えていましたが実際は空白でないみたいです。見た目では空白ですが空白のセルのカウント　COUNTBLANLK では1つ少なくなっています。このようなミスの時に空白に戻す方法はどのようにすればいいかご教授いただけませんか。よろしくお願いします。参考空白のセルのカウント AO13 =IF($B13="","",COUNTBLANK($I13:$AM13)) 入力のVBA Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("I13:AM27")) Is Nothing Then Exit Sub 'ココで範囲指定 Application.EnableEvents = False If Target.Value = 0 Then Target.Value = " " If Target.Value = 1 Then Target.Value = "日" If Target.Value = 2 Then Target.Value = "△" If Target.Value = 3 Then Target.Value = "▼" If Target.Value = 4 Then Target.Value = "前" If Target.Value = 5 Then Target.Value = "夜" If Target.Value = 6 Then Target.Value = "明" If Target.Value = 7 Then Target.Value = "有" Application.EnableEvents = True End Sub

エクセルVBAについて

エクセルVBAについて下にある、1行目に入力された数値の、選択したセルの数値を、Ｂ５セルに表示させるマクロなのですが、1行目が結合していると、うまくＢ５セルに表示できません。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 　If Target.Count > 1 Then Exit Sub　　　　'●複数セル選択は無視　If Target.Row <> 1 Then Exit Sub　　　　'●１行目以外の選択は無視　If Target.Column > 6 Then Exit Sub　　　'●Ｆ列目以降の選択は無視　If Target.Value = "" Then Exit Sub　　　'●選択セルが未入力なら無視　　　Range("B5").Value = Target.Value End Sub このマクロで、結合しているセルをＢ５に表示させることはできますでしょうか？ 1行目で選択するセルは、すべて2つのセルが結合しています。よろしくお願いいたします。

エクセルVBAで困っています。

Excell2003でマクロを作成したのですが、思うような結果が出なくて困っています。どなたかお力をお貸しください。お願いします。【作成したマクロ】 Sub テスト() 　　myPath = ThisWorkbook.Path 　　buf = Dir(myPath & "￥データ￥" & "*.xls") 　　Do While buf <> "" 　　　　Target = "'" & myPath & "[" & buf & "]Sheet1'!R1C1" 　　　　i = i + 1 　　　　Cells(i, 1) = buf 　　　　Cells(i, 2) = ExecuteExcel4Macro(Target) 　　　　buf = Dir() 　　Loop End Sub 【設定状況】・デスクトップ上に "サンプル.xls" があり、ThisWorkBookに上記マクロを書きました。・デスクトップ上に "データ" というフォルダがあり、その中に、"Book1.xls" と "Book2.xls" があります。・"Book1.xls" のSheet1のRange("A1")には "あいうえお" が入力されています。・"Book2.xls" のSheet1のRange("A1")には "かきくけこ" が入力されています。【マクロ実行結果】・Range("A1") ・・・ Book1.xls ・Range("B1") ・・・ #REF! ・Range("A2") ・・・ Book2.xls ・Range("B2") ・・・ #REF! となってしまいます。【求めたい結果】・Range("A1") ・・・ Book1.xls ・Range("B1") ・・・あいうえお・Range("A2") ・・・ Book2.xls ・Range("B2") ・・・かきくけこよろしくお願いします。

【至急】VBAについて

今会社でエクセルを作成しています。使用しているエクセルは2003です。 Ctrl+Fの機能とオートフィルタの機能を足したものを作成しようとしています。　現在　入力している内容は下記になります。 Dim txt As String Dim target As Range Dim rng As Range Dim adr As String 'Set target = Range("A6:L6 & Rows.Count) ' txt = InputBox("検索する内容を記述して下さい。") If txt = "" Then Exit Sub Set rng = target.Find(txt, After:=target(target.Count), LookAt:=xlPart) If rng Is Nothing Then MsgBox "ありません" Exit Sub End If adr = rng.Address Do rng.Activate Set rng = Range("A6:L" & Rows.Count).FindNext(rng) If rng.Address = adr Then MsgBox "終わりに達しました" If MsgBox("続けて調べますか?", vbYesNo) = vbNo Then Exit Do Loop End Sub 項目はA6からL6までに記入されていきます。一部内容は空白の部分もでますが、A6・B6は必須入力です。下方向に内容が無限に増えて行きます。現在エラーで “オブジェクト変数または With ブロック変数が設定されていません”と出てしまっています。 Set rng = target.Find(txt, After:=target(target.Count), LookAt:=xlPart) ここの部分がおかしいように思われます。ですが、どう直せばいいのか分からず先に進めません… 皆様の知識をお借りできればと思い投稿致しました。何卒宜しくお願い致します。

VBA エクセル文字列の桁数指定先頭に"0"

お世話になります。セルに入力されたコードが、指定された桁数未満であった場合に、足りない桁数分を調整するため先頭に"0"ゼロを追加したいと思っております。具体的には、10桁に指定されたコード番号を、間違えて6桁で入力した場合、先頭に"0000"を追加して10桁に調整したいのです。 (1)誤：54321Q ↓調整 (2)正：000054321Q 入力したら瞬時に修正をさせたいので、WorksheetにChengeEventを利用して書こうと思っているのですが、下記のとおり入力された桁数が1~9桁であった場合のそれぞれの指定を書くことしか思いつかなくて。もう少し、Simpleな書き方はないものでしょうか？～前略～ s = Cells(Target.Row, Target.Column).Value If s = "" Then Exit Sub End If i = Len(s) If i > 10 Then MsgBox "顧客番号(ICRIS#)は10桁です。" Exit Sub ElseIf i = 1 Then Cells(Target.Row, Target.Column).Value = "000000000" & s exitsub ElseIf i = 2 Then Cells(Target.Row, Target.Column).Value = "00000000" & s exitsub ～省略～よろしくご指導くださいませ。

VBA（ExecuteExcel4Macro）を用いた検索ツール

みんなの回答

関連するQ&A

ExecuteExcel4Macroを使ったレコードの読み込み方法につ

【VBA】ExecuteExcel4Macro

Excel VBA ExecuteExcel4Macroについて

ExecuteExcel4Macroを使って他のブックを開かずにセルを

VBAでのExecuteExcel4Macroの値取得でエラー

Excel VBAのApplication.ExecuteExcel4Macro

EXCELのVBAにて閉じたブックの数値を拾い出したいため

VBA inputbox関数について

複数検索方法

Excel　VBA　インプットボックス空文字を入力

vba　InputBox　キャンセルなら

macroについて教えてください

Excel VBA Worksheet_Change　イベントについて

マクロ

Excel2010 VBA 条件色付け

VBAで入力ミスの時、空白に戻すには

エクセルVBAについて

エクセルVBAで困っています。

【至急】VBAについて

VBA エクセル文字列の桁数指定先頭に"0"

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VBA（ExecuteExcel4Macro）を用いた検索ツール

みんなの回答

関連するQ&A

ExecuteExcel4Macroを使ったレコードの読み込み方法につ

【VBA】ExecuteExcel4Macro

Excel VBA ExecuteExcel4Macroについて

ExecuteExcel4Macroを使って他のブックを開かずにセルを

VBAでのExecuteExcel4Macroの値取得でエラー

Excel VBAのApplication.ExecuteExcel4Macro

EXCELのVBAにて閉じたブックの数値を拾い出したいため

VBA inputbox関数について

複数検索方法

Excel VBA インプットボックス空文字を入力

vba InputBox キャンセルなら

macroについて教えてください

Excel VBA Worksheet_Change イベントについて

マクロ

Excel2010 VBA 条件色付け

VBAで入力ミスの時、空白に戻すには

エクセルVBAについて

エクセルVBAで困っています。

【至急】VBAについて

VBA エクセル 文字列の桁数指定 先頭に"0"

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Excel　VBA　インプットボックス空文字を入力

vba　InputBox　キャンセルなら

Excel VBA Worksheet_Change　イベントについて

VBA エクセル文字列の桁数指定先頭に"0"

カテゴリ
一覧

専門家に質問してみよう
専門家登録