EXCEL2010のマクロについて質問です。| OKWAVE

マクロ作成後、エラー70が出て動作しません。

■EXCEL2010のマクロについて■ マクロ作成後、下記のエラーが出てしまいます。実行時エラー 70 書込みできません。 ↓デバックを見ると、この箇所に黄色いマークがつきます。 Set out = fs.CreateTextFile(fpath & "\sitelist.csv", True) 色々と確認して見ましたが、よくわかりません。 ★原因と思われるのがマクロ－シート(マクロ管理シート)を作成後、そのファイルを開くと(マクロ管理シート1)で表示されてしまい、エラー 1004が出ます。ただし、ドロップ＆ドラッグすれば、(マクロ管理シート)が表示され、マクロが問題なく動作します。どうすればよいのでしょうか？知り合いにもらったマクロを元にいじっていますので、よくわからない部分もありますが、よろしくお願いいたします。 --------------------------------------- 以下、マクロです。 Sub 作成_Click() Dim fpath As String Dim fs As Object Dim out As Object Dim i As Long Dim myArray() As String Dim title As String fpath = ActiveWorkbook.Path Set fs = CreateObject("Scripting.FileSystemObject") Set out = fs.CreateTextFile(fpath & "\sitelist.csv", True) For i = 5 To 105 title = Cells(i, 1) Mar = Cells(i, 2) Email = Cells(i, 3) URL = Cells(i, 4) msg = Cells(i, 5) category_miumiulink = Cells(i, 6) category_inavi = Cells(i, 7) other_link = Cells(i, 8) passwd = Cells(i, 9) keyword = Cells(i, 10) ame = Cells(i, 11) temprate = Cells(i, 12) jyanru = Cells(i, 13) If title = "" Then Exit For End If csv = "" csv = csv & Chr(34) & title & Chr(34) & "," csv = csv & Chr(34) & Mar & Chr(34) & "," csv = csv & Chr(34) & Email & Chr(34) & "," csv = csv & Chr(34) & URL & Chr(34) & "," csv = csv & Chr(34) & msg & Chr(34) & "," csv = csv & Chr(34) & category_miumiulink & Chr(34) & "," csv = csv & Chr(34) & category_inavi & Chr(34) & "," csv = csv & Chr(34) & other_link & Chr(34) & "," csv = csv & Chr(34) & passwd & Chr(34) & "," csv = csv & Chr(34) & keyword & Chr(34) & "," csv = csv & Chr(34) & ame & Chr(34) & "," csv = csv & Chr(34) & temprate & Chr(34) & "," csv = csv & Chr(34) & jyanru & Chr(34) Call out.writeline(csv) Next i MsgBox "作成お疲れ様でした♪" End Sub ---------------------------------------

マクロをボタンに登録するとちゃんと走らない

