- ベストアンサー
マクロの構文でわからない所があります
- エクセル2013で退職者が作成したマクロの中で、わからない部分があります。
- 以下の構文がありますが、何を処理しているのか、よくわかりません。
- f8を押しながら見ていてもよくわかりません。
- gx9wx
- お礼率95% (440/460)
- Excel（エクセル）
- 回答数2
- ありがとう数4
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- kkkkkm
- ベストアンサー率65% (1636/2483)
Zの初期の値が不明なので仮に1として > Do While Cells(Z, 6).Value <> "" セルF1の値が無でなければLoopまでの操作を続ける。 (以降F列の行は最後のZで足された数値の行となる、2,3,4,5行…とFxが無になるまで続く) > If Cells(Z, 1).Value <> "" Then Sheets("集計表").Cells(Z, 1).Value = Cells(Z, 1).Value Else: Sheets("集計表").Cells(Z, 1).Value = "-" セルA1の値が無であれば集計表のセルA1の値は実行しているシートのセルA1の値、無でなければ集計表のセルA1の値は- Fxが無になるまでA1,A2,A3…と変化していく > If Cells(Z, 5).Value <> "" Then Sheets("集計表").Cells(Z, 5).Value = Cells(Z, 5).Value Else: Sheets("集計表").Cells(Z, 5).Value = "-" セルE1の値が無であれば集計表のセルE1の値は実行しているシートのセルE1の値、無でなければ集計表のセルE1の値は- Fxが無になるまでE,1E2,E3…と変化していく > If Cells(Z, 6).Value <> "" Then Sheets("集計表").Cells(Z, 6).Value = Cells(Z, 6).Value Else: Sheets("集計表").Cells(Z, 6).Value = "-" セルF1の値が無であれば集計表のセルF1の値は実行しているシートのセルF1の値、無でなければ集計表のセルF1の値は- Fxが無になるまでF,1F2,F3…と変化していく > Z = Z + 1 Zに1を足す > Loop 最初に戻る
お礼
ありがとうございます。 ｆ８で送りながら見ていてもおかしいなと 思いましたが、訂正回答くださいまして理解できました。
関連するQ&A
- セルの値が0はクリアするマクロ
エクセル2003です。 ある集計表において 4行目のH列からAM列まで 数値データがあります。 最終行は常に変化します この表内にてセルの値が0のセルは セル内を空白にしたいです。 以下のマクロを作成しましたが If Cells(処理行, 8).Value = 0 Then Cells(処理行, 8).ClearContents をあと(処理行, 13)から(処理行,31) まで記述しなければなりません。 構文的にも処理的にも不利？ と思うので、なにかいい方法を教えてください。 Sub 数字0クリア() '2012年2月3日節分 Dim 最終行 '最終列をG列で求めます 最終行 = Cells(Rows.Count, 7).End(xlUp).Row Application.ScreenUpdating = False For 処理行 = 4 To 最終行 If Cells(処理行, 8).Value = 0 Then Cells(処理行, 8).ClearContents End If If Cells(処理行, 9).Value = 0 Then Cells(処理行, 9).ClearContents End If If Cells(処理行, 10).Value = 0 Then Cells(処理行, 10).ClearContents End If If Cells(処理行, 11).Value = 0 Then Cells(処理行, 11).ClearContents End If If Cells(処理行, 12).Value = 0 Then Cells(処理行, 12).ClearContents End If If Cells(処理行, 13).Value = 0 Then Cells(処理行, 13).ClearContents End If Next 処理行 Application.ScreenUpdating = True MsgBox "終了しました" End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロでの質問です
エクセルのマクロでの質問です。 やりたいことは、 明細シートから、「1.3.5」の条件に合うものを実績シートの最終行にコピーして追加していきたいんです。 これだと、実績シートの最終行にはコピーされるんですが 最終行に全部が上書きコピーされる状態になってしまってます。 どう直せば、追加される形になりますか？ Sub コピー() '1,3,5のものを実績にコピーする i = 5 J = Sheets("実績").Cells(Rows.Count, 4).End(xlUp).Row + 1 Sheets("明細").Select Do While Cells(i, 8).Value <> "" If Cells(i, 3).Value = 1 Or Cells(i, 3) = 3 Or Cells(i, 3) = 5 Then Range("D5", "H5").Copy Sheets("実績").Select Range("C" & J).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End If i = i + 1 Loop End Sub まったくのマクロ初心者です。 分かりやすく教えていただけると、助かります。 また、参考になりそうなサイトなどがあったら、教えてください。
- ベストアンサー
- その他MS Office製品
- マクロ A1のセルの値を見て、B1に値を入力したい。
エクセルのマクロでA1の値が1ならばB1にaを、2・3・4ならばbを、5ならばCを、それ以外は「該当無し」と入れたいのですが下のマクロではうまく行きません。ぜひご指導ください。 Sub If Left(Cells(1, 1).Value, 1) = 1 Then Cells(2,1).Text = "a" ElseIf Left(Cells(1,1).Value, 1) = 2 Or _ Left(Cells(1,1).Value, 1) = 3 Or _ Left(Cells(1,1).Value, 1) = 4 Then Cells(2,1).Text = "b" ElseIf Left(Cells(z, 37).Value, 1) = 5 Then Cells(2,1).Text = "c" Else: Cells(z, 40).Text = "該当無し" End If End Sub
- ベストアンサー
- オフィス系ソフト
- ｅｘｃｅｌ；マクロ；表現をもっと縮小したい
質問します。下記のようなモジュールで中に同様の数字のみが順に変わるブロック繰り返しが多数あるのですが、もっと簡略化した表現 が可能でしょうか。よろしくお願いします。 Sub usb_count() d = Range("A65536").End(xlUp).Row j = 3 For i = 2 To d Select Case Cells(i, "B") Case Sheets("sheet2").Cells(4, "A") Sheets("sheet2").Cells(4, "B").Value = Sheets("sheet2").Cells(4, "B").Value + 1 If Cells(i, "K").Value = "USB" Then Sheets("sheet2").Cells(4, "C").Value = Sheets("sheet2").Cells(4, "C").Value + 1 Else Sheets("sheet2").Cells(4, "D").Value = Sheets("sheet2").Cells(4, "D").Value + 1 ' End If ‘------------------------------------------------------------------------------------------------------------------------------------ Case Sheets("sheet2").Cells(5, "A") Sheets("sheet2").Cells(5, "B").Value = Sheets("sheet2").Cells(5, "B").Value + 1 If Cells(i, "K").Value = "USB" Then Sheets("sheet2").Cells(5, "C").Value = Sheets("sheet2").Cells(5, "C").Value + 1 Else Sheets("sheet2").Cells(5, "D").Value = Sheets("sheet2").Cells(5, "D").Value + 1 End If ‘----------------------------------------- ‘以下上記の‘-----------から‘-----------で囲まれたブロックが（ ）内の数字が６から20まで繰り返され続く が略す End Select Next i End Su
- ベストアンサー
- オフィス系ソフト
- エクセル、マクロにて月を指定して別シートに表示はできるのでしょうか？
エクセル、マクロにて月を指定して別シートに表示はできるのでしょうか？ 毎度毎度申し訳ありません。開始日の検索で、5月と打っただけ5月分だけ表示6月とうったら6月が出て来る方法なんてあるのでしょうか？ありましたら、下記のコードをどう直せいいか教えて頂けますでしょうか？宜しくお願い致します。 【作業内容：場所と月を検索、さらに要らない列を消し、別シートに表示】【検索月はC】 A B C D E F G H I J K 部署 No. 開始日 終了日 担当者 設備 刃名 枚数 内容 工数 備考 茨城 1 2010/5/7 2010/5/10 B緒 L型 K 16枚 研削 6.00 東和電気 東京 2 2010/6/7 2010/6/8 B緒 L型 K 16枚 研削 6.83 東和電気 茨城 3 2010/5/18 2010/5/19 B緒 L型 K 16枚 研削 1.50 東和電気 茨城 4 2010/5/16 2010/5/19 B緒 L型 K 16枚 研削 6.83 東和電気 茨城 5 2010/6/10 2010/6/10 B緒 L型 K 16枚 研削 6.83 東和電気 ↓ A B C D E F 部署 No. 開始日 担当者 内容 工数 茨城 1 2010/5/7 B緒 研削 6.00 茨城 3 2010/5/16 B緒 掃除 6.83 茨城 4 2010/5/18 B緒 出荷 1.50 【コード】 Sub 検索() Dim R As Long Dim Row2 As Long '●Sheet2書込み行 Sheets("集計表").Range("A5").CurrentRegion.Clear Sheets("集計表").Range("A5:F5").Value = Array("依頼部署", "依頼書No.", "研磨開始日", "担当者", "作業内容", "作業内容", "工数") Row2 = 5 For R = 2 To Sheets("日報").Cells(Rows.Count, "A").End(xlUp).Row If Sheets("日報").Cells(R, "A") = Sheets("集計表").Range("A2") And _ Sheets("日報").Cells(R, "C") >= Sheets("集計表").Range("B2") And _ Sheets("日報").Cells(R, "C") <= Sheets("集計表").Range("C2") Then Row2 = Row2 + 1 Sheets("集計表").Cells(Row2, "A").Value = Sheets("日報").Cells(R, "A").Value Sheets("集計表").Cells(Row2, "B").Value = Sheets("日報").Cells(R, "B").Value Sheets("集計表").Cells(Row2, "C").Value = Sheets("日報").Cells(R, "C").Value Sheets("集計表").Cells(Row2, "D").Value = Sheets("日報").Cells(R, "E").Value Sheets("集計表").Cells(Row2, "E").Value = Sheets("日報").Cells(R, "I").Value Sheets("集計表").Cells(Row2, "F").Value = Sheets("日報").Cells(R, "J").Value End If Next R '●結果の並べ替え If Row2 = 5 Then MsgBox "該当データなし！" Else Sheets("集計表").Range("A5:D" & Row2).Sort _ Key1:=Range("B6"), Order1:=xlAscending, _ Header:=xlYes, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, SortMethod:=xlPinYin Sheets("集計表").Select End Sub
- ベストアンサー
- その他MS Office製品
- エクセル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" となってしまいます。 どこに原因があるのかわかりません。 助けてください。 宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- マクロのフォームから。。。
マクロのフォームから。。。 マクロのフォームからシートの最終行に入力ができるようにしたいのです。 マクロは下記になります。今の状態ですと、新規入力ボタンを押してデータ登録ボタンを押すと、途中の行に登録がされてしまいます。 暫く考えていましたがどうしてもわからず、また初心者の為できればわかりやすく教えてもらえると幸いです。どうかよろしくお願い致します。 Private Sub CommandButton3_Click() 入力結果 = MsgBox("データを登録しますか", vbYesNo) If 入力結果 = 6 Then If ToggleButton1.Value = True Then 表示行 = Cells(2, 10).Value + 1 Else 表示行 = Cells(1, 10).Value End If If ToggleButton1.Value = True Then データクリア TextBox1.Value = Cells(表示行, 1).Value + 1 Else データ表示 End If 表示行 = Cells(1, 10).Value Cells(表示行, 1).Value = TextBox1.Value Cells(表示行, 2).Value = TextBox2.Value Cells(表示行, 5).Value = TextBox3.Value Cells(表示行, 6).Value = TextBox4.Value Cells(表示行, 7).Value = TextBox5.Value Cells(表示行, 4).Value = ComboBox1.Value If OptionButton1.Value = True Then Cells(表示行, 3).Value = "男" Else Cells(表示行, 3).Value = "女" End If データ表示 End If End Sub ※ 表の範囲：a1:g5(1行目はタイトル) j1:表示行 j2:最終行(counta)
- 締切済み
- オフィス系ソフト
- エクセルマクロ－条件付き繰り返し
マクロ初心者です。（エクセル２００３使用） シート１にある表で、Ｍ列が空白以外（処理済みなどの値がある場合）である場合、その行全体をコピーし、シート２の最終行に貼り付けして、シート１からはその行を削除するマクロを作成したいと思っていますができません。 すみませんが、どなたかご教授願います。 （シート１の表） ・８行目が題目となっており、Ａ９から表となっています。 ・表の全体サイズは、横がＡからＭまでで、縦はＣ(シー）の管理番号行分までとなっています。（Ｍは、空欄があったり値（処理済みなどの値）が入っていたりしています） （考えているマクロ） ・Ｌｏｏｐの回数は、Ｃの管理番号が終わるまで ・ＩＦでＣに値があり、Ｍが空欄だった場合は、そのまま（何もしない） ・Ｃに値があり、Ｍに値があった場合は、その行全体を選択しコピーし、シート３の最終行に貼り付け、シート１のその行は削除する Sub 処理済み() Range("C9").Select Do While ActiveCell.Value = "" ActiveCell.Offset(1).Select Loop If ActiveCell.Offset(, 10).Value = "" Then そのまま Else If ActiveCell.Offset(, 10).Value = "値があったら" Then その行全体を Select.Copy Sheets("Sheet2").Select Dim 下 下 = Range("A").End(xlDown).Row ペースト 削除 End If End Sub すみませんが、どなたか教えていただけましたら助かります。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- マクロの部分一致検索で質問です。
マクロの初心者で 先日もお世話になりましたが、 また質問致します。 Loopを使って、A列を上から１つずつ見ていき シートの文字を取得して、取得した文字の中に＊があれば 処理１をするようにしたいのですが、 どうもうまくいきません。 下の状態では当然ですが、ダメでした。 わかる方にアドバイスをお願いします。 For LOOP_A = 3 To LASTRow Step 1 T = Sheet1.Cells(LOOP_C1, 1).Value If T Like "*" = True Then 処理１ Else End If ・ ・
- ベストアンサー
- オフィス系ソフト
お礼
訂正回答ありがとうございました。 教えていただいた、内容で動いていました。 「集計表」のシートを開きながらf8で送っていて、混乱しました。 構文よく見たら、別シートの「入力」というシートを処理して 構文の内容で「集計表」のシートのセルに転記する、でした。 ありがとうございました。