締切済み

Excel vba PDF 複数ファイルを一括保存

2014/09/04 08:54

以下のコードで、for eachの部分をどのように変えると 1枚のpdfですべて保存出来るか教えてください。よろしくお願いします。 sub macro1() 　dim h as range 　worksheets("Sheet1").select 　for each h in range("C2:C" & range("C65536").end(xlup).row) 　　worksheets("Sheet2").select 　　range("B6").value = h.value 　　range("E18...

Loopzone
お礼率50% (4/8)

Excel（エクセル）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

ASIMOV-jp
ベストアンサー率0% (0/0)

2014/09/12 16:49 回答No.1

全てのシートを選択して、１つのPDFファイルとして保存ということなら．． http://www.officepro.jp/excelvba/sheet/index6.html

関連するQ&A

セルの値をシート名にするエクセルVBA

件名のVBAを以下のように書きました B列の４からずっと下までのセルの値を次々とシート「ひな型」をコピーし増やしていくものです。 Sub テスト() ' ' Macro ' ' Dim target As Range Dim h As Range '見えてるセルを取得する。「全部隠れていた」場合も考える。 On Error Resume Next Set target = Worksheets("Sheet1").Range("B4:B" & Worksheets("Sheet1").Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible) If target Is Nothing Then Exit Sub 'シートを増やしていく For Each h In target On Error GoTo errhandle Worksheets(CStr(h.Value)).Select On Error GoTo 0 Next Sheets("Sheet1").Select Exit Sub errhandle: Worksheets("ひな型").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = h.Value Resume End Sub これだと、一応思った通りにはなるのですが B列のセルに複数同じ名前があった時に、既に作ったシートの名前がある場合それは無視するという風に実行したいですお知恵をお貸しくださいませ
エクセルVBAについて

前回質問させていただきました件の追加機能になります。以前質問させていただきましたマクロが下記のものです。 Sub TESTa() Dim A As Long Dim B As Long Dim C As Long Dim D As Long Dim E As Long Dim F As Long '表の行数を調べる A = Worksheets("sheet1").Range("C65536").End(xlUp).Row - 1 For C = 1 To A For B = 4 To 7 'Sheet1のデータをSheet2に複写する Worksheets("Sheet2").Cells(B - 3 + D, 15) = Worksheets("Sheet1").Cells(C + 1, 1) Worksheets("Sheet2").Cells(B - 3 + D, 6) = Worksheets("Sheet1").Cells(C + 1, B) Worksheets("Sheet2").Cells(B - 3 + D, 14) = Worksheets("Sheet1").Cells(C + 1, 3) Worksheets("Sheet2").Cells(B - 3 + D, 10) = Worksheets("Sheet1").Cells(1, B) Worksheets("Sheet2").Cells(B - 3 + D, 13) = Worksheets("Sheet1").Cells(C + 1, 2) Next D = C * 4 Next 'Sheet2の表の行数を調べる Sheets("Sheet2").Select E = Worksheets("sheet2").Range("F65536").End(xlUp).Row '0欄の確認 For F = E To 1 Step -1 If Worksheets("Sheet2").Cells(F, 6) = 0 Then '0の場合は行を削除する Cells(F, 1).EntireRow.Delete End If Next End Sub カウントするとデータ個数がSheet1で約１２０件になりSheet2においては、４倍になりますので約４８０件になります。そこで　Sheet1において１２件ごとに、Sheet2,3,4...としたいのです。 Sh1 NO.1～12がSheet2 Sh1 NO.13～24がSheet3 ... 10枚のシートにしたいのですが、このマクロにどのような命令を加えればよろしいでしょうか？お手数ですがよろしくお願いいたします。
【VBA】　超初心者です　複数のシートに転記したい

Sub べんきょう() Worksheets(Array(1, 3)).Select Range("A1").value = 20 End Sub もしくは Sub べんきょう() Worksheets("sheet1").Select Worksheets("sheet3").Select False Range("A1").value = 20 End Sub でやってもsheet1にしか転記されないんです！！ご指導よろしくお願いします！
エクセルのフォームのVBAについて

VBAがまったくわからないのに参考書を見て高度な事に挑戦していますフォームは作れてフォームをクリックやら入力やらして作ったOKボタンを押すとシート2のA1B1C1‥の列に入力文字だけが羅列されます。しかし次にやろうとするとA2B2C2‥と下に行かず又A1B1C1‥の列の文字が変更になり続きません。何がいけないのでしょうか？ Sub 入力() Dim LastRow As Long With Worksheets("sheet2") LastRow = Worksheets("sheet2").Range("A" & Rows.Count).End(xlUp).Row .Range("A" & LastRow).Value = Worksheets("sheet1").Range("A5").Value .Range("B" & LastRow).Value = Worksheets("sheet1").Range("A7").Value .Range("C" & LastRow).Value = Worksheets("sheet1").Range("A8").Value .Range("D" & LastRow).Value = Worksheets("sheet1").Range("A10").Value End With End Sub と参考書とおりいれたのですが‥。教えて下さい。
インデックスが有効範囲に出ないと出る

下記のようなVBAを書きました。しかしインデックスが有効範囲にないとメッセージがでるのですが、どこがまちがっているでしょうか？？ Sub macro1() Dim i As Long Dim r As Long Worksheets("フェアリスト").Select Worksheets("csv").Range("A:C").ClearContents For i = 2 To 50 Step 5 If Worksheets("フェアリスト").Cells(11, i + 1) <> "" Then r = Worksheets("フェアリスト").Cells(65536, i + 1).End(xlUp).Row Worksheets("フェアリスト").Range(Cells(11, i), Cells(r, i + 3)).Copy _ Destination:=Worksheets("csv").Range("B65536").End(xlUp).Offset(1) Worksheets("csv").Range("A65536").End(xlUp).Offset(1).Resize(r - 3, 1).Value = Worksheets("フェアリスト").Cells(8, i).Value End If Next i Worksheets("csv").Range("A1:C1").Delete shift:=xlShiftUp End Sub
Ｅｘｃｅｌ VBA 実行時エラー'1004':

　どちらの処理がより高速であるのかを調べるため、以下の2つのVBAを試作致しました。 Sub Macroコピペ乱数() 'コピペ乱数 Sheets("Sheet4").Select Range("A1:A99999").Formula = "=RAND()" Columns("A").Value = Columns("A").Value Range("B1").Select End Sub 及び Sub Macro繰り返し乱数() '繰り返し乱数 Dim i As Long Randomize Sheets("Sheet4").Select For i = 1 To 99999 Range("A" & i).Value = Rnd Next i Range("B1").Select End Sub 　処が、これらのVBAを実際に動作させ様としますと、どちらの場合においても「Microsoft Visual Basic」ダイアログボックスが開いて「実行時エラー'1004': 'Range'メソッドは失敗しました:'_Global'オブジェクト」と表示されてしまいます。　さりとて、 Sub Macroコピペ乱数() 'コピペ乱数 Sheets("Sheet4").Select ActiveSheet.Range("A1:A99999").Formula = "=RAND()" Columns("A").Value = Columns("A").Value Range("B1").Select End Sub 及び Sub Macro繰り返し乱数() '繰り返し乱数 Dim i As Long Randomize Sheets("Sheet4").Select For i = 1 To 99999 Range("A" & i).Value = Rnd Next i Range("B1").Select End Sub 或いは Sub Macro繰り返し乱数() '繰り返し乱数 Dim i As Long Randomize Sheets("Sheet4").Select For i = 1 To 99999 Range(Cells(i, 1)).Value = Rnd Next i Range("B1").Select End Sub 等としましても、今度は「実行時エラー'1004': アプリケーション定義またはオブジェクト定義のエラーです。」となってしまいます。　どの部分がどの様に悪いのでしょうか？　そして、どの様に修正すれば良いのでしょうか？　尚、使用しておりますＥｘｃｅｌのバージョンはＥｘｃｅｌ2010です。
Excel VBA; 複数のループ処理

↓のようなコードがあります。 Dim i As Long, MaxRow1 As Long, MaxRow2 As Long MaxRow1 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row MaxRow2 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To MaxRow1 Worksheets("Sheet1").Cells(i, 1).Value = i . Next i For i = 1 To MaxRow2 Worksheets("Sheet2").Cells(i, 1).Value = i . Next i これらを最大行の多いシートに合わせて、パフォーマンスを良くしたいと思います。同様の処理をシート1、シート2で実施しているので纏めて記述したいです。シート1、シート2に対する処理をサブルーチンにする方法しかありませんか? どなたかお願いします。 If MaxRow1 >= MaxRow2 Then For i = 1 To MaxRow1 Else For i = 1 To MaxRow2 End If Worksheets("Sheet1").Cells(i, 1).Value = i Worksheets("Sheet2").Cells(i, 1).Value = i . Next i
Excel VBA 構文をすっきりさせたい

いつもお世話になっています。次のような構文を使って、データを別シートに転送するVBAを作成しました。転送するデータが多い場合、構文が延々続くことになります。もっとすっきりと記述する方法がありましたらぜひ教えてください。お力添え、よろしくお願いします。 Sub データ() With ActiveSheet Dim last last = ActiveSheet.Range("b" & Rows.Count).End(xlUp).Row + 1 .Range("b" & last).Value = Worksheets(2).Range("b2").Value .Range("c" & last）.Value = Worksheets(2).Range("c2").Value .Range("d" & last).Value = Worksheets(2).Range("d2").Value 　　　　以下同様に続く・・・・ End With End Sub
ExcelのVBAについて質問です。Excelは２００３です。

ExcelのVBAについて質問です。Excelは２００３です。コマンドボタン１で下記のプログラムを実行するようにしています。 Sub Macro1() ' ' Macro1 Macro ' ' Dim iRows As Integer Dim sRows As String Dim i As Integer For i = 1 To １００ Application.Wait Now + TimeValue("00:00:05") ' 最終行の調査: iRows = Worksheets("Sheet1").UsedRange.Rows.Count ' 最終行をシート3にコピー Worksheets("Sheet1").Rows(iRows).Copy Destination:=Worksheets("Sheet4").Range("1:1") ' CH1 の最新データをシート3にコピー Worksheets("Sheet3").Range("B9").Value = Worksheets("Sheet1").Cells(iRows, 3).Value ' CH2 の最新データをシート3にコピー Worksheets("Sheet3").Range("C9").Value = Worksheets("Sheet1").Cells(iRows, 4).Value Next i End Sub これをコマンドボタン２で途中でも強制的に終了するようにしたいのですがコマンドボタン２にはどのようなプログラムを入れればいいでしょうか？
excel vbaでリストの範囲設定

よろしくおねがいします。 Sub 科目自動入力() Sheets("出納帳テンプレート").Select Application.ScreenUpdating = False 'ww列最終行取得 Dim vv As Long ' Sheets("科目シート").Select vv = Sheets("科目シート").Range("v" & Rows.Count).End(xlUp).Row Sheets("出納帳テンプレート").Select 'B列最終行取得 Dim aa As Long '式をフィルダウン aa = Range("B" & Rows.Count).End(xlUp).Row Range("H6").AutoFill Destination:=Range("H6:" & "H" & aa + 100), Type:=xlFillDefault '開始行設定 Dim a As Integer a = 6 kList = Worksheets("科目シート").Range("U2:V127") 'D列「月」欄が空白になるまで繰り返す '一覧に空白が出るか、一致する項目があるまで繰り返す Do Until Cells(a, 4).Value = "" For i = 1 To UBound(kList) If kList(i, 1) = "" Then Exit For '空白だったら抜ける If Cells(a, 7) <> "" Then Exit For 'すでに科目が入力されていれば抜ける If Cells(a, 4).Value Like "*" & kList(i, 1) & "*" Then Cells(a, 7).Value = kList(i, 2) Exit For End If Next i a = a + 1 Loop End sub このようなマクロを組んでいてうまく動作しております。科目シートにリストがあり現在はリストをkList = Worksheets("科目シート").Range("U2:V127") と範囲決め打ちしています。これを範囲可変にしてみようと考えてみたのですが、 kList = Worksheets("科目シート").Range(Cells(2, "U"), Cells(vv, "V")) としても実行時エラー　1004と出てうまくいきません。ちなみに開始セルは「U2」で変わりません。終点セルを変数vvで表現したいです。どうかよろしくお願いします。
エクセル、マクロの事で・・・？（２）

昨日、質問した者です。 http://okwave.jp/qa/q7374907.html 以下のマクロを教えてもらいました。昨日の質問では、エクセルのＡ列にフォルダ名、Ｂ列にファイル名、それぞれフォルダとtxtを出力するマクロを教えてもらいました。そこでもう一つ質問があるのですが、C列の内容をテキストに出力する場合はどうすればいいのでしょうか？度々の質問で申し訳ありませんが、教えていただけないでしょうか？よろしくお願いします。 sub macro1() 　dim myPath as string 　dim h as range 　on error resume next 　mypath = thisworkbook.path 　worksheets(1).select 　for each h in range("A1:A" & range("A65536").end(xlup).row) 　　mkdir mypath & "\" & h.value 　　open mypath & "\" & h.value & "\" & h.offset(0, 1).value & ".txt" for output as #1 　　close #1 　next end sub
エクセルＶＢＡ

ＶＢＡ内で、そのＶＢＡの実行を制御することは可能でしょうか？下のようなコードを作ったのですが、 Sub 承認書作成() Dim ws0 As Worksheet, ws1 As Worksheet, r1 As Range Dim i As Long Dim nyuryoku(), chikuseki() Set ws0 = Worksheets("承認書作成") Set ws1 = Worksheets("顧客データ") Set ws2 = Worksheets("業者コード") Set ws3 = Worksheets("承認通知書") Worksheets("顧客データ").Select Range("テーブル1[[#Headers],[ＮＯ．]]").Select Selection.End(xlToRight).Select Selection.End(xlDown).Select Selection.ListObject.ListRows.Add AlwaysInsert:=False Range("B7").Select nyuryoku = Array("b5", "d5", "f5", "h5", "j5", "l5", "n5", "p5", "b6", "d6", "f6", "h6", "j6", "l6", "n6", "p6", "b4", "d4") '転記したいセルの位置 chikuseki = Array("0", "1", "5", "6", "8", "9", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "53", "54") '転記先の列のオフセット値　Set r1 = ws1.Range("f" & Rows.Count).End(xlUp).Offset(0) 'データ蓄積セル　For i = 0 To UBound(nyuryoku) r1.Offset(0, chikuseki(i)).Value = ws0.Range(nyuryokui)).Value '入力 Next MsgBox "入力完了" Dim lRowNum As Long '転記先となる行番号を求める lRowNum = ws1.Cells(Rows.Count, "b").End(xlUp).Row '転記 ws3.Cells(6, "d").Value = ws1.Cells(lRowNum, "j").Value ws3.Cells(17, "g").Value = ws1.Cells(lRowNum, "c").Value ws3.Cells(22, "g").Value = ws1.Cells(lRowNum, "l").Value ws3.Cells(22, "ac").Value = ws1.Cells(lRowNum, "ab").Value 　　 Set ws0 = Nothing 　 Set ws1 = Nothing End Sub ここに、　　　If call Macro1 then call 承認書作成　'上のマクロです　　 Else: Msgbox"中止" 「Macro1を実行しないと承認書作成マクロを実行できない」というコードを組み込みたいのですが、うまくいきません。ＶＢＡ内に同じＶＢＡを組み込むことは不可能なのでしょうか？
Excel　VBA　日付の認識など

こんにちは。 VBA初心者のものですが質問させていただきます。 ※エクセル２００３です「sheet1のD4:FA4のうち、09年8月以外の日付のセルすべてを選択する」の構文を下記のように作ってみたのですがうまくいきません・・・ (1)「09年8月」の認識 (2)「～以外のセル全て選択」の2点がネックで困っています。ちなみに日付のセルには「2009/8/5」のように入力されており、表示は「09/8/5」です。すみませんがご教示お願いいたします。 Sub Macro1() Dim 日付 As Range For Each 日付 In Worksheets("sheet1").Range("D4:FA4") If 日付.Value like"*09/8/*"= false Then 日付.select End If Next End Sub
置換マクロ　続きです…

http://okwave.jp/qa/q8444285.html ↑こちらでご質問をさせていただき、置換シートA列に置換元、B列に置換後データを入れておくことで、置換が一度にできるマクロを作っていただいたのですが、ブック全体ではなく、現在アクティブなシートだけ、置換をすることは可能でしょうか…？いま、このマクロを実行すると、ブック全体が置換され、元の置換シートのA列や、置換できればしたくないシートもすべて置換されてしまいます。回答を閉め切ってしまい、新規でご質問となってしまいました。すみません、、自分でもいろいろと調べてやってみたのですが、どうしてもよくわからず… どうぞ、よろしくお願い致します。 ● 作っていただいたマクロ ● sub macro1() 　dim h as range 　for each h in worksheets("置換").range("A1:A" & worksheets("置換").range("A65536").end(xlup).row) 　　cells.replace what:=h.value, replacement:=h.offset(0,1).value, lookat:=xlpart 　next end sub
EXCEL　VBA 複数シート選択の方法

エクセルVBAのシート選択方法について教えてください。選択対象シート数は4つで、シート名は、「101」「102」「103追加工」「104」とします。シート名「表紙」のセルは A1：101　A2：102　A3：103追加工　A4：104となっており、使用者はB1～B4セルに「○」「×」を入力し、「○」となっているシートのみ選択出来るようにしたい。下記マクロの場合、シート名が全角文字だと使えるのですが、シート名が「101」のように半角数字だけの場合コピーできません。どこを修正すればよいのでしょうか？ Sub TestSample2() Dim c As Range Dim flg As Boolean On Error Resume Next flg = True ThisWorkbook.Activate　 With Worksheets("表紙") 　For Each c In .Range("B1:B4") 　　If c.Value Like "○*" Then 　　　 Worksheets(c.Offset(, -1).Value).Select flg 　　　 flg = False 　　End If 　Next c End With 　With ActiveWindow.SelectedSheets 　If .Count > 0 Then 　　 .Copy 　End If 　End With 　'元のシートに戻る場合　'Application.Goto ThisWorkbook.Worksheets("表紙").Range("A1") End Sub
ExcelのVBAについて(勉強中のです。)

ExcelのVBAについて(勉強中のです。) ここからコード3以降に入力したコードを抜き出してデータ表を作成しそれを保存するコードを作成したいです。例えばCSV形式にするとか？データ表は1日分の表示で、保存して週間や月間または統計データまでを視野にいれています。今回は保存する所です。。利用しやすい状態と保存形式で、よろしくお願いします。データは生活記録みたいなものです。何したどうしたどうなった？ ※大分分岐する予定で、作成中であり、今回はコードの整理は不要です。 '///Sheet1/// Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim time7 As Range For Each time7 In Target If time7.Column = 1 Then time7.Offset(0, 4).Value = Format(Now, "Short Time") & vbCrLf & _ Format(Now, "yyyy/mm/dd hh:nn:ss AM/PM") End If Application.EnableEvents = False Application.EnableEvents = True Next time7 '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 ws2.Range("A3:H3").Value = ws1.Range("A3:H3 ").Value End Sub Private Sub Worksheet_Activate() ' ' 新規行挿入 ' ' Worksheets("Sheet2").Range("3:3").Insert Sheets("Sheet1").Range("H3").Select ActiveCell.FormulaR1C1 = "5" Sheets("Sheet1").Range("E3").Select Selection.ClearContents Dim str_Left As String 'セルE4に文字列、セルH4に数字を予め入れておくこと。 str_Left = Left(Cells(4, 5), Cells(4, 8)) MsgBox str_Left & vbCrLf & " " & "OKボタンを押してください!" Sheets("Sheet1").Range("A3").Select Dim se_r As String se_r = Application.InputBox("バーコードを入力してください") Select Case se_r Case "False" MsgBox "キャンセルされました" Case "" MsgBox "空欄が入力されました" Case Else Range("A3").Value = se_r End Select End Sub ' ///Sheet2/// Private Sub Worksheet_Activate() Dim Emp(1 To 300) As String Dim msg As String Dim i, i2, Cnt As Integer Dim N_In As Variant For i = 3 To 3 If IsEmpty(Cells(i, 1).Value) = False Then 'ここで空欄判定 Worksheets("Sheet1").Range("3:3").Insert '対象セルアドレスを改行処理 End If Next i '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") ws1.Activate End Sub
2つのvbaを統合したい

はじめまして、vba初心者のものです。よろしくお願いします。以前こちらに質問させて頂いたことがあります。その以前質問して回答して頂いた2つのソースを一つに統合したいです。 1、参照元ブックと貼り付けブックの2つが存在します。 2、参照元ブックの名前の指定する必要はあると思いますが、貼り付け先ブックは新規作成にしたいです。 3、「▼質問タイトル：vba ブック間でシート名のコピーをするには」の動作は、貼り付け先ブックの各シートに反映されるようにしたいです。何卒よろしくお願いします。「▼質問タイトル：vba ブック間でシート名のコピーをするには」 http://okwave.jp/qa/q8727280.html sub macro1() 　dim wb1 as workbook 　dim w2 as worksheet 　dim i as long ’２つのブックは既に開いている事　set wb1 = workbooks("オリジナルブック.xlsm")　’拡張子まで正しく指定する事　set w2 = workbooks("貼り付け先ブック.xlsx").worksheets(1)　’同上 ’準備　w2.range("A:A").clearcontents 　w2.range("A:A").numberformat = "@" 　w2.range("A1") = "シート名一覧" ’転記　for i = 1 to wb1.worksheets.count 　if wb1.worksheets(i).name = "Sheet1" then exit for 　w2.range("A65536").end(xlup).offset(1) = wb1.worksheets(i).name 　next end sub 「▼質問タイトル：セルの項目をシート名にしたい」 http://okwave.jp/qa/q8727637.html sub macro1() 　dim h as range 　dim s as long, i as long 　s = worksheets.count + 1 ’シートを作る　for each h in range("C3:B" & range("C65536").end(xlup).row) 　worksheets.add after:=worksheets(worksheets.count) 　activesheet.name = h.value 　next ’別のブックにする　for i = worksheets.count to s step -1 　worksheets(i).select false 　next i 　activewindow.selectedsheets.move end sub
Excel VBA 複数のSheet の合計

Excel VBA 　超超　初心者です。見よう見まねで、複数のSheet の　L11:Q1000 ,T1:AW100 セル範囲にある文字 "～" を計算できたのですが、更に各Sheet で計算された合計をしたいのですが、さっぱり判りません。Sheet 名は、バラバラです。合計は、最初か最後のsheet のどこかのセルに表示させたいです。どなたかヒントをてください。よろしくお願いします。 Sub すべてのシートでマクロ実行() Application.ScreenUpdating = False Dim シート As Worksheet For Each シート In Worksheets シート.Select Range("H3").Select ActiveCell.FormulaR1C1 = "=COUNTIF(R[8]C[4]:R[997]C[9],""*～*"")" Range("I3").Select ActiveCell.FormulaR1C1 = "=COUNTIF(R[-2]C[11]:R[997]C[40],""*～*"")" Range("I4").Select Next Application.ScreenUpdating = True End Sub
ExcelのVBAについての質問です。

ExcelのVBAについての質問です。計測機器をつないでsheet1に数値が書き込まれていってる状況です。下記のプログラムを特定の時間内に複数回ループされるように設定したいのですが、そのようなプログラムを加えればいいのでしょうか？ Sub Macro1() ' ' Macro1 Macro ' ' Dim iRows As Integer Dim sRows As String ' 最終行の調査: iRows = Worksheets("Sheet1").UsedRange.Rows.Count ' 最終行をシート3にコピー Worksheets("Sheet1").Rows(iRows).Copy Destination:=Worksheets("Sheet3").Range("1:1") ' CH1 の最新データをシート3にコピー Worksheets("Sheet3").Range("B4").Value = Worksheets("Sheet1").Cells(iRows, 3).Value ' CH2 の最新データをシート3にコピー Worksheets("Sheet3").Range("B5").Value = Worksheets("Sheet1").Cells(iRows, 4).Value End Sub
エクセルVBA の変数を使うべきでしょうか？

はじめまして。エクセル初心者です。書籍やサイトで勉強させてもらっていますが、VBAがなかなか難しくてすぐに壁にぶつかってしまいます。少々困ってしまい、詳しい方のアドバイスを頂ければと質問を投稿させていただきました。どうか宜しくお願い致します。質問ですが、以下のようなコードで、sheet5のB列の任意のセルをダブルクリックした場合、sheet5のBCD列の同じ行のセル値がsheet1の指定した列に入力されるという処理を作りました。これで一応目的の動作はするのですが、数が増えると「コンパイルエラー・プロシージャが大きすぎます」というメッセージがでてしまいます。列や行には規則性があるので、もしかしたら変数というものを使ってコードを書き直せばいいのかなと思いネットで調べてみたのですが、今のところさっぱり理解できません。申し訳ありませんが、分かりやすくご教授いただけないでしょうか。バージョンは2003を使っています。また、下のコードですと、sheet5のBCDいずれかのセルに空白があった場合、sheet1の列に入力されるときに入力される行がずれてしまいます。今は空白を何かで埋めて対処しているのですが、この問題の解決策も教えて頂けると助かります。どうか宜しくお願い致します。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Target.Address = "$B$2" Then Worksheets("sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value Worksheets("sheet1").Range("H" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("B2") Worksheets("sheet1").Range("K" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("C2") Worksheets("sheet1").Range("M" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("D2") Worksheets("sheet1").Activate cancel = True End If If Target.Address = "$B$3" Then Worksheets("sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value Worksheets("sheet1").Range("H" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("B3") Worksheets("sheet1").Range("K" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("C3") Worksheets("sheet1").Range("M" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("D3") Worksheets("sheet1").Activate cancel = True End If If Target.Address = "$B$4" Then Worksheets("sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value Worksheets("sheet1").Range("H" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("B4") Worksheets("sheet1").Range("K" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("C4") Worksheets("sheet1").Range("M" & Rows.Count).End(xlUp).Offset(1).Value = Worksheets("sheet5").Range("D4") Worksheets("sheet1").Activate cancel = True End If 　　・　　　　・　　・　　　　・　　・　　　　・ End Sub

Excel vba PDF 複数ファイルを一括保存

みんなの回答

関連するQ&A

セルの値をシート名にするエクセルVBA

エクセルVBAについて

【VBA】　超初心者です　複数のシートに転記したい

エクセルのフォームのVBAについて

インデックスが有効範囲に出ないと出る

Ｅｘｃｅｌ VBA 実行時エラー'1004':

Excel VBA; 複数のループ処理

Excel VBA 構文をすっきりさせたい

ExcelのVBAについて質問です。Excelは２００３です。

excel vbaでリストの範囲設定

エクセル、マクロの事で・・・？（２）

エクセルＶＢＡ

Excel　VBA　日付の認識など

置換マクロ　続きです…

EXCEL　VBA 複数シート選択の方法

ExcelのVBAについて(勉強中のです。)

2つのvbaを統合したい

Excel VBA 複数のSheet の合計

ExcelのVBAについての質問です。

エクセルVBA の変数を使うべきでしょうか？

注目のQ&A

カテゴリ
一覧

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

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

Excel vba PDF 複数ファイルを一括保存

みんなの回答

関連するQ&A

セルの値をシート名にするエクセルVBA

エクセルVBAについて

【VBA】 超初心者です 複数のシートに転記したい

エクセルのフォームのVBAについて

インデックスが有効範囲に出ないと出る

Ｅｘｃｅｌ VBA 実行時エラー'1004':

Excel VBA; 複数のループ処理

Excel VBA 構文をすっきりさせたい

ExcelのVBAについて質問です。Excelは２００３です。

excel vbaでリストの範囲設定

エクセル、マクロの事で・・・？（２）

エクセル ＶＢＡ

Excel VBA 日付の認識など

置換マクロ 続きです…

EXCEL VBA 複数シート選択の方法

ExcelのVBAについて(勉強中のです。)

2つのvbaを統合したい

Excel VBA 複数のSheet の合計

ExcelのVBAについての質問です。

エクセルVBA の変数を使うべきでしょうか？

注目のQ&A

カテゴリ 一覧

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

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

【VBA】　超初心者です　複数のシートに転記したい

エクセルＶＢＡ

Excel　VBA　日付の認識など

置換マクロ　続きです…

EXCEL　VBA 複数シート選択の方法

カテゴリ
一覧

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