エクセル２０００で以下のような百人一首のマクロを作ったのですがマクロをボタンに登録すると上の句と下の句の更新が後回しになります VBEを開いたままマクロを実行すると上の句下の句を更新したあとに解答用のinputboxがちゃんと先に出てきます。何か解決方法はありますか？マクロを作ったのは初めてに近いですあとマクロコードを2行にするのが出きるときと出来ない時があるのは何故でしょう。同じように　_　アンダーバーを入れて改行してるのですがエラーになります。改行して良い所と悪い所があるのですか教えて欲しいです。 Sub 百人一首一番から二十番() Dim hyakuSh As Worksheet Dim mySh As Worksheet Set mySh = Worksheets("百人一首クイズ") Set hyakuSh = Worksheets("百人一首") Dim myRow As Integer Randomize myRow = Int((21 - 2 + 1) * Rnd + 2) Dim kaminoku As String Dim kaminoku2 As String Dim kaminoku3 As String Dim simonoku As String Dim simonoku1 As String Dim sakusha As String kaminoku = hyakuSh.Cells(myRow, 3).Value kaminoku2 = hyakuSh.Cells(myRow, 4).Value kaminoku3 = hyakuSh.Cells(myRow, 5).Value shimonoku = hyakuSh.Cells(myRow, 6).Value shimonoku1 = hyakuSh.Cells(myRow, 7).Value sakusha = hyakuSh.Cells(myRow, 8).Value mySh.Activate mySh.Shapes("Text Box 2").Select Selection.Characters.Text = kaminoku & Chr(10) & kaminoku2 & Chr(10) & kaminoku3 Dim MyTBox As Integer Dim smRow As Integer Dim smRow2 As Integer Dim smRow3 As Integer Dim smRow4 As Integer Dim smRow5 As Integer Dim i As Integer mySh.Shapes(2).Select Randomize smRow5 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow5, 6).Value & Chr(10) & hyakuSh.Cells(smRow5, 7).Value & Chr(10) & hyakuSh.Cells(smRow5, 8).Value mySh.Shapes(3).Select Randomize smRow = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow, 6).Value & Chr(10) & hyakuSh.Cells(smRow, 7).Value & Chr(10) & hyakuSh.Cells(smRow, 8).Value mySh.Shapes(4).Select Randomize smRow2 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow2, 6).Value & Chr(10) & hyakuSh.Cells(smRow2, 7).Value & Chr(10) & hyakuSh.Cells(smRow2, 8).Value mySh.Shapes(5).Select Randomize smRow3 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow3, 6).Value & Chr(10) & hyakuSh.Cells(smRow3, 7).Value & Chr(10) & hyakuSh.Cells(smRow3, 8).Value mySh.Shapes(6).Select Randomize smRow4 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow4, 6).Value & Chr(10) & hyakuSh.Cells(smRow4, 7).Value & Chr(10) & hyakuSh.Cells(smRow4, 8).Value Randomize MyTBox = Int((6 - 2 + 1) * Rnd + 2) mySh.Shapes(MyTBox).Select Selection.Characters.Text = shimonoku & Chr(10) & shimonoku1 & Chr(10) & sakusha mySh.Shapes("Text Box 2").Select Dim Ans As Integer ＊以下の部分が先に出てきて答えを入れないと上のコードが実行されない＊＊＊＊＊ここ一行で書いてあるので見にくい部分＊＊＊＊＊＊＊ Ans = InputBox(hyakuSh.Cells(myRow, 3).Value & hyakuSh.Cells(myRow, 4).Value & hyakuSh.Cells(myRow, 5).Value & Chr(10) & Chr(10) & "下の句を番号で答えなさい", Title:="百人一首", Xpos:=7500, Ypos:=2500) ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ If Ans = MyTBox Then MsgBox " 正解!!! V(・ o ・)V " Else MsgBox ("間違いです!!!!!!!!" & Chr(10) & Chr(10) & hyakuSh.Cells(myRow, 6).Value & hyakuSh.Cells(myRow, 7).Value & Chr(10) & Chr(10) & sakusha & "です") End If End Sub

マクロについて質問します。

このようなマクロがあるのですが、内容を変更したらうまく動きません。 Sub 請求明細自動印刷() Application.ScreenUpdating = False Dim I As Integer Dim リンクシート As String For I = 3 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(I, "A") <> 0 Then リンクシート = Cells(I, "E").Hyperlinks(1).SubAddress リンクシート = Left(リンクシート, InStr(リンクシート, "!") - 1) Sheets(リンクシート).PrintOut From:=2, To:=2 End If Next I End Sub ↑の内容の　ハイパーリンクセルを"E"から　Dに変更したので、 ↓のように　リンク先をDに変更したのですが、同じ書類が出ています（１０枚　多分　If Cells(I, "A") <> 0 Thenに該当するのが１０組なので・・・） Sub 請求明細自動印刷() Application.ScreenUpdating = False Dim I As Integer Dim リンクシート As String For I = 3 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(I, "A") <> 0 Then リンクシート = Cells(I, "D").Hyperlinks(1).SubAddress リンクシート = Left(リンクシート, InStr(リンクシート, "!") - 1) Sheets(リンクシート).PrintOut From:=2, To:=2 End If Next I End Sub よくわからないのですが、どのよな形に変更するのか教えたください。 For I = 3 To Cells(Rows.Count, "A").End(xlUp).Row これは宣言文なのですか・・・・？すみません　　急いでるので　調べるより早いと思いましてお願いします。

マクロで封筒を自動印刷

マクロで封筒を自動印刷出来る様にファイルを作りました。先日、そのマクロで封筒を印刷する前に別のファイルの物を印刷しようと思い、そのファイルの印刷設定を変えて印刷をしました。その後、マクロで作ったファイルで封筒を印刷したところ印刷設定がおかしくなってしまいました。とりあえず、設定を直し何度かマクロで印刷を試みましたがいくら直して上書きしても印刷設定が直らず・・・・。一度、ＰＣを再起動して再び試みると印刷がきちんとされました。この現象はマクロを使っているからなのでしょうか？？それともマクロの使い方が悪くて起きる症状なのでしょうか？対策方法があれば教えて頂けるとうれしいです。使っているマクロは次のとおりです。 Sub Futo_Copy() '////////////////////////////// '印刷を行う '////////////////////////////// Dim i As Integer Dim S_1 As String '1行目 Dim S_2 As String '2行目 Dim S_3 As String '3行目 Dim S_4 As String '4行目 Dim S_5 As String '5行目 Dim S_6 As String '6行目 Dim S_7 As String '7行目 Dim S_8 As String '8行目 Dim S_9 As String '9行目 Dim S_10 As String '10行目 Application.ScreenUpdating = False '描画をしない 'sheet_name = ActiveSheet.Name 'アクティブシート名を取得 'シートの中で使用されている最大の列を求める。 'row_count = Worksheets("印刷対象").Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 'シートの中で使用されている最大の行を求める。 'col_count = Worksheets("印刷対象").Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column row_count = Worksheets("印刷対象").Range("A65536").End(xlUp).Row For i = 3 To row_count '印刷対象の3行目からループ Worksheets("出力").Select 'データ取得 S_1 = Worksheets("印刷対象").Cells(i, 1) S_2 = Worksheets("印刷対象").Cells(i, 2) S_3 = Worksheets("印刷対象").Cells(i, 3) S_4 = Worksheets("印刷対象").Cells(i, 4) S_5 = Worksheets("印刷対象").Cells(i, 5) S_6 = Worksheets("印刷対象").Cells(i, 6) S_7 = Worksheets("印刷対象").Cells(i, 7) S_8 = Worksheets("印刷対象").Cells(i, 8) S_9 = Worksheets("印刷対象").Cells(i, 9) S_10 = Worksheets("印刷対象").Cells(i, 10) Worksheets("出力").Cells(1, 1) = S_1 Worksheets("出力").Cells(2, 1) = S_2 Worksheets("出力").Cells(3, 1) = S_3 Worksheets("出力").Cells(4, 1) = S_4 'Worksheets("出力").PrintPreview 'プレビュー Worksheets("出力").PrintOut 'プリントアウト Next i 'Worksheets("出力").Cells.Clear 'シートのクリア Application.ScreenUpdating = True '描画開始 Worksheets("印刷対象").Activate End Sub 出来ればこのマクロの形をあまり変えずに症状が直せるといいのですが・・・。よろしくお願い致します。

VBAトラブル

Sub 百人一首一番から二十番() Dim hyakuSh As Worksheet Dim mySh As Worksheet Set mySh = Worksheets("百人一首クイズ") Set hyakuSh = Worksheets("百人一首") Dim myRow As Integer Randomize myRow = Int((21 - 2 + 1) * Rnd + 2) Dim kaminoku As String Dim kaminoku2 As String Dim kaminoku3 As String Dim simonoku As String Dim simonoku1 As String Dim sakusha As String kaminoku = hyakuSh.Cells(myRow, 3).Value kaminoku2 = hyakuSh.Cells(myRow, 4).Value kaminoku3 = hyakuSh.Cells(myRow, 5).Value shimonoku = hyakuSh.Cells(myRow, 6).Value shimonoku1 = hyakuSh.Cells(myRow, 7).Value sakusha = hyakuSh.Cells(myRow, 8).Value mySh.Activate mySh.Shapes("Text Box 2").Select Selection.Characters.Text = kaminoku & Chr(10) & kaminoku2 & Chr(10) & kaminoku3 Dim MyTBox As Integer Dim smRow As Integer Dim smRow2 As Integer Dim smRow3 As Integer Dim smRow4 As Integer Dim smRow5 As Integer Dim i As Integer mySh.Shapes(2).Select Randomize smRow5 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow5, 6).Value & Chr(10) & hyakuSh.Cells(smRow5, 7).Value & Chr(10) & hyakuSh.Cells(smRow5, 8).Value mySh.Shapes(3).Select Randomize smRow = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow, 6).Value & Chr(10) & hyakuSh.Cells(smRow, 7).Value & Chr(10) & hyakuSh.Cells(smRow, 8).Value mySh.Shapes(4).Select Randomize smRow2 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow2, 6).Value & Chr(10) & hyakuSh.Cells(smRow2, 7).Value & Chr(10) & hyakuSh.Cells(smRow2, 8).Value mySh.Shapes(5).Select Randomize smRow3 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow3, 6).Value & Chr(10) & hyakuSh.Cells(smRow3, 7).Value & Chr(10) & hyakuSh.Cells(smRow3, 8).Value mySh.Shapes(6).Select Randomize smRow4 = Int((51 - 2 + 1) * Rnd + 2) Selection.Characters.Text = hyakuSh.Cells(smRow4, 6).Value & Chr(10) & hyakuSh.Cells(smRow4, 7).Value & Chr(10) & hyakuSh.Cells(smRow4, 8).Value Randomize MyTBox = Int((6 - 2 + 1) * Rnd + 2) mySh.Shapes(MyTBox).Select Selection.Characters.Text = shimonoku & Chr(10) & shimonoku1 & Chr(10) & sakusha mySh.Shapes("Text Box 2").Select Dim Ans As Integer Ans = InputBox(hyakuSh.Cells(myRow, 3).Value & hyakuSh.Cells(myRow, 4).Value & hyakuSh.Cells(myRow, 5).Value & Chr(10) & Chr(10) & "下の句を番号で答えなさい", Title:="百人一首", Xpos:=7500, Ypos:=2500) If Ans = MyTBox Then MsgBox " 正解!!! V(・ o ・)V " Else MsgBox ("間違いです!!!!!!!!" & Chr(10) & Chr(10) & hyakuSh.Cells(myRow, 6).Value & hyakuSh.Cells(myRow, 7).Value & Chr(10) & Chr(10) & sakusha & "です") End If End Sub 以上のマクロをエクセルで作ったのですが、VBE～マクロを走らせると順調に走るのですが、マクロをボタンに登録すると、Inputbox に解答を掘り込んであげないと、kaminokuもshimonokuもあたらしいものになりません今マクロはシート上にあります、マクロを標準モジュールに移しても同じ結果です。何か解決策はありますか? かなり古くエクセル2000です、初心者なので難しいこことはわかりませんが、よろしくお願いします。

マクロの解読に困っています

マクロの仕事がきましたが、初めてで苦戦しています。５冊くらい本を読みながら、今あるマクロの解読をしています。しかし、次のErrShori：の意味がどうしてもわかりません。わかる方がいらっしゃいましたらぜひ教えてください。 ErrShori: Open sFilename & ".csv" For Output Shared As #1 その前の文もつけておきます。 Sub Auto_Close() On Error GoTo ErrShori Dim MaxPage As Integer Dim sFilename As String Dim sFilename2 As String Dim i As Integer Dim j As Integer Dim sKensaku As String MaxPage = 0 Do MaxPage = MaxPage + 1 Loop Until Cells(MaxPage * 17 + 21, 1) = "" ChDrive "W" ChDir "W:\" sFilename = Range("O22") sFilename2 = sFilename & ".csv" Workbooks(sFilename2).Close SaveChanges:=False ErrShori: Open sFilename & ".csv" For Output Shared As #1 以上です。質問の仕方が悪かったらすみません。

エクセルマクロに関する質問

最近、エクセルマクロを始めてたのですが、下記のような状態で困っています。プログラムを実行した際に、Cells((I1 + I5), I6)のセルに計算式がはいって欲しいのですが、現状では計算結果が入るだけになってしまっています。また、単純に文字列に変換してしまうだけだと、変数が邪魔になって式になってくれません。誰かお分かりになる方がいましたら、教えてください。　Dim I1 As Integer Dim I2 As Integer Dim I3 As Integer Dim I4 As Integer Dim I5 As Integer Dim I6 As Integer Dim I7 As Integer Dim I8 As Integer Cells((I1 + I5), I6) = Cells((I1 + I5) - 2, I6) + Cells((I1 + I5), I6 - 2) - Cells(I1 + I5, I6 - 1)

エクセルマクロ　検索して値を取得

マクロはよく分かっていません。既存のVBAを見ながらマネしてる状態なので、どこが間違っているのか教えて下さい。 sheet1 A 所属 1 789　　　　　　　　 2　　　　 3 sheet2 　　 A 　　　　B 所属コード　　所属 1　12345　　　あいう123 2　12346　　　あいう456　　 3 12347　　　あいう789 やりたいことシート１の所属が「789」だったらとシート２の所属から「あいう789」を検索し、シート２の所属コード「12347」をシート１の所属に返す。私が作ったやつだと「12347」は１行目でなく、３行目に返ってしまいます。 Dim SyozokuRange as Range Dim Syozoku as String Dim Buf as String Buf = "あいう" Syozoku = Buf & Syozoku Set SyozokuRange = worksheets(2).range("a:b").currentregion For i = 1 to SyozokuRange.rows.count If Syozoku = SyozokuRange.cells(i,2) Then worksheets(1).cells(i,1).value = SyozokuRange.cells(i,1) end if next i

エクセル2003でのマクロで質問です。

エクセル2003でのマクロで質問です。セル(2,22)には"1"という値が入っています。セル(2,13)には"20100521"という値が入っています。セル(3,13)には"20100521"という値が入っています。セル(4.13)には"20100525"という値が入っています。セル(5,13)には"20100525"という値が入っています。このようなときにセル(3,22)の値は"1" セル(4,22)の値は"2" セル(5,22)の値は"2" となるように以下のようなマクロを作成しました。 Dim i As Integer, j As Integer, date1 As String i = 2 j = 3 Do While Cells(i, 1).Value <> "" If Cells(i, 13) = Cells(j, 13) Then Cells(j, 22) = Cells(i, 22) Else Cells(j, 22) = Cells(i, 22) + 1 End If i = i + 1 j = j + 1 Loop しかし、結果はセル(3,22)の値は"2" セル(4,22)の値は"3" セル(5,22)の値は"4" となってしまいます。どこに原因があるのかわかりません。助けてください。宜しくお願いします。

Excel：　シートの一括クリア

チャートを複数を含む５つのシート（シートの名前：　CHT１～CHT5）のVBAで一括にクリアーにしたいです。マクロの自動記録を使って出来たコードを参考に以下のコードを作りましたが、Cells.Selectのところでエラーになります。　Cells.Selectを消して、コードを走らせる前に、自分で各シートの左上のところをクリックして、シート全域をアクティブ状態にしたら動く様なのです。　VBAではマクロで出てくる　Cells.Select　は使えないのでしょうか。　何か方法があれば御教示下さい。 Private Sub CommandButton2_Click() Dim i As Integer Dim Name As String For i = 1 To 5 Name = "CHT" + CStr(i) Sheets(Name).Select Cells.Select Selection.Delete Shift:=xlUp Next i End Sub

エクセルのマクロで複数セル指定は？

以前（7月22日　質問No.936181）の質問でご回答を頂いたマクロなんですが、 Private Sub Worksheet_Change(ByVal Target As Range) Dim MyData As String Dim i As Integer Dim ImaNanji As String Dim SakkiNanji As String Dim ImaNanpun As String Dim SakkiNanpun As String SakkiNanpun = Cells(2, 3).Value ImaNanji = Cells(1, 3).Value ImaNanpun = Mid(ImaNanji, Len(ImaNanji) - 4, 2) If ImaNanpun <> SakkiNanpun Then Application.EnableEvents = False For i = 10 To 2 Step -1 MyData = Cells(i - 1, 2).Value Cells(i, 2).Value = MyData Next i MyData = Cells(1, 1).Value Cells(1, 2).Value = MyData Cells(2, 3).Value = ImaNanpun Application.EnableEvents = True End If End Sub A1のデータをB1からB10に一分おきにつぎつぎに書き込むというものなんですが、ひとつのセルではなく複数のセル（例えばA1からA30の30個のセル）をいっぺんに書き込むようにしたいのですが可能でしょうか？よろしくお願いします。

エクセルＶＢＡマクロの質問です。

マクロ初心者です。行き詰まってます。 sheet1には３００件程度のデータがあります。このデータの３列目の値を、ＶＬＯＯＫＵＰでsheet3のＡ１：Ｂ３０範囲から参照します。そこで取得した回数分、sheet1の各行のデータをsheet2にコピーしたいんです。そこで、コード文を作ってみましたが、マクロがうまく動きません。すみませんが、お知恵を貸していただけないでしょうか？ Dim Z as Long Dim L As Long Dim P As Long Dim Kensaku As String Dim M4 As Range Dim PRow As Long Dim i As Long Set M4 =Sheets(“sheet3”).Range(“A1:B30“) L = Sheets(“sheet1”).Range(“A1”).End(xlup).Row For Z = 1 to L-1 Kensaku = Sheets(“sheet1”).Cells(Z+1,3).Value P=Worksheetfunction.Vlookup(Kensaku,M4,2,False) 　　　For i = 1 to P 　　　　　Prow=Sheets(“sheet2”).Range("A1").End(xlDown).Row 　　　　　Sheets(“sheet1”).Rows(Z+1).Copy Sheets(“sheet2”).Rows(Prow) 　　　Nexti Next Z

エクセルＶＢＡマクロの質問です。

マクロ初心者です。データ処理のマクロを作ろうとしていて、ちょっと困ってます。（sheet1) 11 国総　1A (空きセル ) 12 化基　２Ｉ　（空きセル）・以下、２００程度のデータＣ列のデータの種類は１０種類 (sheet2) 1A 2 101 102 2I 3 103 104 105 ・・ sheet1のＣ列と同じデータＣ列より右側のデータ数は１から４個程度 (sheet3) データなし sheet1のデータを、sheet3にコピーする際に、各データのＤ列に、sheet2のＣ列の右側のデータを入れていきたいんです。具体的には (sheet3) 11 国総　1A 101 11 国総　1A 102 12 化基　２Ｉ 103 12 化基　２Ｉ　104 12 化基　２Ｉ　105 っていう感じです。先日、こちらのカテゴリでなく、間違えてＶＢＡプログラムの方に質問して、「板違いですよ」と諭されながらも、ご協力いただきsheet2の件数分増やしてコピーするコードまではたどり着いたのですが、その後、どうすればＤ列に移せるのかで悩んでます。ちなみに、いまたどりついたコード文は以下の通りです。一度、このコード文の続きで、sheet3のＣ列を条件カウントするコードを作ってみたんですが、動いてくれませんでした。 Sub Re8928577a() Dim M4 As Range Dim P As Variant　'　WorksheetFunction.VLookup Dim Kensaku As String Dim L As Long Dim PRow As Long Dim i As Long Dim Z As Long 　　Set M4 = Sheets("Sheet2").Range("A1:B30") 　　L = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row　' 　　For Z = 1 To L - 1 　　　　Kensaku = Sheets("Sheet1").Cells(Z + 1, 3).Value 　　　　P = WorksheetFunction.VLookup(Kensaku, M4, 2, False) 　　　　PRow = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row 　　　　　　For i = PRow + 1 To PRow + P 　　　　　　　　Sheets("Sheet1").Rows(Z + 1).Copy Sheets("Sheet3").Rows(PRow + 1).Resize(P) Next i 　　Next Z End Sub

Excel２０００マクロ記述の変更について

下記のマクロを記述しています。条件が変わったので変更したいのですが、変更の記述の仕方を教えてください。現在の条件 If (.Range("D" & i) = "A310" Or .Range("D" & i) = "A505") And .Range("V" & i) <= 1000 変更の条件倉庫マスタ（シート名）のＢ列の５行目以降とＡＣＴ（シート名）のＤ列の６行目以降を参照して同じデータで、倉庫マスタのＧ列の５行目に記号が入っている場合は、ＡＣＴ（シート名）の６行目からに下記の条件を設定したい。 .Cells(i, "M").ClearContents .Cells(i, "O").Resize(1, 15).ClearContents Sub 再表示1() Dim SheetName As String Dim i As Integer Dim LastRow As Integer Dim rng As Range SheetName = "ＡＣＴ" 'シート名 LastRow = 3000 '最終行の番号 With Sheets(SheetName) Sheets("ＡＣＴ").Select For i = 6 To LastRow If (.Range("D" & i) = "A310" Or .Range("D" & i) = "A505") And .Range("V" & i) <= 1000 Then .Cells(i, "M").ClearContents '原料平均データ消去 .Cells(i, "O").Resize(1, 15).ClearContents '前月末在庫～発注後在庫欄までデータを消去 End If Next End With End Sub

Excelのマクロについての質問です。マクロに関しては初心者です。

Excelのマクロについての質問です。マクロに関しては初心者です。温度を計測する実験をしています。sheet1に計測している数値が更新されていってどんどん書き込まれている状況です。 Dim fStop As Boolean 'グローバル変数を宣言 Private Sub Command1_Click() ' ' Macro1 Macro ' ' Dim iRows As Integer Dim sRows As String Dim i As Integer Dim tm As Single fStop = Fal For i = 1 To 500 Cells(1, 1) = i tm = Timer() + 5 Do DoEvents Loop While Timer() < tm ' 最終行の調査: 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 ' CH3 の最新データをシート3にコピー Worksheets("Sheet3").Range("D9").Value = Worksheets("Sheet1").Cells(iRows, 5).Value Next i End Sub Private Sub Command2_Click() fStop = True End Sub 上記のプログラムを作り、sheet1に書き込まれていってる数値の一番新しい数値のみをsheet3の特定のセルの場所に更新されていくように作りました。（コマンドボタン１で計測を開始、コマンドボタン２で計測終了）しかし計測する場所が増えるにつれて下記の部分のプログラムを増やさなければいけません。このプログラムを一まとめにして、指定されたsheet3のセルに書きこまれるようにしたいのですが、どのようなプログラムを加えればいいのでしょうか？Excelのバージョンは２００３です。 ' 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 ' CH3 の最新データをシート3にコピー Worksheets("Sheet3").Range("D9").Value = Worksheets("Sheet1").Cells(iRows, 5).Value

VBAにて計算式をセルへ代入できなくて困っています

計算式を変数QRdataへ代入しその変数から指定のセルへ入力するとき、実行時エラー１００４となってしまいマクロを実行できずに困っています。 Cells(3, 6).ValueもRange("F3").Fourmulaと変えたりしたのですが解決方法が解らなくどうか御教授下さい。 Dim コードナンバー As String Dim 品名1行 As String Dim QRdata As String QRdata = "=("& Chr(34) & コードナンバー & 品名1行 & Chr(34) & ",1)" Cells(3, 6).Value = QRdata　　←ここでエラーとなってしまいます。

【VBA】ExcelマクロでCSVファイルに保存したデータが""で囲まれてしまう

添付図のような、Excel2003で作成した表内のデータを CSVで保存するマクロを作成したのですが、図のように、CSVファイルに「""」で値が囲まれた状態で、保存されてしまいます。下記にマクロを記載しますので、どうすれば文字列が「""」で囲まれずに、カンマ区切りだけのデータで出力されるのか、ご存知の方おられましたら、ご教示お願い致します。 Sub csv保存() Dim フォルダ名 As String Dim パス名 As String Dim ファイル名 As String Dim データ As Variant Dim 行数 As Long, 列数 As Integer Dim i As Integer, j As Long, k As Long ファイル名 = "test.csv" フォルダ名 = "csv" パス名 = ActiveWorkbook.Path & "\" & _ フォルダ名 'csvフォルダが存在しなければ作成する If Dir(パス名, vbDirectory) = "" Then MkDir パス名 End If ChDir パス名 Open ファイル名 For Output As #1 For i = 1 To Worksheets.Count Worksheets(i).Activate Worksheets(i).Cells(1, 1).Select ActiveCell.CurrentRegion.Select 行数 = Selection.Rows.Count 列数 = Selection.Columns.Count For j = 1 To 行数 For k = 1 To 列数 - 1 データ = Selection.Cells(j, k) _ .Value Write #1, データ; Next k Write #1, Selection.Cells(j, 列数) _ .Value Next j Next i Close #1 End Sub

マクロが、うまくいかなくなった。

Ａ：3に出勤数が表示されます。出勤がある場合ｄ：3にハイパーリンクがあるので、リンク先の2ページめを印刷同じ作業を下の段にのも繰り返す。うまく動いていたのですが、新しくＰＣに移した当たりから　動かなくなりました。厳密には　二人まではプリントするのですが、下の段までいかないみたいです。？この様なメッセージが　↓ 実行エラー9 インデックスが有効範囲にありません下のマクロの　どの部分を書き換えれば動きますか？ Sub 請求明細自動印刷() Application.ScreenUpdating = False Dim I As Integer Dim リンクシート As String For I = 3 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(I, "A") <> 0 Then リンクシート = Cells(I, "D").Hyperlinks(1).SubAddress リンクシート = Left(リンクシート, InStr(リンクシート, "!") - 1) Sheets(リンクシート).PrintOut From:=2, To:=2 End If Next I End Sub

Excel 文字列を検索して全て置換するマクロ

当方VBA初心者なのですが、ExcelのVBAで作ったマクロでうまく動かなくて困っています。もしおわかりになる方がいらっしゃったら是非よろしくお願いいたします。 *実現したいこと '”reference”という名前のシートに、次のようなデータが入っています。 (1)　りんご (2)　みかん (3)　キウイ・・・これを、配列を２つ用意し、 (1)を配列Listに、(2)を配列List2へ格納して行きます。 '"data"という名前のシートには、A列の1～10行目までに文章が入っていて、 "家には、(1)があります。" "冬になるとよく(2)を食べます。" ・・・・この全文をcというRangeに設定し、そのcの中において、もし、配列1（(1)等）のキーワードがあったら、 'そのキーワードを配列2（りんご等）の内容に書き換える。 'キーワードは、データシートに複数回出てくる場合もある。 *困っていること下記のマクロだと、一度目のObjFindまでは成功するのですが、 List(i)を探しているはずが、2回目から、その変更後の文字列が含まれた全文を検索するようになってしまいます。以下マクロです。よろしくお願いいたします。 Sub TEST() Dim List() As String, List2() As String 'List Dim i As Integer Dim iRow As Integer iRow = Worksheets("reference").Cells(Rows.Count, 1).End(xlUp).Row ReDim List(iRow) ReDim List2(iRow) For i = 1 To iRow List(i) = Worksheets("reference").Cells(i, 1).Value List2(i) = Worksheets("reference").Cells(i, 2).Value Next i Dim lngYLine As Long Dim intXLine As Integer Dim objFind As Object Dim strAddress As String Dim strSamp As String Dim objRange As Range Dim c As Range For i = 1 To iRow Set objRange = Worksheets("data").Range("A1:A331") Set objFind = objRange.Cells.Find(List(i)) If Not objFind Is Nothing Then For Each c In objRange If c.Value = objFind Then lngYLine = objFind.Cells.Row intXLine = objFind.Cells.Column strSamp = Worksheets("data").Cells(lngYLine, 1) strSamp = Replace(strSamp, List(i), List2(i)) Worksheets("data").Cells(lngYLine, 1) = strSamp MsgBox List(i) + "は" + List2(i) + "に変更されました" Set objFind = Cells.FindNext(objFind) End If Next c Else MsgBox List(i) + "は見つかりませんでした" End If Next i End Sub

マクロのことで再度質問です。

すいません、先ほど質問した者です。 http://okwave.jp/qa/q7357905.html 以下のマクロを試すと・・Ａのセルに「ファイル名.txt」Ｂのセルに「C:\Users\～￥フォルダ名」となります。この「.txt」と「C:\Users\～￥」は表示させたくありません。自分でもいじってみたのですが、できませんでした。表示させないようにするにはどうすればいいでしょうか？度々の質問で恐縮ですが、よろしくお願いします。 Sub Macro() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim FolderPath As String FolderPath = ThisWorkbook.Path Dim myFile As Object Dim i As Long i = 2 Dim myFolder As Object For Each myFolder In fso.GetFolder(FolderPath).SubFolders For Each myFile In fso.GetFolder(myFolder).Files Cells(i, 4).Value = myFolder Cells(i, 1).Value = myFile.Name Cells(i, 7).Value = fso.OpenTextFile(myFile.Path).ReadAll() i = i + 1 Next Next End Sub Private Sub CommandButton1_Click() End Sub

EXCEL2010のマクロについて質問です。

みんなの回答

補足 2011/12/21 15:32

関連するQ&A

マクロ作成後、エラー70が出て動作しません。

マクロをボタンに登録するとちゃんと走らない

マクロについて質問します。

マクロで封筒を自動印刷

VBAトラブル

マクロの解読に困っています

エクセルマクロに関する質問

エクセルマクロ　検索して値を取得

エクセル2003でのマクロで質問です。

Excel：　シートの一括クリア

エクセルのマクロで複数セル指定は？

エクセルＶＢＡマクロの質問です。

エクセルＶＢＡマクロの質問です。

Excel２０００マクロ記述の変更について

Excelのマクロについての質問です。マクロに関しては初心者です。

VBAにて計算式をセルへ代入できなくて困っています

【VBA】ExcelマクロでCSVファイルに保存したデータが""で囲まれてしまう

マクロが、うまくいかなくなった。

Excel 文字列を検索して全て置換するマクロ

マクロのことで再度質問です。

注目のQ&A

カテゴリ
一覧

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

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

EXCEL2010のマクロについて質問です。

みんなの回答

補足 2011/12/21 15:32

関連するQ&A

マクロ作成後、エラー70が出て動作しません。

マクロをボタンに登録するとちゃんと走らない

マクロについて質問します。

マクロで封筒を自動印刷

VBAトラブル

マクロの解読に困っています

エクセルマクロに関する質問

エクセルマクロ 検索して値を取得

エクセル2003でのマクロで質問です。

Excel： シートの一括クリア

エクセルのマクロで複数セル指定は？

エクセルＶＢＡマクロの質問です。

エクセルＶＢＡマクロの質問です。

Excel２０００マクロ記述の変更について

Excelのマクロについての質問です。マクロに関しては初心者です。

VBAにて計算式をセルへ代入できなくて困っています

【VBA】ExcelマクロでCSVファイルに保存したデータが""で囲まれてしまう

マクロが、うまくいかなくなった。

Excel 文字列を検索して全て置換するマクロ

マクロのことで再度質問です。

注目のQ&A

カテゴリ 一覧

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

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

エクセルマクロ　検索して値を取得

Excel：　シートの一括クリア

カテゴリ
一覧

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